Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | handle auto_path setup proper when info nameofexecutable is empty |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3f0769cc0a01e35578b05ffd01eb0bc9 |
| User & Date: | chw 2019-04-12 21:10:41 |
Context
|
2019-04-13
| ||
| 06:51 | add tk upstream changes check-in: 7c76bac0d4 user: chw tags: trunk | |
|
2019-04-12
| ||
| 21:10 | handle auto_path setup proper when info nameofexecutable is empty check-in: 3f0769cc0a user: chw tags: trunk | |
| 04:58 | add tk upstream changes check-in: 9995508acd user: chw tags: trunk | |
Changes
Changes to jni/tcl/library/init.tcl.
| ︙ | ︙ | |||
48 49 50 51 52 53 54 |
namespace eval tcl {
variable Dir
foreach Dir [list $::tcl_library [file dirname $::tcl_library]] {
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
}
| > | | | | > | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
namespace eval tcl {
variable Dir
foreach Dir [list $::tcl_library [file dirname $::tcl_library]] {
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
}
if {[info nameofexecutable] ne ""} {
set Dir [file join [file dirname [file dirname \
[info nameofexecutable]]] lib]
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
}
catch {
foreach Dir $::tcl_pkgPath {
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
}
|
| ︙ | ︙ |