cvsuser 02/05/17 13:20:07
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML DualListSelect.pm
Log:
added graphical arrow buttons
Revision Changes Path
1.2 +89 -50 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DualListSelect.pm
Index: DualListSelect.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DualListSelect.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- DualListSelect.pm 9 May 2002 22:18:47 -0000 1.1
+++ DualListSelect.pm 17 May 2002 20:20:07 -0000 1.2
@@ -1,10 +1,10 @@
######################################################################
-## $Id: DualListSelect.pm,v 1.1 2002/05/09 22:18:47 spadkins Exp $
+## $Id: DualListSelect.pm,v 1.2 2002/05/17 20:20:07 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::DualListSelect;
-$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::Widget::HTML::StylizableContainer;
@ISA = ( "P5EEx::Blue::Widget::HTML::StylizableContainer" );
@@ -53,6 +53,38 @@
#}
######################################################################
+# EVENTS
+######################################################################
+
+# Usage: $widget->handle_event($event, @args);
+sub handle_event {
+ my ($self, $wname, $event, @args) = @_;
+
+ my $name = $self->{name};
+
$self->{context}->dbgprint("DualListSelect($name)->handle_event($wname,$event,@args)")
+ if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(1));
+
+ if ($event eq "select") {
+ return 1;
+ }
+ elsif ($event eq "unselect") {
+ return 1;
+ }
+ elsif ($event eq "move_up") {
+ return 1;
+ }
+ elsif ($event eq "move_down") {
+ return 1;
+ }
+ elsif ($event eq "restore") {
+ return 1;
+ }
+ else {
+ return $self->SUPER::handle_event(@_);
+ }
+}
+
+######################################################################
# METHODS
######################################################################
@@ -112,69 +144,76 @@
@select_attribs
)->html();
- #if ($self->{noimagebuttons}) {
+ if ($self->{noimagebuttons}) {
$sel_button = $context->widget("${name}_sel_button",
widgetClass => "P5EEx::Blue::Widget::HTML::Button",
label => " >> ",
+ event => "select",
+ eventTarget => $name,
)->html();
$unsel_button = $context->widget("${name}_unsel_button",
widgetClass => "P5EEx::Blue::Widget::HTML::Button",
label => " << ",
+ event => "unselect",
+ eventTarget => $name,
)->html();
$up_button = $context->widget("${name}_up_button",
widgetClass => "P5EEx::Blue::Widget::HTML::Button",
label => " Up ",
+ event => "move_up",
+ eventTarget => $name,
)->html();
$dn_button = $context->widget("${name}_dn_button",
widgetClass => "P5EEx::Blue::Widget::HTML::Button",
label => " Dn ",
+ event => "move_down",
+ eventTarget => $name,
)->html();
- #}
- #else {
- # $sel_button = $context->widget("${name}_sel_button",
- # widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
- # image => "images/DualListSelect/rtarrow.gif",
- # height => "19",
- # width => "19",
- # label => "Select",
- # event => "select",
- # eventTarget => $name,
- # )->display();
- #
- # $unsel_button = $context->widget("${name}_unsel_button",
- # widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
- # image => "images/DualListSelect/lfarrow.gif",
- # height => "19",
- # width => "19",
- # label => "Select",
- # event => "select",
- # eventTarget => $name,
- # )->display();
- #
- # $up_button = $context->widget("${name}_up_button",
- # widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
- # image => "images/DualListSelect/uparrow.gif",
- # height => "19",
- # width => "19",
- # label => "Select",
- # event => "select",
- # eventTarget => $name,
- # )->display();
- #
- # $dn_button = $context->widget("${name}_dn_button",
- # widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
- # image => "images/DualListSelect/dnarrow.gif",
- # height => "19",
- # width => "19",
- # label => "Select",
- # event => "select",
- # eventTarget => $name,
- # )->display();
- #
- #}
+ }
+ else {
+ $sel_button = $context->widget("${name}_sel_button",
+ widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
+ image => "images/DualListSelect/rtarrow.gif",
+ height => "19",
+ width => "19",
+ label => "Select",
+ event => "select",
+ eventTarget => $name,
+ )->display();
+
+ $unsel_button = $context->widget("${name}_unsel_button",
+ widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
+ image => "images/DualListSelect/lfarrow.gif",
+ height => "19",
+ width => "19",
+ label => "Unselect",
+ event => "unselect",
+ eventTarget => $name,
+ )->display();
+
+ $up_button = $context->widget("${name}_up_button",
+ widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
+ image => "images/DualListSelect/uparrow.gif",
+ height => "19",
+ width => "19",
+ label => "Up",
+ event => "move_up",
+ eventTarget => $name,
+ )->display();
+
+ $dn_button = $context->widget("${name}_dn_button",
+ widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
+ image => "images/DualListSelect/dnarrow.gif",
+ height => "19",
+ width => "19",
+ label => "Down",
+ event => "move_down",
+ eventTarget => $name,
+ )->display();
+ }
$var_hidden = $self->callback_event_tag("restore");
