From: ellson <devnull@localhost>
Date: Wed, 26 Jul 2006 03:01:59 +0000 (+0000)
Subject: use separate $titlefont in entities demo so that  we can view symbol font
X-Git-Tag: LAST_LIBGRAPH~32^2~6054
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=9a6bc39d95e881f08fff7aae022a824a1c294074;p=graphviz

use separate $titlefont in entities demo so that  we can view symbol font
---

diff --git a/tclpkg/gdtclft/demo/entities b/tclpkg/gdtclft/demo/entities
index bb277a007..db8d662b3 100755
--- a/tclpkg/gdtclft/demo/entities
+++ b/tclpkg/gdtclft/demo/entities
@@ -8,8 +8,10 @@ package require Gdtclft
 #
 # John Ellson <ellson@graphviz.org>
 
+#set font symbol
 set font times
 
+set titlefont times
 set gd [gd create 1100 850]
 set white [gd color new $gd 255 255 255]
 set black [gd color new $gd 0 0 0]
@@ -30,7 +32,7 @@ proc incr_rowcol {} {
 }
 
 # lay down a title on the background
-gd text $gd $green $font 50. .7 350 500 "HTML 4.0 Entities\r\nfont = $font"
+gd text $gd $green $titlefont 50. .7 350 500 "HTML 4.0 Entities\r\nfont = $font"
 
 set row 0
 set col 0
@@ -59,9 +61,9 @@ foreach val [lsort -integer [array names entity]] {
 	} {
 		set fontcolor $black
 	}
-	gd text $gd $black $font 8. 0. $x1 $y [format {%5d} $val]
+	gd text $gd $black $titlefont 8. 0. $x1 $y [format {%5d} $val]
 	gd text $gd $fontcolor $font 16. 0. $x2 $y [format {&#%d;} $val]
-	gd text $gd $black $font 12. 0. $x3 $y $entity($val)
+	gd text $gd $black $titlefont 12. 0. $x3 $y $entity($val)
 }
 close $f