diff options
| author | damien <damien@mandriva.com> | 2001-09-05 22:45:44 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-09-05 22:45:44 +0000 |
| commit | 15d6aa5d1c706c204b3fe0a4c43b30d05480a2a0 (patch) | |
| tree | c7d81d42d1f791ca89d7fcb44b8ecf223e8a6da4 /perl-install/standalone/mousedrake | |
| parent | e0c29e40dc830315f3adba09b09dc703d267c3f5 (diff) | |
| download | drakx-backup-do-not-use-15d6aa5d1c706c204b3fe0a4c43b30d05480a2a0.tar drakx-backup-do-not-use-15d6aa5d1c706c204b3fe0a4c43b30d05480a2a0.tar.gz drakx-backup-do-not-use-15d6aa5d1c706c204b3fe0a4c43b30d05480a2a0.tar.bz2 drakx-backup-do-not-use-15d6aa5d1c706c204b3fe0a4c43b30d05480a2a0.tar.xz drakx-backup-do-not-use-15d6aa5d1c706c204b3fe0a4c43b30d05480a2a0.zip | |
updated
Diffstat (limited to 'perl-install/standalone/mousedrake')
| -rwxr-xr-x | perl-install/standalone/mousedrake | 40 |
1 files changed, 30 insertions, 10 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index c7e543d91..54dbb2f09 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -160,6 +160,8 @@ sub test_mouse2 { my ($m3_image, $m3_mask) = my_gtk::gtkcreate_xpm($darea, 'mouse_3b.xpm'); my ($m3_imagep, $m3_maskp) = my_gtk::gtkcreate_xpm($darea, 'mouse_3b+.xpm'); + my ($m3_left, $m3_left_mask) = my_gtk::gtkcreate_xpm($darea, 'mouse_left.xpm'); + my ($m3_right, $m3_right_mask) = my_gtk::gtkcreate_xpm($darea, 'mouse_right.xpm'); my ($m3_middle, $m3_middle_mask) = my_gtk::gtkcreate_xpm($darea, 'mouse_middle.xpm'); $image = $m3_image; $mouse->{nbuttons} > 3 and $image = $m3_imagep; @@ -191,19 +193,37 @@ sub test_mouse2 { my ($nb, $pressed) = @_; my $x = 60 + $nb*33; $drawarea->(); - if ($mouse->{nbuttons} <= 3) { - $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); - } elsif ($nb == 3) { + if ($nb == 0) { $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); + $m3_left, 0, 0, + ($darea->allocation->[2]-$width)/2+31, ($darea->allocation->[3]-$height)/2 + 52, + 59, 91); + } elsif ($nb == 2) { + $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $m3_right, 0, 0, + ($darea->allocation->[2]-$width)/2+117, ($darea->allocation->[3]-$height)/2 + 52, + 61, 91); + } elsif ($nb == 1) { + if($mouse->{nbuttons} > 3) { + $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $m3_middle, 0, 0, + ($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67, + 13, 62); + } else { + $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); + } } elsif ($nb == 4) { - print "button 4\n"; + $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $m3_middle, 0, 0, + ($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67, + 13, 62) } elsif ($nb == 5) { - print "button 5\n"; + $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $m3_middle, 0, 0, + ($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67, + 13, 62) } }; # my $draw_text = sub { |