File: startup.tcl

package info (click to toggle)
gcvs 1.0final-17
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 12,248 kB
  • ctags: 10,629
  • sloc: ansic: 71,711; cpp: 39,785; sh: 18,434; makefile: 1,917; yacc: 1,299; tcl: 1,283; perl: 910; lex: 249; csh: 185; lisp: 7
file content (6 lines) | stat: -rwxr-xr-x 256 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
 
# put some stuff here that you want to get executed in each
# tcl interpreter.

if {$::tcl_platform(platform) == "windows"} {
    package ifneeded Tk $::tcl_version [list load [file join [info library] .. .. bin tk[string map {. {}} $::tcl_version].dll]]
}