summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 18:13:54 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 18:13:54 +0000
commite7ec66af0884e5f1bd07613dbf7a8248987cb62c (patch)
tree6689c56cf6608632e0d5ad61e630b2d5bdb7f7f6 /perl-install/ugtk2.pm
parent26275b8e8ba82504b73c15545e9048b3af0cc5ef (diff)
downloaddrakx-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar
drakx-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar.gz
drakx-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar.bz2
drakx-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar.xz
drakx-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.zip
(gtkadd_widget) introduce it for size groups
Diffstat (limited to 'perl-install/ugtk2.pm')
-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 (@_) {