(FILECREATED " 4-Feb-87 20:33:26" ("compiled on " {QV}1.3K>NEXT>RHTPATCH193.;2) "12-Nov-85 14:59:23" recompiled ALL in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 4-Feb-87 20:32:45" {QV}1.3K>NEXT>RHTPATCH193.;2 3264 changes to: (FNS NC.LinkIconMiddleButtonFn) (VARS RHTPATCH193COMS) previous date: " 4-Feb-87 15:25:22" {QV}1.3K>NEXT>RHTPATCH193.;1) NC.LinkIconMiddleButtonFn D1 (P 3 Menu P 2 Selection P 1 ExtraItems P 0 Card I 1 Window I 0 LinkIcon) º@ ÉQH gYg Ÿ``ð–I¤`°@`oI ¼dL¿di ¿do¿dg ¿dg¿jdnÿdh½dM ¿[I¢A ´AK Zdgð–¿@A gð•@A Jdgð–¿@A gð•@A J¡hHkJ(255Q NC.ChangeCardTitleFromLinkIcon 242Q NC.RelabelLink 224Q NC.ChangeLinkDisplayMode 211Q NC.TraverseLink 174Q MENU 166Q NC.CardP 163Q NC.CoerceToCard 67Q \APPEND2 32Q BOUNDP 17Q NC.RetrieveType 3 NC.FetchLinkFromLinkIcon) (246Q Retitle 232Q Relabel 215Q Display 201Q Edit 157Q NC.LinkIconMiddleButtonMenu 125Q DEFAULTMENUHELDFN 116Q CLRPROMPT 56Q MENUTYPE# 51Q NC.LinkIconMiddleButtonMenu 42Q MENUTYPE# 36Q NC.LinkIconMiddleButtonMenu 27Q NC.LinkIconMiddleButtonMenu 22Q ExtraLinkIconMenuItems 6 Link) ( 107Q "Link Ops" 63Q ((Bring% Up% Card/Box (QUOTE Edit) "Bring up the note card pointed to by this pointer.") (Change% Link% Type (QUOTE Relabel) "Change the label of this pointer.") (Change% Card% Title (QUOTE Retitle) "Change the destination card's title.") (Change% Display% Mode (QUOTE Display) "Change the type of information displayed in this pointer."))) (PRETTYCOMPRINT RHTPATCH193COMS) (RPAQQ RHTPATCH193COMS ((* * Allows menu items to be added to LinkIconMiddleButton menu. The extra items should be hung off the ExtraLinkIconMenuItems property of the destination card type's atom.) (* * Change to NCLINKS) (FNS NC.LinkIconMiddleButtonFn))) (PUTPROPS RHTPATCH193 COPYRIGHT ("Xerox Corporation" 1987)) NIL