diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 06c5a0594..ef8888b6b 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -942,11 +942,10 @@ END { &exit() } sub _create_window { my (%options) = @_; - add2hash(\%options, { - if_(!$::isInstall && !$::isWizard, border_width => 5), - widget_name => 'Title', - }); - my $w = gtknew('Window', %options); + my $w = gtknew('Window', + if_(!$::isInstall && !$::isWizard, border_width => 5), + widget_name => 'Title', + %options); if ($force_focus) { (my $previous_current_window, $ugtk2::current_window) = ($ugtk2::current_window, $w); |