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