From f902492a01c974283c9c800ddbd5de651c474c25 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 27 Sep 1999 20:52:11 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index c43c8f899..a102ab1f6 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -18,6 +18,7 @@ use c;
 use common qw(:common :functional);
 
 my $forgetTime = 1000; #- in milli-seconds
+my @grabbed;
 $border = 5;
 
 1;
@@ -49,11 +50,13 @@ sub show($) {
     my ($o) = @_;
     $o->{window}->show;
     $o->{rwindow}->show;
-    $o->{rwindow}->grab_add if $my_gtk::grab || $o->{grab};
+    top(@grabbed)->grab_remove if @grabbed;
+    push(@grabbed, $o->{rwindow}), $o->{rwindow}->grab_add if $my_gtk::grab || $o->{grab};
 }
 sub destroy($) {
     my ($o) = @_;
-    $o->{rwindow}->grab_remove if $my_gtk::grab || $o->{grab};
+    (pop @grabbed)->grab_remove if @grabbed;
+    top(@grabbed)->grab_add if @grabbed;
     $o->{rwindow}->destroy;
     flush();
 }
-- 
cgit v1.2.1