diff -crN oommf12a3/app/oxs/base/oxs.cc oommf/app/oxs/base/oxs.cc *** oommf12a3/app/oxs/base/oxs.cc Wed Jan 30 21:40:15 2002 --- oommf/app/oxs/base/oxs.cc Fri Oct 22 19:08:48 2004 *************** *** 6,11 **** --- 6,12 ---- #include "oc.h" #include "nb.h" + #include "vf.h" #include "oxs.h" #include "director.h" *************** *** 125,130 **** --- 126,141 ---- Tcl_DStringFree(&buf); } Tcl_StaticPackage(interp, ab("Nb"), Nb_Init, NULL); + + if (Vf_Init(interp) == TCL_ERROR) { + Tcl_DStringInit(&buf); + Tcl_DStringAppend(&buf, ab("Oc_Log Log"), -1); + Tcl_DStringAppendElement(&buf, Tcl_GetStringResult(interp)); + Tcl_DStringAppendElement(&buf, ab("error")); + Tcl_Eval(interp, Tcl_DStringValue(&buf)); + Tcl_DStringFree(&buf); + } + Tcl_StaticPackage(interp, ab("Vf"), Vf_Init, NULL); if (Oxs_Init(interp) != TCL_OK) { Tcl_DStringInit(&buf);