# WHen script is sourced, the variable $dir must contain the
# full path name of this file's directory.
if {$::tcl_version>=8.6} {
    if {$::tcl_platform(osVersion)>=6.0} {
        # 2.31.5
        # The check below used to be in tcl 8.6 lib but we merged 8.4 lib with 8.6 lib.
        # So we moved the check into the common code.

        #rwb - interferes with twapi 4.0.61 when in 6.0 or higher;
        # The reason is that pkgindex.tcl should not source anything and the code
        # below does, even though this package version will never actually be required.
        # This code evaluation causes interference with other versions that are
        #eventually required.
		::return;
    }
}
if {$::tcl_platform(os) eq "Windows NT" &&
    $::tcl_platform(machine) eq "intel" &&
    [string index $::tcl_platform(osVersion) 0] >= 5} {
    source [file join $dir twapi_version.tcl]
    source [file join $dir twapi_buildinfo.tcl]
    package ifneeded $::twapi::dll_base_name $twapi::patchlevel [list source [file join $dir twapi.tcl]]
}