summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-06 16:44:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-06 16:44:55 +0000
commit2bcf6964082f1d1d5f25693459f19b2ff5e05daa (patch)
treebaf91cfe19232e3925f503bbadfd95538d4d9dea /perl-install/ugtk2.pm
parent51fa3a9ccd8b81b9345e25609957a8cf98bfdf5a (diff)
downloaddrakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar
drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar.gz
drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar.bz2
drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar.xz
drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.zip
simplify
Diffstat (limited to 'perl-install/ugtk2.pm')
-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);