Hex Artifact Content

Artifact 6c294de4c5a5d9c28651d7ffd5f941faa739eaa6:


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 69 66 20 7b 21 5b 69 6e 66  tclsh..if {![inf
0020: 6f 20 65 78 69 73 74 73 20 74 6b 5f 70 6f 72 74  o exists tk_port
0030: 5d 7d 20 7b 0a 09 73 65 74 20 74 6b 5f 6c 69 62  ]} {..set tk_lib
0040: 72 61 72 79 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  rary [file join 
0050: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69  [file dirname [i
0060: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 20 6c 69 62  nfo script]] lib
0070: 72 61 72 79 5d 0a 09 6c 6f 61 64 20 2e 2f 6c 69  rary]..load ./li
0080: 62 63 74 6b 2e 73 6f 20 54 6b 0a 7d 0a 0a 6c 61  bctk.so Tk.}..la
0090: 62 65 6c 20 2e 6c 20 2d 74 65 78 74 20 22 50 61  bel .l -text "Pa
00a0: 73 73 77 6f 72 64 22 0a 65 6e 74 72 79 20 2e 78  ssword".entry .x
00b0: 0a 62 75 74 74 6f 6e 20 2e 79 20 2d 74 65 78 74  .button .y -text
00c0: 20 22 4f 4b 22 20 2d 63 6f 6d 6d 61 6e 64 20 65   "OK" -command e
00d0: 78 69 74 0a 0a 70 61 63 6b 20 2e 6c 20 2d 73 69  xit..pack .l -si
00e0: 64 65 20 6c 65 66 74 0a 70 61 63 6b 20 2e 78 20  de left.pack .x 
00f0: 2d 73 69 64 65 20 72 69 67 68 74 20 2d 66 69 6c  -side right -fil
0100: 6c 20 78 20 2d 65 78 70 61 6e 64 20 31 0a 70 61  l x -expand 1.pa
0110: 63 6b 20 2e 79 0a                                ck .y.