diff options
author | lecoanet | 2004-09-21 07:52:10 +0000 |
---|---|---|
committer | lecoanet | 2004-09-21 07:52:10 +0000 |
commit | 6a495d868f7fa7a0989f2fe7c30ce468496b2f10 (patch) | |
tree | bad6730489e70ea51dba0fc62d78b01e4dd5218c /demos/photoAlpha.tcl | |
parent | 9373cebaaceb73b1f0682dfa764dc3f86f4a3721 (diff) | |
download | tkzinc-6a495d868f7fa7a0989f2fe7c30ce468496b2f10.zip tkzinc-6a495d868f7fa7a0989f2fe7c30ce468496b2f10.tar.gz tkzinc-6a495d868f7fa7a0989f2fe7c30ce468496b2f10.tar.bz2 tkzinc-6a495d868f7fa7a0989f2fe7c30ce468496b2f10.tar.xz |
The various demos now use a central Tcl proc demosPath to
obtain the path to the images and data.
Diffstat (limited to 'demos/photoAlpha.tcl')
-rw-r--r-- | demos/photoAlpha.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
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} |