Ivy agents can be killed (using dedicated button in the Applications

 area).

1 files changed, 29 insertions, 2 deletions

diff --git a/src/ivymon b/src/ivymon
index 24ce804..650dec6 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -374,6 +374,18 @@ $clientsListbox->bind('<1>', [\&selectClient]);
 $clientsListbox->bind('<Double-1>', [\&showClientBindings]);
 &wheelmousebindings($clientsListbox);
 
+my $clientsButtons_fm = $clients_fm->Frame(
+    )->pack(-fill => 'both', -expand => 1, -side => 'bottom');
+my $clientsSeeBindings_btn = 
+    $clientsButtons_fm->Button(-command => [\&showClientBindings],
+			       -state => 'disabled',
+			       -text => "See bindings")->pack(-side => 'left');
+my $clientsKill_btn = 
+    $clientsButtons_fm->Button(-command => [\&killClient],
+			       -state => 'disabled',
+			       -text => "Kill")->pack(-side => 'left');
+
+
 #----------------------------------------------------------------------------------
 # Messages to send area
 #----------------------------------------------------------------------------------
@@ -619,7 +631,8 @@ $balloonhelp->attach($clientsListbox,-balloonmsg =>
 		     "Select an application name to highlight related\n".
 		     "Ivy messages in the Messages area.             \n".
 		     "Double-click on it to display the application  \n".
-		     "bindings.                                      ");
+		     "bindings or click on the 'See bindings' button.\n".
+		     "To kill an agent, click on the 'Kill' button.  ");
 $balloonhelp->attach($sendEntry, -balloonmsg =>
 		     "This input field is used to enter new messages or\n".
 		     "edit default one from list above. In both case,  \n".
@@ -807,6 +820,16 @@ sub manageClient {
     
 } # end manageClient
 
+sub killClient {
+    my $selindex = $clientsListbox->curselection;
+    return unless defined $selindex;
+    my $client = $clientsListbox->get($selindex);
+    $client =~ s/^-- //;
+    $client =~ s/\(\d+\)$//;
+    $client =~ s/\s.*//;
+    $ivy->sendDieTo($client);
+    
+} # end killClient
 
 sub selectClient {
     $messagesText->tagConfigure($selectedClient, -background => $bgcolor)
@@ -819,10 +842,14 @@ sub selectClient {
     if ($selectedClient eq $client) {
 	$selectedClient = undef;
 	$clientsListbox->selectionClear($selindex);
+	$clientsKill_btn->configure(-state => 'disabled');
+	$clientsSeeBindings_btn->configure(-state => 'disabled');
 	return;
     }
     $messagesText->tagConfigure($client, -background => 'gray70');
     $selectedClient = $client;
+    $clientsKill_btn->configure(-state => 'normal');
+    $clientsSeeBindings_btn->configure(-state => 'normal');
 
 } # end selectClient
 
@@ -2025,7 +2052,7 @@ IvyMon is dedicated to monitor an Ivy bus. It prints out messages that match reg
 
 The main area is the window labeled B<Messages> where are printed messages that forward on bus. Each message is preceded by sender application's name. You can insert a colored marker by double-clicking between two messages.
 
-The B<Applications> area lists the connected applications names. When you select an item in the listbox, the messages sent by this application are highlighted.
+The B<Applications> area lists the connected applications names. When you select an item in the listbox, the messages sent by this application are highlighted. You can display the agent's bindings or kill an agent by using the dedicated buttons below.
 
 The B<Bindings> area is used to manage regular expressions to subscribe to ivy messages. It provides an input field to enter new regexp, a first listbox which contains an alphabetical list of available bindings, and a second listbox  of effective bindings. To bind a new regular expression, double-click on the corresponding item in the first list or select one, edit it in the input field and then hit the I<Return> key to validate. To remove subscription, double-click on the corresponding item in the second listbox. Pressing the I<Escape> key inserts I<(.*)> string in entry field. Default bindings match Rejeu messages V2.40. This field provides completion and history functionalities.