summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_curses.pm
blob: e946936b81143f23625f203aee406fae3549a77f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
package install::steps_curses; # $Id: steps_curses.pm 247958 2008-10-08 15:19:32Z tv $

use diagnostics;
use strict;
use vars qw(@ISA);

@ISA = qw(install::steps_interactive interactive::curses);

#-######################################################################################
#- misc imports
#-######################################################################################
use install::steps_interactive;
use interactive::curses;
use install::any;
use devices;
use lang;
use common;

my $banner;
sub banner {
    my ($cui, $step) = @_;
    my $text = N("Mandriva Linux Installation %s", "| $step");
    $banner ||= do {
	my $win = $cui->add(undef, 'Window', '-x' => 1, '-y' => 0, '-height' => 1);
	$win->add(undef, 'Label');
    };
    $banner->text($text);
}

sub help_line {
    my ($cui) = @_;
    my $text = N("<Tab>/<Alt-Tab> between elements");
    my $win = $cui->add(undef, 'Window', '-x' => 1, '-y' => -1, '-height' => 1);
    $win->add(undef, 'Label', '-text' => $text);
}

sub new {
    my ($type, $o) = @_;

    add2hash($o, interactive::curses->new);

    #- unset DISPLAY so that code testing wether DISPLAY is set can know we don't have or use X
    delete $ENV{DISPLAY};

    banner($o->{cui}, '');
    help_line($o->{cui});

    (bless {}, ref($type) || $type)->SUPER::new($o);
}

sub charsetChanged {
    my ($o) = @_;
    lang::load_console_font($o->{locale});
}

sub enteringStep {
    my ($o, $step) = @_;
    $o->SUPER::enteringStep($step);
    banner($o->{cui}, translate($o->{steps}{$step}{text}));
}

sub exitInstall { 
    &install::steps_interactive::exitInstall;
    interactive::curses::end();
}

1;