home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / lib / blt2.4 / pkgIndex.tcl < prev    next >
Encoding:
Text File  |  2009-12-04  |  1.5 KB  |  57 lines
  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 {[package vcompare [info tclversion] 8.2] < 0} {
  13.         set taillib ${version}.so.8.0
  14.     } elseif {[package vcompare [info tclversion] 8.3] < 0} {
  15.         set taillib ${version}.so.8.2
  16.     } elseif {[package vcompare [info tclversion] 8.4] < 0} {
  17.         set taillib ${version}.so.8.3
  18.     } elseif {[package vcompare [info tclversion] 8.5] < 0} {
  19.         set taillib ${version}.so.8.4
  20.     } else {
  21.         set taillib ${version}.so.8.5
  22.     }
  23.  
  24.     if { [info commands tk] == "tk" } {
  25.         set name ${prefix}BLT.${taillib}
  26.     } else {
  27.         set name ${prefix}BLTlite.${taillib}
  28.     }
  29.  
  30.     global tcl_platform
  31.     if { $tcl_platform(platform) == "unix" } {
  32.         if { [info commands tk] == "tk" } {
  33.           set library libBLT.${taillib}
  34.         } else {
  35.           set library libBLTlite.${taillib}
  36.         }
  37.     if { ![file exists $library] } {
  38.         # Try the parent directory.
  39.         set library [file join [file dirname $dir] $name]
  40.     }
  41.     if { ![file exists $library] } {
  42.         # Default to the path generated at compilation.
  43.         set library [file join "/usr/lib" $name]
  44.     }
  45.     } else {
  46.     set library $name
  47.     }
  48.     load $library BLT
  49. }
  50.  
  51. set version "2.4"
  52. set libdir  "/usr/lib"
  53.  
  54. package ifneeded BLT $version [list LoadBLT $version $dir]
  55.  
  56. # End of package index file
  57.