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/groupsInAtcStrips.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/groupsInAtcStrips.tcl')
| -rw-r--r-- | demos/groupsInAtcStrips.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/groupsInAtcStrips.tcl b/demos/groupsInAtcStrips.tcl index 5092ae0..3e8e5c7 100644 --- a/demos/groupsInAtcStrips.tcl +++ b/demos/groupsInAtcStrips.tcl @@ -55,7 +55,7 @@ namespace eval groupsInAtcStrips { wm iconname $w groupsInAtcStrips variable defaultfont [font create -family Helvetica -size 10 -weight bold] - variable imagePath [file join $zinc_library demos images] + variable imagePath [file join [demosPath] images] grid [button $w.dismiss -text Dismiss -command "destroy $w"] -row 2 -column 0 -pady 10 grid [button $w.code -text "See Code" -command "showCode $w"] -row 2 -column 1 -pady 10 @@ -83,7 +83,7 @@ namespace eval groupsInAtcStrips { # Zinc ########################################## image create photo texture -file \ - [file join $zinc_library demos images background_texture.gif] + [file join [demosPath] images background_texture.gif] grid [zinc $w.zinc -render 1 -width 700 -height 500 -borderwidth 0 \ -lightangle 130 -tile texture] -row 1 -column 0 -columnspan 2 -sticky news |