From 491e61d3bc2a9a5a04abe25d9901890761f9a571 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 5 Sep 2007 16:14:33 +0000
Subject: fix using RadioButton with child

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index f9985db77..0afdf8331 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -147,7 +147,7 @@ sub _gtk_any_Button {
         if ($class eq 'RadioButton') {
             @radio_options = delete $opts->{group};
 	}
-	$w = $opts->{child} ? "Gtk2::$class"->new :
+	$w = $opts->{child} ? "Gtk2::$class"->new(@radio_options) :
 	  delete $opts->{mnemonic} ? "Gtk2::$class"->new_with_mnemonic(@radio_options, delete $opts->{text} || '') :
 	    $opts->{text} ? "Gtk2::$class"->new_with_label(@radio_options, delete $opts->{text} || '') :
            "Gtk2::$class"->new(@radio_options);
-- 
cgit v1.2.1