| 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-28 15:49:38.000000000 -0500 |
| 3 |
|
|
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm 2007-02-28 15:16:31.000000000 -0500 |
| 4 |
|
|
@@ -224,7 +224,6 @@ |
| 5 |
|
|
my %params = @_; |
| 6 |
|
|
|
| 7 |
|
|
my $title = $params{title}; |
| 8 |
|
|
- my $choice = $params{choice}; |
| 9 |
|
|
my $message_box = $params{text}; |
| 10 |
|
|
|
| 11 |
|
|
my $left = defined $params{left} ? $params{left} : gettext("Back"); |
| 12 |
|
|
@@ -298,7 +297,7 @@ |
| 13 |
|
|
|
| 14 |
|
|
=head2 yesno_page |
| 15 |
|
|
|
| 16 |
|
|
-This methods displays a simple yes/no screen, so the user can make a |
| 17 |
|
|
+This method displays a simple yes/no screen, so the user can make a |
| 18 |
|
|
simple binary selection. |
| 19 |
|
|
|
| 20 |
|
|
=cut |
| 21 |
|
|
@@ -434,6 +433,50 @@ |
| 22 |
|
|
return ( gettext("keep"), "${keep_phrase}: $value" ); |
| 23 |
|
|
} |
| 24 |
|
|
|
| 25 |
|
|
+=head2 gauge |
| 26 |
|
|
+ |
| 27 |
|
|
+This method displays a progress bar. It takes a coderef as parameter, and uses |
| 28 |
|
|
+the coderef to drive the --gauge widget of the dialog program, as well as to |
| 29 |
|
|
+perform whatever actions are being reported by the progress bar. The coderef |
| 30 |
|
|
+should take one parameter, which is the file handle to write the controlling |
| 31 |
|
|
+text to. The coderef should return a string, which is displayed by a |
| 32 |
|
|
+message_page after the progress bar terminates. |
| 33 |
|
|
+ |
| 34 |
|
|
+All text used to update the progress bar should either be numbers between 0 |
| 35 |
|
|
+and 100, or arbitrary text sandwiched between leading and training lines |
| 36 |
|
|
+of 'XXX' followed by newline. The numbers will update the percentage complete |
| 37 |
|
|
+of the display, and the text will update the displayed text. |
| 38 |
|
|
+ |
| 39 |
|
|
+=cut |
| 40 |
|
|
+ |
| 41 |
|
|
+sub gauge |
| 42 |
|
|
+{ |
| 43 |
|
|
+ my $self = shift; |
| 44 |
|
|
+ my $sub = shift; |
| 45 |
|
|
+ my %params = @_; |
| 46 |
|
|
+ my $title = $params{title} || 'Progress'; |
| 47 |
|
|
+ my $feedback_title = $params{feedback_title} || 'Status'; |
| 48 |
|
|
+ my $init_text = $params{text} || 'Progress'; |
| 49 |
|
|
+ |
| 50 |
|
|
+ use FileHandle; |
| 51 |
|
|
+ |
| 52 |
|
|
+ unless (open(WR, '|-')) |
| 53 |
|
|
+ { |
| 54 |
|
|
+ exec('/usr/bin/dialog', |
| 55 |
|
|
+ '--backtitle', $self->backtitle, |
| 56 |
|
|
+ '--title', gettext($title), |
| 57 |
|
|
+ '--gauge', |
| 58 |
|
|
+ gettext($init_text), |
| 59 |
|
|
+ SCREEN_ROWS, |
| 60 |
|
|
+ SCREEN_COLUMNS, |
| 61 |
|
|
+ ); |
| 62 |
|
|
+ } |
| 63 |
|
|
+ WR->autoflush(1); |
| 64 |
|
|
+ my $text = &$sub(*WR); |
| 65 |
|
|
+ close(WR); |
| 66 |
|
|
+ $self->message_page('title' => $feedback_title, 'text' => $text); |
| 67 |
|
|
+} |
| 68 |
|
|
+ |
| 69 |
|
|
=head2 run_screens |
| 70 |
|
|
|
| 71 |
|
|
This method takes a directory of screens to run, and runs them in order. |
Parent Directory
| 
Revision Log
| 
Revision Graph
