summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
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) }