diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-12 09:20:15 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-12 09:20:15 +0000 |
| commit | e931425b69901d83e46e019a1de72cba48883ed9 (patch) | |
| tree | af318bc364d07117fb103472bae135def15ee90b /perl-install/ugtk2.pm | |
| parent | 93c3c7b163c881c6e0b3e3c559bdd2cdafb59298 (diff) | |
| download | drakx-e931425b69901d83e46e019a1de72cba48883ed9.tar drakx-e931425b69901d83e46e019a1de72cba48883ed9.tar.gz drakx-e931425b69901d83e46e019a1de72cba48883ed9.tar.bz2 drakx-e931425b69901d83e46e019a1de72cba48883ed9.tar.xz drakx-e931425b69901d83e46e019a1de72cba48883ed9.zip | |
simplify
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 6 |
1 files changed, 2 insertions, 4 deletions
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 } |