serial %Library.TMFormClass %Library.TMForm %Library.String 1 initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal generator cache 0 document literal $L(Line)) Do . Set Char=$E(Line,Loop) . If (Char=".") && ($E(Line,Loop+1)=".") Do Quit .. Set InCmp=1 .. Set tmpCmp=".." .. Set Loop=Loop+1 . If InCmp Do .. If (Char?1(1N,1A)) Do ... Set tmpCmp=tmpCmp_Char .. Else Do ... Quit:($TR(tmpCmp,". ","")="") ;if-indentatie in iCOMPUPDATE kan als prop gezien worden, strip geeft leeg ... Set InCmp=0 ... Quit:(tmpCmp=IfCmp) ... Set tmpCmpNoPoints=$E(tmpCmp,3,9999) ... If $$$MethodExists(tmpCmpNoPoints) Do Quit ;Is het een method eigen aan deze class? .... Quit:($D(aRTNs(tmpCmpNoPoints))) .... Set aRTNs(tmpCmpNoPoints)=1 .... New Nr .... For Nr=1:1:$$$MethodLineCount(tmpCmpNoPoints) Do ..... Set Line=$$$MethodGetLine(tmpCmpNoPoints,Nr) ..... Do bimGetCmpsFromLine(Line,IfCmp) ;Recursive call ... Quit:($D(tmpaIMap(tmpCmp,IfCmp))) ... If $$$PropertyExists($E(tmpCmp,3,9999)) Do .... Set tmpaIMap(tmpCmp,IfCmp)=1 .... $$$GENERATE(" Set ..aIMap(+"_tmpCmp_",+"_IfCmp_")=1") Quit ]]> EvokeCmp:%Library.TMWinControl cache 0 document literal updates staan klaar .. Else If ..aIMap=1 Do ;Niet in update, get in! ... $$$Debug("BEGIN UPDATE") ... Kill ..aIMap(-1) ... Set ..aIMap=0 ... Set UIUpdate=0 . Else Do .. If ..aIMap=0 Do ;In update! ... $$$Debug(" UPDATE DELAYED: "_$G(..aIMap(0,+EvokeCmp),"("_EvokeCmp_")")) ... m ..aIMap(-1)=..aIMap(+EvokeCmp) ... Set UIUpdate=0 .. Else Do ... $$$Debug("UPDATE DIRECT: "_$G(..aIMap(0,+EvokeCmp),"("_EvokeCmp_")")) ... Set EvokeCmp=+EvokeCmp Else Do . $$$Debug("FULL UPDATE") . Set EvokeCmp=0 Quit UIUpdate ]]> CMPs... cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState