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

set c .c
frame $c -width 750 -height 450
text $c.t
button $c.butok -text Ok
button $c.butcancel -text Cancel
label $c.status -text "Ready"

pack $c
pack $c.t -fill both
pack $c.butok -side left
pack $c.butcancel -side right
pack $c.status -side left