summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-12 16:39:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-12 16:39:14 +0000
commitdff746444b3fc778dbf9f818cc3247161548cebe (patch)
tree557dc643599c3d6a71beecbe82384fd880f4094a /perl-install/install_steps_gtk.pm
parent8adabacd95f6a4455027f00084e39958fada6083 (diff)
downloaddrakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar.gz
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar.bz2
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar.xz
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm3
1 files changed, 1 insertions, 2 deletions
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) = @_;