From 8ce48e0454f969b01ea6ff1b3c670e3891c08c48 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 9 Dec 2002 20:32:25 +0000 Subject: remove code handling setstep --- perl-install/install2.pm | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 190585859..31879d9c7 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -572,17 +572,6 @@ sub main { if ($err) { local $_ = $err; $o->kill_action; - if (/^setstep (.*)/) { - $o->{step} = $1; - $o->{steps}{$1}{done} = 0; - $clicked = 1; - redo MAIN; - } - if (/^set_theme$/) { - require install_gtk; - install_gtk::install_theme($o, 'marble3d'); - redo MAIN; - } if (!/^already displayed/) { eval { $o->errorInStep($_) }; $o->{steps}{$o->{step}}{auto} = 0; -- cgit v1.2.1