diff options
| author | lecoanet | 2004-04-30 11:42:12 +0000 |
|---|---|---|
| committer | lecoanet | 2004-04-30 11:42:12 +0000 |
| commit | a7fc6fca1397fea8414a2e5f103c150f6577ba92 (patch) | |
| tree | 2c7ce3e55d9c5f2b798f8101de3c5d43e7afcc7a /demos | |
| parent | adc3b48c49d89cc01692f22402c1653ef09e48f1 (diff) | |
| download | tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.zip tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.gz tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.bz2 tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.xz | |
Updated the demos following the change (hopefully last) in coords
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/curveBezier.tcl | 7 | ||||
| -rw-r--r-- | demos/fillRule.tcl | 7 | ||||
| -rw-r--r-- | demos/groupsInAtcStrips.tcl | 5 |
3 files changed, 9 insertions, 10 deletions
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 diff --git a/demos/fillRule.tcl b/demos/fillRule.tcl index 640fd1e..64a6eac 100644 --- a/demos/fillRule.tcl +++ b/demos/fillRule.tcl @@ -28,10 +28,11 @@ pack $w.buttons.dismiss $w.buttons.code -side left -expand 1 ####### -fillrule attribute of curves ####### contour coords and clone method -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]] -zinc $w.zinc -width 550 -height 680 -font 10x20 -borderwidth 0 -tile $texture +#zinc $w.zinc -width 550 -height 680 -font 10x20 -borderwidth 0 -tile $texture +zinc $w.zinc -width 550 -height 680 -font 10x20 -borderwidth 0 -backcolor #898A8F pack $w.zinc diff --git a/demos/groupsInAtcStrips.tcl b/demos/groupsInAtcStrips.tcl index b373b26..f00accb 100644 --- a/demos/groupsInAtcStrips.tcl +++ b/demos/groupsInAtcStrips.tcl @@ -677,10 +677,7 @@ proc catchStrip {x y} { global w dx dy set index [string range [lindex [$w.zinc itemcget current -tags] 0] 5 end] - set p [$w.zinc coords "base$index"] - set lx [lindex [lindex $p 0] 0] - set ly [lindex [lindex $p 0] 1] -# foreach {lx ly} $p {} + foreach {lx ly} [$w.zinc coords "base$index"] break set dx [expr $lx - $x] set dy [expr $ly - $y] |