- Tcl_CreateCommand (p->interp, "form", proc_form_invoke, p, NULL);
+ Tcl_CreateCommand (p->interp, "wform", proc_wform_invoke, p, NULL);
+ Tcl_CreateCommand (p->interp, "wabort", proc_wabort_invoke, p, NULL);
+ Tcl_CreateCommand (p->interp, "wflush", proc_wflush_invoke, p, NULL);