Artifact 6e8f4b834cb076191244452c37ff0d207224d3c6:

• File Examples/example4.tcl — part of check-in [3ffc7dd84e] at 2003-02-20 12:57:08 on branch trunk — Changes for 2.5 (user: ramsan size: 694)

0000: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0050: 23 0a 23 20 20 6e 6f 72 6d 61 6c 20 70 72 6f 67  #.#  normal prog
0060: 72 61 6d 20 62 65 67 69 6e 73 20 68 65 72 65 0a  ram begins here.
0070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00c0: 0a 0a 6c 61 62 65 6c 20 2e 6c 20 2d 74 65 78 74  ..label .l -text
00d0: 20 22 50 72 65 73 73 20 3c 46 31 30 3e 20 74 6f   "Press <F10> to
00e0: 20 6f 70 65 6e 20 74 68 65 20 64 65 62 75 67 67   open the debugg
00f0: 65 72 20 77 69 6e 64 6f 77 22 0a 62 75 74 74 6f  er window".butto
0100: 6e 20 2e 62 20 2d 74 65 78 74 20 47 6f 20 2d 77  n .b -text Go -w
0110: 69 64 74 68 20 31 30 20 2d 63 6f 6d 6d 61 6e 64  idth 10 -command
0120: 20 22 70 70 31 20 61 61 61 61 61 61 22 0a 62 75   "pp1 aaaaaa".bu
0130: 74 74 6f 6e 20 2e 65 78 69 74 20 2d 74 65 78 74  tton .exit -text
0140: 20 45 78 69 74 20 2d 77 69 64 74 68 20 31 30 20   Exit -width 10 
0150: 2d 63 6f 6d 6d 61 6e 64 20 65 78 69 74 0a 0a 67  -command exit..g
0160: 72 69 64 20 2e 6c 20 2d 20 2d 0a 67 72 69 64 20  rid .l - -.grid 
0170: 2e 62 20 2e 65 78 69 74 20 2d 70 61 64 78 20 35  .b .exit -padx 5
0180: 0a 0a 70 72 6f 63 20 70 70 31 20 7b 20 73 74 72  ..proc pp1 { str
0190: 69 6e 67 20 7d 20 7b 0a 20 20 20 20 70 75 74 73  ing } {.    puts
01a0: 20 70 70 31 0a 20 20 20 20 66 6f 72 20 7b 20 73   pp1.    for { s
01b0: 65 74 20 69 20 30 20 7d 20 7b 20 24 69 20 3c 20  et i 0 } { $i < 
01c0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
01d0: 73 74 72 69 6e 67 5d 20 7d 20 7b 20 69 6e 63 72  string] } { incr
01e0: 20 69 20 7d 20 7b 0a 09 73 65 74 20 62 62 20 5b   i } {..set bb [
01f0: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 73 74  string index $st
0200: 72 69 6e 67 20 24 69 5d 0a 20 20 20 20 7d 0a 7d  ring $i].    }.}
0210: 0a 0a 70 72 6f 63 20 70 70 32 20 7b 20 73 74 72  ..proc pp2 { str
0220: 69 6e 67 20 7d 20 7b 0a 20 20 20 20 67 72 69 64  ing } {.    grid
0230: 20 5b 62 75 74 74 6f 6e 20 2e 6e 6e 20 2d 74 65   [button .nn -te
0240: 78 74 20 22 68 65 6c 6c 6f 22 5d 20 2d 63 6f 6c  xt "hello"] -col
0250: 75 6d 6e 20 32 20 2d 72 6f 77 20 31 0a 7d 0a 0a  umn 2 -row 1.}..
0260: 62 69 6e 64 20 2e 20 3c 46 31 30 3e 20 7b 0a 20  bind . <F10> {. 
0270: 20 20 20 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f     lappend auto_
0280: 70 61 74 68 20 2e 2e 0a 20 20 20 20 70 61 63 6b  path ...    pack
0290: 61 67 65 20 72 65 71 75 69 72 65 20 52 61 6d 44  age require RamD
02a0: 65 62 75 67 67 65 72 0a 7d 0a 0a 70 70 32 20 65  ebugger.}..pp2 e
02b0: 65 65 65 65 0a 0a                                eeee..