summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-09 20:32:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-09 20:32:25 +0000
commit8ce48e0454f969b01ea6ff1b3c670e3891c08c48 (patch)
tree3caaebffb58679771ac69688066e9c65b2c8a92b /perl-install/my_gtk.pm
parentebdb9def9a22b8509321b7dd8c271bceb9d73c62 (diff)
downloaddrakx-backup-do-not-use-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar
drakx-backup-do-not-use-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar.gz
drakx-backup-do-not-use-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar.bz2
drakx-backup-do-not-use-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.tar.xz
drakx-backup-do-not-use-8ce48e0454f969b01ea6ff1b3c670e3891c08c48.zip
remove code handling setstep
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm12
1 files changed, 1 insertions, 11 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 6ac803a74..079f5d5f9 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -111,7 +111,6 @@ sub main {
$o->show;
do {
- local $::setstep = 1;
Gtk->main;
} while ($o->{retval} ? $completed && !$completed->() : $canceled && !$canceled->());
$o->destroy;
@@ -240,17 +239,8 @@ sub _create_window($$) {
} elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
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;
+ });
$w->signal_connect(size_allocate => sub {
my ($wi, $he) = @{$_[1]}[2,3];