summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm25
1 files changed, 14 insertions, 11 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 9040f002d..59aee488f 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -366,23 +366,26 @@ sub _create_window($$) {
$w->signal_connect(key_press_event => sub {
my $d = ${{ 65470 => 'help',
65481 => 'next',
- 65480 => 'previous' }}{$_[1]->{keyval}} or return;
+ 65480 => 'previous' }}{$_[1]{keyval}};
- #- previous field is created here :(
- my $s; foreach (reverse @{$::o->{orderedSteps}}) {
- $s->{previous} = $_ if $s;
- $s = $::o->{steps}{$_};
- }
-
- if ($d eq "help" && !$::isStandalone) {
+ if ($d eq "help") {
require install_gtk;
install_gtk::create_big_help($::o);
- } else {
- my $s = $::o->{step};
+ } elsif ($_[1]{keyval} eq ord('e') && $_[1]{state} & 8) {
+ log::l("Switching to expert");
+ $::expert = 1;
+ $::beginner = 0;
+ } elsif ($d) {
+ #- previous field is created here :(
+ my $s; foreach (reverse @{$::o->{orderedSteps}}) {
+ $s->{previous} = $_ if $s;
+ $s = $::o->{steps}{$_};
+ }
+ $s = $::o->{step};
do { $s = $::o->{steps}{$s}{$d} } until !$s || $::o->{steps}{$s}{reachable};
$::setstep && $s and die "setstep $s\n";
}
- }) unless $::isStandalone;
+ });# if $::isInstall;
$w->signal_connect(size_allocate => sub {
my ($wi, $he) = @{$_[1]}[2,3];