summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-21 17:59:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-21 17:59:09 +0000
commitc18552d7a02dfc62ce43160b58db8ad606085cee (patch)
treef61e497217998ebf66bc727ea95c8416d131144a /perl-install/install_steps_gtk.pm
parent00845c290fbfdf0015871323b10b3d90af613fca (diff)
downloaddrakx-backup-do-not-use-c18552d7a02dfc62ce43160b58db8ad606085cee.tar
drakx-backup-do-not-use-c18552d7a02dfc62ce43160b58db8ad606085cee.tar.gz
drakx-backup-do-not-use-c18552d7a02dfc62ce43160b58db8ad606085cee.tar.bz2
drakx-backup-do-not-use-c18552d7a02dfc62ce43160b58db8ad606085cee.tar.xz
drakx-backup-do-not-use-c18552d7a02dfc62ce43160b58db8ad606085cee.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm22
1 files changed, 17 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 8a20550f9..557a9cab3 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -33,11 +33,13 @@ use lang;
my $w_help;
my $itemsNB = 1;
my (@background1, @background2);
-my ($width, $height) = (640, 480);
-my ($stepswidth, $stepsheight) = (140, $height);
-my ($logowidth, $logoheight) = ($width - $stepswidth, 40);
-my ($helpwidth, $helpheight) = ($width - $stepswidth, 100);
-my ($windowwidth, $windowheight) = ($width - $stepswidth, $height - $helpheight - $logoheight);
+
+#- initialised in function init_sizes
+my ($width, $height);
+my ($stepswidth, $stepsheight);
+my ($logowidth, $logoheight);
+my ($helpwidth, $helpheight);
+my ($windowwidth, $windowheight);
my @themes_vga16 = qw(blue blackwhite savane);
my @themes = qw(DarkMarble marble3d blueHeart);
@@ -219,6 +221,7 @@ sub new($$) {
}
@themes = @themes_vga16 if $o->{simple_themes} || $o->{vga16};
+ init_sizes();
install_theme($o);
create_logo_window($o);
@@ -772,6 +775,15 @@ sub create_logo_window() {
$o->{logo_window} = $w;
}
+sub init_sizes() {
+# ($height, $width) = (480, 640);
+ ($height, $width) = my_gtk::gtkroot()->get_size;
+ ($stepswidth, $stepsheight) = (140, $height);
+ ($logowidth, $logoheight) = ($width - $stepswidth, 40);
+ ($helpwidth, $helpheight) = ($width - $stepswidth, 100);
+ ($windowwidth, $windowheight) = ($width - $stepswidth, $height - $helpheight - $logoheight);
+}
+
#------------------------------------------------------------------------------
sub createXconf($$$) {
my ($file, $mouse_type, $mouse_dev, $wacom_dev) = @_;