Author: richter
Date: Tue Apr 24 19:22:13 2012
New Revision: 1329954
URL: http://svn.apache.org/viewvc?rev=1329954&view=rev
Log:
dynamic trigger for blank, info, etc.
Modified:
perl/embperl/trunk/Embperl/Form/Control/blank.pm
perl/embperl/trunk/Embperl/Form/Control/button.pm
perl/embperl/trunk/Embperl/Form/Control/cell.pm
perl/embperl/trunk/Embperl/Form/Control/icon.pm
perl/embperl/trunk/Embperl/Form/Control/info.pm
perl/embperl/trunk/Embperl/Form/Control/label.pm
perl/embperl/trunk/Embperl/Form/Control/line.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/blank.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/blank.pm?rev=1329954&r1=1329953&r2=1329954&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/blank.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/blank.pm Tue Apr 24 19:22:13 2012
@@ -32,7 +32,9 @@ __EMBPERL__
[$ sub show ($self, $data)
-$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +]">
+my $state = $self -> {state} ;
+
+$]<table class="[+ $state +] ef-element ef-element-width-[+ $self ->
{width_percent} +]">
<tr>
<td class="ef-label-box">[+ $self->{text} +]</td>
</tr>
Modified: perl/embperl/trunk/Embperl/Form/Control/button.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/button.pm?rev=1329954&r1=1329953&r2=1329954&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/button.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/button.pm Tue Apr 24 19:22:13 2012
@@ -34,8 +34,9 @@ __EMBPERL__
my $span = ($self->{width_percent}) ;
$self->{button} ||= [{}] ;
+my $state = $self -> {state} ;
$]
-<td class="cBase cControlBox cControlButtonBox" colspan="[+ $span +]">
+<td class="cBase cControlBox cControlButtonBox" colspan="[+ $span +] [+ $state
+]">
[$ foreach my $button (@{$self->{button}}) $]
[$if $self -> {symbol} $]
<div class="cControlButtonDiv"
Modified: perl/embperl/trunk/Embperl/Form/Control/cell.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/cell.pm?rev=1329954&r1=1329953&r2=1329954&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/cell.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/cell.pm Tue Apr 24 19:22:13 2012
@@ -33,8 +33,9 @@ __EMBPERL__
[$ sub show ($self, $data)
my $span = ($self->{width_percent}) ;
+my $state = $self -> {state} ;
$]
-<td class="cBase cControlBox [+$self->{controlclass}+]" colspan="[+ $span
+]"><span class="[+$self->{controlclass}+]">[+ $self->{text} +]</span></td>
+<td class="cBase cControlBox [+$self->{controlclass}+] [+ $state +]"
colspan="[+ $span +]"><span class="[+$self->{controlclass}+]">[+ $self->{text}
+]</span></td>
[$endsub$]
Modified: perl/embperl/trunk/Embperl/Form/Control/icon.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/icon.pm?rev=1329954&r1=1329953&r2=1329954&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/icon.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/icon.pm Tue Apr 24 19:22:13 2012
@@ -35,7 +35,8 @@ __EMBPERL__
my $span = ($self->{width_percent});
my $section = $self->{section};
my $class = $self -> {class} ;
-$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +]
ef-element-[+ $self -> {type} +]">
+my $state = $self -> {state} ;
+$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +]
ef-element-[+ $self -> {type} +] [+ $state +]">
<tr>
<td class="ef-control-box">
<div [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req) }
+]>
Modified: perl/embperl/trunk/Embperl/Form/Control/info.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/info.pm?rev=1329954&r1=1329953&r2=1329954&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/info.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/info.pm Tue Apr 24 19:22:13 2012
@@ -35,7 +35,8 @@ __EMBPERL__
my $span = ($self->{width_percent});
my $section = $self->{section};
my $class = $self -> {class} ;
-$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +]">
+my $state = $self -> {state} ;
+$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +] [+
$state +]">
<tr>
<td class="do { local $escmode = 0 ; $self -> get_std_control_attr($req, '',
'readonly') }">[$ if $section $]<b>[$ endif $][$ if $self -> {image} $]<img
class="cControlButtonSymbol" src="[+ $self -> {image} +]">[$endif$][+ $self ->
{showtext}?($self->{text}):$self -> form -> convert_text ($self) +] [$ if
$section $]</b>[$ endif $]</td>
</tr>
Modified: perl/embperl/trunk/Embperl/Form/Control/label.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/label.pm?rev=1329954&r1=1329953&r2=1329954&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/label.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/label.pm Tue Apr 24 19:22:13 2012
@@ -33,8 +33,9 @@ __EMBPERL__
[$ sub show ($self, $data)
my $span = ($self->{width_percent}) ;
+my $state = $self -> {state} ;
$]
-<td class="cBase cLabelBox" colspan="[+ $span +]">[+ $self->{text} +]</td>
+<td class="cBase cLabelBox" colspan="[+ $span +] [+ $state +]">[+
$self->{text} +]</td>
[$endsub$]
Modified: perl/embperl/trunk/Embperl/Form/Control/line.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/line.pm?rev=1329954&r1=1329953&r2=1329954&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/line.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/line.pm Tue Apr 24 19:22:13 2012
@@ -33,8 +33,9 @@ __EMBPERL__
[$ sub show ($self, $req)
my $span = ($self->{width_percent}) ;
+my $state = $self -> {state} ;
$]
-<td class="cBase cTransparentBox" colspan="[+ $span +]"><hr
class="cControlLine"></td>
+<td class="cBase cTransparentBox" colspan="[+ $span +] [+ $state +]"><hr
class="cControlLine"></td>
[$endsub$]
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
