From ca0be443e7e4002979c08e48c1d2b52df68fc560 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 17 Feb 2003 12:12:40 +0000
Subject: in the old days, on cannot disable shrink1, resize2 or shrink2 since
 they always were true

---
 perl-install/ugtk2.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/ugtk2.pm')

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);
 }
 
-- 
cgit v1.2.1