summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk2.pm12
1 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index c7665b4a4..588e9cac0 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -9,7 +9,7 @@ $::o = { locale => lang::read() } if !$::isInstall;
@ISA = qw(Exporter);
%EXPORT_TAGS = (
- wrappers => [ qw(gtkadd gtkappend gtkappend_page gtkappenditems gtkcombo_setpopdown_strings gtkdestroy
+ wrappers => [ qw(gtkadd gtkadd_widget gtkappend gtkappend_page gtkappenditems gtkcombo_setpopdown_strings gtkdestroy
gtkentry gtkflush gtkhide gtkmodify_font gtkmove gtkpack gtkpack2 gtkpack2_
gtkpack2__ gtkpack_ gtkpack__ gtkpowerpack gtkput gtkradio gtkresize gtkroot
gtkset_active gtkset_border_width gtkset_editable gtkset_justify gtkset_alignment gtkset_layout gtkset_line_wrap
@@ -107,6 +107,16 @@ sub gtkadd {
$w
}
+sub gtkadd_widget {
+ my $sg = shift;
+ map {
+ my $l = $_;
+ ref $l or $l = Gtk2::Label->new($l);
+ $sg->add_widget($l);
+ $l;
+ } @_;
+}
+
sub gtkappend {
my $w = shift;
foreach (@_) {