# The dll needs a temporary so it can install some dlls.
# That is why we do it here.
::switch -- $::tcl_platform(platform) {
	"unix" {
        ::set ::qw_temporary_directory "/tmp";
    }
	"macintosh" {
#            ::return $::env(TRASH_FOLDER);# a better place?
        ::set ::qw_temporary_directory $::env(TRASH_FOLDER);
    }
	"windows" {
        ::if {[::info exists "::env(TMP)"] && $::env(TMP) ne "" && [::file writable $::env(TMP)]} {
            ::if {![::file exists [::file join $::env(TMP) qwpage]]} {
                ::file mkdir [::file join $::env(TMP) qwpage];
            }
            ::set ::qw_temporary_directory [::file join $::env(TMP) qwpage];
        } elseif {[::info exists "::env(TEMP)"] &&  $::env(TEMP) ne "" && [::file writable $::env(TEMP)]} {
            ::if {![::file exists [::file join $::env(TEMP) qwpage]]} {
                ::file mkdir [::file join $::env(TEMP) qwpage];
            }
            ::set ::qw_temporary_directory [::file join $::env(TEMP) qwpage];
        } elseif {[::file writable [pwd]]} {
            ::set ::qw_temporary_directory [::file join [::pwd] qwpage]
		} else {
            ::if {![::file exists [::file join c:/ qwpage]]} {
                ::file mkdir [::file join c:/ qwpage];
            }
            ::set ::qw_temporary_directory [::file join c:/ qwpage]
		}
    }
}
#2.32.0 $::tcl_platform(os) -> $::tcl_platform(platform)
#::package ifneeded qw 2.0 [::list ::load [::file join $dir [::lindex $::tcl_platform(os) 0] qw[::info sharedlibextension]] qw];
#::package ifneeded qw 2.0 [::list ::load [::file join $dir [::lindex $::tcl_platform(platform) 0] qw[::info sharedlibextension]] qw];
::package ifneeded qw 2.0 [::list ::load [::file join $dir qw[::info sharedlibextension]] qw];