(FILECREATED "26-Jun-86 19:32:43" {QV}<NOTECARDS>1.3K>FGHPATCH077.;2 10535
changes to: (VARS FGHPATCH077COMS)
(FNS NC.NoteCardsIconButtonEventFn)
previous date: "26-Jun-86 19:28:12" {QV}<NOTECARDS>1.3K>FGHPATCH077.;1)
(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT FGHPATCH077COMS)
(RPAQQ FGHPATCH077COMS ((* * Implement changes to seeion ivcon suggested by Kirk.)
(COMS (* * This is not to be included in the system -- just for this patch
file.)
(VARS (NC.CardOpsItems)
(NC.StructureOpsItems)
(NC.NoteFileOpsItems)
(NC.SessionOpsItems)))
(GLOBALVARS NC.CardOpsMenu NC.CardOpsItems NC.StructureOpsMenu
NC.StructureOpsItems NC.NoteFileOpsMenu NC.NoteFileOpsItems
NC.SessionOpsMenu NC.SessionOpsItems)
(ADDVARS (NC.CardOpsItems (Close% Cards (NC.CloseNoteCards NIL NIL NIL
NC.NoteCardsIconWindow)
"Delete several note cards.")
(Delete% Cards (NC.DeleteNoteCards NIL NIL NIL
NC.NoteCardsIconWindow)
"Delete several note cards.")
(NF% Indicators% On (NC.ShowNoteFiles)
"Turn on the NoteFile indicator for all currently open cards"
(SUBITEMS
(Indicators% Off
(NC.ShowNoteFiles T)
"Turn off any NoteFile indicator on each card on the screen."))))
(NC.StructureOpsItems (Copy% Structure (NC.CopyStructure)
"Copy note cards belonging to a structure.")
(Move% Structure (NC.MoveStructure NIL NIL
NIL NIL
NIL
NC.NoteCardsIconWindow)
"Move note cards belonging to a structure.")
(Close% Structure (NC.CloseStructure)
"Close note cards belonging to a structure.")
(Delete% Structure (NC.DeleteStructure
NIL NIL NIL NIL
NC.NoteCardsIconWindow)
"Delete note cards belonging to a structure."))
(NC.NoteFileOpsItems (Open% NoteFile (NC.DoNoteFileOp
(QUOTE Open% NoteFile))
"Opens a notefile.")
(Checkpoint% NoteFile (NC.DoNoteFileOp
(QUOTE
Checkpoint% NoteFile))
"Checkpoint a NoteFile")
(Close% NoteFile (NC.DoNoteFileOp
(QUOTE Close% NoteFile)))
(Abort% NoteFile (NC.DoNoteFileOp
(QUOTE Abort% NoteFile))
"Close NF, deleting changes since last checkpoint.")
(Compact% NoteFile
(NC.DoNoteFileOp (QUOTE Compact% NoteFile))
"Compact a NoteFile."
(SUBITEMS (Compact% To% New% File
(NC.DoNoteFileOp (QUOTE
Compact% NoteFile)
"Compact a NoteFile copying to a new file."))
(Compact% In% Place
(NC.DoNoteFileOp (QUOTE
Compact% In% Place)
"Compact a NoteFile w/o copying to a new file."))))
(Inspect&Repair% NF
(NC.DoNoteFileOp (QUOTE
Inspect&Repair% NoteFile))
"Do an Inspect & Repair on a NoteFile."
(SUBITEMS (Read% Substances (QUOTE
Read% Substances)
"Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down.")))
(Copy% NoteFile (NC.DoNoteFileOp
(QUOTE Copy% NoteFile))
"Copy a NoteFile.")
(Rename% NoteFile (NC.DoNoteFileOp
(QUOTE Rename% NoteFile))
"Rename a NoteFile")
(Delete% NoteFile (NC.DoNoteFileOp
(QUOTE Delete% NoteFile))
"Delete a NoteFile")
(Create% NoteFile (NC.DoNoteFileOp
(QUOTE Create% NoteFile))
"Create a new NoteFile w/o opening it."))
(NC.SessionOpsItems (Edit% Parameters (NC.BuildInspector)
"Adjust NoteCards profile for this session.")
(Open% FileBrowser (NC.FileBrowserMenu
NC.NoteCardsIconWindow)
"Bring up a NoteFile browser.")
(Checkpoint% Session (NC.CheckpointSession)
"Checkpoint all currently open NoteFiles")
(Close% Session (NC.CloseSession)
"Close all currently open NoteFiles")
(Abort% Session (NC.CloseSession T)
"Abort all currently open NoteFiles")))
(VARS (NC.CardOpsMenu)
(NC.StructureOpsMenu)
(NC.NoteFileOpsMenu)
(NC.SessionOpsMenu))
(FNS NC.NoteCardsIconButtonEventFn)))
(* * Implement changes to seeion ivcon suggested by Kirk.)
(* * This is not to be included in the system -- just for this patch file.)
(RPAQQ NC.CardOpsItems NIL)
(RPAQQ NC.StructureOpsItems NIL)
(RPAQQ NC.NoteFileOpsItems NIL)
(RPAQQ NC.SessionOpsItems NIL)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.CardOpsMenu NC.CardOpsItems NC.StructureOpsMenu NC.StructureOpsItems
NC.NoteFileOpsMenu NC.NoteFileOpsItems NC.SessionOpsMenu NC.SessionOpsItems)
)
(ADDTOVAR NC.CardOpsItems (Close% Cards (NC.CloseNoteCards NIL NIL NIL NC.NoteCardsIconWindow)
"Delete several note cards.")
(Delete% Cards (NC.DeleteNoteCards NIL NIL NIL NC.NoteCardsIconWindow)
"Delete several note cards.")
(NF% Indicators% On (NC.ShowNoteFiles)
"Turn on the NoteFile indicator for all currently open cards"
(SUBITEMS (Indicators% Off (NC.ShowNoteFiles T)
"Turn off any NoteFile indicator on each card on the screen."))))
(ADDTOVAR NC.StructureOpsItems (Copy% Structure (NC.CopyStructure)
"Copy note cards belonging to a structure.")
(Move% Structure (NC.MoveStructure NIL NIL NIL NIL NIL
NC.NoteCardsIconWindow)
"Move note cards belonging to a structure.")
(Close% Structure (NC.CloseStructure)
"Close note cards belonging to a structure.")
(Delete% Structure (NC.DeleteStructure NIL NIL NIL NIL
NC.NoteCardsIconWindow)
"Delete note cards belonging to a structure."))
(ADDTOVAR NC.NoteFileOpsItems (Open% NoteFile (NC.DoNoteFileOp (QUOTE Open% NoteFile))
"Opens a notefile.")
(Checkpoint% NoteFile (NC.DoNoteFileOp (QUOTE Checkpoint% NoteFile))
"Checkpoint a NoteFile")
(Close% NoteFile (NC.DoNoteFileOp (QUOTE Close% NoteFile)))
(Abort% NoteFile (NC.DoNoteFileOp (QUOTE Abort% NoteFile))
"Close NF, deleting changes since last checkpoint.")
(Compact% NoteFile (NC.DoNoteFileOp (QUOTE Compact% NoteFile))
"Compact a NoteFile."
(SUBITEMS (Compact% To% New% File
(NC.DoNoteFileOp (QUOTE
Compact% NoteFile)
"Compact a NoteFile copying to a new file."))
(Compact% In% Place (NC.DoNoteFileOp
(QUOTE
Compact% In% Place)
"Compact a NoteFile w/o copying to a new file."))))
(Inspect&Repair% NF (NC.DoNoteFileOp (QUOTE Inspect&Repair% NoteFile))
"Do an Inspect & Repair on a NoteFile."
(SUBITEMS (Read% Substances (QUOTE
Read% Substances)
"Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down.")))
(Copy% NoteFile (NC.DoNoteFileOp (QUOTE Copy% NoteFile))
"Copy a NoteFile.")
(Rename% NoteFile (NC.DoNoteFileOp (QUOTE Rename% NoteFile))
"Rename a NoteFile")
(Delete% NoteFile (NC.DoNoteFileOp (QUOTE Delete% NoteFile))
"Delete a NoteFile")
(Create% NoteFile (NC.DoNoteFileOp (QUOTE Create% NoteFile))
"Create a new NoteFile w/o opening it."))
(ADDTOVAR NC.SessionOpsItems (Edit% Parameters (NC.BuildInspector)
"Adjust NoteCards profile for this session.")
(Open% FileBrowser (NC.FileBrowserMenu NC.NoteCardsIconWindow)
"Bring up a NoteFile browser.")
(Checkpoint% Session (NC.CheckpointSession)
"Checkpoint all currently open NoteFiles")
(Close% Session (NC.CloseSession)
"Close all currently open NoteFiles")
(Abort% Session (NC.CloseSession T)
"Abort all currently open NoteFiles"))
(RPAQQ NC.CardOpsMenu NIL)
(RPAQQ NC.StructureOpsMenu NIL)
(RPAQQ NC.NoteFileOpsMenu NIL)
(RPAQQ NC.SessionOpsMenu NIL)
(DEFINEQ
(NC.NoteCardsIconButtonEventFn
(LAMBDA (Window) (* fgh: "26-Jun-86 19:27")
(* * Bring up a menu of all notefiles found in the notefiles hash array. Also allow user to open a new notefile.)
(* * rht 1/7/86: Now handles middle button differently -
brings up menu of patterns and creates notefile browser for that pattern.)
(* * kirk 18Jan85 Added session commands to left button. Carved out NC.CommandMenu and NC.FileBrowserMenu
functions.)
(* * fgh 6/24/86 Totally revamped for new 1.3 session icon. Now is a whenselectedfn for the icon.
Pops up the menu for the selectedfn, creating one if necessary.)
(if (OR (MOUSESTATE UP)
(WINDOWPROP Window (QUOTE NoteCardsOperationInProgress)))
else (TOTOPW Window)
(ALLOW.BUTTON.EVENTS)
(LET ((Menu (CAR (WINDOWPROP Window (QUOTE MENU)))))
(for Item in (fetch (MENU ITEMS) of Menu) when (INSIDEP (
MENUITEMREGION
Item Menu)
(LASTMOUSEX
Window)
(LASTMOUSEY
Window))
do (RESETLST (RESETSAVE NIL (BQUOTE (REDISPLAYW , Window)))
(RESETSAVE NIL (BQUOTE (WINDOWPROP , Window
NoteCardsOperationInProgress ,
(WINDOWPROP
Window
(QUOTE
NoteCardsOperationInProgress)
(CAR Item)))))
(RESETSAVE (SHADEITEM Item Menu BLACKSHADE)
(BQUOTE (SHADEITEM , Item , Menu 0)))
(MENU (OR (EVAL (CADR Item))
(SET (CADR Item)
(create MENU
ITEMS ←(EVAL (CADDR Item))
MENUFONT ← NC.MenuFont
CHANGEOFFSETFLG ←(QUOTE Y)
MENUOFFSET ←(CONS -1 0))))))
(RETURN))))))
)
(PUTPROPS FGHPATCH077 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
(FILEMAP (NIL (8427 10453 (NC.NoteCardsIconButtonEventFn 8437 . 10451)))))
STOP