DIRECTORY CD; CDCallSpecific: CEDAR DEFINITIONS = BEGIN CallProc: TYPE = PROC [design: CD.Design, aptr: CD.ApplicationPtr, x: REF] RETURNS [done: BOOL_TRUE, removeMe: BOOL_FALSE, include: CD.ApplicationList_NIL, repaintMe: BOOL_FALSE, repaintInclude: BOOL_FALSE]; CallForThis: PROC [design: CD.Design, aptr: CD.ApplicationPtr, objectSpecific: REF_NIL, whatElse: CallProc_NIL, x: REF_NIL] RETURNS [NAT]; CallForAll: PROC [design: CD.Design, objectSpecific: REF_NIL, whatElse: CallProc_NIL, x: REF_NIL] RETURNS [NAT]; CallForSelected: PROC [design: CD.Design, objectSpecific: REF_NIL, whatElse: CallProc_NIL, x: REF_NIL] RETURNS [NAT]; CallForOneSelected: PROC [design: CD.Design, objectSpecific: REF_NIL, whatElse: CallProc_NIL, x: REF_NIL] RETURNS [NAT]; CallIfOneSelected: PROC [design: CD.Design, objectSpecific: REF_NIL, whatElse: CallProc_NIL, x: REF_NIL] RETURNS [NAT]; CallForPointed: PROC [design: CD.Design, point: CD.DesignPosition, objectSpecific: REF_NIL, whatElse: CallProc_NIL, x: REF_NIL] RETURNS [NAT]; Register: PROC [key: REF, objectType: REF CD.ObjectProcs, proc: CallProc]; END. "CDCallSpecific.mesa a Chipndale module by Ch. Jacobi September 20, 1983 12:35 pm last edited Christian Jacobi May 8, 1984 9:31:22 am PDT --x: passed through --done: if not done, this call will not be counted --removeMe: aptr is removed from the design --include: this list is included into the design --aptr MUST be part of design --the Call.. procedures loop over all applications of the most pushed in cell, or what --ever their name suggests and: --first check if the object has a objectSpecific furtherProc and calls it, --if there is no objectSpecific furtherProc, or it returns NOT done, it calls whatElse. --objectSpecific=NIL means no search --whatElse=NIL means nothing else to call. --using removeMe is a slow method for deleting --usually setting removeMe demands setting repaintMe to remove it from screen --registers proc to be called for an objectType, if key=objectSpecific --key must have been registered with CDObjectProcs.RegisterFurther --[internally uses CDObjectProcs.StoreFurther; this procedure is for conveniance only] ÊƘJšœ(™(J˜Jšœ+™+Jšœ9™9J˜šÏk ˜ Jšœ˜J˜—JšÏbœœ œ˜#Jš˜J˜š œ œœ œœœ˜KJšœœœ œœ œœ˜PJš œ œœœœ˜3Jšœ™Jšœ3™3Jšœ+™+Jšœ0™0J˜—šÏn œœ œœ˜>Jš œœœœœœ˜=Jšœœ˜Jšœ™—šŸ œœ œ ˜%Jš œœœœœœ˜=Jšœœ˜—šŸœœ œ ˜*Jš œœœœœœ˜=Jšœœ˜—šŸœœ œ ˜-Jš œœœœœœ˜=Jšœœ˜—šŸœœ œ ˜,Jš œœœœœœ˜=Jšœœ˜—šŸœœ œœ˜CJš œœœœœœ˜=Jšœœ˜J˜—JšœW™WJšœ™JšœJ™JJšœW™WJšœ$™$Jšœ*™*J˜Jšœ.™.JšœM™MJ˜J˜š Ÿœœœœœ˜JJšœF™FJšœB™BJšœW™W—J˜Jšœ˜J˜—…—b J