From ad54afb58edb8157c696adfbd89def9146c4b53d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Mar 2001 11:19:50 +0000
Subject: (test_mouse): ensure the test mouse is not too big

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

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

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 7e31acf04..6c3f54873 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -361,7 +361,7 @@ sub test_mouse {
     my ($mouse) = @_;
 
     my $w = my_gtk->new;
-    my ($width, $height, $offset) = (210, round_up($::windowheight - 150, 6), 25);
+    my ($width, $height, $offset) = (210, round_up(min(350, $::windowheight - 150), 6), 25);
     my ($bw, $bh) = ($width / 3, $height / 3);
 
     gtkadd($w->{window}, 
-- 
cgit v1.2.1