+static int proc_wform_invoke (ClientData clientData, Tcl_Interp *interp,
+ int argc, char **argv)
+{
+ struct tcl_info *p = (struct tcl_info*) clientData;
+ wform_data *wfdata = p->wcl->wf_data;
+ return proc_form_invoke (p, wfdata, interp, argc, argv);
+}
+
+static int proc_parms_invoke (ClientData clientData, Tcl_Interp *interp,
+ int argc, char **argv)
+{
+ struct tcl_info *p = (struct tcl_info*) clientData;
+ wform_data *wfdata = p->wcl->wf_parms_var;
+ return proc_form_invoke (p, wfdata, interp, argc, argv);
+}
+
+