| Server IP : 3.111.61.48 / Your IP : 216.73.216.67 Web Server : Apache System : Linux ip-10-0-5-176 6.8.0-1057-aws #60~22.04.1-Ubuntu SMP Wed May 27 08:16:59 UTC 2026 x86_64 User : ubuntu ( 1000) PHP Version : 8.2.31 Disable Function : exec,passthru,shell_exec,system MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /proc/self/root/lib/blt2.5/ |
Upload File : |
# Tcl package index file, version 1.0
proc LoadBLT25 { version dir } {
set prefix "lib"
set suffix [info sharedlibextension]
regsub {\.} $version {} version_no_dots
set versuf $version$suffix
# Determine whether to load the full BLT library or
# the "lite" tcl-only version.
if {[package vcompare [info tclversion] 8.2] < 0} {
set taillib ${versuf}.8.0
} elseif {[package vcompare [info tclversion] 8.3] < 0} {
set taillib ${versuf}.8.2
} elseif {[package vcompare [info tclversion] 8.4] < 0} {
set taillib ${versuf}.8.3
} elseif {[package vcompare [info tclversion] 8.5] < 0} {
set taillib ${versuf}.8.4
} elseif {[package vcompare [info tclversion] 8.6] < 0} {
set taillib ${versuf}.8.5
} else {
set taillib ${versuf}.8.6
}
if { [info commands tk] == "tk" } {
set name1 ${prefix}BLT.${taillib}
set name2 ${prefix}BLT${version_no_dots}${suffix}
} else {
set name1 ${prefix}BLTlite.${taillib}
set name2 ${prefix}BLTlite${version_no_dots}${suffix}
}
global tcl_platform
foreach name [list $name1 $name2] {
if { $tcl_platform(platform) == "unix" } {
set library [file join $dir $name]
if { ![file exists $library] } {
# Try the parent directory.
set library [file join [file dirname $dir] $name]
}
if { ![file exists $library] } {
# Default to the path generated at compilation.
set library [file join "/usr/lib" $name]
}
} else {
set library $name
}
if { ![file exists $library] } continue
load $library BLT
break
}
}
set version "2.5"
set patchlevel "2.5.3"
package ifneeded BLT $patchlevel [list LoadBLT25 $version $dir]
# End of package index file