e-smith-lib/sme7/e-smith-lib-1.18.0-infobox.patch

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
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm   2007-02-22 17:46:27.000000000 -0500
+++ 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
@@ -172,7 +172,6 @@
 
 
         unshift @whiptailArgs, $whiptail,
-            '--clear',
             '--backtitle', $self->backtitle;
         exec @whiptailArgs;
         die gettext("Couldn't exec:"), ": $!\n";
@@ -235,6 +234,7 @@
                    "--cancel-label",   $left,
                    "--ok-label",  $right,
                    "--msgbox", $message_box,
+                   "--clear",
                    SCREEN_ROWS,
                    SCREEN_COLUMNS,
                   );
@@ -262,6 +262,7 @@
                    "--cancel-label",  gettext("Back"),
                    "--ok-label", gettext("Next"),
                    "--msgbox", $message_box,
+                   "--clear",
                    SCREEN_ROWS,
                    SCREEN_COLUMNS,
                   );
@@ -285,6 +286,7 @@
     my $right = defined $params{right} ? $params{right} : gettext("Next");
 
     $self->whiptail ("--title",  $title,
+                   "--clear",
                    "--password",
                    "--cancel-label",  $left,
                    "--ok-label", $right,
@@ -317,6 +319,7 @@
            "--no-label" =>  $right,
        );
     push @args, "--defaultno" if defined $params{defaultno};
+    push @args, "--clear";
 
     $self->screen (@args,
                    "--yesno",  $text,
@@ -347,12 +350,32 @@
                   "--cancel-label",  $left,
                   "--ok-label", $right,
                   "--inputbox", $text,
+                  "--clear",
                   SCREEN_ROWS,
                   SCREEN_COLUMNS,
                   $value
                  );
 }
 
+=head2 infobox
+
+This method is similar to a messagebox, but exits immediately, without clearing the screen.
+
+=cut
+
+sub infobox
+{
+    my $self = shift;
+    my %params = @_;
+    my $title  = $params{title};
+    my $text   = $params{text};
+    $self->screen("--title", $title,
+                  "--infobox", $text,
+                  SCREEN_ROWS,
+                  SCREEN_COLUMNS,
+                 );
+}
+
 =head2 menu_page
 
 This method displays a screen with a menu.
@@ -366,7 +389,7 @@
 
     my $title = $params{title};
     my $text  = $params{text};
-    my @args = ("--title", $title);
+    my @args = ("--clear", "--title", $title);
     if ($params{default})
     {
         push @args, "--default-item", $params{default};
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};