summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-05 12:07:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-05 12:07:44 +0000
commit25365fea641e9e5bcec2372695c9438d099b78eb (patch)
tree245722baac92b6fa9b04ec663408d7b00ea44694 /perl-install/install_steps_gtk.pm
parent923889728b1fbc379cd598191c0548690824b146 (diff)
downloaddrakx-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.pm10
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);