gitk: Specify line hover font
authorFrank Sorenson <frank@tuxrocks.com>
Sun, 30 Oct 2005 09:06:46 +0000 (02:06 -0700)
committerJunio C Hamano <junkio@cox.net>
Sat, 19 Nov 2005 07:55:50 +0000 (23:55 -0800)
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>
gitk

diff --git a/gitk b/gitk
index 3ea9434..5deab53 100755 (executable)
--- 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
 }