From 4548bb188ddd50856373b4b121435da9f06e09d5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 20 Jan 2003 11:58:48 +0000 Subject: fix gtk+-2 port --- perl-install/mouse.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index d0cb06ddd..d45dd8b40 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); } @@ -501,7 +501,7 @@ sub test_mouse { if (member($nb, 3..4)) { $wait = 1; $draw_pixbuf->($xpms{middle}, 98, 67, 13, 62); - Gtk->timeout_add(200, sub { $wait = 0 }); + Gtk2->timeout_add(200, sub { $wait = 0 }); } }; -- cgit v1.2.1