summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-10-16 15:33:43 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-10-16 15:33:43 +0000
commit4d89878fec3fb80ed273f478745cb78052bad69c (patch)
tree3833a6e2e5ddca775532eba4d5a04ab35ffde86f /perl-install
parentda81840e6ea65a936da52b1f236080047d1efb6a (diff)
downloaddrakx-4d89878fec3fb80ed273f478745cb78052bad69c.tar
drakx-4d89878fec3fb80ed273f478745cb78052bad69c.tar.gz
drakx-4d89878fec3fb80ed273f478745cb78052bad69c.tar.bz2
drakx-4d89878fec3fb80ed273f478745cb78052bad69c.tar.xz
drakx-4d89878fec3fb80ed273f478745cb78052bad69c.zip
no steps in move mode; for the moment, no logo as well, we'll see what graphical aspect look like with ln
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 3025ee395..df607c422 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -225,8 +225,8 @@ sub init_sizes() {
($::rootwidth, $::rootheight) = (Gtk2::Gdk->screen_width, Gtk2::Gdk->screen_height);
$::live and $::rootheight -= 80;
#- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth));
- $::stepswidth = $::rootwidth <= 640 ? 0 : 160;
- ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40);
+ $::move or $::stepswidth = $::rootwidth <= 640 ? 0 : 160;
+ $::move or ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40);
($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 0);
($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight);
}