cvsuser 02/04/19 07:45:24
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML AppFrame.pm Checkbox.pm
DataTable.pm DateDropDowns.pm DateField.pm
Element.pm Label.pm Menu.pm NewWidget.pm Select.pm
SelectorView.pm TextField.pm Toolbar.pm TreeView.pm
ValidatedTextField.pm
Log:
changed $wc to $context everywhere
Revision Changes Path
1.5 +18 -18 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/AppFrame.pm
Index: AppFrame.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/AppFrame.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- AppFrame.pm 5 Apr 2002 22:25:18 -0000 1.4
+++ AppFrame.pm 19 Apr 2002 14:45:23 -0000 1.5
@@ -1,10 +1,10 @@
######################################################################
-## $Id: AppFrame.pm,v 1.4 2002/04/05 22:25:18 spadkins Exp $
+## $Id: AppFrame.pm,v 1.5 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::AppFrame;
-$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.5 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -22,8 +22,8 @@
# official way
use Widget;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# internal way
use P5EEx::Blue::Widget::HTML::AppFrame;
@@ -67,17 +67,17 @@
sub handle_event {
my ($self, $wname, $event, @args) = @_;
- my ($wc, $name, $node);
+ my ($context, $name, $node);
my ($selector_widget, $screen_wname, $screen_widget, $screen_settings);
my ($screen_msg, $target);
$name = $self->{name};
- $wc = $self->{context};
+ $context = $self->{context};
if ($wname eq "$name.selector" && $event eq "select") {
- $selector_widget = $wc->widget("$name.selector");
+ $selector_widget = $context->widget("$name.selector");
$screen_wname = $selector_widget->get_selected("wname");
- $screen_widget = $wc->widget($screen_wname);
+ $screen_widget = $context->widget($screen_wname);
$screen_settings = $selector_widget->get_selected("set");
$self->{context}->dbgprint("AppFrame->handle_event($wname, $event, @args):
$screen_settings [",
@@ -94,7 +94,7 @@
if ($screen_msg && ref($screen_msg) eq "ARRAY" && $#$screen_msg >= 1) {
my ($target_widget, $target_wname, $method, @args);
($target_wname, $method, @args) = @$screen_msg;
- $target_widget = $wc->widget($target_wname);
+ $target_widget = $context->widget($target_wname);
$target_widget->$method(@args);
}
@@ -127,9 +127,9 @@
sub html {
my $self = shift;
- my ($wc, $name, $html);
+ my ($context, $name, $html);
$name = $self->{name};
- $wc = $self->{context};
+ $context = $self->{context};
my ($menu, $toolbar, $screentitle, $screentoolbar);
my ($selector_widget, $selector);
@@ -138,19 +138,19 @@
if (1) { # view as table
- $menu = $wc->widget("$name.menu",
+ $menu = $context->widget("$name.menu",
widgetClass => "P5EEx::Blue::Widget::HTML::Menu",
)->display();
- $toolbar = $wc->widget("$name.toolbar",
+ $toolbar = $context->widget("$name.toolbar",
widgetClass => "P5EEx::Blue::Widget::HTML::Toolbar",
)->display();
- $screentoolbar = $wc->widget("$name.screentoolbar",
+ $screentoolbar = $context->widget("$name.screentoolbar",
widgetClass => "P5EEx::Blue::Widget::HTML::Toolbar",
)->display();
- $selector_widget = $wc->widget("$name.selector",
+ $selector_widget = $context->widget("$name.selector",
widgetClass =>
"P5EEx::Blue::Widget::HTML::SelectorView",
);
@@ -158,7 +158,7 @@
$screen_wname = $selector_widget->get_selected("wname");
if ($screen_wname) {
- $screen_widget = $wc->widget($screen_wname);
+ $screen_widget = $context->widget($screen_wname);
$screentitle_value = $screen_widget->label();
$screentitle_value = $selector_widget->get_selected("value") if
(!$screentitle_value);
$screen = $screen_widget->display();
@@ -175,7 +175,7 @@
return $screen; # no need to generate a frame
}
- #$screentitle_widget = $wc->widget("$name.screentitle",
+ #$screentitle_widget = $context->widget("$name.screentitle",
# -label => $screentitle_value,
# -bgcolor => "#888888",
#);
@@ -202,7 +202,7 @@
# </tr>
my ($messages, $messagebox);
- $messages = $wc->{messages};
+ $messages = $context->{messages};
$messagebox = "";
if (defined $messages && $messages ne "") {
my ($elem_begin, $elem_end, $fontFace, $fontSize, $fontColor);
1.4 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Checkbox.pm
Index: Checkbox.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Checkbox.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- Checkbox.pm 12 Mar 2002 16:56:19 -0000 1.3
+++ Checkbox.pm 19 Apr 2002 14:45:23 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Checkbox.pm,v 1.3 2002/03/12 16:56:19 spadkins Exp $
+## $Id: Checkbox.pm,v 1.4 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Checkbox;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -22,8 +22,8 @@
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# internal way
use P5EEx::Blue::Widget::HTML::Checkbox;
1.10 +40 -40 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DataTable.pm
Index: DataTable.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DataTable.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- DataTable.pm 19 Apr 2002 14:34:20 -0000 1.9
+++ DataTable.pm 19 Apr 2002 14:45:23 -0000 1.10
@@ -1,10 +1,10 @@
######################################################################
-## $Id: DataTable.pm,v 1.9 2002/04/19 14:34:20 spadkins Exp $
+## $Id: DataTable.pm,v 1.10 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::DataTable;
-$VERSION = do { my @r=(q$Revision: 1.9 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.10 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -97,7 +97,7 @@
# Usage: $widget->handle_event($event, @args);
sub handle_event {
my ($self, $wname, $event, @args) = @_;
- my ($name, $wc, $colnum, $x, $y, $startrow, $maxrows, $width, $direction);
+ my ($name, $context, $colnum, $x, $y, $startrow, $maxrows, $width, $direction);
#$self->clear_messages();
@@ -174,8 +174,8 @@
}
elsif ($wname =~ /^$name.sort[0-9]*$/) {
($colnum, $x, $y) = @args;
- $wc = $self->{context};
- $width = $wc->widget($wname)->get("width");
+ $context = $self->{context};
+ $width = $context->widget($wname)->get("width");
if ($x <= $width/2) {
return $self->handle_event($wname, "sort", $colnum, "UP");
}
@@ -202,10 +202,10 @@
$headings = $self->get("headings");
if (!defined $headings) {
$headings = [];
- my ($repname, $wc, $rep, $columnlabels);
+ my ($repname, $context, $rep, $columnlabels);
$repname = $self->get("repository");
- $wc = $self->{context};
- $rep = $wc->repository($repname);
+ $context = $self->{context};
+ $rep = $context->repository($repname);
$columnlabels = $rep->get_column_labels($table);
foreach $column (@$columns) {
$heading = $columnlabels->{$column};
@@ -238,13 +238,13 @@
my $self = shift;
$self->{context}->dbgprint("DataTable->load()")
if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(1));
- my ($wc, $repname, $rep, $rows, $table, $columns, $sql, $error, $data);
+ my ($context, $repname, $rep, $rows, $table, $columns, $sql, $error, $data);
my ($params, $paramvalues, $ordercols, $startrow, $maxrows, $endrow,
$directions, $keycolidx);
my (%paramvalues, $filter, $column);
$repname = $self->get("repository");
- $wc = $self->{context};
- $rep = $wc->repository($repname);
+ $context = $self->{context};
+ $rep = $context->repository($repname);
return if (! defined $rep);
$sql = $self->get("sql");
@@ -258,7 +258,7 @@
$rows = [ $rep->exec_select($sql, $startrow, $startrow+$maxrows-1) ];
$error = $rep->error();
if ($#$rows == -1 && $error) {
- $wc->add_message("SQL error: $error<br>$sql");
+ $context->add_message("SQL error: $error<br>$sql");
}
}
elsif ($data) {
@@ -267,7 +267,7 @@
else {
$table = $self->get("table");
if (! $table) {
- $wc->add_message("No table specified");
+ $context->add_message("No table specified");
return;
}
@@ -275,7 +275,7 @@
if (! defined $columns || $#$columns == -1) {
$columns = $rep->get_column_names($table);
if (!defined $columns || $#$columns == -1) {
- $wc->add_message("No columns specified");
+ $context->add_message("No columns specified");
return;
}
}
@@ -319,7 +319,7 @@
$error = $rep->error();
if ($#$rows == -1 && $error) {
$sql = $rep->{sql};
- $wc->add_message("SQL error: $error<br>$sql");
+ $context->add_message("SQL error: $error<br>$sql");
}
}
@@ -339,20 +339,20 @@
sub save {
my $self = shift;
- my ($repname, $wc, $rep, $table);
+ my ($repname, $context, $rep, $table);
my ($editdata, $key, $column, @columns, @values);
$repname = $self->get("repository");
- $wc = $self->{context};
- $rep = $wc->repository($repname);
+ $context = $self->{context};
+ $rep = $context->repository($repname);
if (! $rep) {
- $wc->add_message("No repository specified");
+ $context->add_message("No repository specified");
return;
}
$table = $self->get("table");
if (! $table) {
- $wc->add_message("No table specified");
+ $context->add_message("No table specified");
return;
}
@@ -450,8 +450,8 @@
$self->{context}->dbgprint("DataTable->html()")
if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(1));
- my ($wc, $name, $data);
- $wc = $self->{context};
+ my ($context, $name, $data);
+ $context = $self->{context};
$name = $self->{name};
my ($key, $column);
@@ -519,7 +519,7 @@
$html = "";
if (defined $title) {
- $title = $wc->substitute($title);
+ $title = $context->substitute($title);
$html .= $title;
}
@@ -541,7 +541,7 @@
if ($scrollable) {
$html .= "<table border=\"0\" cellspacing=\"0\"
cellpadding=\"5\"><tr><td>\n";
$html .= "<table border=\"0\" cellspacing=\"0\"
cellpadding=\"3\"><tr><td valign=\"middle\" nowrap> \n";
- $html .= $wc->widget("$name.view",
+ $html .= $context->widget("$name.view",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -552,7 +552,7 @@
)->display();
$html .= " ";
if ($editable) {
- $html .= $wc->widget("$name.edit",
+ $html .= $context->widget("$name.edit",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -566,7 +566,7 @@
$html .= " </td><td nowrap";
$html .= " bgcolor=\"$headingBgcolor\"" if ($headingBgcolor);
$html .= ">$elem_begin \n";
- $html .= $wc->widget("$name.prev",
+ $html .= $context->widget("$name.prev",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -576,19 +576,19 @@
bevel => 2,
)->display();
$html .= "\n Start Row:";
- $html .= $wc->widget("$name.startrow",
+ $html .= $context->widget("$name.startrow",
widgetClass => "P5EEx::Blue::Widget::HTML::TextField",
size => 4,
maxlength => 12,
)->display();
$html .= " Num Rows:";
- $html .= $wc->widget("$name.maxrows",
+ $html .= $context->widget("$name.maxrows",
widgetClass => "P5EEx::Blue::Widget::HTML::TextField",
size => 4,
maxlength => 12,
)->display();
$html .= "\n";
- $html .= $wc->widget("$name.next",
+ $html .= $context->widget("$name.next",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -604,7 +604,7 @@
if ($mode eq "edit") {
$html .= "<table border=\"0\" cellspacing=\"0\"
cellpadding=\"3\"><tr>\n";
$html .= "<td>\n";
- $html .= $wc->widget("$name.save",
+ $html .= $context->widget("$name.save",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -615,7 +615,7 @@
)->display();
$html .= "</td>\n";
$html .= "<td>\n";
- $html .= $wc->widget("$name.add",
+ $html .= $context->widget("$name.add",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -626,7 +626,7 @@
)->display();
$html .= "</td>\n";
$html .= "<td>\n";
- $html .= $wc->widget("$name.delete",
+ $html .= $context->widget("$name.delete",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -637,7 +637,7 @@
)->display();
$html .= "</td>\n";
#$html .= "<td>\n";
- #$html .= $wc->widget("$name.confirm",
+ #$html .= $context->widget("$name.confirm",
# widgetClass =>
"P5EEx::Blue::Widget::HTML::RadioButtonSet",
# #lightweight => 1,
# values => [ "no_confirm", "confirm", "auto_confirm" ],
@@ -659,7 +659,7 @@
$html .= " <td> </td>\n" if ($numbered);
for ($col = 0; $col < $numcols; $col++) {
- $elem = $wc->widget("$name.sort$col",
+ $elem = $context->widget("$name.sort$col",
widgetClass =>
"P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
#lightweight => 1,
@@ -681,12 +681,12 @@
for ($col = 0; $col < $numcols; $col++) {
$column = $columns->[$col];
$self->{context}->dbgprint("DataTable->widget($name\{filter}{$column})\n");
- #$elem = $wc->widget("$name\{filter}{$column}",
+ #$elem = $context->widget("$name\{filter}{$column}",
# widgetClass =>
"P5EEx::Blue::Widget::HTML::TextField",
# size => 5,
# maxwidth => 99,
# )->display();
- $w = $wc->widget("$name\{filter}{$column}",
+ $w = $context->widget("$name\{filter}{$column}",
widgetClass =>
"P5EEx::Blue::Widget::HTML::TextField",
size => 5,
maxwidth => 99,
@@ -704,7 +704,7 @@
$html .= " <td bgcolor=\"#ffaaaa\"> </td>\n" if ($numbered);
for ($col = 0; $col < $numcols; $col++) {
$column = $columns->[$col];
- $elem = $wc->widget("$name\{columnSelected}{$column}",
+ $elem = $context->widget("$name\{columnSelected}{$column}",
widgetClass => "P5EEx::Blue::Widget::HTML::Checkbox",
)->display();
$html .= " <td bgcolor=\"#ffaaaa\" valign=\"bottom\"
align=\"center\">$elem</td>\n";
@@ -802,7 +802,7 @@
$key = join(",", @{$keys->[$row]}); # need to HTML-escape these!
if ($rowSelectable) {
$html .= " <td bgcolor=\"#ffaaaa\" valign=\"middle\"
align=\"center\">\n";
- $html .= $wc->widget("$name\{rowSelected}{$key}",
+ $html .= $context->widget("$name\{rowSelected}{$key}",
widgetClass =>
"P5EEx::Blue::Widget::HTML::Checkbox",
)->display();
$html .= " </td>\n";
@@ -847,7 +847,7 @@
$self->{editdata}{$key}{$column} = $elem
}
$html .= " <td $td_row_attrib$td_col_attrib>${elem_begin}";
- $html .= $wc->widget("$name\{editdata}{$key}{$column}",
+ $html .= $context->widget("$name\{editdata}{$key}{$column}",
widgetClass => "P5EEx::Blue::Widget::HTML::TextField",
size => $column_length[$col]+2, # add 2 just to give
some visual space
maxlength => 99,
@@ -879,7 +879,7 @@
$html .= "</table>\n";
if (1) {
my $repname = $self->get("repository");
- my $rep = $wc->repository($repname);
+ my $rep = $context->repository($repname);
$html .= "<!-- SQL used in table query\n";
$html .= $rep->{sql};
$html .= "-->\n";
1.3 +11 -11 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateDropDowns.pm
Index: DateDropDowns.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateDropDowns.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- DateDropDowns.pm 8 Feb 2002 20:42:29 -0000 1.2
+++ DateDropDowns.pm 19 Apr 2002 14:45:23 -0000 1.3
@@ -1,10 +1,10 @@
######################################################################
-## $Id: DateDropDowns.pm,v 1.2 2002/02/08 20:42:29 spadkins Exp $
+## $Id: DateDropDowns.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::DateDropDowns;
-$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::Widget::HTML::StylizableContainer;
@ISA = ( "P5EEx::Blue::Widget::HTML::StylizableContainer" );
@@ -63,22 +63,22 @@
my $self = shift;
$self->SUPER::init(@_);
my $name = $self->{name};
- my $wc = $self->{context};
+ my $context = $self->{context};
# NOTE: container is inferred by the naming convention
# otherwise, I should include "container => $name," line
- $wc->widget("${name}.day", # note: container is inferred
+ $context->widget("${name}.day", # note: container is inferred
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => \@P5EEx::Blue::Widget::HTML::DateDropDowns::dayvalues,
);
- $wc->widget("${name}.month",
+ $context->widget("${name}.month",
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => \@P5EEx::Blue::Widget::HTML::DateDropDowns::monthvalues,
labels => \%P5EEx::Blue::Widget::HTML::DateDropDowns::monthlabels,
);
- $wc->widget("${name}.year",
+ $context->widget("${name}.year",
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => [ 1980 .. 2010 ],
);
@@ -146,17 +146,17 @@
sub html {
my $self = shift;
- my ($wc, $name);
+ my ($context, $name);
- $wc = $self->{context};
+ $context = $self->{context};
$name = $self->{name};
$self->split_date();
return
- $wc->widget("${name}.day")->display() .
- $wc->widget("${name}.month")->display() .
- $wc->widget("${name}.year")->display() .
+ $context->widget("${name}.day")->display() .
+ $context->widget("${name}.month")->display() .
+ $context->widget("${name}.year")->display() .
$self->auto_event_tag("change");
}
1.3 +5 -5 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateField.pm
Index: DateField.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateField.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- DateField.pm 8 Feb 2002 20:42:29 -0000 1.2
+++ DateField.pm 19 Apr 2002 14:45:23 -0000 1.3
@@ -1,10 +1,10 @@
######################################################################
-## $Id: DateField.pm,v 1.2 2002/02/08 20:42:29 spadkins Exp $
+## $Id: DateField.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::DateField;
-$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML::TextField;
@@ -21,10 +21,10 @@
$name = "first_name";
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# OR ...
- $w = $wc->widget($name,
+ $w = $context->widget($name,
widgetClass => "P5EEx::Blue::Widget::HTML::DateField",
size => 8, # from HTML spec
maxlength => 18, # from HTML spec
1.3 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Element.pm
Index: Element.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Element.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- Element.pm 12 Mar 2002 16:56:19 -0000 1.2
+++ Element.pm 19 Apr 2002 14:45:23 -0000 1.3
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Element.pm,v 1.2 2002/03/12 16:56:19 spadkins Exp $
+## $Id: Element.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Element;
-$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::Widget::HTML;
@ISA = ( "P5EEx::Blue::Widget::HTML" );
@@ -63,9 +63,9 @@
sub html {
my $self = shift;
- my ($wc, $tag, $name, $value, $html_value, $contents);
+ my ($context, $tag, $name, $value, $html_value, $contents);
- $wc = $self->{context};
+ $context = $self->{context};
$name = $self->{name};
$value = $self->get_value("");
1.2 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Label.pm
Index: Label.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Label.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Label.pm 5 Feb 2002 22:16:05 -0000 1.1
+++ Label.pm 19 Apr 2002 14:45:23 -0000 1.2
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Label.pm,v 1.1 2002/02/05 22:16:05 spadkins Exp $
+## $Id: Label.pm,v 1.2 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Label;
-$VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -22,8 +22,8 @@
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# internal way
use P5EEx::Blue::Widget::HTML::Label;
1.2 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Menu.pm
Index: Menu.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Menu.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Menu.pm 5 Feb 2002 22:16:05 -0000 1.1
+++ Menu.pm 19 Apr 2002 14:45:23 -0000 1.2
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Menu.pm,v 1.1 2002/02/05 22:16:05 spadkins Exp $
+## $Id: Menu.pm,v 1.2 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Menu;
-$VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -22,8 +22,8 @@
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# internal way
use P5EEx::Blue::Widget::HTML::Menu;
1.2 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/NewWidget.pm
Index: NewWidget.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/NewWidget.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- NewWidget.pm 5 Feb 2002 22:16:05 -0000 1.1
+++ NewWidget.pm 19 Apr 2002 14:45:23 -0000 1.2
@@ -1,10 +1,10 @@
######################################################################
-## $Id: NewWidget.pm,v 1.1 2002/02/05 22:16:05 spadkins Exp $
+## $Id: NewWidget.pm,v 1.2 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::NewWidget;
-$VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -22,8 +22,8 @@
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# internal way
use P5EEx::Blue::Widget::HTML::NewWidget;
1.3 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Select.pm
Index: Select.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Select.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- Select.pm 18 Apr 2002 16:43:56 -0000 1.2
+++ Select.pm 19 Apr 2002 14:45:23 -0000 1.3
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Select.pm,v 1.2 2002/04/18 16:43:56 spadkins Exp $
+## $Id: Select.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Select;
-$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::Widget::HTML::Stylizable;
@ISA = ( "P5EEx::Blue::Widget::HTML::Stylizable" );
@@ -62,10 +62,10 @@
sub unstyled_html {
my $self = shift;
- my ($wc, $name, @currvalues, $values, @values, $labels);
+ my ($context, $name, @currvalues, $values, @values, $labels);
my ($tagname, $nullable, $size, $multiple, $tabindex);
- $wc = $self->{context};
+ $context = $self->{context};
$name = $self->{name};
$nullable = $self->get("nullable");
1.4 +6 -6 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/SelectorView.pm
Index: SelectorView.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/SelectorView.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- SelectorView.pm 12 Mar 2002 16:55:34 -0000 1.3
+++ SelectorView.pm 19 Apr 2002 14:45:23 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: SelectorView.pm,v 1.3 2002/03/12 16:55:34 spadkins Exp $
+## $Id: SelectorView.pm,v 1.4 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::SelectorView;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML::HierView;
@@ -51,8 +51,8 @@
sub html {
my $self = shift;
- my ($wc, $name, $node, $html, $label, $icon);
- $wc = $self->{context};
+ my ($context, $name, $node, $html, $label, $icon);
+ $context = $self->{context};
$name = $self->{name};
$node = $self->get("node");
@@ -104,7 +104,7 @@
$label = $node->{$nodenumber}{label};
$label = $node->{$nodenumber}{value} if (!defined $label);
$label = "" if (!defined $label);
- $html .= $wc->widget("$name.button$nodenumber",
+ $html .= $context->widget("$name.button$nodenumber",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => "button",
lightweight => 1,
@@ -136,7 +136,7 @@
$nodelabel =~ s/\./_/g;
$html .= "<p>";
- $html .= $wc->widget("$name.button$nodelabel",
+ $html .= $context->widget("$name.button$nodelabel",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
image => "images/SelectorView/$icon",
height => "36",
1.4 +5 -5 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/TextField.pm
Index: TextField.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/TextField.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- TextField.pm 12 Mar 2002 16:56:19 -0000 1.3
+++ TextField.pm 19 Apr 2002 14:45:23 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: TextField.pm,v 1.3 2002/03/12 16:56:19 spadkins Exp $
+## $Id: TextField.pm,v 1.4 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::TextField;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML::Stylizable;
@@ -21,10 +21,10 @@
$name = "first_name";
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# OR ...
- $w = $wc->widget($name,
+ $w = $context->widget($name,
widgetClass => "P5EEx::Blue::Widget::HTML::TextField",
size => 8, # from HTML spec
maxlength => 18, # from HTML spec
1.2 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Toolbar.pm
Index: Toolbar.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Toolbar.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Toolbar.pm 5 Feb 2002 22:16:06 -0000 1.1
+++ Toolbar.pm 19 Apr 2002 14:45:23 -0000 1.2
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Toolbar.pm,v 1.1 2002/02/05 22:16:06 spadkins Exp $
+## $Id: Toolbar.pm,v 1.2 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Toolbar;
-$VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -22,8 +22,8 @@
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# internal way
use P5EEx::Blue::Widget::HTML::Toolbar;
1.4 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/TreeView.pm
Index: TreeView.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/TreeView.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- TreeView.pm 27 Mar 2002 18:30:33 -0000 1.3
+++ TreeView.pm 19 Apr 2002 14:45:23 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: TreeView.pm,v 1.3 2002/03/27 18:30:33 spadkins Exp $
+## $Id: TreeView.pm,v 1.4 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::TreeView;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML::HierView;
@@ -49,8 +49,8 @@
sub html {
my $self = shift;
- my ($wc, $name, $node);
- $wc = $self->{context};
+ my ($context, $name, $node);
+ $context = $self->{context};
$name = $self->{name};
$node = $self->get("node");
1.3 +5 -5 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/ValidatedTextField.pm
Index: ValidatedTextField.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/ValidatedTextField.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- ValidatedTextField.pm 8 Feb 2002 20:42:29 -0000 1.2
+++ ValidatedTextField.pm 19 Apr 2002 14:45:23 -0000 1.3
@@ -1,10 +1,10 @@
######################################################################
-## $Id: ValidatedTextField.pm,v 1.2 2002/02/08 20:42:29 spadkins Exp $
+## $Id: ValidatedTextField.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::ValidatedTextField;
-$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML::TextField;
@@ -21,10 +21,10 @@
$name = "first_name";
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# OR ...
- $w = $wc->widget($name,
+ $w = $context->widget($name,
widgetClass => "P5EEx::Blue::Widget::HTML::ValidatedTextField",
size => 8, # from HTML spec
maxlength => 18, # from HTML spec
