From c18552d7a02dfc62ce43160b58db8ad606085cee Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 21 Feb 2000 17:59:09 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

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) = @_;
-- 
cgit v1.2.1