From 9a6bc39d95e881f08fff7aae022a824a1c294074 Mon Sep 17 00:00:00 2001 From: ellson Date: Wed, 26 Jul 2006 03:01:59 +0000 Subject: [PATCH] use separate $titlefont in entities demo so that we can view symbol font --- tclpkg/gdtclft/demo/entities | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 +#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 -- 2.50.1