summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-01-07 13:38:53 +0000
committerdamien <damien@mandriva.com>2002-01-07 13:38:53 +0000
commit5e9ab4fec76c330188ee09817d34930e89f10f57 (patch)
treed9eb702b1e07f0a55cbf1edab36022730da13626 /perl-install/my_gtk.pm
parent5fed92709482f84c6e2cbc14426b1d2aecaba76d (diff)
downloaddrakx-backup-do-not-use-5e9ab4fec76c330188ee09817d34930e89f10f57.tar
drakx-backup-do-not-use-5e9ab4fec76c330188ee09817d34930e89f10f57.tar.gz
drakx-backup-do-not-use-5e9ab4fec76c330188ee09817d34930e89f10f57.tar.bz2
drakx-backup-do-not-use-5e9ab4fec76c330188ee09817d34930e89f10f57.tar.xz
drakx-backup-do-not-use-5e9ab4fec76c330188ee09817d34930e89f10f57.zip
incorporated adrien's code to generalize pack functions
minor bug fixes
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm45
1 files changed, 44 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index df5ea2f7d..770511dec 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -212,6 +212,50 @@ sub gtkpack2_($@) {
$box
}
+sub gtkpowerpack {
+ #- Get Default Attributes (if any). 2 syntaxes allowed :
+ #- gtkpowerpack( {expand => 1, fill => 0}, $box...) : the attributes are picked from a specified hash
+ #- gtkpowerpack(1,0,1, $box, ...) : the attributes are picked from the non-ref list, in the order (expand, fill, padding, pack_end).
+ my $RefDefaultAttrs;
+ if (ref($_[0]) eq 'HASH') {
+ $RefDefaultAttrs = shift;
+ } elsif (!ref($_[0])) {
+ my %tmp;
+ foreach my $i ("expand", "fill", "padding", "pack_end") {
+ !ref($_[0]) ? $tmp{$i} = shift : last;
+ }
+ $RefDefaultAttrs = \%tmp;
+ }
+ my $box = shift; #- The packing box
+ while (@_) {
+ #- Get attributes (if specified). 3 syntaxes allowed :
+ #- 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
+ #- gtkpowerpack($box, 1,0,1, $widget1, ...) : the attributes are picked from the non-ref list, in the order (expand, fill, padding, pack_end).
+ my %attr;
+ my $RefAttrs = shift if (ref($_[0]) eq 'HASH');
+ foreach my $i ("expand", "fill", "padding", "pack_end") {
+ if (defined($RefAttrs->{$i})) {
+ $attr{$i} = $RefAttrs->{$i};
+ } elsif (!ref ($_[0])) {
+ $attr{$i} = shift; #-default values are undef ie. false...
+ } elsif (defined($RefDefaultAttrs->{$i})) {
+ $attr{$i} = $RefDefaultAttrs->{$i};
+ } else {
+ $attr{$i} = 0;
+ }
+ }
+ my $widget = ref($_[0]) ? shift : new Gtk::Label(shift); #- The widget we pack
+ if (!$attr{pack_end}) {
+ $box->pack_start($widget, $attr{expand}, $attr{fill}, $attr{padding})
+ } else {
+ $box->pack_end($widget, $attr{expand}, $attr{fill}, $attr{padding})
+ }
+ $widget->show;
+ }
+ $box
+}
+
sub gtkset_editable {
my ($w, $e) = @_;
$w->set_editable($e);
@@ -503,7 +547,6 @@ sub gtkicons_labels_widget {
$darea->set_usize($dx, $dy);
$dbl_area = new Gtk::Gdk::Pixmap($darea->window, max($width, $x_round), $y_round + $height);
fill_tiled($darea, $dbl_area, $background, $x_back2, $y_back2, $dx, $dy);
- print " coord : $dx - $icon_width\n";
$dbl_area->draw_pixmap($darea->style->bg_gc('normal'),
$icon, 0, 0, ($dx - $icon_width)/2, 0, $icon_width, $icon_height);
$dbl_area->draw_pixmap($darea->style->bg_gc('normal'),