diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-05 12:07:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-05 12:07:44 +0000 |
| commit | 25365fea641e9e5bcec2372695c9438d099b78eb (patch) | |
| tree | 245722baac92b6fa9b04ec663408d7b00ea44694 /perl-install/install_steps_gtk.pm | |
| parent | 923889728b1fbc379cd598191c0548690824b146 (diff) | |
| download | drakx-25365fea641e9e5bcec2372695c9438d099b78eb.tar drakx-25365fea641e9e5bcec2372695c9438d099b78eb.tar.gz drakx-25365fea641e9e5bcec2372695c9438d099b78eb.tar.bz2 drakx-25365fea641e9e5bcec2372695c9438d099b78eb.tar.xz drakx-25365fea641e9e5bcec2372695c9438d099b78eb.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index a94c55711..26ed409fb 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -428,15 +428,15 @@ sub choosePackagesTree { } $select->($p); } - my @l = $children->($parent); - my $nb = grep { pkgs::packageFlagSelected($_) } @l; - my $pix = $nb==0 ? $pix_unselect : $nb<@l ? $pix_semisele : $pix_selected; - $tree->node_set_pixmap($parent, 1, $pix->[0], $pix->[1]); + if (my @l = $children->($parent)) { + my $nb = grep { pkgs::packageFlagSelected($_) } @l; + my $pix = $nb==0 ? $pix_unselect : $nb<@l ? $pix_semisele : $pix_selected; + $tree->node_set_pixmap($parent, 1, $pix->[0], $pix->[1]); + } } }; my $toggle = sub { &$toggle_; gtkset_mousecursor_normal() }; - $tree->signal_connect(button_press_event => sub { $toggle->(0) if $_[1]{type} =~ /^2/ }); $tree->signal_connect(key_press_event => sub { my ($w, $e) = @_; my $c = chr($e->{keyval} & 0xff); |