(FILECREATED "28-May-87 12:20:44" ("compiled on " {QV}1.3K>LIBRARY>NCTABLETOP.;28) "12-Nov-85 14:59:23" tcompl'd in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED "28-May-87 12:18:55" {QV}1.3K>LIBRARY>NCTABLETOP.;28 25234 changes to: (VARS NCTableTop.LinkIconBitmap NCTABLETOPCOMS) (FNS NCTableTop.BringUpTableTop NCTableTop.CloseDownTableTop NCTableTop.RemakeTableTop NCTableTop.RecomputeTableTop NCTableTop.ComputeTableTop NCTableTop.RemakeTableTopSelectingNewCards NCTableTop.AddOpenEventsExpr NCTableTop.NoteFileWhenOpenedFn NCTableTop.MakeOrUpdateNoteFileTableTop NCTableTop.FixNoteFileOperationsMenus NCTableTop.CloseNoteFileSavingTableTop NCTableTop.CloseSessionSavingTableTops NCTableTop.MakeFn NCTableTop.EditFn NCTableTop.PutFn NCTableTop.GetFn NCTableTop.AddTableTopCard NCAddStub.TableTopCard) previous date: "23-Apr-87 21:39:49" {QV}1.3K>NEXT>LIBRARY>NCTABLETOP.;3) NCTableTop.BringUpTableTop D1 (P 6 Win P 5 ShrunkenWinPos P 4 Region P 3 Card P 2 TableTopEntry P 1 $$ActiveFlg$$ P 0 TableTopCard I 0 TableTopCardOrWindow) `@ H IH H :dJJJK L KL JM NhM hIH (134Q NC.DeactivateCard 116Q SHRINKW 107Q POSITIONP 74Q NCP.OpenCard 65Q REGIONP 57Q NCP.ValidCardP 30Q NCP.CardSubstance 23Q NC.GetNoteCard 12Q NC.ActiveCardP 3 NCP.CoerceToCard) NIL () NCTableTop.CloseDownTableTop D1 (P 4 Card P 3 TableTopEntry P 1 $$ActiveFlg$$ P 0 TableTopCard I 0 TableTopCardOrWindow) =@ H IH H !J hIH [\ L JZ(65Q NCP.CloseCards 60Q NCP.ValidCardP 47Q NC.DeactivateCard 30Q NCP.CardSubstance 23Q NC.GetNoteCard 12Q NC.ActiveCardP 3 NCP.CoerceToCard) NIL () NCTableTop.RemakeTableTop D1 (P 0 TableTopCard I 1 ListOfCards I 0 TableTopCardOrWindow) @ H H HA H (34Q NC.MarkCardDirty 30Q NC.SetSubstance 25Q NCTableTop.ComputeTableTop 17Q NCP.CacheCards 12Q NC.ActiveCardP 3 NCP.CoerceToCard) NIL () NCTableTop.RecomputeTableTop D1 (P 6 Card P 5 TableTopEntry P 0 TableTopCard I 0 TableTopCardOrWindow) G@ H H Hd QIJ H ]^ NK Lh[IYL&(60Q NCP.ValidCardP 50Q NC.MarkCardDirty 44Q NC.SetSubstance 41Q NCTableTop.ComputeTableTop 25Q NC.FetchSubstance 17Q NCP.CacheCards 12Q NC.ActiveCardP 3 NCP.CoerceToCard) NIL () NCTableTop.ComputeTableTop D1 (P 7 IconWin P 6 IconFor P 5 Card P 4 Win I 0 ListOfCards) bqHI\g ^L ];Md@4NL NLLg _ O NihJ KhZYHXK&Z(103Q WINDOWPOSITION 74Q WINDOWP 67Q GETWINDOWUSERPROP 52Q \INSUREWINDOW 32Q NC.CoerceToCard 23Q GETWINDOWUSERPROP 2 OPENWINDOWS) (64Q ICONWINDOW 20Q ICONFOR) () NCTableTop.RemakeTableTopSelectingNewCards D1 (P 1 ListOfCards P 0 TableTopCard I 0 TableTopCardOrWindow) (@ H hgoi YdghHI (45Q NCTableTop.RemakeTableTop 27Q NCP.SelectCards 12Q NCP.CardWindow 3 NCP.CoerceToCard) (34Q CANCELLED 16Q NCP.ValidCardP) ( 22Q "Choose new cards for rebuilding table top.") NCTableTop.AddOpenEventsExpr D1 (P 4 Substance P 3 OldOpenEventsExpr P 1 OpenEventsCardWasCachedFlg P 0 OpenEventsCard I 0 NoteFile) p@ [@ H YH `!J#`H H`H  I!H [H \ HKL JZhoo@ (155Q NCP.ReportError 152Q CONCAT 126Q NCP.CardSubstance 123Q REMOVE 114Q MEMBER 110Q NCP.CardSubstance 101Q NCP.CloseCards 71Q NCP.CardSubstance 65Q NCP.CardSubstance 54Q MEMBER 51Q NCP.CardSubstance 26Q NCP.CacheCards 20Q NCP.ActiveCardP 11Q NCP.GetOpenEventsCard 3 NCP.OpenNoteFileP) (61Q NCTableTop.OpenEventsExpr 45Q NCTableTop.OpenEventsExpr 32Q NCTableTop.OldOpenEventsExprs) ( 146Q "Can't add OpenEvents expression to closed notefile: " 142Q "NCTableTop.AddOpenEventsExpr") NCTableTop.NoteFileWhenOpenedFn D1 (P 0 TableTopCard I 0 NoteFile) $g@ H H H H H (41Q NCTableTop.RemakeTableTop 35Q NCTableTop.BringUpTableTop 30Q NCP.CacheCards 23Q NC.ActiveCardP 15Q NCP.ValidCardP 6 NCP.LookupCardByName) (2 NoteFileTableTop) () NCTableTop.MakeOrUpdateNoteFileTableTop D1 (P 7 OpenCards P 6 TableTopCard P 5 Card P 4 Win I 0 NoteFile) og@ QHIN 8NO \g L ] @M MJ KhZHXK&g@giohO ^gN (154Q NCP.RegisterCardByName 144Q NCP.CreateCard 73Q NCP.CardNoteFile 64Q NCP.ValidCardP 60Q NCP.CardFromWindow 52Q GETWINDOWUSERPROP 41Q NCTableTop.RemakeTableTop 31Q NCP.ValidCardP 11Q OPENWINDOWS 6 NCP.LookupCardByName) (150Q NoteFileTableTop 130Q NoteFileTableTop 124Q TableTop 47Q ICONFOR 2 NoteFileTableTop) ( 135Q (Don'tRequireFilingFlg T)) NCTableTop.FixNoteFileOperationsMenus D1 (P 1 NoteFileOperationsCloseItem P 0 NoteFileIconCloseItem) =oogH` g`g`gI` h(66Q PUTASSOC 53Q NC.MakeNoteFileIconOperationsMenus 25Q PUTASSOC) (72Q NC.NoteFileOpsMenu 63Q NC.NoteFileOpsItems 56Q % Close% 47Q NC.NoteFileIconOpenOperations 43Q NC.NoteFileIconOpenOperations 40Q Close% Saving% TableTop 33Q NC.NoteFileIconOpenOperations 30Q Close% Saving% TableTop 22Q NC.NoteFileIconOperationsMenuItems 15Q Close) ( 7 (% Close% (NC.DoNoteFileOp (QUOTE Close% NoteFile)) "Close a notefile." (SUBITEMS (Close% w/o% confirm (NC.DoNoteFileOp (QUOTE Close% w/o% confirm)) "Close a notefile w/o asking for user confirm before closing open cards.") (Close% All (NC.CloseSession) "Close all currently open NoteFiles") (Close% All% w/o% confirm (NC.CloseSession NIL T) "Close all open notefiles w/o asking for user confirm before closing open cards.") (Close% Saving% TableTop (NC.DoNoteFileOp (FUNCTION NCTableTop.CloseNoteFileSavingTableTop)) "Close a notefile, saving currently open cards in a tabletop.") (Close% All% Saving% TableTops (NCTableTop.CloseSessionSavingTableTops) "Close all open notefiles saving their tabletops."))) 3 (Close NIL "Closes this NoteFile." (SUBITEMS (Close% w/o% confirm NIL "Close this notefile, but don't ask for user confirm before closing open cards.") (Close% Saving% TableTop NCTableTop.CloseNoteFileSavingTableTop "Close this notefile, saving currently open cards in a tabletop.")))) NCTableTop.CloseNoteFileSavingTableTop D1 (I 1 NoteFileIconWindow I 0 NoteFile) @ @ @Ahi (16Q NC.CloseNoteFile 7 NCTableTop.AddOpenEventsExpr 3 NCTableTop.MakeOrUpdateNoteFileTableTop) NIL () NCTableTop.CloseSessionSavingTableTopsA0001 D1 (I 1 Key I 0 Value) @` @ @ (21Q NCTableTop.CloseNoteFileSavingTableTop 13Q NC.NoteFileOpenP) (4 NoteFileTYPE#) () NCTableTop.CloseSessionSavingTableTops D1 (F 0 NC.NoteFilesHashArray) Pg hio (17Q NC.PrintMsg 6 MAPHASH) (3 NCTableTop.CloseSessionSavingTableTopsA0001) ( 14Q "Done closing all NoteFiles.") NCTableTop.MakeFn D1 (P 0 Window I 3 ListOfCards I 2 NoDisplayFlg I 1 Title I 0 TableTopCard) ]B!@Ao X@ Hgg CHhgoi bg@ H H h@C B@H(125Q NC.SetSubstance 122Q NCTableTop.ComputeTableTop 113Q CLOSEW 105Q WINDOWP 101Q NC.DeactivateCard 66Q NCP.SelectCards 43Q WINDOWADDPROP 30Q NCP.SetUpTitleBar 25Q NC.RetrieveType 20Q NC.MakeNewCardWindow) (73Q DON'T 55Q NCP.ValidCardP 40Q NC.GraphCardShrinkFn 35Q SHRINKFN) ( 61Q "Choose cards for table top." 15Q "Untitled") NCTableTop.EditFn D1 (P 0 Window I 2 Region/Position I 1 Substance I 0 TableTopCard) Q @ X'@d ohi X@ Hgg H BH@B lYjH Ikٰ(111Q FLASHW 75Q SHAPEW 72Q NC.DetermineDisplayRegion 61Q TOTOPW 54Q WINDOWADDPROP 41Q NCP.SetUpTitleBar 36Q NC.RetrieveType 31Q NC.MakeNewCardWindow 16Q NC.RetrieveTitle 6 NC.FetchWindow) (51Q NC.GraphCardShrinkFn 46Q SHRINKFN) ( 24Q "Untitled") NCTableTop.PutFn D1 (P 11Q Card P 10Q ShrunkenFlg P 7 ShrunkenWinPos P 6 Region P 5 Card P 4 TableTopEntry P 3 NumRecords P 2 StartLoc P 1 Substance P 0 NoteFile I 1 Stream I 0 TableTopCard) D @ @ A jAj!Aj!Aj!IdLLLL M N OO AM ANl l!ANl!ANl l!ANl!ANl l!ANl!ANl l!ANl!AOOjl l!AOOjl!AOOjl l!AOOjl!AOkjl!KkԻ AJ AKl l!AKl l!AKl!Am k(500Q SETFILEPTR 457Q RSH 443Q RSH 434Q SETFILEPTR 352Q RSH 311Q RSH 253Q RSH 221Q RSH 171Q RSH 143Q RSH 132Q NC.WriteUID 114Q POSITIONP 100Q REGIONP 70Q NCP.ValidCardP 13Q GETFILEPTR 7 NCP.CardSubstance 3 NCP.CardNoteFile) (125Q CardObject) () NCTableTop.GetFn D1 (P 16Q Card P 15Q ShrunkenIndicator P 14Q ShrunkenWinPos P 13Q Region P 12Q UID P 11Q Card P 10Q Region P 7 UID P 3 i P 1 NumEntries P 0 NoteFile I 3 VersionNum I 2 Stream I 1 Length I 0 TableTopCard) @ B lB lB CdjWIk2KJJB B  O`!OH _ O OOhdhM Nh]Kk[N&LkvIk2KJjB B B lB B lB B O`,OH _ O O OOOOkhM Nh]Kk[N&LooC (366Q NCP.ReportError 363Q CONCAT 277Q POSITIONP 270Q REGIONP 261Q NC.CardP 254Q NC.CardFromUID 230Q CREATEPOSITION 205Q NC.ReadRegion 201Q NC.ReadUID 113Q REGIONP 104Q NCP.ValidCardP 77Q NC.CardFromUID 55Q NC.ReadRegion 51Q NC.ReadUID 3 NCP.CardNoteFile) (243Q UIDTYPE# 66Q UIDTYPE#) ( 357Q "Improper substance version num: " 353Q "NCTableTop.GetFn") NCTableTop.AddTableTopCard D1 NIL 1ggooooog`ho (56Q NC.AddCardType) (37Q NCTableTop.LinkIconBitmap 34Q LinkIconAttachedBitMap 5 NoteCard 2 TableTop) ( 46Q ((MiddleButtonMenuItems ((Recompute% TableTop (FUNCTION NCTableTop.RecomputeTableTop) "Recomputes this table top using current configuration of its cards." (SUBITEMS (New% Cards (FUNCTION NCTableTop.RemakeTableTopSelectingNewCards) "Recompute this table top using a new list of cards."))) (Bring% Up% TableTop (FUNCTION NCTableTop.BringUpTableTop) "Bring up the table top cards in proper layout.") (Close% Down% TableTop (FUNCTION NCTableTop.CloseDownTableTop) "Close all cards in the table top.")))) 31Q (DefaultWidth 226Q) 25Q (DefaultHeight 50Q) 21Q (DisplayedInMenuFlg T) 15Q (LinkAnchorModesSupported NIL) 11Q ((MakeFn NCTableTop.MakeFn) (EditFn NCTableTop.EditFn) (GetFn NCTableTop.GetFn) (PutFn NCTableTop.PutFn) (QuitFn NILL) (DirtyPFn NILL) (MarkDirtyFn NILL))) NCAddStub.TableTopCard D1 NIL ggghog`hh (35Q NC.AddCardTypeStub) (23Q NCTableTop.LinkIconBitmap 20Q LinkIconAttachedBitMap 10Q NCTABLETOP 5 NoteCard 2 TableTop) ( 15Q (DisplayedInMenuFlg T)) (PRETTYCOMPRINT NCTABLETOPCOMS) (RPAQQ NCTABLETOPCOMS ((* * Table top cards have substances containing card UIDs and screen regions. Following a link to a tabletop brings up its card in the stored regions.) (GLOBALVARS NCTableTop.LinkIconBitmap NCTableTop.OpenEventsExpr NCTableTop.OldOpenEventsExprs) (VARS ( NCTableTop.OpenEventsExpr (QUOTE (PROGN (NC.LoadFileFromDirectories (QUOTE NCTABLETOPCARD)) ( NCTableTop.NoteFileWhenOpenedFn NoteFile)))) (NCTableTop.OldOpenEventsExprs (QUOTE ((PROGN ( NC.LoadFileFromDirectories NCTABLETOP) (NCTableTop.NoteFileWhenOpenedFn NoteFile)) (PROGN (FILESLOAD ( FROM NOTECARDS) NCTABLETOP) (NCTableTop.NoteFileWhenOpenedFn NoteFile)))))) (* * The following functions are exported, i.e. documented and callable from outside.) (FNS NCTableTop.BringUpTableTop NCTableTop.CloseDownTableTop NCTableTop.RemakeTableTop NCTableTop.RecomputeTableTop) (* * The rest are internal.) (FNS NCTableTop.ComputeTableTop NCTableTop.RemakeTableTopSelectingNewCards NCTableTop.AddOpenEventsExpr NCTableTop.NoteFileWhenOpenedFn NCTableTop.MakeOrUpdateNoteFileTableTop NCTableTop.FixNoteFileOperationsMenus NCTableTop.CloseNoteFileSavingTableTop NCTableTop.CloseSessionSavingTableTops) (FNS NCTableTop.MakeFn NCTableTop.EditFn NCTableTop.PutFn NCTableTop.GetFn) (FNS NCTableTop.AddTableTopCard) (BITMAPS NCTableTop.LinkIconBitmap) (RECORDS TableTopEntry) (P (NCTableTop.AddTableTopCard) (PUTPROP (QUOTE TableTop) (QUOTE ExtraLinkIconMenuItems ) (QUOTE ((Run% TableTop (FUNCTION NCTableTop.BringUpTableTop) "Bring up the cards in destination's table top." (SUBITEMS (Close% Down% TableTop (FUNCTION NCTableTop.CloseDownTableTop) "Close the cards in destination's table top."))))))) (FNS NCAddStub.TableTopCard) (* Add a CloseSavingTableTop item to the Close notefile menus.) (P ( NCTableTop.FixNoteFileOperationsMenus)))) (RPAQQ NCTableTop.OpenEventsExpr (PROGN (NC.LoadFileFromDirectories (QUOTE NCTABLETOPCARD)) ( NCTableTop.NoteFileWhenOpenedFn NoteFile))) (RPAQQ NCTableTop.OldOpenEventsExprs ((PROGN (NC.LoadFileFromDirectories NCTABLETOP) ( NCTableTop.NoteFileWhenOpenedFn NoteFile)) (PROGN (FILESLOAD (FROM NOTECARDS) NCTABLETOP) ( NCTableTop.NoteFileWhenOpenedFn NoteFile)))) (RPAQ NCTableTop.LinkIconBitmap (READBITMAP)) (21 18 "OOOOOH@@" "H@@@@H@@" "HCOONH@@" "HFGLNH@@" "HNFDNH@@" "IINGJH@@" "KIOOBH@@" "KOONBH@@" "JH@BBH@@" "JH@BBH@@" "JH@BBH@@" "JH@BBH@@" "JH@BBH@@" "JH@BBH@@" "J@@B@H@@" "J@@B@H@@" "H@@@@H@@" "OOOOOH@@") (RECORD TableTopEntry (Card Region ShrunkenWinPos ShrunkenFlg)) (NCTableTop.AddTableTopCard) (PUTPROP (QUOTE TableTop) (QUOTE ExtraLinkIconMenuItems) (QUOTE ((Run% TableTop (FUNCTION NCTableTop.BringUpTableTop) "Bring up the cards in destination's table top." (SUBITEMS ( Close% Down% TableTop (FUNCTION NCTableTop.CloseDownTableTop) "Close the cards in destination's table top.")))))) (NCTableTop.FixNoteFileOperationsMenus) (PUTPROPS NCTABLETOP COPYRIGHT ("Xerox Corporation" 1987)) NIL