summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-11-03 15:30:45 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-11-03 15:30:45 (GMT)
commitc0164ce633713cc59b867c0a5b713be33fa51593 (patch)
tree85e4cc9231f1d3d491a3a13dfe56c421c2572707 /library/demos/widget
parent2850c445d0a092a29a4bb8fc7872bdf1b8e77013 (diff)
downloadtk-c0164ce633713cc59b867c0a5b713be33fa51593.zip
tk-c0164ce633713cc59b867c0a5b713be33fa51593.tar.gz
tk-c0164ce633713cc59b867c0a5b713be33fa51593.tar.bz2
Make demo location independent of main Tk library location. [Patch 832691]
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget16
1 files changed, 8 insertions, 8 deletions
diff --git a/library/demos/widget b/library/demos/widget
index 0b538f3..65bdb4c 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -11,14 +11,15 @@ exec wish "$0" "$@"
# ".tcl" files is this directory, which are sourced by this script
# as needed.
#
-# RCS: @(#) $Id: widget,v 1.17 2003/09/30 14:54:30 dkf Exp $
+# RCS: @(#) $Id: widget,v 1.18 2003/11/03 15:30:45 dkf Exp $
package require Tcl 8.4
package require Tk 8.4
package require msgcat
eval destroy [winfo child .]
-::msgcat::mcload [file join $tk_library demos]
+set tk_demoDirectory [file join [pwd] [file dirname [info script]]]
+::msgcat::mcload $tk_demoDirectory
namespace import ::msgcat::mc
wm title . [mc "Widget Demonstration"]
if {[tk windowingsystem] eq "x11"} {
@@ -390,7 +391,7 @@ proc showVars {w args} {
# index - The index of the character that the user clicked on.
proc invoke index {
- global tk_library
+ global tk_demoDirectory
set tags [.t tag names $index]
set i [lsearch -glob $tags demo-*]
if {$i < 0} {
@@ -400,7 +401,7 @@ proc invoke index {
.t configure -cursor watch
update
set demo [string range [lindex $tags $i] 5 end]
- uplevel [list source [file join $tk_library demos $demo.tcl]]
+ uplevel [list source [file join $tk_demoDirectory $demo.tcl]]
update
.t configure -cursor $cursor
@@ -413,7 +414,6 @@ proc invoke index {
# is called when the user moves the cursor over a demo description.
#
proc showStatus index {
- global tk_library
set tags [.t tag names $index]
set i [lsearch -glob $tags demo-*]
set cursor [.t cget -cursor]
@@ -449,7 +449,7 @@ proc evalShowCode {w} {
# used to derive the name of the file containing its code.
proc showCode w {
- global tk_library
+ global tk_demoDirectory
set file [string range $w 1 end].tcl
set top .code
if {![winfo exists $top]} {
@@ -495,9 +495,9 @@ proc showCode w {
wm deiconify $top
raise $top
}
- wm title $top [mc "Demo code: %s" [file join $tk_library demos $file]]
+ wm title $top [mc "Demo code: %s" [file join $tk_demoDirectory $file]]
wm iconname $top $file
- set id [open [file join $tk_library demos $file]]
+ set id [open [file join $tk_demoDirectory $file]]
$top.f.text delete 1.0 end
$top.f.text insert 1.0 [read $id]
$top.f.text mark set insert 1.0