(FILECREATED "24-Jun-86 21:45:41" {QV}<NOTECARDS>1.3K>FGHPATCH074.;15 24182
changes to: (VARS FGHPATCH074COMS)
(FNS NC.NoteCardsIconCursorEventFn NC.DoNoteFileOp NC.RedisplayNoteCardsIconWindow
NC.NoteCardsIconButtonEventFn NC.ListOfNoteFilesMenu NC.MakeNoteCardsIcon)
previous date: "24-Jun-86 21:35:09" {QV}<NOTECARDS>1.3K>FGHPATCH074.;14)
(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT FGHPATCH074COMS)
(RPAQQ FGHPATCH074COMS ((* * Implemntation of new Session icon. New and redefined stuff for
NCINTERFACE and NCPARANETERS)
(* * Not to be integrated -- for this patch file only)
(P (AND (WINDOWP NC.NoteCardsIconWindow)
(OPENWP NC.NoteCardsIconWindow)
(CLOSEW NC.NoteCardsIconWindow))
(SETQ NC.NoteCardsIconWindow NIL))
(* * New stuff for NCINTERFACE -- implemetation of session icon menus)
(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."))
(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.")
(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.")))
(NoteFile% Browser (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))
(GLOBALVARS NC.NoteCardsIconMenuBitMap)
(VARS (NC.NoteCardsIconMenuBitMap))
(FNS NC.RedisplayNoteCardsIconWindow NC.NoteCardsIconButtonEventFn
NC.DoNoteFileOp NC.NoteCardsIconCursorEventFn)
(* * New stuff for NCPARAMETERS)
(GLOBALVARS NC.MenuFont)
(VARS (NC.MenuFont (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD))))
(* * Old stuff from NCINTERFACE -- session icon)
(FNS NC.ListOfNoteFilesMenu NC.MakeNoteCardsIcon)
(BITMAPS NC.NoteCardsIconBitmap)))
(* * Implemntation of new Session icon. New and redefined stuff for NCINTERFACE and
NCPARANETERS)
(* * Not to be integrated -- for this patch file only)
(AND (WINDOWP NC.NoteCardsIconWindow)
(OPENWP NC.NoteCardsIconWindow)
(CLOSEW NC.NoteCardsIconWindow))
(SETQ NC.NoteCardsIconWindow NIL)
(* * New stuff for NCINTERFACE -- implemetation of session icon menus)
(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."))
(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.")
(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.")))
(NoteFile% Browser (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)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.NoteCardsIconMenuBitMap)
)
(RPAQQ NC.NoteCardsIconMenuBitMap NIL)
(DEFINEQ
(NC.RedisplayNoteCardsIconWindow
(LAMBDA (Window) (* fgh: "24-Jun-86 20:58")
(* * Redisplay the NC Icon window. Use different displkays whether the cursor is on or out of the window)
(* * fgh 6/23/86 First created.)
(if (NULL (WINDOWPROP Window (QUOTE NoteCardsOperationInProgress)))
then (GETMOUSESTATE)
(if (INSIDEP (WINDOWPROP Window (QUOTE REGION))
LASTMOUSEX LASTMOUSEY)
then (BITBLT NC.NoteCardsIconMenuBitMap 0 0 Window 0 0 NIL NIL (QUOTE INPUT)
(QUOTE REPLACE))
else (BITBLT NC.NoteCardsIconBitmap 0 0 Window 0 0 NIL NIL (QUOTE INPUT)
(QUOTE REPLACE))))))
(NC.NoteCardsIconButtonEventFn
(LAMBDA (Window) (* fgh: "24-Jun-86 21:04")
(* * 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
CENTERFLG ← T
CHANGEOFFSETFLG ←(QUOTE Y)
MENUOFFSET ←(CONS -1 0))))))
(RETURN))))))
(NC.DoNoteFileOp
(LAMBDA (Op) (* fgh: "24-Jun-86 21:13")
(* * Do a NoteFile op chosen from NC icon menu)
(SELECTQ Op
(Open% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.OpenDatabaseFile NoteFile NIL NIL NIL NIL NIL NIL
NIL NIL NIL
NC.NoteCardsIconWindow))))
(Checkpoint% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu NIL T)))
(if NoteFile
then (NC.CheckpointDatabase NoteFile))))
(Close% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu NIL T)))
(if NoteFile
then (NC.CloseDatabaseFile NoteFile))))
(Abort% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu NIL T)))
(if NoteFile
then (NC.AbortSession NoteFile))))
(Compact% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.CompactNoteFile NoteFile))))
(Compact% In% Place (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.CompactNoteFile NoteFile NIL T))))
(Inspect&Repair% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.ScavengerPhase1 NoteFile))))
(Read% Substances (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.ScavengerPhase1 NoteFile T))))
(Copy% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.CopyNoteFile NoteFile))))
(Rename% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.RenameNoteFile NoteFile))))
(Delete% NoteFile (LET ((NoteFile (NC.ListOfNoteFilesMenu T)))
(if (NULL NoteFile)
then NIL
else (if (EQ NoteFile (QUOTE NEW))
then (SETQ NoteFile NIL))
(NC.DeleteDatabaseFile NoteFile
NC.NoteCardsIconWindow))))
(Create% NoteFile (NC.CreateDatabaseFile))
NIL)))
(NC.NoteCardsIconCursorEventFn
(LAMBDA (Window) (* fgh: "24-Jun-86 21:00")
(* * If not in an operation, then redisplay the icon window. The redisplay fn takes care of noticing whether the
cursor is in or out of the icon.)
(if (NULL (WINDOWPROP Window (QUOTE NoteCardsOperationInProgress)))
then (REDISPLAYW Window))))
)
(* * New stuff for NCPARAMETERS)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.MenuFont)
)
(RPAQ NC.MenuFont (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD)))
(* * Old stuff from NCINTERFACE -- session icon)
(DEFINEQ
(NC.ListOfNoteFilesMenu
(LAMBDA (IncludeNewNoteFileFlg ShowOnlyOpenNFsFlg) (* fgh: "24-Jun-86 19:45")
(* * Bring up a menu of all notefiles found in the notefiles hash array. Also allow user to open a new notefile.)
(* * kirk 23Jan86 Added AskYesOrNo and InterestedWindow parameter)
(* * fgh 6/8/86 Added check to make sure NoteFile is open if it has a menu on the screen. Needed to handle case of
liongering NF menus.)
(* * fgh 6/24/86 Changed to be a general function rather than one specific for opening. Now just returns the chosen
name. Also, added IncludeNewNoteFileFlg and ShowOnlyOpenNFsFlg. Removed InterestedWindow arg.)
(LET (Menu NoteFileMenu FileName RootName Items)
(SETQ Items
(BQUOTE (,@(for NoteFile in (NC.ListOfNoteFiles) bind Stream FileName
when (OR (NULL ShowOnlyOpenNFsFlg)
(NC.NoteFileOpenP NoteFile))
collect (LIST (CONCAT
(if (NC.NoteFileOpenP NoteFile)
then (if (WINDOWP
(WFROMMENU (fetch (NoteFile
Menu)
of NoteFile)))
then "* "
else "$ ")
else " ")
(SUBSTRING (SETQ RootName
(FILENAMEFIELD (SETQ FileName
(fetch
(NoteFile
FullFileName)
of NoteFile))
(QUOTE NAME)))
1
(MIN 20 (NCHARS RootName))))
NoteFile
(CONCAT "Open NoteFile " FileName
" or bring up its menu.")))
,@(if IncludeNewNoteFileFlg
then (LIST (QUOTE ("-- Other NoteFile --" (QUOTE NEW)
"Open a new notefile - you'll be prompted for the name.")))
else NIL))))
(if (NULL Items)
then NIL
elseif (AND (EQ (LENGTH Items)
1)
(EQUAL (CADAR Items)
(QUOTE (QUOTE NEW))))
then (QUOTE NEW)
else (MENU (create MENU
ITEMS ← Items
TITLE ← "NoteFiles"
MENUFONT ← NC.MenuFont))))))
(NC.MakeNoteCardsIcon
(LAMBDA (Position) (* fgh: "24-Jun-86 21:00")
(* * This creates and returns a window containing the NoteCards icon bitmap.)
(* * fgh 6/7/86 Added Position arg and NC.NoteCardsIconPosition globalvar reference.)
(* * fgh 6/24/86 Revamped for new 1.3 session icon. Session icon now a positional menu, but one with the
buttoneventfn and cursormovedfns handled by NC and not the standard menu code. Menu shows only when cursor inside
icon, rest of time the icon shows.)
(LET ((WinWidth (WIDTHIFWINDOW (BITMAPWIDTH NC.NoteCardsIconBitmap)
0))
(WinHeight (HEIGHTIFWINDOW (BITMAPHEIGHT NC.NoteCardsIconBitmap)
NIL 0))
WinPos IconWindow)
(SETQ WinPos (OR Position NC.NoteCardsIconPosition (GETBOXPOSITION WinWidth WinHeight
NIL NIL NIL
"Please position NoteCards icon.")))
(SETQ IconWindow (ADDMENU (create MENU
ITEMS ←(QUOTE (("Card Ops" NC.CardOpsMenu
NC.CardOpsItems)
("Structure Ops"
NC.StructureOpsMenu
NC.StructureOpsItems)
("NoteFile Ops" NC.NoteFileOpsMenu
NC.NoteFileOpsItems)
("Session Ops" NC.SessionOpsMenu
NC.SessionOpsItems)))
CENTERFLG ← T
MENUFONT ←(FONTCREATE (QUOTE HELVETICA)
12
(QUOTE BOLD))
MENUBORDERSIZE ← 1
ITEMWIDTH ←(DIFFERENCE (BITMAPWIDTH
NC.NoteCardsIconBitmap)
2)
ITEMHEIGHT ←(FIX (TIMES .25 (BITMAPHEIGHT
NC.NoteCardsIconBitmap)
))
MENUOUTLINESIZE ← 1)
(CREATEW (CREATEREGION (fetch (POSITION XCOORD)
of WinPos)
(fetch (POSITION YCOORD)
of WinPos)
WinWidth WinHeight)
NIL 0 T)
NIL T))
(OPENW IconWindow)
(BITBLT IconWindow 0 0 (SETQ NC.NoteCardsIconMenuBitMap (BITMAPCREATE WinWidth
WinHeight)))
(WINDOWPROP IconWindow (QUOTE BUTTONEVENTFN)
(FUNCTION NC.NoteCardsIconButtonEventFn))
(WINDOWPROP IconWindow (QUOTE REPAINTFN)
(FUNCTION NC.RedisplayNoteCardsIconWindow))
(WINDOWPROP IconWindow (QUOTE CURSORINFN)
(FUNCTION NC.NoteCardsIconCursorEventFn))
(WINDOWPROP IconWindow (QUOTE CURSOROUTFN)
(FUNCTION NC.NoteCardsIconCursorEventFn))
(WINDOWPROP IconWindow (QUOTE CURSORMOVEDFN)
NIL)
(BITBLT NC.NoteCardsIconBitmap 0 0 IconWindow 0 0 WinWidth WinHeight (QUOTE INPUT)
(QUOTE REPLACE))
IconWindow)))
)
(RPAQ NC.NoteCardsIconBitmap (READBITMAP))
(117 82
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"LAOOOOL@@@@@@@@@@@@@@@@@@@@@AH@@"
"LAOOOOL@@@@@@@@@GOOOO@@@@@@@AH@@"
"LAOOOOL@@@@@@@@@GOOOO@@@@@@@AH@@"
"LA@@@@D@@@@@@@@@GOOOO@@@@@@@AH@@"
"LA@@@@D@@@@@@@@@D@@@A@@@@@@@AH@@"
"LA@@@@D@OOOOO@@@D@@@A@@@@@@@AH@@"
"LA@@@@D@OOOOO@@@D@@@A@@@@@@@AH@@"
"LA@@@@F@OOOOO@@@D@@@A@@@@@@@AH@@"
"LA@@@@E@H@@@A@@@D@@@A@@@@@@@AH@@"
"LA@@@@DHH@@@A@@@D@@@A@@@@@@@AH@@"
"LA@@@@DDH@@@AOOOL@@@A@@@@@@@AH@@"
"LA@@@@DBH@@@A@@@D@@@A@@@@@@@AH@@"
"LA@@@@DAH@@@A@@@D@@@A@@@@@@@AH@@"
"LA@@@@D@H@@@A@@@D@@@A@@@@@@@AH@@"
"LAOOOOL@H@@@OOOOOH@@A@@@@@@@AH@@"
"L@@@F@@@H@@@OOOOOH@@A@@@@@@@AH@@"
"L@@@AH@@H@@@OOOOOH@@A@@@@@@@AH@@"
"L@@@@F@@H@@@H@@@@OOOO@@@@@@@AH@@"
"L@@AOOOON@@@H@@@@HAH@@@@@@@@AH@@"
"L@@AOOOOOOOOH@@@@H@L@@@@@@@@AH@@"
"L@@AOOOON@@@H@@@@H@D@@@@@@@@AH@@"
"L@@A@@@@B@@AH@@@@H@F@@@@@@@@AH@@"
"L@@A@@@@B@@OH@@@@H@B@@@@@@@@AH@@"
"L@@A@@@@B@GHH@@@@N@C@@@@@@@@AH@@"
"L@@A@@@@BCL@H@@@@K@AH@@@@@@@AH@@"
"L@@A@@@@CN@@H@@@@IH@H@@@@@@@AH@@"
"L@@A@@@@C@@@H@@@@HL@L@@@@@@@AH@@"
"L@@A@@@@B@@@H@@@@HF@D@@@@@@@AH@@"
"L@@A@@@@B@@@OOOOOHC@F@@@@@@@AH@@"
"L@@A@@@@B@@@@@F@@@AOOOOON@@@AH@@"
"L@@A@@@@B@@@@@D@@@AOOOOON@@@AH@@"
"L@@A@@@@B@@@@@L@@@AOOOOON@@@AH@@"
"L@@AOOOON@@@@@H@@@A@@@@@B@@@AH@@"
"L@@@@@@H@@@@@@H@@@A@@@@@B@@@AH@@"
"L@@@@@A@@@@@@AH@@@A@D@CLB@@@AH@@"
"L@@@@@B@@@AOOOOON@ACL@DFB@@@AH@@"
"L@@@@@D@@@AOOOOON@A@L@HCB@@@AH@@"
"L@@GOOOO@@AOOOOON@A@L@LCB@@@AH@@"
"L@@GOOOO@@A@@@@@B@A@L@LCB@@@AH@@"
"L@@GOOOO@@A@@@@@B@A@L@@FB@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@L@CLB@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@L@@FB@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@L@@CB@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@L@LCB@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@L@LCB@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@LFHFB@@@AH@@"
"L@@D@@@A@@A@@@@@B@ACOFGLB@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@@@@@B@@@AH@@"
"L@@D@@@A@@A@@@@@B@A@@@@@B@@@AH@@"
"L@@D@@@A@@A@@@@@B@AOOOOON@@@AH@@"
"L@@GOOOO@@AOOOOON@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@CLAO@@@@@@@@CNH@@@@@@CH@@@AH@@"
"L@@N@D@@@A@@@@LAH@@@@@@AH@@@AH@@"
"L@@O@D@@@A@@@AH@H@@@@@@AH@@@AH@@"
"L@@K@D@@@C@@@AH@H@@@@@@AH@@@AH@@"
"L@@KHD@OHGLCLC@@HGHCIHCMHGD@AH@@"
"L@@ILDAHLC@FFC@@@HLAJLFCHHL@AH@@"
"L@@HLDC@FC@LCC@@@LFALLLAIHD@AH@@"
"L@@HNDC@FC@LCC@@@@NAH@LAIN@@AH@@"
"L@@HGDC@FC@OOC@@@CFAH@LAHOH@AH@@"
"L@@HCLC@FC@L@AH@DLFAH@LAHCL@AH@@"
"L@@HCLC@FCBLAAH@IHFAH@LAI@L@AH@@"
"L@@HALAHLCDFB@LAAHNAH@FCIHD@AH@@"
"L@CN@L@OHAHCL@GN@OGCL@CMMGH@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@")
(PUTPROPS FGHPATCH074 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
(FILEMAP (NIL (9407 15778 (NC.RedisplayNoteCardsIconWindow 9417 . 10177) (
NC.NoteCardsIconButtonEventFn 10179 . 12220) (NC.DoNoteFileOp 12222 . 15351) (
NC.NoteCardsIconCursorEventFn 15353 . 15776)) (16014 21177 (NC.ListOfNoteFilesMenu 16024 . 18295) (
NC.MakeNoteCardsIcon 18297 . 21175)))))
STOP