diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-12 21:32:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-12 21:32:08 +0000 |
| commit | a833d02bc9adda311081e127b7a2bb125dbdc882 (patch) | |
| tree | f5d7aa8f8801db697ff904534b27e91fae6779a8 /perl-install/install_steps_gtk.pm | |
| parent | ce6bdcf54b70d10fa410bb31e9a6a16fcf24effc (diff) | |
| download | drakx-backup-do-not-use-a833d02bc9adda311081e127b7a2bb125dbdc882.tar drakx-backup-do-not-use-a833d02bc9adda311081e127b7a2bb125dbdc882.tar.gz drakx-backup-do-not-use-a833d02bc9adda311081e127b7a2bb125dbdc882.tar.bz2 drakx-backup-do-not-use-a833d02bc9adda311081e127b7a2bb125dbdc882.tar.xz drakx-backup-do-not-use-a833d02bc9adda311081e127b7a2bb125dbdc882.zip | |
remove beginner/expert choice
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 29 |
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}}; |