Mailing List Archive

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) +]&nbsp;[$ 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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org