aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xrpmdrake7
1 files changed, 4 insertions, 3 deletions
diff --git a/rpmdrake b/rpmdrake
index 59c4b9fc..ef0149b3 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -519,7 +519,8 @@ sub run_treeview_dialog {
);
my $view_callback = sub {
- my ($val) = @_;
+ my (undef, $current) = @_;
+ my $val = $current->get_name;
return if $val eq $old_value; # workarounding gtk+ sending us sometimes twice events
$old_value = $val;
return if $mode->[0] eq $val;
@@ -586,8 +587,8 @@ sub run_treeview_dialog {
my @radio_labels = qw(flat by_group by_leaves by_presence by_selection by_size by_source);
my @radios = map {
- my $val = $_;
- [ $_, undef, $modes{$_}, undef, undef, sub { $view_callback->($val) } ];
+ [ $_, undef, $modes{$_}, undef, undef, $view_callback ];
+
} @radio_labels;
my $ui = gtknew('UIManager',