Posted to tcl by APN at Thu Aug 08 17:23:38 GMT 2013view pretty
(tests) 57 % frame .f
.f
(tests) 58 % pack .f
(tests) 61 % proc push {b} {tk_messageBox -message "$b pushed"}
(tests) 60 % foreach b {button1 button2 button3} {pack [button .f.$b -command [list push $b] -text $b]}