workaround a gtk+3 segfault

1 files changed, 2 insertions, 2 deletions

diff --git a/bin/drak3d b/bin/drak3d
index 5764885..33626fb 100755
--- a/bin/drak3d
+++ b/bin/drak3d
@@ -110,7 +110,7 @@ sub choose_gtk {
                                            my $val = $_;
                                            my $match = find { $_->{$field} eq $val } @$list;
                                            $radio_group = gtknew('RadioButton', text => translate($match->{name}),
-                                                                 $radio_group ? (group => $radio_group->get_group) : (),
+                                                                 $radio_group ? (join => $radio_group) : (),
                                                                  if_($check_capabilities, sensitive => $glx->{capabilities}{$val}),
                                                                  active => $state{$type->{type}}{$field} eq $match->{$field},
                                                                  toggled => sub { $state{$type->{type}}{$field} = $match->{$field} if $_[0]->get_active },
@@ -128,7 +128,7 @@ sub choose_gtk {
                            gtknew('VBox', children_tight => [
                                gtknew('Label'),
                                $types_group = gtknew('RadioButton', text => translate($type->{name}),
-                                                       $types_group ? (group => $types_group->get_group) : (),
+                                                       $types_group ? (join => $types_group) : (),
                                                        sensitive => member($type, @$available_types),
                                                        active => $state{type} eq $type,
                                                        toggled => sub {