diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-09 20:32:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-09 20:32:25 +0000 |
| commit | 8ce48e0454f969b01ea6ff1b3c670e3891c08c48 (patch) | |
| tree | 3caaebffb58679771ac69688066e9c65b2c8a92b /perl-install/ugtk2.pm | |
| parent | ebdb9def9a22b8509321b7dd8c271bceb9d73c62 (diff) | |
| download | drakx-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar drakx-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar.gz drakx-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar.bz2 drakx-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar.xz drakx-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.zip | |
remove code handling setstep
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 066fb8d70..75e579a2a 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -757,7 +757,6 @@ sub main { $o->show; do { - local $::setstep = 1; Gtk2->main; } while ($o->{retval} ? $completed && !$completed->() : $canceled && !$canceled->()); $o->destroy; @@ -873,15 +872,6 @@ sub _create_window($$) { } elsif (chr($event->keyval) eq 'e' && member('mod1-mask', @{$event->state})) { #- alt-e log::l("Switching to " . ($::expert ? "beginner" : "expert")); $::expert = !$::expert; - } 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"; } }); #- if $::isInstall; |