From 55bafeda94d7a52a1a4984bbb6974d20715520f4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Jul 2002 17:54:17 +0000
Subject: disallow big_help (when pressing F1) when testing mouse

---
 perl-install/mouse.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index fe154592b..b9c8a89c7 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -377,7 +377,7 @@ sub test_mouse_install {
     my ($mouse) = @_;
     require my_gtk;
     my_gtk->import(qw(:wrappers :helpers));
-    my $w = my_gtk->new;
+    my $w = my_gtk->new('', disallow_big_help => 1);
     my ($width, $height, $offset) = (210, round_up(min(350, $::windowheight - 150), 6), 25);
     my $darea = new Gtk::DrawingArea;
     $darea->set_events([ 'button_press_mask', 'button_release_mask' ]);  #$darea must be unrealized.
-- 
cgit v1.2.1