1941-docker-image-to-testdevel
| Rev | Line | |
|---|
| [6d7779d] | 1 | # Tcl package index file, version 1.1 |
|---|
| 2 | |
|---|
| 3 | proc LoadToltcl { version dir } { |
|---|
| 4 | global tcl_platform |
|---|
| 5 | |
|---|
| 6 | set suffix [info sharedlibextension] |
|---|
| 7 | if {$tcl_platform(platform) eq "unix"} { |
|---|
| 8 | set name libtoltcl${version}[info sharedlibextension] |
|---|
| 9 | } else { |
|---|
| 10 | set name toltcl.dll |
|---|
| 11 | } |
|---|
| 12 | load [file join $dir $name] Toltcl |
|---|
| 13 | } |
|---|
| 14 | |
|---|
| [11400ae] | 15 | package ifneeded Toltcl 3.1 \ |
|---|
| [f532388] | 16 | [ string map [list %d $dir] { |
|---|
| [11400ae] | 17 | LoadToltcl 3.1 {%d} |
|---|
| [35458ba] | 18 | source [ file join {%d} toltcl.tcl ] |
|---|
| [f532388] | 19 | } ] |
|---|
| [6d7779d] | 20 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
