(FILECREATED "12-Feb-85 03:11:33" ("compiled on " {PHYLUM}RELEASE1.1>LIBRARY>NCCLUSTER.;14) "20-Dec-84 12:07:22" recompiled changes: CLUSTER.Cluster.EditCardFn CLUSTER.Argument.MakeCardFn in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "12-Feb-85 03:11:11" {PHYLUM}RELEASE1.1>LIBRARY>NCCLUSTER.;14 18823 changes to: (FNS CLUSTER.Cluster.EditCardFn CLUSTER.Argument.MakeCardFn) (VARS NCCLUSTERCOMS) previous date: " 3-Jan-85 23:51:14" {PHYLUM}RELEASE1.1>LIBRARY>NCCLUSTER.;13) 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) I@ @ @ @Hg Jgg HkI[ K JZ(101Q NCP.DeactivateCards 74Q NCP.ValidCard 60Q NCP.CardTypeInheritedFn 37Q NCP.CardProp 23Q EXPANDW 20Q NCP.CardWindow 13Q NCP.CardFromWindow 10Q EXPANDW 3 WINDOWP) (55Q QuitCardFn 52Q Text 34Q 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) B gg @ABlIX@ol l l ol l  H(76Q NCP.CardAddText 73Q CONCAT 67Q CHARACTER 62Q CHARACTER 51Q CHARACTER 44Q CHARACTER 37Q CHARACTER 13Q NCP.CardTypeFn) (10Q MakeCardFn 5 Text) ( 55Q "REAL FACTS" 32Q "LEGAL FACTS") CLUSTER.Rationale.MakeCardFn D1 (P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 ID) B gg @ABlIXg g g@gAo i hg H(76Q NCP.LocalGlobalLink 66Q NCP.CreateCard 62Q CONCAT 42Q NCP.CreateLinkLabel 33Q NCP.ValidLinkLabel 13Q NCP.CardTypeFn) (72Q Title 52Q Argument 46Q Argument 37Q Argument 30Q Argument 10Q MakeCardFn 5 Text) ( 57Q ":Argument1") CLUSTER.Argument.MakeCardFn D1 (P 3 LegalStatusRuleCard P 2 RuleSupportCard2 P 1 RuleSupportCard1 P 0 DecisionRuleCard I 2 NoDisplayFlg I 1 Title I 0 ID F 7 WindowOrID F 10Q Region) 'pg g g g Aoo i XAoo i YAoooo i ZAoo i [Hol gHKhg Hl l ol l ol l ol gHIhg Hl Kol l ol l ol l ol gKJhg Kl Iol l ol l ol l ol l Jol l ol l ol l ol l gg @ABHoihlLcd BW cW``WWW`NMh Woo Wjd``h W(1042Q NC.SetRegion 1016Q SCROLLBYREPAINTFN 1000Q SHAPEW 725Q \INSUREWINDOW 716Q WINDOWP 665Q NCP.CardTypeFn 654Q NCP.CardAddText 651Q CONCAT 645Q CHARACTER 640Q CHARACTER 627Q CHARACTER 622Q CHARACTER 611Q CHARACTER 604Q CHARACTER 573Q CHARACTER 566Q CHARACTER 554Q NCP.CardAddText 551Q CONCAT 545Q CHARACTER 540Q CHARACTER 527Q CHARACTER 522Q CHARACTER 511Q CHARACTER 504Q CHARACTER 473Q CHARACTER 466Q CHARACTER 454Q NCP.CardAddText 451Q CONCAT 446Q CHARACTER 440Q NCP.LocalGlobalLink 423Q NCP.CardAddText 420Q CONCAT 414Q CHARACTER 403Q CHARACTER 376Q CHARACTER 365Q CHARACTER 360Q CHARACTER 347Q CHARACTER 342Q CHARACTER 330Q NCP.CardAddText 325Q CONCAT 322Q CHARACTER 314Q NCP.LocalGlobalLink 277Q NCP.CardAddText 274Q CONCAT 270Q CHARACTER 257Q CHARACTER 252Q CHARACTER 241Q CHARACTER 234Q CHARACTER 223Q CHARACTER 216Q CHARACTER 210Q NCP.LocalGlobalLink 173Q NCP.CardAddText 170Q CONCAT 165Q CHARACTER 152Q NCP.CreateTextCard 146Q CONCAT 131Q NCP.CreateTextCard 125Q CONCAT 77Q NCP.CreateTextCard 73Q CONCAT 56Q NCP.CreateTextCard 52Q CONCAT 35Q NCP.CreateLinkLabel 26Q NCP.ValidLinkLabel 17Q NCP.CreateLinkLabel 10Q NCP.ValidLinkLabel) (1032Q CLUSTER.ArgumentCardHeight 1027Q CLUSTER.ArgumentCardWidth 764Q CLUSTER.ArgumentCardHeight 743Q CLUSTER.ArgumentCardWidth 737Q CLUSTER.ArgumentCardHeight 662Q MakeCardFn 657Q Browser 434Q Title 426Q Support 310Q Title 302Q Support 204Q Title 176Q Status 32Q Status 23Q Status 14Q Support 5 Support) ( 1013Q 0.0 1007Q 0.0 676Q (Support Status) 633Q "CASE PRECEDENT" 615Q "STATUTE" 577Q "REFERENCE" 561Q "PRINCIPLE" 533Q "CASE PRECEDENT" 515Q "STATUTE" 477Q "REFERENCE" 461Q "PRINCIPLE" 407Q "SUPPORT" 371Q "LEGAL STATUS" 353Q "OPERATIVE FACTS" 335Q "LEGAL CONTEXT" 263Q "SUPPORT" 245Q "DECISION" 227Q "OPERATIVE FACTS" 160Q "LEGAL CONTEXT" 143Q "Legal-Status-Rule" 137Q ":" 121Q "Rule-Support" 115Q ":" 111Q "Legal-Status-Rule" 105Q ":" 70Q "Rule-Support" 64Q ":" 47Q "Decision-Rule" 43Q ":") (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.Rationale.MakeCardFn CLUSTER.Argument.MakeCardFn) (P (OR ( NCP.ValidCardType (QUOTE Cluster)) (NCP.CreateCardType (QUOTE Cluster) (QUOTE Text) (QUOTE TEXT) ( QUOTE CLUSTER.Cluster.MakeCardFn) (QUOTE CLUSTER.Cluster.EditCardFn) (QUOTE CLUSTER.Cluster.QuitCardFn ) NIL NIL NIL NIL NIL NIL NIL NIL (QUOTE Both)))) (P (OR (NCP.ValidCardType (QUOTE CaseCluster)) ( NCP.CreateCardType (QUOTE CaseCluster) (QUOTE Cluster) (QUOTE TEXT) (QUOTE CLUSTER.CaseCluster.MakeCardFn)))) (P (OR (NCP.ValidCardType (QUOTE Facts)) (NCP.CreateCardType (QUOTE Facts) (QUOTE Text) (QUOTE TEXT) (QUOTE CLUSTER.Facts.MakeCardFn)))) (P (OR (NCP.ValidCardType (QUOTE Rationale)) (NCP.CreateCardType (QUOTE Rationale) (QUOTE Text) (QUOTE TEXT) (QUOTE CLUSTER.Rationale.MakeCardFn)))) (P (OR (NCP.ValidCardType (QUOTE Argument)) (NCP.CreateCardType ( QUOTE Argument) (QUOTE Browser) (QUOTE GRAPH) (QUOTE CLUSTER.Argument.MakeCardFn)))) (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.1>LIBRARY>NCSCREEN.DCOM" T) (IF (NOT (LOAD? (QUOTE {PHYLUM}RELEASE1.1>LIBRARY>NCSCREEN.DCOM))) THEN (PRINTOUT T "Already Loaded" T))))) (OR (NCP.ValidCardType (QUOTE Cluster)) (NCP.CreateCardType (QUOTE Cluster) (QUOTE Text) (QUOTE TEXT) (QUOTE CLUSTER.Cluster.MakeCardFn) (QUOTE CLUSTER.Cluster.EditCardFn) (QUOTE CLUSTER.Cluster.QuitCardFn) NIL NIL NIL NIL NIL NIL NIL NIL (QUOTE Both))) (OR (NCP.ValidCardType (QUOTE CaseCluster)) (NCP.CreateCardType (QUOTE CaseCluster) (QUOTE Cluster) ( QUOTE TEXT) (QUOTE CLUSTER.CaseCluster.MakeCardFn))) (OR (NCP.ValidCardType (QUOTE Facts)) (NCP.CreateCardType (QUOTE Facts) (QUOTE Text) (QUOTE TEXT) ( QUOTE CLUSTER.Facts.MakeCardFn))) (OR (NCP.ValidCardType (QUOTE Rationale)) (NCP.CreateCardType (QUOTE Rationale) (QUOTE Text) (QUOTE TEXT) (QUOTE CLUSTER.Rationale.MakeCardFn))) (OR (NCP.ValidCardType (QUOTE Argument)) (NCP.CreateCardType (QUOTE Argument) (QUOTE Browser) (QUOTE GRAPH) (QUOTE CLUSTER.Argument.MakeCardFn))) (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.1>LIBRARY>NCSCREEN.DCOM" T) (IF (NOT (LOAD? (QUOTE {PHYLUM}RELEASE1.1>LIBRARY>NCSCREEN.DCOM))) THEN (PRINTOUT T "Already Loaded" T)) (PUTPROPS NCCLUSTER COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL