e-smith-lib/sme8/e-smith-lib-1.18.0-infobox.patch2

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-25 16:56:51.000000000 -0500
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm 2007-02-25 16:56:15.000000000 -0500
@@ -369,10 +369,12 @@
     my %params = @_;
     my $title  = $params{title};
     my $text   = $params{text};
+    my $height = $params{height} || "8";
+    my $width  = $params{width} || SCREEN_COLUMNS;
     $self->screen("--title", $title,
                   "--infobox", $text,
-                  SCREEN_ROWS,
-                  SCREEN_COLUMNS,
+                  $height,
+                  $width,
                  );
 }
 
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-25 16:56:51.000000000 -0500
3	+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm 2007-02-25 16:56:15.000000000 -0500
4	@@ -369,10 +369,12 @@
5	my %params = @_;
6	my $title = $params{title};
7	my $text = $params{text};
8	+ my $height = $params{height} \|\| "8";
9	+ my $width = $params{width} \|\| SCREEN_COLUMNS;
10	$self->screen("--title", $title,
11	"--infobox", $text,
12	- SCREEN_ROWS,
13	- SCREEN_COLUMNS,
14	+ $height,
15	+ $width,
16	);
17	}
18