From 9c62f6e1ca3d30509924b175525f40cca7c0a6bd Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Mon, 20 Aug 2007 18:54:12 +0000
Subject: handle homogenous and spacing properties for ButtonBox (should
 probably be factorized with _gtk_any_Box)

---
 perl-install/mygtk2.pm | 2 ++
 1 file changed, 2 insertions(+)

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