summaryrefslogtreecommitdiffstats
path: root/perl-install
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
parent7b3e6c7768cdb0e4b095ccc769321e609809787c (diff)
downloaddrakx-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar
drakx-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar.gz
drakx-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar.bz2
drakx-699251f9dfdfae5d5caa49591fa89c96d603fc2d.tar.xz
drakx-699251f9dfdfae5d5caa49591fa89c96d603fc2d.zip
ensure the window is big enough in 640x480: remove logo and steps window
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_gtk.pm8
-rw-r--r--perl-install/ugtk2.pm4
2 files changed, 8 insertions, 4 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);
}
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 0c6d0dbed..c56565a96 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -736,8 +736,8 @@ sub new {
$::WizardWindow->add($::WizardTable);
if ($::isInstall) {
- $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * 0.73);
- $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04, $::logoheight + $::windowheight * 0.15);
+ $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * ($::logoheight ? 0.73 : 0.9));
+ $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04, $::logoheight + $::windowheight * ($::logoheight ? 0.15 : 0.05));
$::WizardWindow->signal_connect(key_press_event => sub {
my (undef, $event) = @_;
my $d = ${{ Gtk2::Gdk::Event::Key->Sym_F1 => 'help',