diff options
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} |