File: pkgIndex.win

package info (click to toggle)
libtk-img 1%3A1.3-15etch3
  • links: PTS
  • area: main
  • in suites: etch
  • size: 20,144 kB
  • ctags: 14,513
  • sloc: ansic: 110,000; sh: 65,326; tcl: 2,844; asm: 996; cpp: 560; pascal: 536; makefile: 436
file content (14 lines) | stat: -rw-r--r-- 402 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# Tcl package index file, version 1.0

if {[package vcompare [info tclversion] 8.0] < 0} return

proc imgifneeded dir {
    rename imgifneeded {}
    if {[package vcompare [info tclversion] 8.1] < 0} {
	regsub {\.} [info tclversion] {} version
    } else {
	set version {}
    }
    package ifneeded Img 1.2.4 "package require Tk\nload [list [file join $dir img12$version.dll]] Img"
}
imgifneeded $dir