From ebbe88914740031de12472ace17a0cfdcd66517a Mon Sep 17 00:00:00 2001
From: zrinka <zrinka>
Date: Mon, 6 Mar 2006 13:50:43 +0000
Subject: [PATCH] animateCursor returned into statline procedure

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 exec.tcl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/exec.tcl b/exec.tcl
index 29ff073..25481e9 100755
--- 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
-- 
2.39.5