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.   j  CDCallSpecific.mesa   a Chipndale moduleCopyright c 1983, 1984 by Xerox Corporation.  All rights reserved.by Ch. Jacobi   September 20, 1983 12:35 pmlast edited Christian Jacobi   October 22, 1984 2:28:43 pm 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šœ
Ïmœ7™BJšœ+™+Jšœ>™>J˜ —šÏ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  œ  