diff options
| author | lecoanet | 2004-03-03 10:46:30 +0000 |
|---|---|---|
| committer | lecoanet | 2004-03-03 10:46:30 +0000 |
| commit | 2685c9ed276993781f969ce16351093c29da00d7 (patch) | |
| tree | 8cb2f814162674c8828109bcc611d5cb1854c61f /demos/testGraphics.tcl | |
| parent | e3bb24569b85ff5fea4dcc3eb10e86ae59608967 (diff) | |
| download | tkzinc-2685c9ed276993781f969ce16351093c29da00d7.zip tkzinc-2685c9ed276993781f969ce16351093c29da00d7.tar.gz tkzinc-2685c9ed276993781f969ce16351093c29da00d7.tar.bz2 tkzinc-2685c9ed276993781f969ce16351093c29da00d7.tar.xz | |
Adjustments for -position
Diffstat (limited to 'demos/testGraphics.tcl')
| -rw-r--r-- | demos/testGraphics.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/demos/testGraphics.tcl b/demos/testGraphics.tcl index 1a9fee1..8c471ab 100644 --- a/demos/testGraphics.tcl +++ b/demos/testGraphics.tcl @@ -2037,8 +2037,7 @@ foreach {shapes tCoords} [zincGraphics::TabBoxCoords {{-315 -210} {315 210}} \ -tabheight 26 -tabwidth {92 100 82 82 82 120 80}] break # to find some images (used as textures) needed by this demo set imagePath [file join $zinc_library demos images] -set texture [image create photo -file [file join $imagePath paper.gif]] - +set texture [image create photo texture -file [file join $imagePath paper.gif]] # création des items zinc correspondants set i 0 set pageNames {Rectangle Hippodrome Polygone Polyline PathLine MultiContours TabBox} |