Posted to tcl by APN at Thu Aug 08 17:23:38 GMT 2013view raw
- (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]}