diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-21 18:32:43 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-21 18:32:43 +0000 |
| commit | bf94a6ccf2347b0a12b00a7472aa3522fd0ba8fe (patch) | |
| tree | ce04a9dcfa64e587653093238b16379ec6c12ec1 /perl-install/mouse.pm | |
| parent | aba456bcbaed2e8c1451bac16890f299cd5e4414 (diff) | |
| download | drakx-backup-do-not-use-bf94a6ccf2347b0a12b00a7472aa3522fd0ba8fe.tar drakx-backup-do-not-use-bf94a6ccf2347b0a12b00a7472aa3522fd0ba8fe.tar.gz drakx-backup-do-not-use-bf94a6ccf2347b0a12b00a7472aa3522fd0ba8fe.tar.bz2 drakx-backup-do-not-use-bf94a6ccf2347b0a12b00a7472aa3522fd0ba8fe.tar.xz drakx-backup-do-not-use-bf94a6ccf2347b0a12b00a7472aa3522fd0ba8fe.zip | |
fix absence of scroll up and scroll down in mouse test
Diffstat (limited to 'perl-install/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index d45dd8b40..01e46badc 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -432,8 +432,8 @@ sub test_mouse_standalone { my $darea = Gtk2::DrawingArea->new; $darea->set_events([ 'button_press_mask', 'button_release_mask' ]); #$darea must be unrealized. gtkpack($hbox, - gtkpack(gtkset_border_width(Gtk2::VBox->new(0,10), 10), - gtksize(gtkset_size_request($darea, $width+1, $height+1), $width, $height))); + gtkpack(gtkset_border_width(Gtk2::VBox->new(0,10), 10), + gtksize(gtkset_size_request($darea, $width+1, $height+1), $width, $height))); test_mouse($mouse, $hbox, $darea, $width, $height); } @@ -443,7 +443,6 @@ sub test_mouse { # $darea->realize; IS IT REALLY NEEDED? generates a Gtk-CRITICAL when run.. require ugtk2; ugtk2->import(qw(:wrappers)); - my $wait = 0; my %xpms; $xpms{$_} = ugtk2::gtkcreate_pixbuf("mouse_$_.xpm") foreach qw(3b 3b+ left right middle); $xpms{au} = ugtk2::gtkcreate_pixbuf('arrow_up.xpm'); @@ -478,7 +477,7 @@ sub test_mouse { }; my $paintButton = sub { - my ($nb, $_pressed) = @_; + my ($nb) = @_; my $x = 60 + $nb*33; $drawarea->(); if ($nb == 0) { @@ -493,20 +492,20 @@ sub test_mouse { 1, ($darea->allocation->width-$width)/2 + $x, ($darea->allocation->height-$height)/2 + 90, 20, 25, 0, 360*64); } - } elsif ($nb == 3) { - $draw_pixbuf->($xpms{au}, 102, 57, 6, 8); - } elsif ($nb == 4) { - $draw_pixbuf->($xpms{ad}, 102, 131, 6, 8); - } - if (member($nb, 3..4)) { - $wait = 1; + } else { + if ($nb == 3) { + $draw_pixbuf->($xpms{au}, 102, 57, 6, 8); + } elsif ($nb == 4) { + $draw_pixbuf->($xpms{ad}, 102, 131, 6, 8); + } $draw_pixbuf->($xpms{middle}, 98, 67, 13, 62); - Gtk2->timeout_add(200, sub { $wait = 0 }); + Gtk2->timeout_add(200, sub { $drawarea->(); 0 }); } }; $darea->signal_connect(button_press_event => sub { $paintButton->($_[1]->button - 1) }); - $darea->signal_connect(button_release_event => sub { ugtk2::flush() while $wait; $drawarea->() }); + $darea->signal_connect(scroll_event => sub { $paintButton->($_[1]->direction eq 'up' ? 3 : 4) }); + $darea->signal_connect(button_release_event => sub { $drawarea->() }); $darea->signal_connect(expose_event => sub { $drawarea->() }); $darea->set_size_request($width, $height); } |