summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-07 22:59:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-07 22:59:21 +0000
commit83ca0f2043d7b9490d54b45c8a29e5d88ce025e2 (patch)
tree7b6aec60775ee78d45d705950f7780d9c5593b76 /perl-install/interactive
parent807dc2042bd2f5d35d51bbd47a24b5599eabb980 (diff)
downloaddrakx-backup-do-not-use-83ca0f2043d7b9490d54b45c8a29e5d88ce025e2.tar
drakx-backup-do-not-use-83ca0f2043d7b9490d54b45c8a29e5d88ce025e2.tar.gz
drakx-backup-do-not-use-83ca0f2043d7b9490d54b45c8a29e5d88ce025e2.tar.bz2
drakx-backup-do-not-use-83ca0f2043d7b9490d54b45c8a29e5d88ce025e2.tar.xz
drakx-backup-do-not-use-83ca0f2043d7b9490d54b45c8a29e5d88ce025e2.zip
- remove help (which was at the bottom)
- wizard style - focus "Next" button by default (this is rough, some dialog boxes *need* changes before being able to complete (think root password dialog))
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 7f572914c..33577fe7f 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -416,7 +416,7 @@ sub ask_fromW {
$w = Gtk2::Button->new('');
$w->signal_connect(clicked => sub {
$get_all->();
- if ($::isWizard) {
+ if ($::isWizard && !$::isInstall) {
$mainw->{rwindow}->set_sensitive(0);
} else {
$mainw->{rwindow}->hide;
@@ -425,7 +425,7 @@ sub ask_fromW {
$mainw->{retval} = $v;
Gtk2->main_quit;
}
- if ($::isWizard) {
+ if ($::isWizard && !$::isInstall) {
$mainw->{rwindow}->set_sensitive(1);
} else {
$mainw->{rwindow}->show;
@@ -630,7 +630,7 @@ sub ask_fromW {
gtkadd($mainw->{window}, $pack);
$set_default_size->() if $has_scroll_always;
$set_advanced->(0);
- (@widgets ? $widgets[0]{focus_w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus();
+ ($common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus();
my $check = sub {
my ($f) = @_;