diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-05 16:14:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-05 16:14:33 +0000 |
| commit | 491e61d3bc2a9a5a04abe25d9901890761f9a571 (patch) | |
| tree | 4b76367e5d696227ebd7551a51ac9d34732f3228 /perl-install | |
| parent | 5e5944a0c8ad9cca8caa197c27e4115db7ba959a (diff) | |
| download | drakx-491e61d3bc2a9a5a04abe25d9901890761f9a571.tar drakx-491e61d3bc2a9a5a04abe25d9901890761f9a571.tar.gz drakx-491e61d3bc2a9a5a04abe25d9901890761f9a571.tar.bz2 drakx-491e61d3bc2a9a5a04abe25d9901890761f9a571.tar.xz drakx-491e61d3bc2a9a5a04abe25d9901890761f9a571.zip | |
fix using RadioButton with child
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mygtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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); |