diff options
| -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 } |