From 2bcf6964082f1d1d5f25693459f19b2ff5e05daa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 6 Jan 2005 16:44:55 +0000
Subject: simplify

---
 perl-install/ugtk2.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'perl-install/ugtk2.pm')

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);
-- 
cgit v1.2.1