X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=lib%2Fstatus_bar.tcl;h=5fe3aad382f43a30a099a106f7d51f136eda0652;hb=e1a3f28b14be2cd794ec867c2f8720ca309475ca;hp=51d4177551b911c35cfd8004a36fca4259367d24;hpb=f4e9996b77415707a20a139463c3e3782e2fa48f;p=git.git

diff --git a/lib/status_bar.tcl b/lib/status_bar.tcl
index 51d417755..5fe3aad38 100644
--- a/lib/status_bar.tcl
+++ b/lib/status_bar.tcl
@@ -13,14 +13,16 @@ field units   {}; # unit of progress
 field meter   {}; # current core git progress meter (if active)
 
 constructor new {path} {
+	global use_ttk NS
 	set w $path
 	set w_l $w.l
 	set w_c $w.c
 
-	frame $w \
-		-borderwidth 1 \
-		-relief sunken
-	label $w_l \
+	${NS}::frame $w
+	if {!$use_ttk} {
+		$w configure -borderwidth 1 -relief sunken
+	}
+	${NS}::label $w_l \
 		-textvariable @status \
 		-anchor w \
 		-justify left
@@ -41,8 +43,8 @@ constructor two_line {path} {
 	set w_l $w.l
 	set w_c $w.c
 
-	frame $w
-	label $w_l \
+	${NS}::frame $w
+	${NS}::label $w_l \
 		-textvariable @status \
 		-anchor w \
 		-justify left