summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rwxr-xr-xsrc/ivymon11
1 files changed, 8 insertions, 3 deletions
diff --git a/src/ivymon b/src/ivymon
index 1c72a93..a12fcbe 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -797,12 +797,18 @@ sub addIvyBinding {
my $binding = shift;
#print "in addIvyBinding $binding\n";
$ivy->bindRegexp($binding, [sub {
+ my $sender = shift;
+ my $message;
+ for (my $i = 0; $i < @_; $i++) {
+ $_[$i] = '"'.$_[$i].'"';
+ }
+ $message = join(' ', @_);
$messagesNumber++;
if ($stopFlag) {
- &bufferizeMessages(@_);
+ &bufferizeMessages($sender, $message);
} else {
&beforeUpdatingMessages;
- &updateMessages(@_);
+ &updateMessages($sender, $message);
&afterUpdatingMessages;
}
}]);
@@ -1106,7 +1112,6 @@ sub beforeUpdatingMessages {
sub updateMessages {
my ($sender, $message) = @_;
chomp($message);
- $message = '"' . $message . '"' ;
# If scrolling is available, format and then display message.
# Unless file has been loaded, look at history : compare widget text lines
# number with history size