diff options
author | Shawn O. Pearce <spearce@spearce.org> | 2007-07-08 22:06:33 -0400 |
---|---|---|
committer | Shawn O. Pearce <spearce@spearce.org> | 2007-07-08 22:34:54 -0400 |
commit | 51530d1722b0a4cccc630043fc4b46d075bf8558 (patch) | |
tree | 53e3be845dbb38255f9fd573367e5b4eb7857aac | |
parent | git-gui: Extract blame viewer status bar into mega-widget (diff) | |
download | tgif-51530d1722b0a4cccc630043fc4b46d075bf8558.tar.xz |
git-gui: Change the main window progress bar to use status_bar
Now that we have a fancy status bar mega-widget we can reuse that
within our main window. This opens the door for implementating
future improvements like a progress bar.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
-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} { |