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

Contents 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 - (show 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
Error occurred while calculating annotation data.
FILE REMOVED
New streams

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