From e7ec66af0884e5f1bd07613dbf7a8248987cb62c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 Jan 2004 18:13:54 +0000 Subject: (gtkadd_widget) introduce it for size groups --- perl-install/ugtk2.pm | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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 (@_) { -- cgit v1.2.1