From e1d7fa386efb725ecd526ea24bebcf56cf4b1296 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 27 Sep 2000 00:39:45 +0000 Subject: no_comment --- perl-install/my_gtk.pm | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) (limited to 'perl-install/my_gtk.pm') 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]; -- cgit v1.2.1