summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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');