Embperl

 view release on metacpan or  search on metacpan

Embperl/Form.pm  view on Meta::CPAN

    {
    my ($self, $ctrl, $values, $options, $req) = @_ ;

    return $options ;
    }

#------------------------------------------------------------------------------------------
#
#   convert_text
#
#   converts the text of a controls like transparent to the text that should be outputed.
#   By default does nothing.
#   Can be overwritten to allow for example internationalization.
#
#   in  $ctrl        Embperl::Form::Control object
#       $value       value that is shown
#

sub convert_text
    {
    my ($self, $ctrl, $value, $text, $req) = @_ ;

Embperl/Form/Control/transparent.pm  view on Meta::CPAN

#   License or the Artistic License, as specified in the Perl README file.
#
#   THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
#   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
#   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
#   $Id$
#
###################################################################################

package Embperl::Form::Control::transparent ;

use strict ;
use base 'Embperl::Form::Control' ;

use Embperl::Inline ;

1 ;

__EMBPERL__

Embperl/Form/Control/transparent.pm  view on Meta::CPAN

<td class="cBase cTransparentBox" colspan="[+ $span +]">[+ $self -> {showtext}?($self->{text}):$self -> form -> convert_text ($self) +]&nbsp;</td>
[$endsub$]


__END__

=pod

=head1 NAME

Embperl::Form::Control::transparent - A transparent area inside an Embperl Form


=head1 SYNOPSIS

  {
  type => 'transparent',
  text => 'blabla'
  }

=head1 DESCRIPTION

Used to create a transparent area with optional text inside an Embperl Form.
See Embperl::Form on how to specify parameters.

=head2 PARAMETER

=head3 type

Needs to be 'transparent'

=head3 text (optional)

Could be used to give a text that should be displayed inside the transparent area


=head1 Author

G. Richter (richter at embperl dot org)

=head1 See Also

perl(1), Embperl, Embperl::Form

MANIFEST  view on Meta::CPAN

Embperl/Form/Control/radio.pm
Embperl/Form/Control/select.pm
Embperl/Form/Control/scriptcode.pm
Embperl/Form/Control/selectdyn.pm
Embperl/Form/Control/submit.pm
Embperl/Form/Control/show.pm
Embperl/Form/Control/tabs.pm
Embperl/Form/Control/textarea.pm
Embperl/Form/Control/table.pm
Embperl/Form/Control/tinymce.pm
Embperl/Form/Control/transparent.pm
Embperl/Form/ControlMultValue.pm
Embperl/Form/DataSource.pm
Embperl/Form/Validate.pm
Embperl/Form/Validate/Default.pm
Embperl/Form/Validate/Number.pm
Embperl/Form/Validate/EMail.pm
Embperl/Form/Validate/EMailRFC.pm
Embperl/Form/Validate/FQDN_IPAddr.pm
Embperl/Form/Validate/IPAddr.pm
Embperl/Form/Validate/IPAddr_Mask.pm

eg/forms/css/EmbperlForm.css  view on Meta::CPAN

.calendar .button { /* "<<", "<", ">", ">>" buttons have this class */
  text-align: center;
  padding: 1px;
  border-top: 1px solid #fff;
  border-right: 1px solid #000;
  border-bottom: 1px solid #000;
  border-left: 1px solid #fff;
}

.calendar .nav {
  background: transparent url(menuarrow.gif) no-repeat 100% 100%;
}

.calendar thead .title { /* This holds the current "month, year" */
  font-weight: bold;
  padding: 1px;
  border: 1px solid #000;
  background: #788480;
  color: #fff;
  text-align: center;
}