From cf38b5b6fc6b667f10b405a41952b790cd761b88 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 15 Jan 2005 16:51:23 +0000
Subject: - move set_main_window_size() from ugtk2 to mygtk2 - call it in
 MagicWindow creation

---
 perl-install/ugtk2.pm | 10 ----------
 1 file changed, 10 deletions(-)

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4e9aaa765..24b0ab6f5 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -826,7 +826,6 @@ sub wrap_paragraph {
 sub new {
     my ($type, $title, %opts) = @_;
 
-
     my $o = bless { %opts }, $type;
     while (my $e = shift @tempory::objects) { $e->destroy }
 
@@ -843,17 +842,8 @@ sub new {
     $o->{rwindow} = $o->{window} = $window;
     $o->{pop_it} = $window->{pop_it};
 
-    if (!$o->{pop_it}) {
-	set_main_window_size($o->{window});
-	$o->{window}->set_border_width(10);
-    }
     $o;
 }
-sub set_main_window_size {
-    my ($window) = @_;
-    my ($width, $height) = $::isInstall ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400);
-    $window->set_size_request($width, $height);
-}
 
 sub main {
     my ($o, $o_completed, $o_canceled) = @_;
-- 
cgit v1.2.1