summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-27 16:04:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-27 16:04:01 +0000
commit67dcf3a015d3dad98946b110ae9e60d711082a11 (patch)
tree40d7620ff54c5b4b4b6bb06fcd9bb4a6b939c94e /perl-install/my_gtk.pm
parentf6b37f7b9f0d43a5824dd1222c8f017e90ab801b (diff)
downloaddrakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.gz
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.bz2
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.xz
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 3cff91009..be66c9ca6 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -371,10 +371,10 @@ sub _create_window($$) {
if ($d eq "help") {
require install_gtk;
install_gtk::create_big_help($::o);
- } elsif ($_[1]{keyval} eq ord('e') && $_[1]{state} & 8) {
- log::l("Switching to expert");
- $::expert = 1;
- $::beginner = 0;
+ } elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
+ log::l("Switching to " . ($::beginner ? "expert" : "beginner"));
+ $::expert = $::beginner;
+ $::beginner = !$::expert;
} elsif ($d) {
#- previous field is created here :(
my $s; foreach (reverse @{$::o->{orderedSteps}}) {