svn commit: r1479465 - /perl/embperl/trunk/Embperl/Form/Control/textarea.pm

[ri...@apache.org]

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