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)

################################################################################
#  normal program begins here
################################################################################

label .l -text "Press <F10> to open the debugger window"
button .b -text Go -width 10 -command "pp1 aaaaaa"
button .exit -text Exit -width 10 -command exit

grid .l - -
grid .b .exit -padx 5

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

proc pp2 { string } {
    grid [button .nn -text "hello"] -column 2 -row 1
}

bind . <F10> {
    lappend auto_path ..
    package require RamDebugger
}

pp2 eeeee