diff --git a/lib/status_bar.tcl b/lib/status_bar.tcl
index a6dea2900657a569fdd1047753806a9a6d194c23..0e2ac07a5e7a752ce80060379e683a66ecb98fdc 100644 (file)
--- a/lib/status_bar.tcl
+++ b/lib/status_bar.tcl
set status $msg
}
-method show {msg} {
- set status $msg
+method show {msg {test {}}} {
+ if {$test eq {} || $status eq $test} {
+ set status $msg
+ }
}
method _delete {current} {