Tk-Components

Hex Artifact Content
Login

Artifact 4c0fa04a77e25e76ed93e5c1eba8a35387e1ba8b:


0000: 23 0a 23 20 54 63 6c 20 70 61 63 6b 61 67 65 20  #.# Tcl package 
0010: 69 6e 64 65 78 20 66 69 6c 65 0a 23 0a 23 69 66  index file.#.#if
0020: 20 7b 5b 63 61 74 63 68 20 7b 70 61 63 6b 61 67   {[catch {packag
0030: 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 2e  e require Tcl 8.
0040: 32 7d 5d 7d 20 72 65 74 75 72 6e 0a 23 70 61 63  2}]} return.#pac
0050: 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 4d 61  kage ifneeded Ma
0060: 63 43 61 72 62 6f 6e 50 72 69 6e 74 20 31 2e 34  cCarbonPrint 1.4
0070: 20 5c 0a 20 23 20 20 20 5b 6c 69 73 74 20 6c 6f   \. #   [list lo
0080: 61 64 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64  ad [file join $d
0090: 69 72 20 6c 69 62 63 6f 63 6f 61 70 72 69 6e 74  ir libcocoaprint
00a0: 31 2e 34 2e 64 79 6c 69 62 5d 20 63 6f 63 6f 61  1.4.dylib] cocoa
00b0: 70 72 69 6e 74 5d 0a 0a 70 61 63 6b 61 67 65 20  print]..package 
00c0: 69 66 6e 65 65 64 65 64 20 63 6f 63 6f 61 70 72  ifneeded cocoapr
00d0: 69 6e 74 20 31 2e 34 20 22 0a 20 20 20 20 70 61  int 1.4 ".    pa
00e0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 54 6b  ckage require Tk
00f0: 20 38 2e 35 2d 0a 20 20 20 20 69 66 20 7b 5c 22   8.5-.    if {\"
0100: 41 70 70 4b 69 74 5c 22 20 6e 69 20 5c 5b 77 69  AppKit\" ni \[wi
0110: 6e 66 6f 20 73 65 72 76 65 72 20 2e 5c 5d 7d 20  nfo server .\]} 
0120: 7b 65 72 72 6f 72 20 7b 54 6b 41 71 75 61 20 43  {error {TkAqua C
0130: 6f 63 6f 61 20 72 65 71 75 69 72 65 64 7d 7d 0a  ocoa required}}.
0140: 20 20 20 20 5b 6c 69 73 74 20 6c 6f 61 64 20 5b      [list load [
0150: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 6c  file join $dir l
0160: 69 62 63 6f 63 6f 61 70 72 69 6e 74 31 2e 34 2e  ibcocoaprint1.4.
0170: 64 79 6c 69 62 5d 20 63 6f 63 6f 61 70 72 69 6e  dylib] cocoaprin
0180: 74 5d 22 0a                                      t]".