From e931425b69901d83e46e019a1de72cba48883ed9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 12 Dec 2002 09:20:15 +0000
Subject: simplify

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index fb338dbc0..becb5d112 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -84,8 +84,7 @@ sub gtkadd {
     foreach (@_) {
 	my $l = $_;
 	ref $l or $l = Gtk2::Label->new($l);
-	$w->add($l);
-	$l->show;
+	$w->add(gtkshow($l));
     }
     $w
 }
@@ -95,8 +94,7 @@ sub gtkappend {
     foreach (@_) {
 	my $l = $_;
 	ref $l or $l = Gtk2::Label->new($l);
-	$w->append($l);
-	$l->show;
+	$w->append(gtkshow($l));
     }
     $w
 }
-- 
cgit v1.2.1