diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 18:13:54 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 18:13:54 +0000 |
| commit | e7ec66af0884e5f1bd07613dbf7a8248987cb62c (patch) | |
| tree | 6689c56cf6608632e0d5ad61e630b2d5bdb7f7f6 | |
| parent | 26275b8e8ba82504b73c15545e9048b3af0cc5ef (diff) | |
| download | drakx-backup-do-not-use-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar drakx-backup-do-not-use-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar.gz drakx-backup-do-not-use-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar.bz2 drakx-backup-do-not-use-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.tar.xz drakx-backup-do-not-use-e7ec66af0884e5f1bd07613dbf7a8248987cb62c.zip | |
(gtkadd_widget) introduce it for size groups
| -rw-r--r-- | perl-install/ugtk2.pm | 12 |
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 (@_) { |