When event scheduler is running elapsed time is shown on bottom label

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

diff --git a/eventsched.tcl b/eventsched.tcl
index ca42a8ac447fbc639904c8d7ab4b24d1f34567b8..27b18ff29b15ce1afaff7142880d9e6e0418cb40 100644 (file)
--- a/eventsched.tcl
+++ b/eventsched.tcl
@@ -23,7 +23,7 @@
 # SUCH DAMAGE.
 #
 
-# $Id: eventsched.tcl,v 1.8 2008/09/24 13:02:54 marko Exp $
+# $Id: eventsched.tcl,v 1.9 2008/10/27 12:55:24 miljenko Exp $
 
 
 proc evsched {} {
@@ -52,6 +52,12 @@ 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
+    }
+
     foreach event $eventqueue {
        set deadline [lindex $event 0]
        if { $deadline > $curtime } {

diff --git a/initgui.tcl b/initgui.tcl
index 765cb92cb0a415ce4828b13a0cc09b00950edcc6..90d7ff202c49b5e3605f921002ba97aa913b2455 100755 (executable)
--- a/initgui.tcl
+++ b/initgui.tcl
@@ -26,7 +26,7 @@
 # and Technology through the research contract #IP-2003-143.
 #
 
-# $Id: initgui.tcl,v 1.50 2008/10/23 12:04:20 marko Exp $
+# $Id: initgui.tcl,v 1.51 2008/10/27 12:55:24 miljenko Exp $
 
 
 #****h* imunes/initgui.tcl
@@ -686,7 +686,7 @@ label .bottom.textbox -relief sunken -bd 1 -anchor w -width 999
 label .bottom.zoom -relief sunken -bd 1 -anchor w -width 10
 bind .bottom.zoom <Double-1> "setZoom %X %Y"
 bind .bottom.zoom <3> "selectZoom %X %Y"
-label .bottom.cpu_load -relief sunken -bd 1 -anchor w -width 9
+label .bottom.cpu_load -relief sunken -bd 1 -anchor e -width 9
 label .bottom.mbuf -relief sunken -bd 1 -anchor w -width 15
 label .bottom.oper_mode -relief sunken -bd 1 -anchor w -width 9
 pack .bottom.oper_mode .bottom.mbuf .bottom.cpu_load \