From: miljenko <miljenko>
Date: Mon, 27 Oct 2008 12:55:24 +0000 (+0000)
Subject: When event scheduler is running elapsed time is shown on bottom label
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=374ae71dd89ef9badc1717aa23cba9c296542a5c;p=imunes.git

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 ca42a8a..27b18ff 100644
--- 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 765cb92..90d7ff2 100755
--- 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 \