From: Frank Sorenson <frank@tuxrocks.com>
Date: Sun, 30 Oct 2005 09:06:46 +0000 (-0700)
Subject: gitk: Specify line hover font
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=e246483dc5b56d7deb04a93b0aa08aba4cde0625;p=gitk

gitk: Specify line hover font

Hovering over a line in gitk displays the commit one-liner in a
box, but the text usually overflows the box.  The box size is
computed with a specified font, so this patch sets the text font
as well.

Signed-off-by: Frank Sorenson <frank@tuxrocks.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
---

diff --git a/gitk b/gitk
index 3ea9434..5deab53 100755
--- a/gitk
+++ b/gitk
@@ -3125,7 +3125,7 @@ proc linehover {} {
     set t [$canv create rectangle $x0 $y0 $x1 $y1 \
 	       -fill \#ffff80 -outline black -width 1 -tags hover]
     $canv raise $t
-    set t [$canv create text $x $y -anchor nw -text $text -tags hover]
+    set t [$canv create text $x $y -anchor nw -text $text -tags hover -font $mainfont]
     $canv raise $t
 }