From 1beca0f2649a43533ba42134b72721d7874e1000 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 Nov 2013 16:45:19 +0100
Subject: workaround a gtk+3 segfault

---
 bin/drak3d | 4 ++--
 1 file 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 {
-- 
cgit v1.2.1