From 9f0d489e9cda59a8ed026be96fa56f9ecc1a33f7 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 7 May 2004 15:31:01 +0000
Subject: Switched from pack to grid; Demos are put in a namespace; No more
 name aliases for fonts

---
 demos/fillRule.tcl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'demos/fillRule.tcl')

diff --git a/demos/fillRule.tcl b/demos/fillRule.tcl
index f17e19a..8817709 100644
--- a/demos/fillRule.tcl
+++ b/demos/fillRule.tcl
@@ -12,7 +12,7 @@ namespace eval fillRule {
     wm title $w "Zinc Fillrule Demonstration"
     wm iconname $w "Fillrule"
     
-    variable defaultfont [font create -family Helvetica -size 10 -weight bold]
+    variable defaultfont [font create -family Helvetica -size 16 -weight normal]
     
     grid [button $w.dismiss -text Dismiss -command "destroy $w"] -row 2 -column 0 -pady 10
     grid [button $w.code -text "See Code" -command "showCode $w"] -row 2 -column 1 -pady 10
@@ -29,8 +29,7 @@ namespace eval fillRule {
     #variable imagePath [file join $zinc_library demos images]
     #variable texture [image create photo -file [file join $imagePath paper-grey1.gif]]
     
-    #zinc $w.zinc -width 550 -height 680 -font 10x20 -borderwidth 0 -tile $texture
-    grid [zinc $w.zinc -width 550 -height 680 -font 10x20 -borderwidth 0 \
+    grid [zinc $w.zinc -width 550 -height 680 -font $defaultfont -borderwidth 0 \
 	      -backcolor \#898A8F] -row 1 -column 0 -columnspan 2 -sticky news
     grid columnconfigure $w 0 -weight 1
     grid columnconfigure $w 1 -weight 1
-- 
cgit v1.1