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/transforms.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/transforms.tcl')
| -rw-r--r-- | demos/transforms.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demos/transforms.tcl b/demos/transforms.tcl index 4eb5e16..679d583 100644 --- a/demos/transforms.tcl +++ b/demos/transforms.tcl @@ -71,7 +71,7 @@ namespace eval transforms { variable itemType Rectangle variable currentItem 0 - image create photo logo -file [file join $zinc_library demos images zinc.gif] + image create photo logo -file [file join [demosPath] images zinc.gif] grid [frame $w.f] -row 2 -column 0 -columnspan 2 -sticky w |