/[smeserver]/rpms/e-smith-lib/sme7/e-smith-lib-1.18.0-infobox.patch
ViewVC logotype

Annotation of /rpms/e-smith-lib/sme7/e-smith-lib-1.18.0-infobox.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (hide annotations) (download)
Tue Oct 7 18:41:09 2008 UTC (16 years ago) by slords
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
New streams

1 slords 1.1 diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm
2     --- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm 2007-02-22 17:46:27.000000000 -0500
3     +++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm 2007-02-22 17:45:45.000000000 -0500
4     @@ -172,7 +172,6 @@
5    
6    
7     unshift @whiptailArgs, $whiptail,
8     - '--clear',
9     '--backtitle', $self->backtitle;
10     exec @whiptailArgs;
11     die gettext("Couldn't exec:"), ": $!\n";
12     @@ -235,6 +234,7 @@
13     "--cancel-label", $left,
14     "--ok-label", $right,
15     "--msgbox", $message_box,
16     + "--clear",
17     SCREEN_ROWS,
18     SCREEN_COLUMNS,
19     );
20     @@ -262,6 +262,7 @@
21     "--cancel-label", gettext("Back"),
22     "--ok-label", gettext("Next"),
23     "--msgbox", $message_box,
24     + "--clear",
25     SCREEN_ROWS,
26     SCREEN_COLUMNS,
27     );
28     @@ -285,6 +286,7 @@
29     my $right = defined $params{right} ? $params{right} : gettext("Next");
30    
31     $self->whiptail ("--title", $title,
32     + "--clear",
33     "--password",
34     "--cancel-label", $left,
35     "--ok-label", $right,
36     @@ -317,6 +319,7 @@
37     "--no-label" => $right,
38     );
39     push @args, "--defaultno" if defined $params{defaultno};
40     + push @args, "--clear";
41    
42     $self->screen (@args,
43     "--yesno", $text,
44     @@ -347,12 +350,32 @@
45     "--cancel-label", $left,
46     "--ok-label", $right,
47     "--inputbox", $text,
48     + "--clear",
49     SCREEN_ROWS,
50     SCREEN_COLUMNS,
51     $value
52     );
53     }
54    
55     +=head2 infobox
56     +
57     +This method is similar to a messagebox, but exits immediately, without clearing the screen.
58     +
59     +=cut
60     +
61     +sub infobox
62     +{
63     + my $self = shift;
64     + my %params = @_;
65     + my $title = $params{title};
66     + my $text = $params{text};
67     + $self->screen("--title", $title,
68     + "--infobox", $text,
69     + SCREEN_ROWS,
70     + SCREEN_COLUMNS,
71     + );
72     +}
73     +
74     =head2 menu_page
75    
76     This method displays a screen with a menu.
77     @@ -366,7 +389,7 @@
78    
79     my $title = $params{title};
80     my $text = $params{text};
81     - my @args = ("--title", $title);
82     + my @args = ("--clear", "--title", $title);
83     if ($params{default})
84     {
85     push @args, "--default-item", $params{default};

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed