From: Linus Torvalds Date: Sat, 06 Aug 2005 17:59:46 GMT Subject: gitk SHA link hovers Message-ID: In-Reply-To: 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 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 ---- 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 { %W configure -cursor hand2 } + $ctext tag bind link { %W configure -cursor {} } $ctext tag delete Comments $ctext tag remove found 1.0 end