Initial class construction
This commit is contained in:
7
Git/mingw64/lib/tk8.6/pkgIndex.tcl
Normal file
7
Git/mingw64/lib/tk8.6/pkgIndex.tcl
Normal file
@ -0,0 +1,7 @@
|
||||
if {[catch {package present Tcl 8.6.0}]} return
|
||||
if {($::tcl_platform(platform) eq "unix") && ([info exists ::env(DISPLAY)]
|
||||
|| ([info exists ::argv] && ("-display" in $::argv)))} {
|
||||
package ifneeded Tk 8.6.9 [list load [file normalize [file join $dir .. .. bin libtk8.6.dll]] Tk]
|
||||
} else {
|
||||
package ifneeded Tk 8.6.9 [list load [file normalize [file join $dir .. .. bin tk86.dll]] Tk]
|
||||
}
|
Reference in New Issue
Block a user