From 242fc23b7d64b5083361794744fbdaf33eaaa288 Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Fri, 1 Feb 2002 18:10:06 +0000 Subject: fix --explain=foo bug that prevent to show anything --- perl-install/standalone/logdrake | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/logdrake') 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 => _("S"),callback => \&save }, { path => _("/File/Save _As") }, { path => _("/File/-"),type => '' }, - { path => _("/File/_Quit"), accelerator => _("Q"), callback => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } }, + { path => _("/File/_Quit"), accelerator => _("Q"), callback => \&quit }, { path => _("/_Options"), type => '' }, { path => _("/Options/Test") }, { path => _("/_Help"),type => '' }, @@ -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 # -- cgit v1.2.1