From e5965a71d74d192156ec54e42926dddacd5dc8af Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 27 Jan 2003 12:33:01 +0000
Subject: fix missing pointer_ungrab so that after testing mouse during install
 we can move the mouse pointer everywhere

---
 perl-install/mouse.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1