summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk3.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/ugtk3.pm')
-rw-r--r--perl-install/ugtk3.pm82
1 files changed, 72 insertions, 10 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 0620c930d..cd0b45142 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -68,8 +68,33 @@ sub gtkdestroy { mygtk3::may_destroy($_[0]) }
sub gtkflush() { mygtk3::flush() }
sub gtkhide { $_[0]->hide; $_[0] }
sub gtkmove { $_[0]->get_window->move($_[1], $_[2]); $_[0] }
+
+=item gtkpack($container, @widgets)
+
+Pack all @widgets in the container, telling Gtk+ they can all expand if space is available.
+
+=cut
+
sub gtkpack { gtkpowerpack(1, 1, @_) }
+
+=item gtkpack_($container, @widgets)
+
+@widgets is a list of array refs: ([ $can_expand1, $widget1 ], [ $can_expand2, $widget2 ], ...)
+
+Pack all @widgets in the container, telling Gtk+ if each wiget can or cannot expand
+if space is available according to its flag.
+
+=cut
+
sub gtkpack_ { gtkpowerpack('arg', 1, @_) }
+
+=item gtkpack__($container, @widgets)
+
+Pack all @widgets in the container, telling Gtk+ they must B<not> expand beyond
+their natural size if space is available.
+
+=cut
+
sub gtkpack__ { gtkpowerpack(0, 1, @_) }
sub gtkpack2 { gtkpowerpack(1, 0, @_) }
sub gtkpack2_ { gtkpowerpack('arg', 0, @_) }
@@ -203,10 +228,25 @@ sub gtkset_name {
}
+=item gtkpowerpack()
+
+Get Default Attributes (if any). 2 syntaxes allowed :
+
+=over 4
+
+=item * gtkpowerpack( {expand => 1, fill => 0}, $box...)
+
+the attributes are picked from a specified hash ref
+
+=item * gtkpowerpack(1, 0, 1, $box, ...)
+
+the attributes are picked from the non-ref list, in the order (expand, fill, padding, pack_end).
+
+=back
+
+=cut
+
sub gtkpowerpack {
- #- Get Default Attributes (if any). 2 syntaxes allowed :
- #- gtkpowerpack( {expand => 1, fill => 0}, $box...) : the attributes are picked from a specified hash ref
- #- gtkpowerpack(1, 0, 1, $box, ...) : the attributes are picked from the non-ref list, in the order (expand, fill, padding, pack_end).
my @attributes_list = qw(expand fill padding pack_end);
my $default_attrs = {};
if (ref($_[0]) eq 'HASH') {
@@ -220,13 +260,35 @@ sub gtkpowerpack {
my $box = shift;
while (@_) {
- #- Get attributes (if specified). 4 syntaxes allowed (default values are undef ie. false...) :
- #- gtkpowerpack({defaultattrs}, $box, $widget1, $widget2, ...) : the attrs are picked from the default ones (if they exist)
- #- gtkpowerpack($box, {fill=>1, expand=>0, ...}, $widget1, ...) : the attributes are picked from a specified hash ref
- #- gtkpowerpack($box, [1,0,1], $widget1, ...) : the attributes are picked from the array ref : (expand, fill, padding, pack_end).
- #- gtkpowerpack({attr=>'arg'}, $box, 1, $widget1, 0, $widget2, etc...) : the 'arg' value will tell gtkpowerpack to always read the
- #- attr value directly in the arg list (avoiding confusion between value 0 and Gtk::Label("0"). That can simplify some writings but
- #- this arg(s) MUST then be present...
+
+=pod
+
+Get attributes (if specified). 4 syntaxes allowed (default values are undef ie. false...) :
+
+=over 4
+
+=item $ gtkpowerpack({defaultattrs}, $box, $widget1, $widget2, ...)
+
+the attrs are picked from the default ones (if they exist)
+
+=item $ gtkpowerpack($box, {fill=>1, expand=>0, ...}, $widget1, ...)
+
+the attributes are picked from a specified hash ref
+
+=item $ gtkpowerpack($box, [1,0,1], $widget1, ...)
+
+the attributes are picked from the array ref : (expand, fill, padding, pack_end).
+
+=item $ gtkpowerpack({attr=>'arg'}, $box, 1, $widget1, 0, $widget2, etc...)
+
+the 'arg' value will tell gtkpowerpack to always read the attr value directly
+in the arg list (avoiding confusion between value 0 and Gtk::Label("0").
+That can simplify some writings but this arg(s) MUST then be present...
+
+=back
+
+=cut
+
my (%attr, $attrs);
ref($_[0]) eq 'HASH' || ref($_[0]) eq 'ARRAY' and $attrs = shift;
foreach (@attributes_list) {