Artifact a1aa343b1580e46a6c3443bfd94398f37e30d2fc:

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

0000: 0a 74 6f 70 6c 65 76 65 6c 20 2e 74 0a 70 61 63  .toplevel .t.pac
0010: 6b 20 5b 66 72 61 6d 65 20 2e 74 2e 66 5d 0a 70  k [frame .t.f].p
0020: 61 63 6b 20 5b 6c 61 62 65 6c 20 2e 74 2e 66 2e  ack [label .t.f.
0030: 6c 20 2d 74 65 78 74 20 72 72 72 72 72 5d 0a 70  l -text rrrrr].p
0040: 61 63 6b 20 5b 6c 61 62 65 6c 20 2e 74 2e 66 2e  ack [label .t.f.
0050: 6c 32 20 2d 74 65 78 74 20 72 72 72 72 72 5d 0a  l2 -text rrrrr].
0060: 0a 70 61 63 6b 20 5b 6c 61 62 65 6c 20 2e 6c 20  .pack [label .l 
0070: 2d 74 65 78 74 20 72 72 72 72 72 5d 0a 0a 0a 70  -text rrrrr]...p
0080: 72 6f 63 20 70 70 31 20 7b 20 73 74 72 69 6e 67  roc pp1 { string
0090: 20 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 70 70   } {.    puts pp
00a0: 31 0a 20 20 20 20 66 6f 72 20 7b 20 73 65 74 20  1.    for { set 
00b0: 69 20 30 20 7d 20 7b 20 24 69 20 3c 20 5b 73 74  i 0 } { $i < [st
00c0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 73 74 72  ring length $str
00d0: 69 6e 67 5d 20 7d 20 7b 20 69 6e 63 72 20 69 20  ing] } { incr i 
00e0: 7d 20 7b 0a 09 73 65 74 20 62 62 20 5b 73 74 72  } {..set bb [str
00f0: 69 6e 67 20 69 6e 64 65 78 20 24 73 74 72 69 6e  ing index $strin
0100: 67 20 24 69 5d 0a 20 20 20 20 7d 0a 7d 0a 0a 70  g $i].    }.}..p
0110: 72 6f 63 20 70 70 32 20 7b 20 73 74 72 69 6e 67  roc pp2 { string
0120: 20 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 70 70   } {.    puts pp
0130: 32 0a 20 20 20 20 66 6f 72 65 61 63 68 20 69 20  2.    foreach i 
0140: 5b 73 70 6c 69 74 20 24 73 74 72 69 6e 67 20 22  [split $string "
0150: 22 5d 20 7b 0a 09 73 65 74 20 62 62 20 24 69 0a  "] {..set bb $i.
0160: 09 73 65 74 20 63 63 20 24 62 62 2d 2d 71 71 0a  .set cc $bb--qq.
0170: 20 20 20 20 7d 0a 7d 0a 0a 73 65 74 20 73 74 72      }.}..set str
0180: 69 6e 67 20 5b 73 74 72 69 6e 67 20 72 65 70 65  ing [string repe
0190: 61 74 20 22 61 61 22 20 31 30 30 30 30 5d 0a 70  at "aa" 10000].p
01a0: 70 31 20 24 73 74 72 69 6e 67 0a 70 70 32 20 24  p1 $string.pp2 $
01b0: 73 74 72 69 6e 67 0a                             string.