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 ++++---
 demos/fillRule.tcl          | 7 ++++---
 demos/groupsInAtcStrips.tcl | 5 +----
 3 files changed, 9 insertions(+), 10 deletions(-)

(limited to 'demos')

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]
 
-- 
cgit v1.1