From 67dcf3a015d3dad98946b110ae9e60d711082a11 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Sep 2000 16:04:01 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/my_gtk.pm')

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}}) {
-- 
cgit v1.2.1