(FILECREATED "19-Aug-87 11:32:05" ("compiled on " {QV}1.3KNEXT>PMIPATCH057.;3) "12-Nov-85 14:59:23" recompiled changes: nothing in "INTERLISP-D 20-Jul-87 ..." dated "20-Jul-87 18:39:29") (FILECREATED "19-Aug-87 11:31:36" {QV}1.3KNEXT>PMIPATCH057.;3 9309 changes to: (VARS PMIPATCH057COMS) previous date: " 7-Aug-87 18:09:28" {QV}1.3KNEXT>PMIPATCH057.;2) (NC.LoadFileFromDirectories (QUOTE NCBROWSERCARD)) NC.BrowserRemoveNode D1 (P 22Q RootCard P 15Q RootCard P 13Q UID P 12Q Node P 5 NumVirtuals P 4 NodesToRemove P 3 RootCards P 2 NodeToRemoveID P 1 Card P 0 GraphCard I 4 QuietFlg I 3 NodeToRemove I 2 DeleteCardFlg I 1 Window I 0 Graph) A QCA@Boo b Zd YBMd 0oI o ogiA )CA hio io ` CA hH H @A NFO\BC]CRCA I H HI HI C@A _JO O_OOh__N^O&_B7L ]k.AiMol ooghAhdi  AI H HIB J @! OCI 0H *H [ OKhHKAOZO HI ACA L_O _d`J O__IO OiO__$IO$ O$_"O O"h_ _O_~O"&_ d O@A B(hioIo Ihi hiol AA D?hio0L"d Og ONh_N&_O o h(1177Q NC.PrintMsg 1167Q CONCATLIST 1134Q PACK* 1076Q REDISPLAYW 1067Q NC.PrintMsg 1064Q CHARACTER 1050Q NC.DeleteNoteCard 1041Q NC.PrintMsg 1012Q NC.GraphRemoveNode 732Q NC.SameCardP 723Q BLOCK 675Q NC.SameCardP 666Q BLOCK 647Q NC.GraphNodeIDRemProp 632Q NC.CoerceToGraphNodeID 624Q BLOCK 610Q FLIPNODE 600Q NC.RemoveBrowserNodeHashArrayEntry 572Q NC.SetBrowserRoots 535Q NC.FetchBrowserRoots 527Q NC.ValidCardP 521Q NC.ValidCardP 502Q NC.SmashGraphNodeIDProps 475Q NC.DelBrowserContentsLink 466Q NC.ValidCardP 461Q NC.ValidCardP 451Q NC.YesP 446Q NC.AskUser 421Q NC.PrintMsg 415Q CHARACTER 374Q LENGTH 323Q NC.CoerceToGraphNodeIDOrLabel 310Q NC.GraphRemoveNode 301Q NC.RemoveBrowserNodeHashArrayEntry 273Q NC.DelBrowserContentsLink 265Q NC.ValidCardP 257Q NC.ValidCardP 252Q FLIPNODE 173Q NC.MarkCardDirty 166Q NC.ValidCardP 160Q FLIPNODE 152Q FLASHW 143Q NC.PrintMsg 132Q NC.PrintMsg 120Q FLIPNODE 111Q NC.AskYesOrNo 74Q CONCAT 65Q NC.RetrieveTitle 53Q NC.ValidCardP 43Q NC.CardFromBrowserNodeID 36Q NC.CoerceToGraphNodeIDOrLabel 31Q NC.SelectGraphNode 3 NC.CoerceToCard) (1131Q % 641Q UIDTYPE# 435Q Yes 147Q PROMPTWINDOW 103Q Yes) ( 1173Q "removed." 1110Q "Nodes: " 1057Q "Done." 1035Q " ... " 1030Q "Deleting " 432Q "--" 426Q "Still want to remove? " 410Q " virtual companion nodes will be removed." 140Q "No card for that node." 127Q "Card & Node delete aborted." 100Q "--" 71Q " card? " 61Q "Are you sure you want to delete the " 26Q "Choose node to remove." 21Q "Choose node of card to delete.") NC.DelBrowserContentsLink D1 (P 4 CrossFileLinkCard P 3 Link P 2 DestCardUID P 0 Links I 2 DeleteCardFlg I 1 DestCard I 0 GraphCard) u@A` Hdoo@ oA HHBi @h` A"Ih[\ JL  Kid IY(155Q NC.DeleteLink 146Q NC.SameUIDP 136Q NCP.CardSubstance 127Q NC.CrossFileLinkCardP 75Q NCP.GetLinks 64Q NC.DeleteLink 52Q NC.ReportError 47Q CONCAT 44Q NC.FetchTitle 34Q NC.FetchTitle 7 NCP.GetLinks) (141Q CrossFileLinkSubstance 121Q Link 101Q CardObject 72Q NC.BrowserContentsLinkLabel 4 NC.BrowserContentsLinkLabel) ( 40Q " and " 30Q "Multiple browser contents links between " 24Q "NC.DelBrowserContentsLink") (PRETTYCOMPRINT PMIPATCH057COMS) (RPAQQ PMIPATCH057COMS ((DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCBROWSERCARD)))) (* * pmi 8/7/87: Fixes bug reported by Cathy where deleting a card from a browser caused it to go first to Orphans before being deleted for good.) (* * Changed in NCBROWSERCARD) (FNS NC.BrowserRemoveNode NC.DelBrowserContentsLink))) (PUTPROPS PMIPATCH057 COPYRIGHT ("Xerox Corporation" 1987)) NIL