summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/mousedrake
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-24 19:12:25 +0000
committerdamien <damien@mandriva.com>2001-08-24 19:12:25 +0000
commit61f932928afdde43a84e246130840dd882fceac1 (patch)
treeec2466bb1873a2ec15f09d780fec124acdd3a061 /perl-install/standalone/mousedrake
parent1bf4d043db7302d4b5b5a517044271d85064e30b (diff)
downloaddrakx-61f932928afdde43a84e246130840dd882fceac1.tar
drakx-61f932928afdde43a84e246130840dd882fceac1.tar.gz
drakx-61f932928afdde43a84e246130840dd882fceac1.tar.bz2
drakx-61f932928afdde43a84e246130840dd882fceac1.tar.xz
drakx-61f932928afdde43a84e246130840dd882fceac1.zip
updated mouse test
Diffstat (limited to 'perl-install/standalone/mousedrake')
-rwxr-xr-xperl-install/standalone/mousedrake6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index de8db2a67..e8b6ba01b 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -185,11 +185,15 @@ sub test_mouse2 {
$darea->window->draw_arc ( $darea->style->black_gc,
1, ($darea->allocation->[2]-$width)/2 + $x, ($darea->allocation->[3]-$height)/2 + 90, 20, 25,
0, 360*64);
- } else {
+ } elsif ($nb == 3) {
$darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
$m3_middle, 0, 0,
($darea->allocation->[2]-$width)/2+81, ($darea->allocation->[3]-$height)/2 + 49,
45, 96);
+ } elsif ($nb == 4) {
+ print "button 4\n";
+ } elsif ($nb == 5) {
+ print "button 5\n";
}
};
# my $draw_text = sub {