summaryrefslogtreecommitdiffstats
path: root/perl-install/install_gtk.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-11-18 21:14:20 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-11-18 21:14:20 +0000
commitb8feee1e1e0883126b2e905a6f4dbf5d38546f80 (patch)
treeb269929b760ac4ef22ee60c5fe84f3e860d845e4 /perl-install/install_gtk.pm
parent8e30d319278a5caa125173b0fe248b9e5b30b2b4 (diff)
downloaddrakx-b8feee1e1e0883126b2e905a6f4dbf5d38546f80.tar
drakx-b8feee1e1e0883126b2e905a6f4dbf5d38546f80.tar.gz
drakx-b8feee1e1e0883126b2e905a6f4dbf5d38546f80.tar.bz2
drakx-b8feee1e1e0883126b2e905a6f4dbf5d38546f80.tar.xz
drakx-b8feee1e1e0883126b2e905a6f4dbf5d38546f80.zip
smaller wizard window in move
Diffstat (limited to 'perl-install/install_gtk.pm')
-rw-r--r--perl-install/install_gtk.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 57bbd4734..7746dadc3 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -184,7 +184,7 @@ sub update_steps_position {
sub create_logo_window {
my ($o) = @_;
- return if $::logowidth == 0;
+ return if $::logowidth == 0 || $::move;
gtkdestroy($o->{logo_window});
@@ -228,9 +228,10 @@ sub init_sizes() {
$::live and $::rootheight -= 80;
#- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth));
$::move or $::stepswidth = $::rootwidth <= 640 ? 0 : 160;
- $::move or ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40);
+ ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40);
($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 0);
($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight);
+ $::move and $::windowwidth -= 100;
}
#------------------------------------------------------------------------------