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	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};