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