(FILECREATED " 3-Jun-85 19:12:16" ("compiled on " {PHYLUM}RELEASE1.2>LIBRARY>NCCLUSTER.;9) "19-Mar-85 14:34:17" recompiled changes: nothing in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED " 3-Jun-85 19:11:18" {PHYLUM}RELEASE1.2>LIBRARY>NCCLUSTER.;9 24571 changes to: (VARS NCCLUSTERCOMS) previous date: " 3-May-85 09:16:47" {PHYLUM}RELEASE1.2>LIBRARY>NCCLUSTER.;8) CLUSTER.Cluster.MakeCardFn D1 (P 14Q LinkLabel P 13Q ChildID P 12Q Box P 11Q ChildInfo P 2 Region P 1 Window P 0 ChildIDs I 4 FileBoxes I 3 ChildInfos I 2 NoDisplayFlg I 1 Title I 0 ID F 15Q WindowTitleDisplayStream)  @A o@ o ohihi bgg @ABlK Y@A Dd@D DCr M_LANX@gH B'I I JJW `H II I@_OAoOO i _OOO O_ O O@Ohg @l O_OOh_MLKO&_(356Q NCP.CardAddText 353Q CHARACTER 344Q NCP.LocalGlobalLink 326Q NCP.CreateLinkLabel 320Q NCP.ValidLinkLabel 306Q NCP.FileCards 271Q NCP.CreateCard 265Q CONCAT 226Q CLUSTER.AddClusterMenuItem 217Q SCREEN.LayoutCardsInSquare 205Q FONTHEIGHT 166Q SCREEN.WinULCorner 157Q \INSUREWINDOW 150Q NCP.CardProp 111Q NCP.FileCards 76Q NCP.CardTitle 70Q WINDOWP 54Q NCP.CardTypeInheritedFn 40Q NCP.AskUser 24Q CONCAT 15Q NCP.CardType) (340Q Title 210Q SCREEN.CascadeYSpace 144Q ClusterChildren 51Q MakeCardFn 46Q Text) ( 250Q ": " 30Q "-- " 21Q " card? " 11Q "Title of ") CLUSTER.Cluster.EditCardFn D1 (P 0 Window I 2 Region/Position I 1 Substance I 0 ID) . gg @ABlIXd @g H H(52Q CLUSTER.AddClusterMenuItem 46Q SCREEN.LayoutCardsInCascade 43Q REVERSE 40Q NCP.CardProp 31Q SCREEN.GetCascadePosition 13Q NCP.CardTypeInheritedFn) (35Q ClusterChildren 10Q EditCardFn 5 Text) () CLUSTER.Cluster.QuitCardFn D1 (P 3 Card P 0 ID I 0 IDOrWindow) N@ @ @ @H Hg Jgg HkI[ K JZ(106Q NCP.DeactivateCards 101Q NCP.ValidCard 65Q NCP.CardTypeInheritedFn 44Q NCP.CardProp 34Q NCP.ValidCard 23Q EXPANDW 20Q NCP.CardWindow 13Q NCP.CardFromWindow 10Q EXPANDW 3 WINDOWP) (62Q QuitCardFn 57Q Text 41Q ClusterChildren) () CLUSTER.RegroupClusterCards D1 (P 0 Window I 0 ClusterCard) %@ X@ h @dg  (41Q SCREEN.LayoutCardsInCascade 35Q REVERSE 32Q NCP.CardProp 22Q SCREEN.WinULCorner 15Q NCP.BringUpCard 6 NCP.CardWindow) (27Q ClusterChildren) () CLUSTER.AddClusterMenuItem D1 (I 0 Window) @goohh (24Q NCP.AddTitleBarMenuItems) (3 Layout% Cluster% Children) ( 13Q "Regroup and layout the elements of this cluster." 7 (FUNCTION CLUSTER.LayoutClusterChildren)) CLUSTER.LayoutClusterChildren D1 (P 2 Region P 1 Card P 0 Window I 0 WindowOrTextStream F 4 WindowTitleDisplayStream) @@ @@ Xd Y`dodg dgjdndhdK dg/H H JJT `Ig gH Ig h(214Q SCREEN.LayoutCardsInCascade 211Q REVERSE 206Q NCP.CardProp 177Q SCREEN.GetCascadePosition 162Q SCREEN.LayoutCardsInSquare 157Q NCP.CardProp 142Q FONTHEIGHT 124Q SCREEN.WinULCorner 115Q \INSUREWINDOW 101Q MENU 22Q NCP.CardFromWindow 15Q WINDOW.FROM.TEDIT.THING 6 WINDOWP) (203Q ClusterChildren 170Q Layout% In% Cascade 154Q ClusterChildren 145Q SCREEN.CascadeYSpace 105Q Layout% In% Square 52Q DEFAULTMENUHELDFN 43Q CLRPROMPT 26Q MENUTYPE#) ( 34Q (Layout% In% Square Layout% In% Cascade)) CLUSTER.CaseCluster.MakeCardFn D1 (P 10Q Match P 7 ID P 6 NumFileBoxes P 5 FileBoxNames P 4 ID# P 0 FileBoxes I 2 NoDisplayFlg I 1 Title I 0 ID)  0A o@ o ohihi bk` ` $LdKMXgg @AB`0 H _ )O "O M_OOM Nk^jLk\dZ JLoJo ohi dgdgdgdgdgih Jihd _O Oh_O&_OlI(342Q NCP.CreateFileBox 336Q NCP.GetContentsFileBox 260Q MKATOM 255Q NCP.AskUser 244Q CONCAT 224Q NCP.ValidID 177Q DSUBST 160Q MKATOM 155Q NCP.CardTitle 146Q NCP.FileBoxP 137Q NCP.ValidID 132Q NC.IDFromNumber 111Q NCP.CardTypeFn 63Q LENGTH 55Q COPY 46Q NCP.MaxIDNum 40Q NCP.AskUser 24Q CONCAT 15Q NCP.CardType) (316Q YES 310Q Yes 302Q yes 273Q Y 264Q y 120Q CLUSTER.TypesAndLinkLabelsAndStrings 106Q MakeCardFn 103Q Cluster 60Q CLUSTER.FileBoxNames 52Q CLUSTER.FileBoxNames) ( 250Q "--" 241Q "'? " 234Q "Want to create new filebox with name '" 30Q "-- " 21Q " card? " 11Q "Title of ") CLUSTER.Facts.MakeCardFn D1 (P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 ID) E g g @ABlIX@ol l l ol l  H(101Q NCP.CardAddText 76Q CONCAT 72Q CHARACTER 65Q CHARACTER 54Q CHARACTER 47Q CHARACTER 42Q CHARACTER 16Q NCP.CardTypeInheritedField 10Q NCP.CardTypeSuper) (13Q MakeCardFn 5 Facts) ( 60Q "REAL FACTS" 35Q "LEGAL FACTS") CLUSTER.DecisionRule.MakeCardFn D1 (P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 ID) \ g g @ABlIX@ol l ol l ol l ol l H(130Q NCP.CardAddText 125Q CONCAT 121Q CHARACTER 114Q CHARACTER 103Q CHARACTER 76Q CHARACTER 65Q CHARACTER 60Q CHARACTER 47Q CHARACTER 42Q CHARACTER 16Q NCP.CardTypeInheritedField 10Q NCP.CardTypeSuper) (13Q MakeCardFn 5 DecisionRule) ( 107Q "SUPPORT" 71Q "DECISION" 53Q "OPERATIVE FACTS" 35Q "LEGAL CONTEXT") CLUSTER.RuleSupport.MakeCardFn D1 (P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 ID) \ g g @ABlIX@ol l ol l ol l ol l H(130Q NCP.CardAddText 125Q CONCAT 121Q CHARACTER 114Q CHARACTER 103Q CHARACTER 76Q CHARACTER 65Q CHARACTER 60Q CHARACTER 47Q CHARACTER 42Q CHARACTER 16Q NCP.CardTypeInheritedField 10Q NCP.CardTypeSuper) (13Q MakeCardFn 5 RuleSupport) ( 107Q "CASE PRECEDENT" 71Q "STATUTE" 53Q "REFERENCE" 35Q "PRINCIPLE") CLUSTER.LegalStatusRule.MakeCardFn D1 (P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 ID) \ g g @ABlIX@ol l ol l ol l ol l H(130Q NCP.CardAddText 125Q CONCAT 121Q CHARACTER 114Q CHARACTER 103Q CHARACTER 76Q CHARACTER 65Q CHARACTER 60Q CHARACTER 47Q CHARACTER 42Q CHARACTER 16Q NCP.CardTypeInheritedField 10Q NCP.CardTypeSuper) (13Q MakeCardFn 5 LegalStatusRule) ( 107Q "SUPPORT" 71Q "LEGAL STATUS" 53Q "OPERATIVE FACTS" 35Q "LEGAL CONTEXT") CLUSTER.RuleInstance.MakeCardFn D1 (P 1 BindingsCard P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 ID) x0g g @ABlJX@ol l ol  Ao i Yg g g@I @l ol l H(164Q NCP.CardAddText 161Q CONCAT 156Q CHARACTER 151Q CHARACTER 140Q CHARACTER 132Q NCP.LocalGlobalLink 121Q NCP.CreateLinkLabel 112Q NCP.ValidLinkLabel 103Q NCP.CreateTextCard 77Q CONCAT 67Q NCP.CardAddText 64Q CONCAT 60Q CHARACTER 47Q CHARACTER 42Q CHARACTER 16Q NCP.CardTypeInheritedField 10Q NCP.CardTypeSuper) (125Q Binding 116Q Binding 107Q Binding 13Q MakeCardFn 5 LegalStatusRule) ( 144Q "STATUS RULES" 74Q ":Bindings" 53Q "BINDINGS" 35Q "LEGAL RULE") CLUSTER.Rationale.MakeCardFn D1 (P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 ID) E g g @ABlIXg g g@gAo i hg H(101Q NCP.LocalGlobalLink 71Q NCP.CreateCard 65Q CONCAT 45Q NCP.CreateLinkLabel 36Q NCP.ValidLinkLabel 16Q NCP.CardTypeInheritedField 10Q NCP.CardTypeSuper) (75Q Title 55Q Argument 51Q Argument 42Q Argument 33Q Argument 13Q MakeCardFn 5 Rationale) ( 62Q ":Argument1") CLUSTER.Argument.MakeCardFn D1 (P 4 HeadingPos P 3 Region P 2 WindowOrID P 1 RuleInstanceCard2 P 0 RuleInstanceCard1 I 2 NoDisplayFlg I 1 Title I 0 ID) `Aoohi bg g g g gAo i XgAo i YH ok \HLKk Hl gHIhg g g @ABgHgogohlMo ԰(264Q NCHARS 212Q NCP.CardTypeInheritedField 204Q NCP.CardTypeSuper 176Q NCP.LocalGlobalLink 161Q NCP.CardAddText 156Q CHARACTER 150Q NCP.ChangeLoc 137Q TEDIT.FIND 127Q TEXTOBJ 124Q NCP.CardSubstance 117Q NCP.CreateCard 113Q CONCAT 77Q NCP.CreateCard 73Q CONCAT 57Q NCP.CreateLinkLabel 50Q NCP.ValidLinkLabel 41Q NCP.CreateLinkLabel 32Q NCP.ValidLinkLabel 21Q NCP.AskUser) (234Q FORMAT 225Q LINKTYPES 221Q ROOTCARDS 207Q MakeCardFn 201Q Argument 172Q Title 164Q Status 103Q RuleInstance 63Q RuleInstance 54Q Status 45Q Status 36Q Support 27Q Support) ( 261Q "LEGAL CONTEXT" 240Q (LATTICE VERTICAL) 231Q (Support Status Binding) 133Q "STATUS RULES" 110Q ":Rule2" 70Q ":Rule1" 14Q "--" 10Q "Title of Argument card: ") (PRETTYCOMPRINT NCCLUSTERCOMS) (RPAQQ NCCLUSTERCOMS ((* Fns for the Cluster notecard type.) (FNS CLUSTER.Cluster.MakeCardFn CLUSTER.Cluster.EditCardFn CLUSTER.Cluster.QuitCardFn CLUSTER.RegroupClusterCards CLUSTER.AddClusterMenuItem CLUSTER.LayoutClusterChildren) (* Fns for the CaseCluster notecard type.) ( FNS CLUSTER.CaseCluster.MakeCardFn) (* Makefns for the other notecard types.) (FNS CLUSTER.Facts.MakeCardFn CLUSTER.DecisionRule.MakeCardFn CLUSTER.RuleSupport.MakeCardFn CLUSTER.LegalStatusRule.MakeCardFn CLUSTER.RuleInstance.MakeCardFn CLUSTER.Rationale.MakeCardFn CLUSTER.Argument.MakeCardFn) (P (OR (NCP.ValidCardType (QUOTE Cluster)) (NC.AddCardType (QUOTE Cluster ) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.Cluster.MakeCardFn)) (EditCardFn , (FUNCTION CLUSTER.Cluster.EditCardFn)) (QuitCardFn , (FUNCTION CLUSTER.Cluster.QuitCardFn)))) ( BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL)))))) (P (OR (NCP.ValidCardType (QUOTE CaseCluster)) (NC.AddCardType (QUOTE CaseCluster) (QUOTE Cluster) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.CaseCluster.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , T)))))) (P (OR (NCP.ValidCardType (QUOTE Facts)) (NC.AddCardType (QUOTE Facts) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.Facts.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) ( CardDisplayedInMenuFlg , T)))))) (P (OR (NCP.ValidCardType (QUOTE Rationale)) (NC.AddCardType (QUOTE Rationale) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.Rationale.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , T)))))) (P (OR (NCP.ValidCardType (QUOTE Argument)) (NC.AddCardType (QUOTE Argument) (QUOTE Browser) (QUOTE GRAPH) (BQUOTE ((MakeCardFn , ( FUNCTION CLUSTER.Argument.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , T) ))))) (P (OR (NCP.ValidCardType (QUOTE DecisionRule)) (NC.AddCardType (QUOTE DecisionRule) (QUOTE Text ) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.DecisionRule.MakeCardFn)))) (BQUOTE (( LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL)))))) (P (OR (NCP.ValidCardType (QUOTE RuleSupport)) (NC.AddCardType (QUOTE RuleSupport) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , ( FUNCTION CLUSTER.RuleSupport.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL)))))) (P (OR (NCP.ValidCardType (QUOTE LegalStatusRule)) (NC.AddCardType (QUOTE LegalStatusRule) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.LegalStatusRule.MakeCardFn)))) ( BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL)))))) (P (OR (NCP.ValidCardType (QUOTE RuleInstance)) (NC.AddCardType (QUOTE RuleInstance) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , ( FUNCTION CLUSTER.RuleInstance.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , T)))))) (VARS (CLUSTER.TypesAndLinkLabelsAndStrings (QUOTE ((Text issues Issues) (Facts facts) (Text decision Decision) (Rationale rationale)))) (CLUSTER.FileBoxNames (QUOTE (CasesBox IssuesBox FactsBox DecisionsBox RationalesBox))) (CLUSTER.ArgumentCardHeight 200) (CLUSTER.ArgumentCardWidth 761)) ( GLOBALVARS CLUSTER.TypesAndLinkLabelsAndStrings CLUSTER.FileBoxNames CLUSTER.ArgumentCardHeight CLUSTER.ArgumentCardWidth) (P (PRINTOUT T "Loading {PHYLUM}RELEASE1.2>LIBRARY>NCSCREEN.DCOM" T) (IF (NOT (LOAD? (QUOTE {PHYLUM}RELEASE1.2>LIBRARY>NCSCREEN.DCOM))) THEN (PRINTOUT T "Already Loaded" T))))) (OR (NCP.ValidCardType (QUOTE Cluster)) (NC.AddCardType (QUOTE Cluster) (QUOTE Text) (QUOTE TEXT) ( BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.Cluster.MakeCardFn)) (EditCardFn , (FUNCTION CLUSTER.Cluster.EditCardFn)) (QuitCardFn , (FUNCTION CLUSTER.Cluster.QuitCardFn)))) (BQUOTE (( LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL))))) (OR (NCP.ValidCardType (QUOTE CaseCluster)) (NC.AddCardType (QUOTE CaseCluster) (QUOTE Cluster) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.CaseCluster.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , T))))) (OR (NCP.ValidCardType (QUOTE Facts)) (NC.AddCardType (QUOTE Facts) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.Facts.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) ( CardDisplayedInMenuFlg , T))))) (OR (NCP.ValidCardType (QUOTE Rationale)) (NC.AddCardType (QUOTE Rationale) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.Rationale.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) ( CardDisplayedInMenuFlg , T))))) (OR (NCP.ValidCardType (QUOTE Argument)) (NC.AddCardType (QUOTE Argument) (QUOTE Browser) (QUOTE GRAPH ) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.Argument.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) ( CardDisplayedInMenuFlg , T))))) (OR (NCP.ValidCardType (QUOTE DecisionRule)) (NC.AddCardType (QUOTE DecisionRule) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.DecisionRule.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL))))) (OR (NCP.ValidCardType (QUOTE RuleSupport)) (NC.AddCardType (QUOTE RuleSupport) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.RuleSupport.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL))))) (OR (NCP.ValidCardType (QUOTE LegalStatusRule)) (NC.AddCardType (QUOTE LegalStatusRule) (QUOTE Text) ( QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.LegalStatusRule.MakeCardFn)))) (BQUOTE (( LinkDisplayMode Title) (CardDisplayedInMenuFlg , NIL))))) (OR (NCP.ValidCardType (QUOTE RuleInstance)) (NC.AddCardType (QUOTE RuleInstance) (QUOTE Text) (QUOTE TEXT) (BQUOTE ((MakeCardFn , (FUNCTION CLUSTER.RuleInstance.MakeCardFn)))) (BQUOTE ((LinkDisplayMode Title) (CardDisplayedInMenuFlg , T))))) (RPAQQ CLUSTER.TypesAndLinkLabelsAndStrings ((Text issues Issues) (Facts facts) (Text decision Decision) (Rationale rationale))) (RPAQQ CLUSTER.FileBoxNames (CasesBox IssuesBox FactsBox DecisionsBox RationalesBox)) (RPAQQ CLUSTER.ArgumentCardHeight 200) (RPAQQ CLUSTER.ArgumentCardWidth 761) (PRINTOUT T "Loading {PHYLUM}RELEASE1.2>LIBRARY>NCSCREEN.DCOM" T) (IF (NOT (LOAD? (QUOTE {PHYLUM}RELEASE1.2>LIBRARY>NCSCREEN.DCOM))) THEN (PRINTOUT T "Already Loaded" T)) (PUTPROPS NCCLUSTER COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL