MkXSUB("Tk::bind", XS_Tk_bind, XStoBind, Tk_BindCmd)
MkXSUB("Tk::pack", XS_Tk_pack, XStoAfterSub, Tk_PackCmd)
MkXSUB("Tk::grid", XS_Tk_grid, XStoGrid, Tk_GridCmd)
MkXSUB("Tk::place", XS_Tk_place, XStoAfterSub, Tk_PlaceCmd)
MkXSUB("Tk::form", XS_Tk_form, XStoAfterSub, Tix_FormCmd)
MkXSUB("Tk::winfo", XS_Tk_winfo, XStoSubCmd, Tk_WinfoCmd)
MkXSUB("Tk::wm", XS_Tk_wm, XStoSubCmd, Tk_WmCmd)
MkXSUB("Tk::grab", XS_Tk_grab, XStoSubCmd, Tk_GrabCmd)
MkXSUB("Tk::focus", XS_Tk_focus, XStoSubCmd, Tk_FocusCmd)
MkXSUB("Tk::property", XS_Tk_property, XStoSubCmd, Tk_PropertyCmd)
MkXSUB("Tk::clipboard", XS_Tk_clipboard, XStoDisplayof, Tk_ClipboardCmd)
MkXSUB("Tk::bell", XS_Tk_bell, XStoDisplayof, Tk_BellCmd)
MkXSUB("Tk::bindtags", XS_Tk_bindtags, XStoTk, Tk_BindtagsCmd)
MkXSUB("Tk::destroy", XS_Tk_destroy, XStoTk, Tk_DestroyCmd)
MkXSUB("Tk::raise", XS_Tk_raise, XStoTk, Tk_RaiseCmd)
MkXSUB("Tk::lower", XS_Tk_lower, XStoTk, Tk_LowerCmd)
MkXSUB("Tk::option", XS_Tk_option, XStoOption, Tk_OptionCmd)
MkXSUB("Tk::image", XS_Tk_image, XStoImage, Tk_ImageCmd)
MkXSUB("Tk::selection", XS_Tk_selection, XStoTk, Tk_SelectionCmd)
#if 0
MkXSUB("Tk::tk", XS_Tk_tk, XStoTk, Tk_TkCmd)
MkXSUB("Tk::exit", XS_Tk_exit, XStoNoWindow, Tcl_ExitCmd)
MkXSUB("Tk::fileevent", XS_Tk_fileevent, XStoNoWindow, Tcl_FileeventCmd)
#endif
MkXSUB("Tk::after", XS_Tk_after, XStoNoWindow, Tcl_AfterCmd)
MkXSUB("Tk::send", XS_Tk_send, XStoTclCmd, Tk_SendCmd)
MkXSUB("Tk::button", XS_Tk_button, XStoTclCmd, Tk_ButtonCmd)
MkXSUB("Tk::checkbutton", XS_Tk_checkbutton, XStoTclCmd, Tk_CheckbuttonCmd)
MkXSUB("Tk::label", XS_Tk_label, XStoTclCmd, Tk_LabelCmd)
MkXSUB("Tk::message", XS_Tk_message, XStoTclCmd, Tk_MessageCmd)
MkXSUB("Tk::radiobutton", XS_Tk_radiobutton, XStoTclCmd, Tk_RadiobuttonCmd)
MkXSUB("Tk::frame", XS_Tk_frame, XStoTclCmd, Tk_FrameCmd)
MkXSUB("Tk::toplevel", XS_Tk_toplevel, XStoTclCmd, Tk_ToplevelCmd)
MkXSUB("Tk::update", XS_Tk_update, XStoTclCmd, Tk_UpdateCmd)
MkXSUB("Tk::tkwait", XS_Tk_tkwait, XStoTclCmd, Tk_TkwaitCmd)
MkXSUB("Tk::configure", XS_Tk_configure, XStoWidget, newSVpv("configure",0))
MkXSUB("Tk::cget", XS_Tk_cget, XStoWidget, newSVpv("cget",0))

