From: Björn Steinbrink Date: Wed, 01 Oct 2008 21:09:01 GMT Subject: [PATCH] GUI: Add a progressbar to visualize the time that is left Message-ID: <20081001210901.GA5731@atjola.homenet> In-Reply-To: Signed-off-by: Björn Steinbrink --- OK, this bar doesn't fill up as you requested, but instead gets empty, that's just how I feel it should be ;-) Might require Tcl/Tk 8.5... tracker-ui.tcl | 6 ++++++ 1 files changed, 6 insertions(+), 0 deletions(-) diff --git a/tracker-ui.tcl b/tracker-ui.tcl index 16d00d7..5314c57 100755 --- a/tracker-ui.tcl +++ b/tracker-ui.tcl @@ -8,6 +8,7 @@ proc every {ms body} { set user $env(USER) pack [label .tracker -textvariable time] +pack [ttk::progressbar .bar] every 1000 { global user @@ -17,4 +18,9 @@ every 1000 { gets $f l3 close $f set ::time "$l3" + set times [split "$l1" " "] + set max [lindex $times 0] + set cur [lindex $times 1] + set left [expr $max - $cur] + .bar configure -max $max -value $left } -- 1.6.0.2.307.gc427