diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-22 12:19:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-22 12:19:45 +0000 |
| commit | 53b5abee1210a87a0004573a9dd7d7e3dfbe05ea (patch) | |
| tree | 6ceda3e349011de93250708f96bd3df7b7527242 /perl-install/my_gtk.pm | |
| parent | 88d070945ccf746f7df37369a0a5f4167ca95c8b (diff) | |
| download | drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.gz drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.bz2 drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.xz drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.zip | |
$::beginner is deprecated, replaced by !$::expert
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index a8cd90bff..60a96b56e 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -382,9 +382,8 @@ sub _create_window($$) { require install_gtk; install_gtk::create_big_help($::o); } elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) { - log::l("Switching to " . ($::beginner ? "expert" : "beginner")); - $::expert = $::beginner; - $::beginner = !$::expert; + log::l("Switching to " . ($::expert ? "beginner" : "expert")); + $::expert = !$::expert; } elsif ($d) { #- previous field is created here :( my $s; foreach (reverse @{$::o->{orderedSteps}}) { |