summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-12 21:32:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-12 21:32:08 +0000
commita833d02bc9adda311081e127b7a2bb125dbdc882 (patch)
treef5d7aa8f8801db697ff904534b27e91fae6779a8 /perl-install/install_steps_gtk.pm
parentce6bdcf54b70d10fa410bb31e9a6a16fcf24effc (diff)
downloaddrakx-a833d02bc9adda311081e127b7a2bb125dbdc882.tar
drakx-a833d02bc9adda311081e127b7a2bb125dbdc882.tar.gz
drakx-a833d02bc9adda311081e127b7a2bb125dbdc882.tar.bz2
drakx-a833d02bc9adda311081e127b7a2bb125dbdc882.tar.xz
drakx-a833d02bc9adda311081e127b7a2bb125dbdc882.zip
remove beginner/expert choice
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm29
1 files changed, 0 insertions, 29 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 31cf25644..eeea9e05b 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -150,35 +150,6 @@ press `F1' when booting on CDROM, then enter `text'.")) if $first_time && availa
}
#------------------------------------------------------------------------------
-sub selectInstallClass1 {
- my ($o, $verif, $l, $def, $l2, $def2) = @_;
- $::live || @$l == 1 || !@$l2 and return $o->SUPER::selectInstallClass1($verif, $l, $def, $l2, $def2);
-
- my $w = ugtk2->new(N("Install Class"));
- my ($focused, @radios);
- gtkadd($w->{window},
- gtkpack($w->create_box_with_title(N("Please choose one of the following classes of installation:")),
- (@radios = gtkradio($def, @$l)),
- gtkadd(create_vbox(),
- map { my $v = $_;
- my $b = Gtk2::Button->new(translate($_));
- $focused = $b if $_ eq $def2;
- gtksignal_connect($b, "clicked" => sub {
- $w->{retval} = $v;
- mapn { $verif->($_[1]) if $_[0]->get_active } \@radios, $l;
- Gtk2->main_quit
- });
- } @$l2)
- ));
- $focused->grab_focus if $focused;
- $w->main;
-
- install_gtk::create_steps_window($o);
-
- $w->{retval};
-}
-
-#------------------------------------------------------------------------------
sub selectMouse {
my ($o, $force) = @_;
my %old = %{$o->{mouse}};