home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / lib / img1.2 / pkgIndex.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  402 b   |  15 lines
  1. # Tcl package index file, version 1.0
  2.  
  3. if {[package vcompare [info tclversion] 8.0] < 0} return
  4.  
  5. proc imgifneeded dir {
  6.     rename imgifneeded {}
  7.     if {[package vcompare [info tclversion] 8.1] < 0} {
  8.     regsub {\.} [info tclversion] {} version
  9.     } else {
  10.     set version {}
  11.     }
  12.     package ifneeded Img 1.2.4 "package require Tk\nload [list [file join $dir img12$version.dll]] Img"
  13. }
  14. imgifneeded $dir
  15.