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 +-
 perl-install/my_gtk.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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.
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 90433cc00..ad8c4ea9e 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -925,9 +925,9 @@ sub _create_window($$) {
 	            0xffc9 => 'next',
 		    0xffc8 => 'previous' }}{$_[1]{keyval}};
 
-	if ($d eq "help") {
+	if ($d eq 'help') {
 	    require install_gtk;
-	    install_gtk::create_big_help($::o);
+	    install_gtk::create_big_help($::o) if !$o->{disallow_big_help};
 	} elsif ($::isInstall && $d eq 'screenshot') {
 	    common::take_screenshot($o);
 	} elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
-- 
cgit v1.2.1