diff options
| author | Yves Duret <yduret@mandriva.com> | 2002-02-01 18:10:06 +0000 |
|---|---|---|
| committer | Yves Duret <yduret@mandriva.com> | 2002-02-01 18:10:06 +0000 |
| commit | 242fc23b7d64b5083361794744fbdaf33eaaa288 (patch) | |
| tree | 0394bccc22567a6b3b9ff6c66587c12e13c8a7ee /perl-install | |
| parent | affb4cb38f8b877e59274e5f958a25dce7acdbb7 (diff) | |
| download | drakx-242fc23b7d64b5083361794744fbdaf33eaaa288.tar drakx-242fc23b7d64b5083361794744fbdaf33eaaa288.tar.gz drakx-242fc23b7d64b5083361794744fbdaf33eaaa288.tar.bz2 drakx-242fc23b7d64b5083361794744fbdaf33eaaa288.tar.xz drakx-242fc23b7d64b5083361794744fbdaf33eaaa288.zip | |
fix --explain=foo bug that prevent to show anything
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 842a98c1e..7a15fbc8c 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -100,7 +100,7 @@ my @menu_items = ( { path => _("/File/_Save"), accelerator => _("<control>S"),callback => \&save }, { path => _("/File/Save _As") }, { path => _("/File/-"),type => '<Separator>' }, - { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } }, + { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => \&quit }, { path => _("/_Options"), type => '<Branch>' }, { path => _("/Options/Test") }, { path => _("/_Help"),type => '<LastBranch>' }, @@ -205,7 +205,7 @@ gtkadd($window, createScrolledWindow(my $log_text = new Gtk::Text(undef, undef)) ), 0, gtkadd (gtkset_layout(new Gtk::HButtonBox,-end), - gtksignal_connect(new Gtk::Button (_("Mail/SMS alert")), clicked => \&alert_config), + if_ (!$::isFile, gtksignal_connect(new Gtk::Button (_("Mail/SMS alert")), clicked => \&alert_config)), gtksignal_connect(new Gtk::Button (_("Save")), clicked => \&save), gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => \&quit) ) @@ -273,6 +273,7 @@ sub parse_file { my @t, $t; while (@all) { $t = pop @all; + next if ($t =~ /logdrake/); last if !($t =~ /$Explain/); push @t, $t; } @@ -508,6 +509,9 @@ sub destroy_window { # log # $Log$ +# Revision 1.6 2002/02/01 18:10:06 yduret +# fix --explain=foo bug that prevent to show anything +# # Revision 1.5 2002/02/01 10:01:39 pablo # changed some strings to make translation easier # |