diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-27 12:33:01 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-27 12:33:01 +0000 |
| commit | e5965a71d74d192156ec54e42926dddacd5dc8af (patch) | |
| tree | 73d7d473609e8dfaa92b8fb9f91229755281c6c0 /perl-install/mouse.pm | |
| parent | 7928ffb8445d04b5ba71edba1229bf03d091e32d (diff) | |
| download | drakx-e5965a71d74d192156ec54e42926dddacd5dc8af.tar drakx-e5965a71d74d192156ec54e42926dddacd5dc8af.tar.gz drakx-e5965a71d74d192156ec54e42926dddacd5dc8af.tar.bz2 drakx-e5965a71d74d192156ec54e42926dddacd5dc8af.tar.xz drakx-e5965a71d74d192156ec54e42926dddacd5dc8af.zip | |
fix missing pointer_ungrab so that after testing mouse during
install we can move the mouse pointer everywhere
Diffstat (limited to 'perl-install/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 0be74b451..e9f3df1c5 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -421,7 +421,9 @@ sub test_mouse_install { test_mouse($mouse, $w, $darea, $width, $height, $x_protocol_changed); $w->sync; # HACK Gtk2::Gdk->pointer_grab($vbox_grab->window, 1, 'pointer_motion_mask', $vbox_grab->window, undef, 0); - $w->main; + my $r = $w->main; + Gtk2::Gdk->pointer_ungrab(0); + $r; } sub test_mouse_standalone { |