Posted to tcl by APN at Thu Aug 08 17:23:38 GMT 2013view raw

  1. (tests) 57 % frame .f
  2. .f
  3. (tests) 58 % pack .f
  4. (tests) 61 % proc push {b} {tk_messageBox -message "$b pushed"}
  5. (tests) 60 % foreach b {button1 button2 button3} {pack [button .f.$b -command [list push $b] -text $b]}
  6.