summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-20 11:58:48 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-20 11:58:48 +0000
commit4548bb188ddd50856373b4b121435da9f06e09d5 (patch)
treef54a32aa4cb8a360a76a342f1b7768429d989289 /perl-install/mouse.pm
parent0f986518b9f5330e20db5ed63cb05afdf2ac4d3f (diff)
downloaddrakx-4548bb188ddd50856373b4b121435da9f06e09d5.tar
drakx-4548bb188ddd50856373b4b121435da9f06e09d5.tar.gz
drakx-4548bb188ddd50856373b4b121435da9f06e09d5.tar.bz2
drakx-4548bb188ddd50856373b4b121435da9f06e09d5.tar.xz
drakx-4548bb188ddd50856373b4b121435da9f06e09d5.zip
fix gtk+-2 port
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm6
1 files changed, 3 insertions, 3 deletions
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 });
}
};