animateCursor returned into statline procedure

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/exec.tcl b/exec.tcl
index 29ff0735ee296f720b16e4e8c2755b7cfb8aeff1..25481e92866eb3710ffc8353a5978ec0452eed34 100755 (executable)
--- a/exec.tcl
+++ b/exec.tcl
@@ -244,9 +244,10 @@ proc statline {line} {
     global execMode
 
     if {$execMode == "batch"} {
-       puts $line
+        puts $line
     } else {
-       .bottom.textbox config -text "$line"
+        .bottom.textbox config -text "$line"
+        animateCursor
     }
 }
 
@@ -1019,10 +1020,16 @@ proc rexec { io command } {
     }
     if {$line != "Kraj" } {
         set response $line
+       if { [string match "imunes -b *" $command] } {
+           statline $line
+       } 
         gets $io line
     }
     while { $line != "Kraj" } {
         append response "\n" $line
+        if { [string match "imunes -b *" $command] } {
+            statline $line
+        }
         gets $io line
     }
     return $response