From: Shawn O. Pearce <spearce@spearce.org>
Date: Sat, 2 Jun 2007 03:48:18 +0000 (-0400)
Subject: git-gui: Use a label instead of a button for the back button
X-Git-Tag: gitgui-0.7.3~20
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=08dda17e00e676c5cd1b4f2a8245c318d6c97f82;p=git.git

git-gui: Use a label instead of a button for the back button

Apparently Tk on Mac OS X won't draw a button with an image using a
transparent background.  Instead it draws the button using some sort
of 3D effect, even though I asked for no relief and no border.  The
background is also not our orange that we expected it to be.

Earlier I had tried this same trick on Windows and it draws the same
way as the button did, so I'm going to switch to the label as that
seems to be more portable.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
---

diff --git a/lib/blame.tcl b/lib/blame.tcl
index bd8e631f3..2f7503ad6 100644
--- a/lib/blame.tcl
+++ b/lib/blame.tcl
@@ -66,14 +66,18 @@ constructor new {i_commit i_path} {
 		-anchor w \
 		-justify left
 	set w_back $w.header.commit_b
-	button $w_back \
-		-command [cb _history_menu] \
+	label $w_back \
 		-image ::blame::img_back_arrow \
 		-borderwidth 0 \
 		-relief flat \
 		-state disabled \
 		-background orange \
 		-activebackground orange
+	bind $w_back <Button-1> "
+		if {\[$w_back cget -state\] eq {normal}} {
+			[cb _history_menu]
+		}
+		"
 	label $w.header.commit \
 		-textvariable @commit \
 		-background orange \