initial classes for tcl_tk