summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoretienne2002-08-07 16:33:25 +0000
committeretienne2002-08-07 16:33:25 +0000
commit0c4e8bebe4c3bb81856e5f34f704ddf86d5b8682 (patch)
tree5b626b24b4b10a76cc6d4d5ccbb8c327062ff810
parentcac89c80ea89ff2c1294ae835a761a9aa2195af0 (diff)
downloadivymon-0c4e8bebe4c3bb81856e5f34f704ddf86d5b8682.zip
ivymon-0c4e8bebe4c3bb81856e5f34f704ddf86d5b8682.tar.gz
ivymon-0c4e8bebe4c3bb81856e5f34f704ddf86d5b8682.tar.bz2
ivymon-0c4e8bebe4c3bb81856e5f34f704ddf86d5b8682.tar.xz
*** empty log message ***
-rwxr-xr-xsrc/ivymon5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/ivymon b/src/ivymon
index e9107c4..c1711c6 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -1316,11 +1316,11 @@ sub addMsgToSend {
sub sendMsg {
my $entry = shift;
- $ivy->sendMsgs($entry);
$messagesNumber++;
&beforeUpdatingMessages;
&updateMessages($appname, $entry);
&afterUpdatingMessages;
+ $ivy->sendMsgs($entry);
} # end sendMsg
@@ -1987,6 +1987,8 @@ sub findRvalue {
$entry->selectionClear;
if ($rvalue =~ /(^\S+)/) {
$rvalue = $1;
+ # skip char ) at the end of string
+ $rvalue =~ s/\)$//;
$entry->selectionFrom($index+1);
$entry->selectionTo($index +1 + length($rvalue));
}
@@ -2015,6 +2017,7 @@ sub warning2 {
} # end warning2
+
sub warning3 {
my $widget = shift;
$widget->configure(-foreground => 'red');