From a7fc6fca1397fea8414a2e5f103c150f6577ba92 Mon Sep 17 00:00:00 2001 From: lecoanet Date: Fri, 30 Apr 2004 11:42:12 +0000 Subject: Updated the demos following the change (hopefully last) in coords --- demos/curveBezier.tcl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'demos/curveBezier.tcl') diff --git a/demos/curveBezier.tcl b/demos/curveBezier.tcl index 8531ce0..2cc0a6d 100644 --- a/demos/curveBezier.tcl +++ b/demos/curveBezier.tcl @@ -13,8 +13,8 @@ wm title $w "Zinc Curve Bezier Demonstration" wm iconname $w Curve set defaultfont [font create -family Helvetica -size 10 -weight bold] -set imagePath [file join $zinc_library demos images] -set texture [image create photo -file [file join $imagePath paper-grey1.gif]] +#set imagePath [file join $zinc_library demos images] +#set texture [image create photo -file [file join $imagePath paper-grey1.gif]] set splineColor \#AA0000 set handleColor grey70 set barColor grey30 @@ -36,7 +36,8 @@ $w.text insert 0.0 { You can move the handles to modify the bezier curves } -zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 -tile $texture +#zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 -tile $texture +zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 -backcolor #898A8F pack $w.zinc -- cgit v1.1