Mailing List Archive

Author: richter
Date: Mon May 6 04:13:12 2013
New Revision: 1479465

URL: http://svn.apache.org/r1479465
Log:
Fullsize textarea

Modified:
perl/embperl/trunk/Embperl/Form/Control/textarea.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/textarea.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/textarea.pm?rev=1479465&r1=1479464&r2=1479465&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/textarea.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/textarea.pm Mon May 6 04:13:12 2013
@@ -30,6 +30,41 @@ __EMBPERL__

[# ---------------------------------------------------------------------------
#
+# show - output the control
+#]
+
+[$ sub show ($self, $req)
+
+$]
+
+[$if !$self -> {fullwidth} $]
+[- $self -> SUPER::show ($req) -]
+[$else$]
+
+<table class="ef-element ef-element-width-[+ $self -> {width_percent} +] ef-element-[+ $self -> {type} +] [+ $self -> {state} +]" style="width: 348px">
+ <tr>
+ <td class="ef-label-box ef-label-box-width-full [$ if $self->{labelclass} $][+ " $self->{labelclass}" +][$ endif $]">
+ [.-
+ $fdat{$name} = $self -> {default} if ($fdat{$name} eq '' && exists ($self -> {default})) ;
+ my $span = 0 ;
+ $self -> show_label ($req);
+ -]
+ </td>
+ </tr>
+ <tr>
+ <td class="ef-control-box ef-control-box-width-full">
+ [.-
+ local $self -> {width_percent} = 'full' ;
+ $self -> show_control ($req)
+ -]
+ </td>
+ </tr>
+ </table>
+[$endif$]
+[$endsub$]
+
+[# ---------------------------------------------------------------------------
+#
# show_control - output the control
#]




---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org