I386LINUX/util/I386LINUX/lib/blt2.4/pkgIndex.tcl

   1 # Tcl package index file, version 1.0
   2
   3 proc LoadBLT { version dir } {
   4
   5     set prefix "lib"
   6     set suffix [info sharedlibextension]
   7     regsub {\.} $version {} version_no_dots
   8
   9     # Determine whether to load the full BLT library or
  10     # the "lite" tcl-only version.
  11
  12     if { [info commands tk] == "tk" } {
  13         set name ${prefix}BLT${version_no_dots}${suffix}
  14     } else {
  15         set name ${prefix}BLTlite${version_no_dots}${suffix}
  16     }
  17
  18     global tcl_platform
  19     if { $tcl_platform(platform) == "unix" } {
  20         set library [file join $dir $name]
  21         if { ![file exists $library] } {
  22             # Try the parent directory.
  23             set library [file join [file dirname $dir] $name]
  24         }
  25         if { ![file exists $library] } {
  26             # Default to the path generated at compilation.
  27             set library [file join "/home/people/tacyas/Eos/util/I386LINUX/lib" $name]
  28         }
  29     } else {
  30         set library $name
  31     }
  32     load $library BLT
  33 }
  34
  35 set version "2.4"
  36
  37 package ifneeded BLT $version [list LoadBLT $version $dir]
  38
  39 # End of package index file