summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLibravatar Shawn O. Pearce <spearce@spearce.org>2007-07-08 22:06:33 -0400
committerLibravatar Shawn O. Pearce <spearce@spearce.org>2007-07-08 22:34:54 -0400
commit51530d1722b0a4cccc630043fc4b46d075bf8558 (patch)
tree53e3be845dbb38255f9fd573367e5b4eb7857aac
parentgit-gui: Extract blame viewer status bar into mega-widget (diff)
downloadtgif-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-xgit-gui.sh14
-rw-r--r--lib/status_bar.tcl6
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} {