Posted to tcl by Mookie at Sun Jan 18 19:51:29 GMT 2009view raw

  1. set c .c
  2. frame $c -width 750 -height 450
  3. text $c.t
  4. button $c.butok -text Ok
  5. button $c.butcancel -text Cancel
  6. label $c.status -text "Ready"
  7.  
  8. pack $c
  9. pack $c.t -fill both
  10. pack $c.butok -side left
  11. pack $c.butcancel -side right
  12. pack $c.status -side left
  13.