diff options
Diffstat (limited to 'demos/windowContours.tcl')
| -rw-r--r-- | demos/windowContours.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/demos/windowContours.tcl b/demos/windowContours.tcl index 19aacb1..7b6c263 100644 --- a/demos/windowContours.tcl +++ b/demos/windowContours.tcl @@ -12,7 +12,7 @@ namespace eval windowContours { wm title $w "Zinc Contours Demonstration" wm iconname $w Contours - variable defaultfont [font create -family Helvetica -size 10 -weight bold] + variable defaultfont [font create -family Helvetica -size 20 -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,9 +29,12 @@ namespace eval windowContours { # Text in background - variable backtext [$w.zinc add text 1 -position {50 200} -text "This text appears\nthrough holes of curves" -font "-adobe-helvetica-bold-o-normal--34-240-100-100-p-182-iso8859-1"] + variable backtext [$w.zinc add text 1 -position {50 200} \ + -text "This text appears\nthrough holes of curves" \ + -font "-adobe-helvetica-bold-o-normal--34-240-100-100-p-182-iso8859-1"] - variable window [$w.zinc add curve 1 {100 100 300 100 300 400 100 400} -closed 1 -visible 1 -filled 1 -fillcolor grey66] + variable window [$w.zinc add curve 1 {100 100 300 100 300 400 100 400} -closed 1 \ + -visible 1 -filled 1 -fillcolor grey66] variable aGlass [$w.zinc add rectangle 1 {120 120 190 240}] |