From dff746444b3fc778dbf9f818cc3247161548cebe Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 12 Sep 2000 16:39:14 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index a77956aaf..94c52b0ed 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -402,7 +402,7 @@ sub choosePackagesTree {
 	}
     };
     my $children = sub { map { $packages->[0]{($tree->node_get_pixtext($_, 0))[0]} } gtkctree_children($_[0]) };
-    my $toggle_ = sub {
+    my $toggle = sub {
 	if (ref $curr && ! $_[0]) {
 	    $tree->toggle_expansion($curr);
 	} else {
@@ -438,7 +438,6 @@ sub choosePackagesTree {
 	    }
 	}
     };
-    my $toggle = sub { &$toggle_; gtkset_mousecursor_normal() };
 
     $tree->signal_connect(key_press_event => sub {
         my ($w, $e) = @_;
-- 
cgit v1.2.1