diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 12:43:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 12:43:56 +0000 |
| commit | e7df17b04c746abfa66ff22f9ace9e6211a716c8 (patch) | |
| tree | 06d9fe43c0df2accd740040c8c77654d8854e1d6 | |
| parent | 9bcfd2232c79288786d0cae90925edc44508bccb (diff) | |
| download | drakx-e7df17b04c746abfa66ff22f9ace9e6211a716c8.tar drakx-e7df17b04c746abfa66ff22f9ace9e6211a716c8.tar.gz drakx-e7df17b04c746abfa66ff22f9ace9e6211a716c8.tar.bz2 drakx-e7df17b04c746abfa66ff22f9ace9e6211a716c8.tar.xz drakx-e7df17b04c746abfa66ff22f9ace9e6211a716c8.zip | |
(ask_from_entries_refW): focus on cancel button if asked for (with $common->{focus_cancel})
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 310f88fc6..dc021d3e0 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -348,7 +348,7 @@ sub ask_from_entries_refW { $mainw->sync; #- for $set_all below (mainly for the set of clist) $set_all->(); $set_advanced->(0); - (@widgets ? $widgets[0]{w} : $mainw->{ok})->grab_focus(); + (@widgets ? $widgets[0]{w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus(); $mainw->main(sub { $get_all->(); |