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)

toplevel .t
pack [frame .t.f]
pack [label .t.f.l -text rrrrr]
pack [label .t.f.l2 -text rrrrr]

pack [label .l -text rrrrr]


proc pp1 { string } {
    puts pp1
    for { set i 0 } { $i < [string length $string] } { incr i } {
	set bb [string index $string $i]
    }
}

proc pp2 { string } {
    puts pp2
    foreach i [split $string ""] {
	set bb $i
	set cc $bb--qq
    }
}

set string [string repeat "aa" 10000]
pp1 $string
pp2 $string