diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
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) } |