diff options
| -rwxr-xr-x | git-gui.sh | 14 | ||||
| -rw-r--r-- | lib/status_bar.tcl | 6 |
2 files changed, 8 insertions, 12 deletions
diff --git a/git-gui.sh b/git-gui.sh index 1844c9067c..b2c9a9c6a0 100755 --- a/git-gui.sh +++ b/git-gui.sh @@ -438,7 +438,6 @@ set _reponame [lindex [file split \ set current_diff_path {} set current_diff_side {} set diff_actions [list] -set ui_status_value {Initializing...} set HEAD {} set PARENT {} @@ -761,13 +760,11 @@ proc mapdesc {state path} { } proc ui_status {msg} { - set ::ui_status_value $msg + $::main_status show $msg } proc ui_ready {{test {}}} { - if {$test eq {} || $::ui_status_value eq $test} { - ui_status Ready. - } + $::main_status show {Ready.} $test } proc escape_path {path} { @@ -2207,12 +2204,9 @@ unset ui_diff_applyhunk # -- Status Bar # -label .status -textvariable ui_status_value \ - -anchor w \ - -justify left \ - -borderwidth 1 \ - -relief sunken +set main_status [::status_bar::new .status] pack .status -anchor w -side bottom -fill x +$main_status show {Initializing...} # -- Load geometry # diff --git a/lib/status_bar.tcl b/lib/status_bar.tcl index a6dea29006..0e2ac07a5e 100644 --- a/lib/status_bar.tcl +++ b/lib/status_bar.tcl @@ -63,8 +63,10 @@ method stop {msg} { 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} { |