summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-30 17:21:59 +0000
committerdamien <damien@mandriva.com>2001-08-30 17:21:59 +0000
commite5bad48fb4ab3e4650f160ac26ca8618351006b9 (patch)
tree62faeb9edb37def71e7f369849539b2c0cab66f6 /perl-install/interactive_gtk.pm
parent4bc1730a669602f59e60f35910817b242397b60b (diff)
downloaddrakx-e5bad48fb4ab3e4650f160ac26ca8618351006b9.tar
drakx-e5bad48fb4ab3e4650f160ac26ca8618351006b9.tar.gz
drakx-e5bad48fb4ab3e4650f160ac26ca8618351006b9.tar.bz2
drakx-e5bad48fb4ab3e4650f160ac26ca8618351006b9.tar.xz
drakx-e5bad48fb4ab3e4650f160ac26ca8618351006b9.zip
corrected wizard mode display height/width
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm2
1 files changed, 1 insertions, 1 deletions
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) }