summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-09 12:43:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-09 12:43:56 +0000
commite7df17b04c746abfa66ff22f9ace9e6211a716c8 (patch)
tree06d9fe43c0df2accd740040c8c77654d8854e1d6 /perl-install
parent9bcfd2232c79288786d0cae90925edc44508bccb (diff)
downloaddrakx-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})
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm2
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->();