Do not return from proc evsched before another evsched run has been

scheduled (using after 1000 evsched).

Bug found by:	Mirta Medanic <mirta.medanic at fer.hr>
Submitted by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/eventsched.tcl b/eventsched.tcl
index 27b18ff29b15ce1afaff7142880d9e6e0418cb40..629b9fdfe823efe3dfea336e3bec3c45e325711f 100644 (file)
--- a/eventsched.tcl
+++ b/eventsched.tcl
@@ -23,7 +23,7 @@
 # SUCH DAMAGE.
 #
 
-# $Id: eventsched.tcl,v 1.9 2008/10/27 12:55:24 miljenko Exp $
+# $Id: eventsched.tcl,v 1.10 2008/10/29 12:31:41 marko Exp $
 
 
 proc evsched {} {
@@ -52,10 +52,10 @@ proc evsched {} {
     set changed 0
     set need_sort 1
 
-    .bottom.cpu_load config -text "$curtime" 
-    if {[llength $eventqueue] == 0}  {
-        .bottom.cpu_load config -text "" 
-        return
+    if { $oper_mode == "exec"}  {
+       .bottom.cpu_load config -text "$curtime" 
+    } else {
+       .bottom.cpu_load config -text "" 
     }
 
     foreach event $eventqueue {