From: marko <marko>
Date: Wed, 29 Oct 2008 12:31:41 +0000 (+0000)
Subject: Do not return from proc evsched before another evsched run has been
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=f2fd6b0eaa2c9c65f3e8ff7909111038ef0965be;p=imunes.git

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 27b18ff..629b9fd 100644
--- 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 {