- move set_main_window_size() from ugtk2 to mygtk2

- call it in MagicWindow creation

1 files changed, 0 insertions, 10 deletions

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) = @_;