diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-27 00:39:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-27 00:39:45 +0000 |
| commit | e1d7fa386efb725ecd526ea24bebcf56cf4b1296 (patch) | |
| tree | 0064ad4c601350766f8e5856c6344285e3f3779a /perl-install/my_gtk.pm | |
| parent | 9bf316fa134a1c39ef18d0f007bf7aac21d4a487 (diff) | |
| download | drakx-backup-do-not-use-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar drakx-backup-do-not-use-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar.gz drakx-backup-do-not-use-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar.bz2 drakx-backup-do-not-use-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar.xz drakx-backup-do-not-use-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 25 |
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]; |