summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm10
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) = @_;