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/testGraphics.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/testGraphics.tcl')
| -rw-r--r-- | demos/testGraphics.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |