diff options
| author | Olivier Blin <oblin@mandriva.com> | 2007-08-20 18:54:12 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2007-08-20 18:54:12 +0000 |
| commit | 9c62f6e1ca3d30509924b175525f40cca7c0a6bd (patch) | |
| tree | 64ddc2b2b6d5b3d6e22600d91801bb636c411894 /perl-install/mygtk2.pm | |
| parent | 5dde24efb3ef6f826db801212a5d1a109ab5f574 (diff) | |
| download | drakx-9c62f6e1ca3d30509924b175525f40cca7c0a6bd.tar drakx-9c62f6e1ca3d30509924b175525f40cca7c0a6bd.tar.gz drakx-9c62f6e1ca3d30509924b175525f40cca7c0a6bd.tar.bz2 drakx-9c62f6e1ca3d30509924b175525f40cca7c0a6bd.tar.xz drakx-9c62f6e1ca3d30509924b175525f40cca7c0a6bd.zip | |
handle homogenous and spacing properties for ButtonBox (should probably be factorized with _gtk_any_Box)
Diffstat (limited to 'perl-install/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 7fcf0fe14..ec8249fa9 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -755,6 +755,8 @@ sub _gtk_any_ButtonBox { if (!$w) { $w = "Gtk2::$class"->new; + $w->set_homogeneous(delete $opts->{homogenous}) if exists $opts->{homogenous}; + $w->set_spacing(delete $opts->{spacing}) if exists $opts->{spacing}; $w->set_layout(delete $opts->{layout} || 'spread'); } elsif ($action eq 'gtkset') { $_->destroy foreach $w->get_children; |