(FILECREATED "28-May-86 17:27:51" {QV}<notecards>1.3K>KIRKPATCH005.;1 6884
changes to: (VARS KIRKPATCH005COMS AFTERSYSOUTFORMS NC.DefaultLeftButtonMenuItems)
(FNS NC.AttachNoteFileName))
(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT KIRKPATCH005COMS)
(RPAQQ KIRKPATCH005COMS ((* * fixes a bunch of Attach NFs bugs)
(* * from NCINTERFACE)
(FNS NC.AttachNoteFileName)
(* * from NCTYPESMECH)
(VARS NC.DefaultLeftButtonMenuItems)))
(* * fixes a bunch of Attach NFs bugs)
(* * from NCINTERFACE)
(DEFINEQ
(NC.AttachNoteFileName
(LAMBDA (CardWindow OffFlg) (* kirk: "28-May-86 15:19")
(* * Attach an indicator of the NoteFile for this Card to the Card)
(LET ((Card (NC.CardFromWindow CardWindow))
AttachedWindows FileName Window)
(if (NC.CardP Card)
then (SETQ AttachedWindows (ATTACHEDWINDOWS CardWindow))
(if OffFlg
then (CLOSEW (for window in AttachedWindows
thereis (WINDOWPROP window (QUOTE NoteFileIndicator)
)))
(REPOSITIONATTACHEDWINDOWS CardWindow)
else (TOTOPW CardWindow)
(if (SETQ Window (for window in AttachedWindows
thereis (WINDOWPROP window (QUOTE
NoteFileIndicator))))
then (OR (OPENWP Window)
(OPENW Window))
else (SETQ AttachedWindows (for window in AttachedWindows
collect
(SETQ WhereAttached
(WINDOWPROP window
(QUOTE
WHEREATTACHED)))
(if (EQ (QUOTE TOP)
(CAR WhereAttached))
then (DETACHWINDOW window)
(CONS window
(CDR
WhereAttached)))))
(LET (NoteFile FileName YSize IndicatorWindow)
(SETQ NoteFile (fetch (Card NoteFile) of Card))
(SETQ FileName (NC.MakeNoteFileNameIndicator NoteFile))
(SETQ YSize (IMAX 20 (FONTPROP
NC.NoteFileIndicatorFont
(QUOTE HEIGHT))))
(* Due to bug in ATTACHWINDOW region height must be
20)
(SETQ IndicatorWindow (CREATEW (CREATEREGION 0 0 100
YSize)
NIL T))
(ATTACHWINDOW IndicatorWindow CardWindow (QUOTE TOP)
(QUOTE JUSTIFY)
(QUOTE LOCALCLOSE))
(WINDOWPROP IndicatorWindow (QUOTE MAXSIZE)
(CONS 1000 YSize))
(WINDOWPROP IndicatorWindow (QUOTE MINSIZE)
(CONS 20 YSize))
(WINDOWPROP IndicatorWindow (QUOTE BUTTONEVENTFN)
(FUNCTION (LAMBDA (window)
(INVERTW window)
(NC.SetUpNoteFileInterface
(fetch (Card NoteFile)
of (NC.CardFromWindow
(MAINWINDOW window))))
(INVERTW window))))
(DSPFONT NC.NoteFileIndicatorFont IndicatorWindow)
(PRIN1 FileName IndicatorWindow)
(OPENW IndicatorWindow)
(WINDOWPROP IndicatorWindow (QUOTE NoteFileIndicator)
(QUOTE Showing)))
(for window in AttachedWindows do (ATTACHWINDOW
(CAR window)
CardWindow
(QUOTE TOP)
(CDR window)))))))))
)
(* * from NCTYPESMECH)
(RPAQQ NC.DefaultLeftButtonMenuItems ((Edit% Property% List (FUNCTION NC.EditProperties)
"Brings up an editor for the property list of this card.")
(Show% Links (FUNCTION NC.ShowLinks)
"Brings up a list of the links to and from this card.")
(Show% Info (FUNCTION NC.ShowInfo)
"Brings up a window containing special information about this card."
(SUBITEMS (Indicate% NoteFiles
(FUNCTION NC.ShowNoteFiles)
"Shows the name of the No)teFile for each card."
(Don't% Indicate% NoteFiles
(FUNCTION NC.ShowNoteFiles T)
"Turns NoteFile indicators off."))))
(Designate% Sources (FUNCTION NC.AssignSources)
"Designate the source(s) of the information in this card."
(SUBITEMS (Delete% Source
(FUNCTION NC.DeleteSource)
"Delete one of the sources of this card.")))
(Designate% FileBoxes (FUNCTION NC.AddParents)
"File this note card in one or more file boxes."
(SUBITEMS
(Unfile% from% FileBoxes
(FUNCTION NC.UnfileNoteCard)
"Remove this card from one or more of its file boxes.")))
(Assign% Title (FUNCTION NC.AssignTitle)
"Assigns a (new) title to this note card.")
(Title/FileBoxes (FUNCTION (LAMBDA (TextStream)
(NC.AssignTitle TextStream)
(NC.AddParents TextStream))
)
"Do both assigning of title and filing in fileboxes.")
(Insert% Link (FUNCTION NC.AddLinkToCard)
"Insert a link to another card at the currently selected point in the text."
(SUBITEMS (Insert% Link (FUNCTION
NC.AddLinkToCard)
"Insert a link to another card at the currently selected point in the text.")
(Insert% Links
(FUNCTION NC.AddLinksToCard)
"Insert links to other cards at the currently selected point in the text.")
(Add% Global% Link
(FUNCTION NC.AddGlobalLinkToCard)
"Add a global link emanating from this card.")
(Add% Global% Links
(FUNCTION NC.AddGlobalLinksToCard)
"Add multiple global links emanating from this card.")))
(Close% and% Save (FUNCTION CLOSEW)
"Close this note card after saving it in the NoteFile."
(SUBITEMS (Close% and% Save
(FUNCTION CLOSEW)
"Close this note card after saving it in the NoteFile.")
(Close% w/o% Saving
(FUNCTION NC.QuitWithoutSaving)
"Close this note card without saving any changes made since the last Save.")
(Save% in% NoteFile
(FUNCTION NC.CardSaveFn)
"Save this card in the NoteFile but don't close the card.")
(Delete% Card
(FUNCTION NC.DeleteNoteCards)
"Permenantly delete this card from the NoteFile.")))))
(PUTPROPS KIRKPATCH005 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
(FILEMAP (NIL (592 3692 (NC.AttachNoteFileName 602 . 3690)))))
STOP