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/testGraphics.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'demos/testGraphics.tcl')

diff --git a/demos/testGraphics.tcl b/demos/testGraphics.tcl
index c8f7bbe..78502db 100644
--- a/demos/testGraphics.tcl
+++ b/demos/testGraphics.tcl
@@ -2047,7 +2047,7 @@ namespace eval testGraphics {
 				  -numpages 7 -overlap 2 -radius 8 \
 				  -tabheight 26 -tabwidth {92 100 82 82 82 120 80}] break
     # to find some images (used as textures) needed by this demo
-    variable imagePath [file join $zinc_library demos images]
+    variable imagePath [file join [demosPath] images]
     variable texture [image create photo -file [file join $imagePath paper.gif]]
     # création des items zinc correspondants
     variable i 0
-- 
cgit v1.1