Added a field to display the number of last message recipients.

1 files changed, 20 insertions, 11 deletions

diff --git a/src/ivymon b/src/ivymon
index 618ccfe..16814e9 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -648,13 +648,24 @@ my $clientsKill_btn =
 # Messages to send area
 #----------------------------------------------------------------------------------
 
+my $send1_fm = $send_fm->Frame()->pack(-side => 'top',
+				       -expand => 1,
+				       -fill => 'both');
 my $sendEntry =
-    $send_fm->Entry(-width => 40*$coef)->pack(-fill => 'x',
-					-side => 'top',
+    $send1_fm->Entry(-width => 40*$coef)->pack(-fill => 'x',
+					-side => 'left',
 					-anchor => 'w',
 					-ipady => 3,
 					-expand => 1,
 					-pady => 0);
+my $recipientLabel =
+    $send1_fm->Label(-width => 2,
+		     -relief => 'sunken')->pack(-fill => 'x',
+					-side => 'left',
+					-anchor => 'w',
+					-ipady => 3,
+					-pady => 0);
+
 my $send2_fm = $send_fm->Frame()->pack(-side => 'top',
 				       -pady => 5*$coef,
 				       -expand => 1,
@@ -917,6 +928,9 @@ $balloonhelp->attach($sendList, -balloonmsg =>
 		     "Available messages list. Select an item for edition\n".
 		     "or double click on predefined message to send it.  "
 		     );
+$balloonhelp->attach($recipientLabel, -balloonmsg =>
+		     "Number of last message recipients."
+		     );
 $balloonhelp->attach($messagesText, -balloonmsg =>
 		     "You can insert colored marker by double-clicking on a \n".
 		     "message application name (marker will be createafter\n".
@@ -1685,14 +1699,6 @@ sub sendPrevExpression {
 } # end sendPrevExpression
 
 
-sub clearMsgToSend {
-    $sendEntry->delete(0, 'end');
-    $sendList->selectionClear(0, 'end');
-
-} # end clearMsgToSend
-
-
-
 sub addMsgToSend {
     my ($sender, $entry, $sendFlag) = @_;
     unless ($entry) {
@@ -1723,13 +1729,15 @@ sub sendMsg {
     &beforeUpdatingMessages;
     &updateMessages($appname, $entry, scalar gettimeofday());
     &afterUpdatingMessages;
-    $ivy->sendMsgs($entry);
+    my $c = $ivy->sendMsgs($entry);
+    $recipientLabel->configure(-text => $c);
     
 } # end sendMsg
 
 
 sub selectMsgToSend {
     $sendEntry->focus;
+    $recipientLabel->configure(-text => '');
     my $selindex = $sendList->curselection;
     return unless defined $selindex;
     my $selected = $sendList->get($selindex);
@@ -2703,6 +2711,7 @@ sub wheelmousebindings {
 
 sub findExprInList {
     my ($entry, $list) = @_;
+    $recipientLabel->configure(-text => '');
     my $key = $entry->XEvent->K;
     my $expr = $entry->get;
     #print "expr=$expr\n";