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-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
