Hex Artifact Content

Artifact f943d31ad395b056723c9ff6ecfaf71aac03ccdc:


0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20  #! /usr/bin/env 
0010: 74 63 6c 73 68 0a 0a 23 20 44 65 74 65 72 6d 69  tclsh..# Determi
0020: 6e 65 20 69 66 20 77 65 20 73 68 6f 75 6c 64 20  ne if we should 
0030: 68 61 76 65 20 54 6b 0a 73 65 74 20 62 75 69 6c  have Tk.set buil
0040: 64 66 6c 61 67 73 20 5b 73 70 6c 69 74 20 5b 6c  dflags [split [l
0050: 69 6e 64 65 78 20 24 61 72 67 76 20 31 5d 20 2d  index $argv 1] -
0060: 5d 0a 66 6f 72 65 61 63 68 20 66 6c 61 67 20 5b  ].foreach flag [
0070: 6c 69 73 74 20 6e 6f 74 6b 20 6d 69 6e 5d 20 7b  list notk min] {
0080: 0a 09 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d  ..if {[lsearch -
0090: 65 78 61 63 74 20 24 62 75 69 6c 64 66 6c 61 67  exact $buildflag
00a0: 73 20 24 66 6c 61 67 5d 20 21 3d 20 2d 31 7d 20  s $flag] != -1} 
00b0: 7b 0a 09 09 65 78 69 74 20 30 0a 09 7d 0a 7d 0a  {...exit 0..}.}.
00c0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
00d0: 20 54 6b 0a 0a 6c 61 62 65 6c 20 2e 6c 0a 70 61   Tk..label .l.pa
00e0: 63 6b 20 2e 6c 0a 0a 69 66 20 7b 5b 77 69 6e 66  ck .l..if {[winf
00f0: 6f 20 63 68 69 6c 64 72 65 6e 20 2e 5d 20 3d 3d  o children .] ==
0100: 20 22 2e 6c 22 7d 20 7b 0a 09 65 78 69 74 20 30   ".l"} {..exit 0
0110: 0a 7d 0a 0a 70 75 74 73 20 22 57 69 6e 66 6f 20  .}..puts "Winfo 
0120: 43 68 69 6c 64 72 65 6e 3a 20 5b 77 69 6e 66 6f  Children: [winfo
0130: 20 63 68 69 6c 64 72 65 6e 20 2e 5d 22 0a 0a 65   children .]"..e
0140: 78 69 74 20 31 0a                                xit 1.