From: Shawn O. Pearce <spearce@spearce.org>
Date: Mon, 9 Jul 2007 02:06:33 +0000 (-0400)
Subject: git-gui: Change the main window progress bar to use status_bar
X-Git-Tag: v1.5.3-rc1~16^2~14
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=51530d1722b0a4cccc630043fc4b46d075bf8558;p=git.git

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>
---

diff --git a/git-gui.sh b/git-gui.sh
index 1844c9067..b2c9a9c6a 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 a6dea2900..0e2ac07a5 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} {