summaryrefslogtreecommitdiffstats
path: root/perl-install/install_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-02 13:53:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-02 13:53:18 +0000
commit699251f9dfdfae5d5caa49591fa89c96d603fc2d (patch)
treed27e4852547c47c9a9b97038618c710270cbb203 /perl-install/install_gtk.pm
parent7b3e6c7768cdb0e4b095ccc769321e609809787c (diff)
downloaddrakx-backup-do-not-use-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar
drakx-backup-do-not-use-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar.gz
drakx-backup-do-not-use-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar.bz2
drakx-backup-do-not-use-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar.xz
drakx-backup-do-not-use-699251f9dfdfae5d5caa49591fa89c96d603fc2d.zip
ensure the window is big enough in 640x480: remove logo and steps window
Diffstat (limited to 'perl-install/install_gtk.pm')
-rw-r--r--perl-install/install_gtk.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 25765837c..013dc9bbc 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -110,6 +110,8 @@ sub create_help_window {
sub create_steps_window {
my ($o) = @_;
+ return if $::stepswidth == 0;
+
$o->{steps_window}->destroy if $o->{steps_window};
my $w = bless {}, 'ugtk2';
@@ -138,6 +140,8 @@ sub create_steps_window {
sub create_logo_window {
my ($o) = @_;
+ return if $::logowidth == 0;
+
gtkdestroy($o->{logo_window});
my $w = bless {}, 'ugtk2';
@@ -166,8 +170,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, $::stepsheight) = (160, $::rootheight);
- ($::logowidth, $::logoheight) = (500, 40);
+ ($::stepswidth, $::stepsheight) = $::rootwidth <= 640 ? (0, 0) : (160, $::rootheight);
+ ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40);
($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 0);
($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight);
}