source: trunk/kitgen/files/tk8.5-pkgIndex.tcl@ 180

Last change on this file since 180 was 175, checked in by demin, 12 years ago

initial commit

File size: 238 bytes
RevLine 
[175]1package ifneeded Tk $::tcl_patchLevel \
2 [string map [list @@ [file join $dir .. libtk$::tcl_version[info sharedlibext]]] {
3 if {[lsearch -exact [info loaded] {{} Tk}] >= 0} {
4 load "" Tk
5 } else {
6 load @@ Tk
7 }
8 }]
Note: See TracBrowser for help on using the repository browser.