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/magicLens.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/magicLens.tcl')
-rw-r--r-- | demos/magicLens.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demos/magicLens.tcl b/demos/magicLens.tcl index 0370579..c142d53 100644 --- a/demos/magicLens.tcl +++ b/demos/magicLens.tcl @@ -196,7 +196,7 @@ namespace eval magicLens { grid columnconfigure $w 1 -weight 1 grid rowconfigure $w 1 -weight 2 - variable imagePath [file join $zinc_library demos images] + variable imagePath [file join [demosPath] images] variable texture [image create photo -file [file join $imagePath paper-grey1.gif]] variable lensTexture [image create photo -file [file join $imagePath paper-grey.gif]] $zinc configure -tile $texture |