summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_gtk.pm1
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/interactive/gtk.pm2
-rw-r--r--perl-install/ugtk2.pm2
4 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 78eee6bc5..b1eebb006 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -238,6 +238,7 @@ sub init_sizes() {
($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40);
($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, $::move && 15);
($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight);
+ ($::real_windowwidth, $::real_windowheight) = (576, 418);
$::move and $::windowwidth -= 100;
}
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 9947d3fb5..2faaa16af 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -641,7 +641,7 @@ sub summary_prompt {
};
$e->{widget} = Gtk2::Label->new;
$e->{widget}->set_property(wrap => 1);
- $e->{widget}->set_size_request($::windowwidth * 0.65, -1);
+ $e->{widget}->set_size_request($::real_windowwidth * 0.72, -1);
push @table, [], [ gtkpack__(Gtk2::HBox->new(0, 30), '', $e->{widget}),
gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
$w->{rwindow}->hide;
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 37e427f7f..d34e9a5f4 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -662,7 +662,7 @@ sub ask_fromW {
if ($buttons_pack) {
if ($::isWizard && !$mainw->{pop_it} && $::isInstall) {
#- is this still needed?
- $buttons_pack->set_size_request($::windowwidth * 0.9 - 20, -1);
+ $buttons_pack->set_size_request($::real_windowwidth - 20, -1);
$buttons_pack = gtkpack__(Gtk2::HBox->new(0,0), $buttons_pack);
}
$pack->pack_start(gtkshow($buttons_pack), 0, 0, 0);
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index dfa848a38..29f0b4767 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -930,7 +930,7 @@ sub new {
}
sub set_main_window_size {
my ($o) = @_;
- my ($width, $height) = $::isInstall ? (576, 418) : $o->{isWizard} ? (540, 360) : (600, 400);
+ my ($width, $height) = $::isInstall ? ($::real_windowwidth, $::real_windowheight) : $o->{isWizard} ? (540, 360) : (600, 400);
$o->{window}->set_size_request($width, $height);
}