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/my_gtk.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/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 12 |
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]; |