(FILECREATED " 4-May-87 19:59:04" ("compiled on " {QV}1.3K>LIBRARY>NCCLUSTERCARD.;5) "12-Nov-85 14:59:23" recompiled changes: CLUSTER.MakeFn CLUSTER.EditFn CLUSTER.QuitFn CLUSTER.PutFn CLUSTER.GetFn in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 4-May-87 19:58:54" {QV}1.3K>LIBRARY>NCCLUSTERCARD.;5 11386 changes to: (FNS CLUSTER.GetFn CLUSTER.PutFn CLUSTER.EditFn CLUSTER.QuitFn CLUSTER.MakeFn) previous date: " 4-May-87 01:12:09" {QV}1.3K>LIBRARY>NCCLUSTERCARD.;3) CLUSTER.MakeFn D1 (P 21Q ChildCard P 20Q LinkType P 17Q LinkType P 16Q ChildCard P 15Q Box P 14Q ChildInfo P 5 Region P 4 Window P 3 ChildCards P 2 FileBoxes P 1 ChildInfos P 0 NoteFile I 3 ClusterInfo I 2 NoDisplayFlg I 1 Title I 0 Card) (@ CRCI C Õk2 OOó´QO ZA³ o@ o ohihi b¿gg ¾@ABlN \@A JIrOµ$°+_¿OµOh__¿OkÔ_°–O&_¿°ò_¿OµO[@K B¤@ ¿Lµ@_¿OOHAoOµO ihO O µ,O"_¿OµOh__¿O_¿O_¿±ÿoO&_¿°ëH ¦O H ¿O @O" ¿@l ¿°·(443Q NCP.CardAddText 440Q CHARACTER 431Q NCP.LocalGlobalLink 420Q NCP.CreateLinkType 411Q NCP.ValidLinkTypeP 324Q NCP.CreateCard 314Q CONCAT 250Q CLUSTER.LayoutInSquare 242Q CLUSTER.SetChildren 144Q NCP.CardTitle 136Q WINDOWP 122Q NCP.CardTypeFn 106Q NCP.AskUser 72Q CONCAT 63Q NCP.CardType 47Q \APPEND2 25Q LENGTH 17Q LENGTH 3 NCP.CardNoteFile) (117Q MakeFn 114Q Text) ( 277Q ": " 76Q "-- " 67Q " card? " 57Q "Title of ") CLUSTER.EditFn D1 (P 0 Window I 2 Region/Position I 1 Substance I 0 Card) % gg ¹@ABlIXdg@ @ H(41Q CLUSTER.LayoutInCascade 35Q PUTWINDOWPROP 13Q NCP.CardTypeFn) (31Q NoteCardObject 10Q EditFn 5 Text) () CLUSTER.QuitFn D1 (P 3 Card P 0 Card I 0 CardIdentifier) 9@ H ›H Jµgg ¹@kI[ ”K ¿JZ°Þ(61Q NCP.CloseCards 54Q NCP.ValidCardP 40Q NCP.CardTypeFn 17Q CLUSTER.FetchChildren 12Q NCP.ValidCardP 3 NCP.CoerceToCard) (35Q QuitFn 32Q Text) () CLUSTER.PutFn D1 (P 2 ChildCard P 0 ClusterChildren I 1 Stream I 0 ClusterCard) Y@ AH l lÿå!¿AH l lÿå!¿AH lÿå!H°dAJÉ µîgg ¹@AlIk(115Q NCP.CardTypeFn 77Q NC.WriteUID 51Q LENGTH 37Q RSH 32Q LENGTH 20Q RSH 13Q LENGTH 3 CLUSTER.FetchChildren) (112Q PutFn 107Q Text 72Q CardObject) () CLUSTER.GetFn D1 (P 12Q Card P 11Q UID P 5 i P 2 NumChildren P 1 StartPtr P 0 NoteFile I 3 VersionNum I 2 Stream I 1 Length I 0 ClusterCard) ‚ @ B "kCó³YB lçB lçB ÔÔº@JkR MLó³9B _`ð²OH _ ŸO_¿OµOh_¾MkÔ]°ÏO&_¿°ôN ¿gg »@AB IÕÕBlK(166Q GETFILEPTR 157Q NCP.CardTypeFn 145Q CLUSTER.SetChildren 101Q NC.CardP 74Q NC.CardFromUID 55Q NC.ReadUID 7 GETFILEPTR 3 NCP.CardNoteFile) (154Q GetFn 151Q Text 63Q UIDTYPE#) () CLUSTER.FetchChildren D1 (I 0 ClusterCard) @g (6 NCP.CardUserDataProp) (3 ClusterChildCards) () CLUSTER.SetChildren D1 (I 1 ChildCards I 0 ClusterCard) @gA (7 NCP.CardUserDataProp) (3 ClusterChildCards) () CLUSTER.AddClusterCard D1 (P 2 FieldValue P 1 CardTypeRecord P 0 CardTypeName) ¡ggooogg!Hd²q YžIÉ.Zdgð²P¿HId”É ´ H Yd¬oH ¿IÉ.Zdgð² ¿oogoHo  ¿Jgð—Hg €J` hh (236Q NCP.CreateCardType 224Q \APPEND2 213Q NC.GetCardTypeFieldOfSuper 175Q NC.ReportError 172Q CONCAT 122Q NC.ReportError 117Q CONCAT 104Q NC.CardTypeRecord 76Q NC.CardTypeLoader 41Q NC.CardTypeRecord) (221Q CLUSTER.ExtraMenuItems 210Q LeftButtonMenuItems 202Q \\FILLME// 155Q LeftButtonMenuItems 136Q \\EMPTY// 127Q NoteCardType 71Q NoteCardType 56Q \\EMPTY// 47Q NoteCardType 27Q Text 24Q LeftButtonMenuItems 5 Text 2 Cluster) ( 166Q " still \\EMPTY// after autoloading." 161Q " of card type " 152Q "Field name " 146Q "NC.GetCardTypeField" 113Q "Cannot find full definition of card type: " 21Q (DisplayedInMenuFlg NIL) 15Q (LinkDisplayMode Title) 11Q ((MakeFn CLUSTER.MakeFn) (EditFn CLUSTER.EditFn) (QuitFn CLUSTER.QuitFn) (GetFn CLUSTER.GetFn) (PutFn CLUSTER.PutFn))) CLUSTER.LayoutInCascade D1 (P 2 Region P 1 Window P 0 Card I 0 CardOrWindowOrTextStream) @ !H Yd™ H (27Q SCREEN.LayoutCardsInCascade 24Q CLUSTER.FetchChildren 20Q SCREEN.GetCascadePosition 12Q NCP.CardWindow 3 NCP.CoerceToCard) NIL () CLUSTER.LayoutInSquare D1 (P 2 Region P 1 Window P 0 Card I 0 CardOrWindowOrTextStream) 9@ !H Yd²* ÉZdJJkÙØ` `ÔÕ H (66Q SCREEN.LayoutCardsInSquare 63Q CLUSTER.FetchChildren 57Q CREATEPOSITION 47Q FONTHEIGHT 21Q \INSUREWINDOW 12Q NCP.CardWindow 3 NCP.CoerceToCard) (52Q SCREEN.CascadeYSpace 44Q WindowTitleDisplayStream) () CLUSTER.LayoutInSurround D1 (P 2 Region P 1 Window P 0 Card I 0 CardOrWindowOrTextStream) @ !H Y´ Hd (25Q SCREEN.LayoutCardsInSurround 22Q CLUSTER.FetchChildren 12Q NCP.CardWindow 3 NCP.CoerceToCard) NIL () (PRETTYCOMPRINT NCCLUSTERCARDCOMS) (RPAQQ NCCLUSTERCARDCOMS ((FILES (FROM NOTECARDS) NCSCREEN) (* Fns for the Cluster notecard type.) ( GLOBALVARS CLUSTER.ExtraMenuItems) (VARS (CLUSTER.ExtraMenuItems (BQUOTE ((Layout% Cluster% Children ( FUNCTION CLUSTER.LayoutInCascade) "Regroup and layout the elements of this cluster (in cascade format)." (SUBITEMS (Layout% In% Cascade (FUNCTION CLUSTER.LayoutInCascade) "Regroup and layout the elements of this cluster in cascade format.") (Layout% In% Square (FUNCTION CLUSTER.LayoutInSquare) "Regroup and layout the elements of this cluster in cascade format.") ( Layout% In% Surround (FUNCTION CLUSTER.LayoutInSurround) "Regroup and layout the elements of this cluster in surround format."))))))) (FNS CLUSTER.MakeFn CLUSTER.EditFn CLUSTER.QuitFn CLUSTER.PutFn CLUSTER.GetFn CLUSTER.FetchChildren CLUSTER.SetChildren CLUSTER.AddClusterCard) (FNS CLUSTER.LayoutInCascade CLUSTER.LayoutInSquare CLUSTER.LayoutInSurround) (RECORDS CLUSTER.ClusterInfo CLUSTER.ChildInfo) (P (CLUSTER.AddClusterCard)))) (FILESLOAD (FROM NOTECARDS) NCSCREEN) (RPAQ CLUSTER.ExtraMenuItems (BQUOTE ((Layout% Cluster% Children (FUNCTION CLUSTER.LayoutInCascade) "Regroup and layout the elements of this cluster (in cascade format)." (SUBITEMS (Layout% In% Cascade (FUNCTION CLUSTER.LayoutInCascade) "Regroup and layout the elements of this cluster in cascade format.") (Layout% In% Square (FUNCTION CLUSTER.LayoutInSquare) "Regroup and layout the elements of this cluster in cascade format.") ( Layout% In% Surround (FUNCTION CLUSTER.LayoutInSurround) "Regroup and layout the elements of this cluster in surround format.")))))) (RECORD CLUSTER.ClusterInfo (ChildInfos FileBoxes)) (RECORD CLUSTER.ChildInfo (CardType LinkType TitleString)) (CLUSTER.AddClusterCard) (PUTPROPS NCCLUSTERCARD COPYRIGHT ("Xerox Corporation" 1987)) NIL