diff options
-rwxr-xr-x | bin/drak3d | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 { |