diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-11 16:27:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-11 16:27:12 +0000 |
| commit | 3a6829ded0f6b8d7ebdff8aec615b134e19b8943 (patch) | |
| tree | 0b3f4d2c9bc9041866eef99c69175e062c5d02c4 /perl-install/install_steps_gtk.pm | |
| parent | 7f97982312bb72cfd186e3d9d9bf0bddffff99a3 (diff) | |
| download | drakx-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.pm | 5 |
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(); } |