diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-17 12:12:40 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-17 12:12:40 +0000 |
| commit | ca0be443e7e4002979c08e48c1d2b52df68fc560 (patch) | |
| tree | c8a385b831ccb84d437447d0966a57fbe7e8935b /perl-install | |
| parent | 3016c601c499cb9537c43bfd57e2d7f1b56b82e3 (diff) | |
| download | drakx-ca0be443e7e4002979c08e48c1d2b52df68fc560.tar drakx-ca0be443e7e4002979c08e48c1d2b52df68fc560.tar.gz drakx-ca0be443e7e4002979c08e48c1d2b52df68fc560.tar.bz2 drakx-ca0be443e7e4002979c08e48c1d2b52df68fc560.tar.xz drakx-ca0be443e7e4002979c08e48c1d2b52df68fc560.zip | |
in the old days, on cannot disable shrink1, resize2 or shrink2 since they always were true
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 8fdaadac7..1558bb9b3 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -475,8 +475,11 @@ sub create_okcancel { sub _setup_paned { my ($paned, $child1, $child2, %options) = @_; - $paned->pack1(gtkshow($child1), $options{resize1} || 0, $options{shrink1} || 1); - $paned->pack2(gtkshow($child2), $options{resize2} || 1, $options{shrink2} || 1); + foreach (['resize1', 0 ], [ 'shrink1', 1], [ 'resize2', 1 ], [ 'shrink2', 1 ]) { + $options{$_->[0]} = $_->[1] unless defined($options{$_->[0]}); + } + $paned->pack1(gtkshow($child1), $options{resize1}, $options{shrink1}); + $paned->pack2(gtkshow($child2), $options{resize2}, $options{shrink2}); gtkshow($paned); } |