/[smeserver]/rpms/e-smith-lib/sme7/e-smith-lib-1.18.0-gauge.patch2
ViewVC logotype

Annotation of /rpms/e-smith-lib/sme7/e-smith-lib-1.18.0-gauge.patch2

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Tue Jun 12 15:42:52 2007 UTC (17 years, 4 months ago) by slords
Branch: MAIN
CVS Tags: e-smith-lib-1_18_0-23_el4_sme, e-smith-lib-1_18_0-19_el4_sme, e-smith-lib-1_18_0-16_el4_sme, e-smith-lib-1_18_0-17_el4_sme, e-smith-lib-1_18_0-24_el4_sme, e-smith-lib-1_18_0-28_el4_sme, e-smith-lib-1_18_0-18_el4_sme, e-smith-lib-1_18_0-22_el4_sme, e-smith-lib-1_18_0-27_el4_sme, e-smith-lib-1_18_0-21_el4_sme, e-smith-lib-1_18_0-26_el4_sme, e-smith-lib-1_18_0-20_el4_sme, e-smith-lib-1_18_0-25_el4_sme
Import on branch sme7 of package e-smith-lib-1.18.0-16.el4.sme.src.rpm

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-04-04 16:49:49.000000000 -0400
3     +++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/console.pm 2007-04-04 16:49:27.000000000 -0400
4     @@ -439,13 +439,15 @@
5     the coderef to drive the --gauge widget of the dialog program, as well as to
6     perform whatever actions are being reported by the progress bar. The coderef
7     should take one parameter, which is the file handle to write the controlling
8     -text to. The coderef should return a string, which is displayed by a
9     +text to. If the return value of the coderef is defined, it is displayed by a
10     message_page after the progress bar terminates.
11    
12     All text used to update the progress bar should either be numbers between 0
13     and 100, or arbitrary text sandwiched between leading and training lines
14     of 'XXX' followed by newline. The numbers will update the percentage complete
15     -of the display, and the text will update the displayed text.
16     +of the display, and the text will update the displayed text. Updating the
17     +displayed text will reset the precentage complete to 0, so text should always
18     +be followed by number.
19    
20     =cut
21    
22     @@ -457,14 +459,18 @@
23     my $title = $params{title} || 'Progress';
24     my $feedback_title = $params{feedback_title} || 'Status';
25     my $init_text = $params{text} || 'Progress';
26     + my @args = (
27     + '--backtitle', $self->backtitle,
28     + '--title', gettext($title),
29     + );
30     + push @args, "--clear" if $params{clear};
31    
32     use FileHandle;
33    
34     unless (open(WR, '|-'))
35     {
36     exec('/usr/bin/dialog',
37     - '--backtitle', $self->backtitle,
38     - '--title', gettext($title),
39     + @args,
40     '--gauge',
41     gettext($init_text),
42     SCREEN_ROWS,
43     @@ -474,7 +480,8 @@
44     WR->autoflush(1);
45     my $text = &$sub(*WR);
46     close(WR);
47     - $self->message_page('title' => $feedback_title, 'text' => $text);
48     + $self->message_page('title' => $feedback_title, 'text' => $text)
49     + if defined $text;
50     }
51    
52     =head2 run_screens

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed