From 5cb4181c9d1488e4025a5358cea6f1e7fda862a9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 25 Feb 2000 11:45:13 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 5 +++++
 1 file changed, 5 insertions(+)

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index d59a1ea15..1e81785d7 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -12,6 +12,11 @@ use my_gtk qw(:helpers :wrappers);
 
 1;
 
+sub new {
+    $::windowheight ||= 400 if $::isStandalone;
+    goto &interactive::new;
+}
+
 #-#- redefine ask_warn
 #-sub ask_warn {
 #-    my $o = shift;
-- 
cgit v1.2.1