diff options
Diffstat (limited to 'perl-install/install_steps_stdio.pm')
| -rw-r--r-- | perl-install/install_steps_stdio.pm | 41 | 
1 files changed, 0 insertions, 41 deletions
| diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm deleted file mode 100644 index 1ef8b83fa..000000000 --- a/perl-install/install_steps_stdio.pm +++ /dev/null @@ -1,41 +0,0 @@ -package install_steps_stdio; # $Id$ - -use diagnostics; -use strict; -use vars qw(@ISA); - -@ISA = qw(install_steps_interactive interactive_stdio); - -use common qw(:common); -use interactive_stdio; -use install_steps_interactive; -use lang; - -sub new($$) { -    my ($type, $o) = @_; - -    $o->{partitioning}{readonly} = 1; #- needed til diskdrake is graphic only... -    (bless {}, ref $type || $type)->SUPER::new($o); -} - -sub enteringStep { -    my ($o, $step) = @_; -    print _("Entering step `%s'\n", translate($o->{steps}{$step}{text})); -    $o->SUPER::enteringStep($step); -} -sub leavingStep { -    my ($o, $step) = @_; -    $o->SUPER::leavingStep($step); -    print "--------\n"; -} - -#-###################################################################################### -#- Steps Functions -#-###################################################################################### -sub selectLanguage { -    my ($o, $first_time) = @_; -    $o->SUPER::selectLanguage($first_time); -    lang::load_console_font($o->{lang}); -} - -1; | 
