diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/ivymon | 31 |
1 files changed, 20 insertions, 11 deletions
@@ -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"; |