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/photoAlpha.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'demos/photoAlpha.tcl')

diff --git a/demos/photoAlpha.tcl b/demos/photoAlpha.tcl
index 1d1b1b8..631c767 100644
--- a/demos/photoAlpha.tcl
+++ b/demos/photoAlpha.tcl
@@ -8,8 +8,8 @@ if {![info exists zincDemo]} {
 namespace eval photoAlpha {
     package require Img
 
-    variable girl [image create photo -file [file join $zinc_library demos images photoAlpha.png]]
-    variable texture [image create photo -file [file join $zinc_library demos images stripped_texture.gif]]
+    variable girl [image create photo -file [file join [demosPath] images photoAlpha.png]]
+    variable texture [image create photo -file [file join [demosPath] images stripped_texture.gif]]
 
     variable w .photoAlpha
     catch {destroy $w}
-- 
cgit v1.1