Tk Library Source Code: Artifact [86001a641d]

Artifact 86001a641d5c35ea17ecfe908fca518ad1a3ea4a:

Attachment "dtplite.autopath.tcl" to ticket [1800338fff] added by andreas_kupries 2007-09-27 22:26:38.


set self    [file normalize [info script]]
set selfdir [file dirname $self]
set topdir  [file dirname $selfdir]

# Cases
# self = FOO/apps/dtplite => FOO/modules has tcllib modules.
#      | FOO/bin/dtplite  => FOO/lib     has tcllib (not modules).
# => topdir = FOO

if {[file exists [file join $topdir modules]]} {
    lappend auto_path [file join $topdir modules]
} elseif {[file exists [file join $topdir lib]]} {
    [file join $topdir lib]
}