diff options
author | lecoanet | 2004-05-07 15:31:01 +0000 |
---|---|---|
committer | lecoanet | 2004-05-07 15:31:01 +0000 |
commit | 9f0d489e9cda59a8ed026be96fa56f9ecc1a33f7 (patch) | |
tree | 842972357fdc905c7353dacf88a10e78427b96d8 /demos/curveBezier.tcl | |
parent | 752ff8735f731e8d37fb1bea60b0323af1a1ec06 (diff) | |
download | tkzinc-9f0d489e9cda59a8ed026be96fa56f9ecc1a33f7.zip tkzinc-9f0d489e9cda59a8ed026be96fa56f9ecc1a33f7.tar.gz tkzinc-9f0d489e9cda59a8ed026be96fa56f9ecc1a33f7.tar.bz2 tkzinc-9f0d489e9cda59a8ed026be96fa56f9ecc1a33f7.tar.xz |
Switched from pack to grid; Demos are put in a namespace; No more name aliases for fonts
Diffstat (limited to 'demos/curveBezier.tcl')
-rw-r--r-- | demos/curveBezier.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/demos/curveBezier.tcl b/demos/curveBezier.tcl index 32245b8..ed1622e 100644 --- a/demos/curveBezier.tcl +++ b/demos/curveBezier.tcl @@ -13,7 +13,7 @@ namespace eval curveBezier { wm title $w "Zinc Curve Bezier Demonstration" wm iconname $w Curve - variable defaultfont [font create -family Helvetica -size 10 -weight bold] + variable defaultfont [font create -family Helvetica -size 14 -weight normal] #variable imagePath [file join $zinc_library demos images] #variable texture [image create photo -file [file join $imagePath paper-grey1.gif]] variable splineColor \#AA0000 @@ -34,8 +34,7 @@ namespace eval curveBezier { You can move the handles to modify the bezier curves } - #zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 -tile $texture - grid [zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 \ + grid [zinc $w.zinc -width 700 -height 650 -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 |