From b17d8028b3ec22642f4d5527f401ba5dcd0f9670 Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Mon, 3 Sep 2001 20:27:29 +0000 Subject: fix proper call to kill 'USRx' --- logdrake | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'logdrake') diff --git a/logdrake b/logdrake index a9bdb930..f20cca51 100755 --- a/logdrake +++ b/logdrake @@ -74,7 +74,7 @@ $|= 1 if ($::isTail); my $h=chomp_(`hostname -s`); my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; -$window->signal_connect( delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) }); +$window->signal_connect( delete_event => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) }); $window->set_title( _("logdrake") ); $window->set_policy(1, 1, 1); $window->border_width (5) unless ($::isEmbedded); @@ -97,7 +97,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 => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } }, { path => _("/_Options"), type => '' }, { path => _("/Options/Test") }, { path => _("/_Help"),type => '' }, @@ -187,8 +187,8 @@ gtkadd($window, ), 0, gtkadd (gtkset_layout(new Gtk::HButtonBox,-end), gtksignal_connect(new Gtk::Button (_("Save")), clicked => \&save), - gtksignal_connect(new Gtk::Button (_("OK")), clicked=>sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)}), - gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)}) + gtksignal_connect(new Gtk::Button (_("OK")), clicked=>sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill('USR1',$::CCPID) : Gtk->exit(0)}), + gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => sub {$::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0)}) ) ) @@ -200,7 +200,7 @@ $window->realize; $window->show_all(); search() if ($::isFile); Gtk->main_iteration while Gtk->events_pending; -$::isEmbedded and kill USR2, $::CCPID; +$::isEmbedded and kill 'USR2', $::CCPID; Gtk->main; #------------------------------------------------------------- @@ -392,6 +392,9 @@ sub destroy_window { # log # $Log$ +# Revision 1.25 2001/09/03 20:27:29 yduret +# fix proper call to kill 'USRx' +# # Revision 1.24 2001/09/03 20:26:25 yduret # fix # -- cgit v1.2.1