diff options
Diffstat (limited to 'demos/fillRule.tcl')
-rw-r--r-- | demos/fillRule.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
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 |