! Calling MDI windows. Next to try is using start with an address of a function pointer.
PMDITypeInvoke PROCEDURE(funcptr funcptrref,*IWindowDisplay MDIRef )
areturntype LONG
CODE
funcptrref(MDIRef,areturntype)
return(areturntype)
Callstartproc PROCEDURE(string address)
callw &funcptr
objectaddress LONG
ParamAnyListref &ParamAnyList
WindowBaseref &IWindowDisplay
CODE
if address > FALSE
ParamAnyListref &= (address)
if not ParamAnyListref &= NULL
!MDIRef &= (objectaddress)
MDIWindow# = ParamAnyListref.IParamsAnyList.GetNamed('GUIMDI')
WindowBaseref &= (MDIWindow#)
if not WindowBaseref &= NULL
callw &= (ParamAnyListref.IParamsAnyList.GetNamed('IDISPLAY'))
no# = PMdiTypeInvoke(callw,WindowBaseref)
END
END
END