diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-12 16:39:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-12 16:39:14 +0000 |
| commit | dff746444b3fc778dbf9f818cc3247161548cebe (patch) | |
| tree | 557dc643599c3d6a71beecbe82384fd880f4094a /perl-install/install_steps_gtk.pm | |
| parent | 8adabacd95f6a4455027f00084e39958fada6083 (diff) | |
| download | drakx-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.pm | 3 |
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) = @_; |