summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-11 16:27:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-11 16:27:12 +0000
commit3a6829ded0f6b8d7ebdff8aec615b134e19b8943 (patch)
tree0b3f4d2c9bc9041866eef99c69175e062c5d02c4 /perl-install/install_steps_gtk.pm
parent7f97982312bb72cfd186e3d9d9bf0bddffff99a3 (diff)
downloaddrakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar.gz
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar.bz2
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar.xz
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index b7c53e730..a77956aaf 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -376,7 +376,7 @@ sub choosePackagesTree {
my $isSelection = !pkgs::packageFlagSelected($_[0]);
foreach (@_) {
pkgs::togglePackageSelection($packages, $_, my $l = {});
- @l{keys %$l} = ();
+ @l{grep {$l->{$_}} keys %$l} = ();
}
if (my @l = keys %l) {
#- check for size before trying to select.
@@ -609,8 +609,9 @@ sub create_big_help {
gtkpack_(new Gtk::VBox(0,0),
1, createScrolledWindow(gtktext_insert(new Gtk::Text,
formatAlaTeX(_ deref($help::steps{$::o->{step}})))),
- 0, gtksignal_connect(new Gtk::Button(_("Ok")), "clicked" => sub { Gtk->main_quit }),
+ 0, gtksignal_connect(my $ok = new Gtk::Button(_("Ok")), "clicked" => sub { Gtk->main_quit }),
));
+ $ok->grab_focus;
$w->main;
gtkset_mousecursor_normal();
}