From e5bad48fb4ab3e4650f160ac26ca8618351006b9 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 30 Aug 2001 17:21:59 +0000
Subject: corrected wizard mode display height/width

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index cc0eb6c99..b386d031c 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -14,7 +14,7 @@ my $forgetTime = 1000; #- in milli-seconds
 
 sub new {
     ($::windowheight, $::windowwidth) = my_gtk::gtkroot()->get_size if !$::isInstall;
-    ($::wantedheight, $::wantedwidth) = ($::windowheight * 0.8, $::windowwidth * 0.8);
+    ($::wantedheight, $::wantedwidth) = $::isEmbedded ? (450, 380) : ($::windowheight * 0.8, $::windowwidth * 0.8);
     goto &interactive::new;
 }
 sub enter_console { my ($o) = @_; $o->{suspended} = common::setVirtual(1) }
-- 
cgit v1.2.1