diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-06 16:44:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-06 16:44:55 +0000 |
| commit | 2bcf6964082f1d1d5f25693459f19b2ff5e05daa (patch) | |
| tree | baf91cfe19232e3925f503bbadfd95538d4d9dea /perl-install | |
| parent | 51fa3a9ccd8b81b9345e25609957a8cf98bfdf5a (diff) | |
| download | drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar.gz drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar.bz2 drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.tar.xz drakx-2bcf6964082f1d1d5f25693459f19b2ff5e05daa.zip | |
simplify
Diffstat (limited to 'perl-install')
| -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); |