From 6a495d868f7fa7a0989f2fe7c30ce468496b2f10 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Tue, 21 Sep 2004 07:52:10 +0000
Subject: The various demos now use a central Tcl proc demosPath to obtain the
 path to the images and data.

---
 demos/groupsInAtcStrips.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'demos/groupsInAtcStrips.tcl')

diff --git a/demos/groupsInAtcStrips.tcl b/demos/groupsInAtcStrips.tcl
index 5092ae0..3e8e5c7 100644
--- a/demos/groupsInAtcStrips.tcl
+++ b/demos/groupsInAtcStrips.tcl
@@ -55,7 +55,7 @@ namespace eval groupsInAtcStrips {
     wm iconname $w groupsInAtcStrips
 
     variable defaultfont [font create -family Helvetica -size 10 -weight bold]
-    variable imagePath [file join $zinc_library demos images]
+    variable imagePath [file join [demosPath] images]
 
     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
@@ -83,7 +83,7 @@ namespace eval groupsInAtcStrips {
     # Zinc
     ##########################################
     image create photo texture -file \
-	[file join $zinc_library demos images background_texture.gif]
+	[file join [demosPath] images background_texture.gif]
 
     grid [zinc $w.zinc -render 1 -width 700 -height 500 -borderwidth 0 \
 	      -lightangle 130 -tile texture] -row 1 -column 0 -columnspan 2 -sticky news
-- 
cgit v1.1