cvsuser 02/06/07 15:44:14
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML ImageButton.pm
Log:
enable creation of tabbed images
Revision Changes Path
1.3 +8 -5 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/ImageButton.pm
Index: ImageButton.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/ImageButton.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- ImageButton.pm 8 Feb 2002 20:42:29 -0000 1.2
+++ ImageButton.pm 7 Jun 2002 22:44:14 -0000 1.3
@@ -1,10 +1,10 @@
######################################################################
-## $Id: ImageButton.pm,v 1.2 2002/02/08 20:42:29 spadkins Exp $
+## $Id: ImageButton.pm,v 1.3 2002/06/07 22:44:14 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::ImageButton;
-$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;
@@ -51,8 +51,8 @@
my $self = shift;
my ($name);
my ($url, $image, $image_script, $script_url_dir, $html_url_dir);
- my ($height, $width, $bevel, $event, $args, $tabindex);
- my ($label, $url_label, $html_label, $event_target);
+ my ($height, $width, $bevel, $event, $args, $tabindex, $bgcolor);
+ my ($label, $url_label, $html_label, $event_target, $type, $selected);
$name = $self->{name};
$label = $self->label();
@@ -64,6 +64,9 @@
$event = $self->get("event","click");
$args = $self->get("args");
$args = (defined $args && $args ne "") ? "($args)" : "";
+ $type = $self->{type};
+ $type = "button" if (!$type);
+ $selected = $self->{selected} ? "&selected=1" : "&selected=0";
$image = $self->get("image");
if ($image) {
@@ -96,7 +99,7 @@
$script_url_dir = $self->{context}->iget("scriptUrlDir");
$url = "$script_url_dir/$image_script";
}
- $url .=
"?mode=button&width=$width&height=$height&bevel=$bevel&text=$url_label";
+ $url .=
"?mode=$type&width=$width&height=$height&bevel=$bevel&text=$url_label$selected";
return "<input type=\"image\" name=\"p5ee.event.$event_target.$event$args\"
src=\"$url\" border=\"0\" height=\"$height\" width=\"$width\"
alt=\"$html_label\"$tabindex/>";
}
