From: miljenko <miljenko>
Date: Tue, 17 Jan 2006 12:08:12 +0000 (+0000)
Subject: Returned back "animateCursor" proc. Needed in exec.tcl/statline.
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=c5d1d418afcc2e58cdbdb96446a548197b9f7ce1;p=imunes.git

Returned back "animateCursor" proc. Needed in exec.tcl/statline.

In VMware, without animateCursor call in statline proc status line is blank
during experiment startup/shutdown.
In ActiveState Active Tcl animateCursor is call is not needed ?!

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

diff --git a/editor.tcl b/editor.tcl
index 1611811..a3319d4 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -44,6 +44,26 @@
 #****
 
 
+proc animateCursor {} {
+    global cursorState
+    global clock_seconds
+
+    if { [clock seconds] == $clock_seconds } {
+	update
+	return
+    }
+    set clock_seconds [clock seconds]
+    if { $cursorState } {
+	.c config -cursor watch
+	set cursorState 0
+    } else {
+	.c config -cursor pirate
+	set cursorState 1
+    }
+    update
+    return
+}
+
 #****f* editor.tcl/removeGUILink
 # NAME
 #   removeGUILink -- remove link from GUI
diff --git a/exec.tcl b/exec.tcl
index 35991bf..9f84ba5 100755
--- a/exec.tcl
+++ b/exec.tcl
@@ -422,6 +422,7 @@ proc statline {line} {
 	puts $line
     } else {
 	.bottom.textbox config -text "$line"
+        animateCursor
     }
 }