diff options
-rwxr-xr-x | rpmdrake | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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', |