serial KeyCodesCNTs Default %Library.TMFormClass %Library.String 0 %Library.TMForm %TMLabel %TMLabel %TMPanel %TMPanel %TMButton %TMButton %TMButton %TMButton %TMCheckBox %TMCheckBox %TMListBox %TMLabel %TMLabel %TMLabel %TMEdit initvalue:%String 0 %Status 0 Args:%String 0 Args:%String 0 0 initvalue:%String 0 MApplication ORef:%Integer 0 %Library.Boolean W") .. Do AddMethods(SuperClassName,ShowInherited) Quit ]]> initvalue:%String 0 %Library.Status Args:%String 0 varname:type=default . Set ParaDefault=$P(Para,"=",2) ;- DEFAULT . Set Para=$P(Para,"=",1) ;PARA -> varname:type . Set ParaType=$P(Para,":",2) ;- TYPE . Set ParaName=$P(Para,":",1) ;- PARAMNAME . Set InputPara="" . If $L(ParaDefault) Do .. Set InputPara=ParaDefault . Else If "%STRING/%LIBRARY.STRING"[$ZCVT(ParaType,"U") Do .. Set InputPara="""""" . Set:($$InputBox^vhVisual(MethodName_ " parameters ("_ParamLoop_"/"_AantalParams_")",ParaName_$S($L(ParaType):": "_ParaType,1:""),.InputPara)=$$$mrCancel) EarlyQuit=1 . Set InputParams=InputParams_$S(ParamLoop=1:"",1:",")_InputPara If EarlyQuit Do Quit . Set ..lblResult.Caption="Aborted." ;--------------------------------------------- Set MApplication.ScreenCursor=$$$crHourGlass Set ..btnExecute.Enabled="False" New ErrStr If $L(ResultType) Do . Set ErrStr=$$iXecute^vhLib("Set ReturnVal=tmpORef."_MethodName_"("_InputParams_")") Else Do . Set ErrStr=$$iXecute^vhLib("Do tmpORef."_MethodName_"("_InputParams_")") Set ..btnExecute.Enabled="True" Set MApplication.ScreenCursor=$$$crDefault If ErrStr'="" Do Quit . Set ..lblResult.Caption="XECUTE ERROR "_ErrStr ; $P(ErrStr,">",1)_">" . Do MApplication.MessageBox(..lblResult.Caption) If $L(ResultType) Do . If ReturnVal="" Do .. Set ..lblResult.Caption="(empty string)" . Else Do .. ;Set ReturnVal=$TR(ReturnVal,$C(10)," ") .. ;Set ReturnVal=$TR(ReturnVal,$C(13)," ") .. If "%STATUS/%LIBRARY.STATUS"[$ZCVT(ResultType,"U") Do ... If $$$ISOK(ReturnVal) Do .... Set ..lblResult.Caption="%Status: Ok." ... Else Do .... Set ..lblResult.Caption="%Status: "_$$ParseStatus^vhLib(ReturnVal) .... Do MApplication.MessageBox(..lblResult.Caption) .. Else If $$IsList^vhLib(ReturnVal) Do ... Set ..lblResult.Caption="$LB"_$$LCVT^vhLib(ReturnVal) .. Else Do ... Set ..lblResult.Caption=ReturnVal . Set:(..chkCopyFunctionResult.Checked="True") MApplication.ClipboardText=ReturnVal Else Do . Set ..lblResult.Caption="Done." ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 %Library.CacheSerialState "%Library.TMFormClass" Address Form Label1 Label2 Panel1 txtClassName txtORef Button1 Label3 btnLoadMethods lblClassName ListBox1 Panel2 lbMethods chkLoadInherited btnOk StringGrid1 lblResult btnExecute lblMethod chkCopyFunctionResult btnMethodNamesToClipBoard Button2 btnOpenMAC CurrentORef