diff options
author | damien <damien@mandriva.com> | 2001-08-24 19:12:25 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-08-24 19:12:25 +0000 |
commit | 61f932928afdde43a84e246130840dd882fceac1 (patch) | |
tree | ec2466bb1873a2ec15f09d780fec124acdd3a061 /perl-install/standalone/mousedrake | |
parent | 1bf4d043db7302d4b5b5a517044271d85064e30b (diff) | |
download | drakx-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-x | perl-install/standalone/mousedrake | 6 |
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 { |