(FILECREATED "15-Apr-85 20:58:29" ("compiled on " {PHYLUM}RELEASE1.2>LIBRARY>NCSCREEN.;3) "20-Dec-84 12:07:22" recompiled changes: SCREEN.LayoutCardsInSurround in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "15-Apr-85 20:57:51" {PHYLUM}RELEASE1.2>LIBRARY>NCSCREEN.;3 12413 changes to: (FNS SCREEN.LayoutCardsInSurround) previous date: "25-Mar-85 00:14:00" {PHYLUM}RELEASE1.2>LIBRARY>NCSCREEN.;2) SCREEN.LayoutCardsInSquare D1 (P 7 Win P 6 NextRowPos P 5 Card P 4 Col P 3 Pos P 1 NumCols P 0 NumCards I 1 Cards I 0 StartPos) QA H jØYA@k3Jµ O h]K ¿M _¿Ldkð—¿O ¾LIð“k¼NˆLkؼO »JZ°Ç(111Q SCREEN.WinURCorner 67Q SCREEN.WinLLCorner 51Q NCP.CardWindow 44Q SCREEN.MoveCardToPos 34Q GIVE.TTY.PROCESS 12Q SQRT 3 LENGTH) NIL () SCREEN.LayoutCardsInCascade D1 (P 3 Win P 2 Card P 1 Pos I 1 Cards I 0 StartPos) ,A@"HµhZ ²JI ¿J [ ¹K ¿HX°Ý(44Q GIVE.TTY.PROCESS 37Q SCREEN.GetCascadePosition 33Q NCP.CardWindow 26Q SCREEN.MoveCardToPos 17Q NCP.ValidCard) NIL () SCREEN.GetCascadePosition D1 (P 1 Region P 0 Pos I 0 Window F 2 WindowTitleDisplayStream) /@ @ ÉH@ É,`ØØIIØR `ØÙ(46Q FONTHEIGHT 22Q \INSUREWINDOW 7 \INSUREWINDOW 3 SCREEN.WinULCorner) (51Q SCREEN.CascadeYSpace 27Q SCREEN.CascadeXSpace) () SCREEN.LayoutCardsInSurround D1 (P 7 Region P 6 Window P 5 Card P 4 RemainingEdge P 3 Pos P 2 CenterWindow P 1 CenterRegion P 0 RemainingCards I 1 Cards I 0 CenterCard) ñA!@ µ@ ZH©d ¿A J ÉYJ I2jLó¢HµH³0J ¿A ½H¸MKg ¿M ^ »LN Ù¼°ÉJ I2jLó¢HµH³0J ¿A ½H¸MKg ¿M ^ »LN Ù¼°ÉJ I2jLó¢HµJ A H Ù½H¸MKg ¿M ^ »LN Ù¼°É(350Q WINDOWREGION 342Q SCREEN.WinURCorner 336Q NCP.CardWindow 331Q SCREEN.MoveCardToPos 312Q LENGTH 306Q LENGTH 302Q GIVE.TTY.PROCESS 257Q SCREEN.WinLLCorner 243Q WINDOWREGION 235Q SCREEN.WinLRCorner 231Q NCP.CardWindow 224Q SCREEN.MoveCardToPos 206Q LENGTH 201Q GIVE.TTY.PROCESS 152Q SCREEN.WinULCorner 136Q WINDOWREGION 130Q SCREEN.WinLLCorner 124Q NCP.CardWindow 117Q SCREEN.MoveCardToPos 101Q LENGTH 74Q GIVE.TTY.PROCESS 45Q SCREEN.WinURCorner 36Q \INSUREWINDOW 31Q LENGTH 24Q GIVE.TTY.PROCESS 15Q NCP.BringUpCard 7 NCP.CardWindow) (326Q UL 221Q UR 114Q UL) () SCREEN.SurroundCardWithFileBoxContents D1 (P 3 NumberDisplayed P 2 NumberOfChildren P 1 FileBoxChildren P 0 Selection I 1 Box I 0 Card) Š@@³=A³#hiol ¿Xd²:b¿Hb°1@³hio ¿b³hAd³io ¿bµhA Yd Z@I [JKñ´ìhioKoJol ¿°Ï(205Q NC.PrintMsg 201Q CHARACTER 146Q SCREEN.LayoutCardsInSurround 140Q LENGTH 133Q NCP.FileBoxChildren 120Q NCP.SelectCards 114Q NCP.PrintMsg 71Q NCP.SelectCards 65Q NCP.PrintMsg 32Q NCP.SelectCards 26Q NCP.PrintMsg 23Q CHARACTER) NIL ( 174Q " total cards." 167Q " out of " 162Q "Only able to display " 111Q "Select FileBox." 62Q "Select center card." 16Q "Select center card and a filebox.") SCREEN.MoveCardToPos D1 (P 0 Win I 2 Corner I 1 Pos I 0 Card) %@ Xµ@`` XAB h(41Q SCREEN.MoveWinToPos 33Q NCP.BringUpCard 6 NCP.CardWindow) (23Q WHOLESCREEN 15Q WHOLESCREEN) () SCREEN.MoveWinToPos D1 (P 0 Region I 2 Corner I 1 Pos I 0 Win) ^@ Bdgð—¿@AA°-gð™@AHÙ°Bgðš@AHÙAŠ@AAHÙ ¿@ ` X@HH (133Q MOVEW 121Q MAKEWITHINREGION 113Q COPY 110Q WINDOWREGION 103Q MOVEW 3 WINDOWREGION) (116Q WHOLESCREEN 50Q LR 30Q UR 13Q LL) () SCREEN.WinLLCorner D1 (I 0 Win) @ HH(3 WINDOWREGION) NIL () SCREEN.WinShrinkAndPlace D1 (P 1 ShrunkWin P 0 WinULCorner I 0 Win) )@ @d²h`` Yµ@H I(45Q SCREEN.MoveWinToPos 34Q SHRINKW 3 SCREEN.WinULCorner) (24Q WHOLESCREEN 16Q WHOLESCREEN) () SCREEN.WinLRCorner D1 (I 0 Win) @ HHØH(3 WINDOWREGION) NIL () SCREEN.WinULCorner D1 (I 0 Win) @ HHHØ(3 WINDOWREGION) NIL () SCREEN.WinURCorner D1 (I 0 Win) @ HHØHHØ(3 WINDOWREGION) NIL () (PRETTYCOMPRINT NCSCREENCOMS) (RPAQQ NCSCREENCOMS ((* Functions for laying out cards on the screen.) (FNS SCREEN.LayoutCardsInSquare SCREEN.LayoutCardsInCascade SCREEN.GetCascadePosition SCREEN.LayoutCardsInSurround SCREEN.SurroundCardWithFileBoxContents SCREEN.MoveCardToPos SCREEN.MoveWinToPos SCREEN.WinLLCorner SCREEN.WinShrinkAndPlace SCREEN.WinLRCorner SCREEN.WinULCorner SCREEN.WinURCorner) (VARS ( SCREEN.CascadeXSpace 3) (SCREEN.CascadeYSpace 8)) (GLOBALVARS SCREEN.CascadeXSpace SCREEN.CascadeYSpace))) (RPAQQ SCREEN.CascadeXSpace 3) (RPAQQ SCREEN.CascadeYSpace 8) (PUTPROPS NCSCREEN COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL