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 1611811a9c9bf4f4e56afdf7259dc2107996dc5e..a3319d4f28e58af48b0a7f0134ad6cfe78bbcedf 100755 (executable)
--- 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 35991bf49127f15c1070f531e60216e09af85ed2..9f84ba5b9e63b6c0da24e4d991bdac67976430a4 100755 (executable)
--- a/exec.tcl
+++ b/exec.tcl
@@ -422,6 +422,7 @@ proc statline {line} {
        puts $line
     } else {
        .bottom.textbox config -text "$line"
+        animateCursor
     }
 }