1 if {[catch {package present
Tcl 8.5.0}]} return
2 if {($::tcl_platform(platform
) eq
"unix") && ([info exists
::env(DISPLAY
)]
3 ||
([info exists
::argv] && ("-display" in
$::argv)))} {
4 package ifneeded Tk
8.5.13 [list load [file join $dir .. .. bin libtk8.5.dll
] Tk
]
6 package ifneeded Tk
8.5.13 [list load [file join $dir .. .. bin tk85.dll
] Tk
]