From 3a6829ded0f6b8d7ebdff8aec615b134e19b8943 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Sep 2000 16:27:12 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

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();
 }
-- 
cgit v1.2.1