gitk SHA link hovers

From: Linus Torvalds <torvalds@osdl.org>
Date: Aug 6, 2005, 17:59 UTC
Message-ID: <Pine.LNX.4.58.0508061056200.3258@g5.osdl.org>
In-Reply-To: <Pine.LNX.4.58.0508060919150.3258@g5.osdl.org>

This makes the cursor change when you hover over a SHA1 link with the new "hypertext" gitk commit ID linking feature.

All credit goes to Jeff Epler <jepler@unpythonic.net> and bugs are mine. I don't actually know any tcl/tk, I'm just acting as a random monkey that looks at what others do and mix it up.

Signed-off-by: Linus Torvalds <torvalds@osdl.org>
----

diff --git a/gitk b/gitk
--- a/gitk
+++ b/gitk
@@ -1802,10 +1802,13 @@ proc selectline {l isnew} {
 	set linkid [string range $comment $s $e]
 	if {![info exists idline($linkid)]} continue
 	incr e
-	$ctext tag conf link$i -foreground blue -underline 1
+	$ctext tag add link "$commentstart + $s c" "$commentstart + $e c"
 	$ctext tag add link$i "$commentstart + $s c" "$commentstart + $e c"
 	$ctext tag bind link$i <1> [list selectline $idline($linkid) 1]
     }
+    $ctext tag conf link -foreground blue -underline 1
+    $ctext tag bind link <Enter> { %W configure -cursor hand2 }
+    $ctext tag bind link <Leave> { %W configure -cursor {} }
 
     $ctext tag delete Comments
     $ctext tag remove found 1.0 end