From a0ed0f4efcc8eb1e6f6cc7ec368633fbec85fb2c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 3 Sep 2007 08:55:23 +0000 Subject: (fast_toggle) use before_leaving() (needed for next commit) --- Rpmdrake/gui.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Rpmdrake') diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index bb75abc2..3c35c673 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -350,10 +350,10 @@ sub ask_browse_tree_given_widgets_for_rpmdrake { my $fast_toggle = sub { my ($iter) = @_; gtkset_mousecursor_wait($w->{w}{rwindow}->window); + my $_cleaner = before_leaving { gtkset_mousecursor_normal($w->{w}{rwindow}->window) }; toggle_nodes($w->{tree}->window, $w->{detail_list_model}, \&set_leaf_state, $w->{detail_list_model}->get($iter, $pkg_columns{state}), $w->{detail_list_model}->get($iter, $pkg_columns{text})); update_size($common); - gtkset_mousecursor_normal($w->{w}{rwindow}->window); }; $w->{detail_list}->get_selection->signal_connect(changed => sub { my ($model, $iter) = $_[0]->get_selected; -- cgit v1.2.1