(FILECREATED "25-Mar-87 13:00:41" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH020.;27 42096
changes to: (FNS NC.NoteCardsIconButtonEventFn NC.MakeNewStyleNoteCardsIcon
NC.MakeOldStyleNoteCardsIcon NC.MakeNoteCardsIcon NC.BringUpNoteCardsIcon
NC.RedisplayNoteCardsIconWindow NC.NoteCardsIconCursorEventFn
NC.NoteCardsIconFn NC.ResetNoteCardsIcon)
(VARS PMIPATCH020COMS NC.NoteCardsIconBitmap)
previous date: "19-Mar-87 19:26:47" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH020.;21)
(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT PMIPATCH020COMS)
(RPAQQ PMIPATCH020COMS ((* * pmi 3/18/87: Fixes bug 249: Interface of NC main menu is wrong.)
(* * Defines a new session icon which does not have to be touched to show the session menu.
Adds a shrunken icon for the session icon. Rearranges the items on the main menus: "Card"
items now have pull across for structure operations (multiple cards)
; "NoteFile" items now have pull across for session operations (multiple notefiles)
; "Other" items are miscellaneous items. The "NC FileBrowser" item has been placed on the
NoteFile menu, since it applies to NoteFiles. One new item on Other is
"Session Icon Style,"
which allows the user to choose either the old or new session icon.)
(* * Before anything gets loaded, smash the existing NoteCards Session Icon
(for the patch file ONLY)
after saving the position of the current icon)
(VARS (NC.NoteCardsIconPosition))
(P (if (AND (BOUNDP (QUOTE NC.NoteCardsIconWindow))
(WINDOWP NC.NoteCardsIconWindow))
then
(SETQ NC.NoteCardsIconPosition (CREATEPOSITION (fetch LEFT of (WINDOWPROP
NC.NoteCardsIconWindow
(QUOTE REGION)))
(fetch BOTTOM of (WINDOWPROP
NC.NoteCardsIconWindow
(QUOTE REGION)))))
(WINDOWDELPROP NC.NoteCardsIconWindow (QUOTE BUTTONEVENTFN)
(FUNCTION NC.NoteCardsIconButtonEventFn))
(WINDOWDELPROP NC.NoteCardsIconWindow (QUOTE CURSORINFN)
(FUNCTION NC.NoteCardsIconCursorEventFn))
(WINDOWDELPROP NC.NoteCardsIconWindow (QUOTE CURSOROUTFN)
(FUNCTION NC.NoteCardsIconCursorEventFn))
(CLOSEW NC.NoteCardsIconWindow)))
(* * For NCINTERFACE:)
(* * NC.NoteCardsIconMenuBitMap should be replaced by NC.OldStyleIconMenuBitmap)
(GLOBALVARS NC.OldStyleIconMenuBitmap)
(VARS (NC.OldStyleIconMenuBitmap))
(* * New GlobalvarS)
(GLOBALVARS NC.OldStyleIconBitmap NC.OldStyleIconMenuBitmap NC.NoteCardsIconMask
NC.NoteCardsIconShrunkenBitmap NC.NoteCardsIconShrunkenMask NC.OtherOpsItems
NC.OtherOpsMenu)
(* * New Bitmaps)
(BITMAPS NC.OldStyleIconBitmap NC.NoteCardsIconMask NC.NoteCardsIconShrunkenBitmap
NC.NoteCardsIconShrunkenMask)
(* * Old Bitmap, redefined)
(BITMAPS NC.NoteCardsIconBitmap)
(* * Same as NCINTERFACE, these are here only for the patch file)
(VARS (NC.CardOpsMenu)
(NC.NoteFileOpsMenu)
(NC.OtherOpsMenu)
(NC.NoteCardsIconWindow))
(* * Changed Functions)
(FNS NC.MakeNoteCardsIcon NC.BringUpNoteCardsIcon NC.NoteCardsIconButtonEventFn
NC.RedisplayNoteCardsIconWindow NC.NoteCardsIconCursorEventFn)
(* * New Functions)
(FNS NC.NoteCardsIconFn NC.ResetNoteCardsIcon NC.MakeNewStyleNoteCardsIcon
NC.MakeOldStyleNoteCardsIcon)
(* * Get rid of Globalvars: NC.StructureOpsItems NC.StructureOpsMenu NC.SessionOpsItems
NC.SessionOpsMenu)
(* * New AddVars)
(* * Must first erase the existing menu items - in the patch file ONLY)
(VARS (NC.CardOpsItems)
(NC.NoteFileOpsItems))
(ADDVARS (NC.CardOpsItems (% Close% (NC.CloseNoteCards NIL NIL NIL NC.NoteCardsIconWindow)
"Delete several note cards."
(SUBITEMS (Close% Structure (NC.CloseStructure NIL NIL
NC.NoteCardsIconWindow)
"Close note cards belonging to a structure.")))
(% Delete% (NC.DeleteNoteCards NIL T NIL NC.NoteCardsIconWindow)
"Delete several note cards."
(SUBITEMS (Delete% Structure (NC.DeleteStructure NIL
NIL
NC.NoteCardsIconWindow)
"Delete note cards belonging to a structure.")))
(% Copy% (NC.CopyCards NIL NIL NIL NIL NC.NoteCardsIconWindow)
"Copy note cards to a filebox"
(SUBITEMS (Copy% Structure (NC.CopyStructure NIL NIL NIL
NC.NoteCardsIconWindow)
"Copy note cards belonging to a structure.")))
(% Move% (NC.MoveCards NIL NIL NIL NIL NC.NoteCardsIconWindow)
"Move note cards to a filebox"
(SUBITEMS (Move% Structure (NC.MoveStructure NIL NIL NIL
NC.NoteCardsIconWindow)
"Move note cards belonging to a structure."))))
(NC.NoteFileOpsItems (% Open% (NC.DoNoteFileOp (QUOTE Open% NoteFile))
"Opens a notefile."
(SUBITEMS (Read-only% Open (NC.DoNoteFileOp
(QUOTE Read-only% Open))
"Open a notefile for read-only.")))
(% Checkpoint% (NC.DoNoteFileOp (QUOTE Checkpoint% NoteFile))
"Checkpoint a NoteFile"
(SUBITEMS (Checkpoint% All (NC.CheckpointSession
)
"Checkpoint all currently open NoteFiles")))
(% Close% (NC.DoNoteFileOp (QUOTE Close% NoteFile))
"Close a notefile."
(SUBITEMS (Close% w/o% confirm (NC.DoNoteFileOp
(QUOTE
Close% w/o% confirm))
"Close a notefile w/o asking for user confirm before closing open cards.")
(Close% All (NC.CloseSession)
"Close all currently open NoteFiles")
(Close% All% w/o% confirm (NC.CloseSession
NIL T)
"Close all open notefiles w/o asking for user confirm before closing open cards.")))
(% Abort% (NC.DoNoteFileOp (QUOTE Abort% NoteFile))
"Close NF, deleting changes since last checkpoint."
(SUBITEMS (Abort% All (NC.CloseSession T)
"Abort all currently open NoteFiles")))
(% Compact% (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% (NC.DoNoteFileOp (QUOTE
Inspect&Repair% NoteFile))
"Do an Inspect & Repair on a NoteFile."
(SUBITEMS (Read% Substances
(NC.DoNoteFileOp (QUOTE
Read% Substances))
"Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down.")))
(% Copy% (NC.DoNoteFileOp (QUOTE Copy% NoteFile))
"Copy a NoteFile.")
(% Rename% (NC.DoNoteFileOp (QUOTE Rename% NoteFile))
"Rename a NoteFile")
(% Delete% (NC.DoNoteFileOp (QUOTE Delete% NoteFile))
"Delete a NoteFile")
(% Create% (NC.DoNoteFileOp (QUOTE Create% NoteFile))
"Create a new NoteFile w/o opening it.")
(% --------% NIL "")
(% NC% FileBrowser% (NC.FileBrowserMenu NC.NoteCardsIconWindow)
"Bring up a NoteFile browser."))
(NC.OtherOpsItems (% 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.")))
(% TEdit% Killer% On%
(START-TEDIT-KILLER)
"Start the TEDIT-KILLER process."
(SUBITEMS (TEdit% Killer% Off (STOP-TEDIT-KILLER)
"Stop the TEDIT-KILLER process.")
(New% Process% Limit
(SETQ TEDIT-PROCESS-LIMIT
(OR (NUMBERP (RNUMBER (CONCAT
"Old TEdit process limit: "
TEDIT-PROCESS-LIMIT)
NIL NIL NIL T))
TEDIT-PROCESS-LIMIT))
"Change value of TEdit process limit.")
(New% Wait% Time (SETQ
TEDIT-KILLER-WAIT-TIME
(OR (NUMBERP (RNUMBER (CONCAT
"Old TEdit killer wait time: "
TEDIT-KILLER-WAIT-TIME)
NIL NIL NIL T)
)
TEDIT-KILLER-WAIT-TIME))
"Change value of TEdit killer wait time.")))
(% Session% Icon% Style% NIL
"Change the style of the NoteCards session icon."
(SUBITEMS (% Old% Style%
(NC.ResetNoteCardsIcon
(QUOTE OldStyle))
"Change session icon to Roll-through style")
(% New% Style%
(NC.ResetNoteCardsIcon
(QUOTE NewStyle))
"Change session icon to Filebox style")))))
(* * Now bring up the new NoteCards Session Icon)
(P (NC.BringUpNoteCardsIcon NC.NoteCardsIconPosition (QUOTE NewStyle)))))
(* * pmi 3/18/87: Fixes bug 249: Interface of NC main menu is wrong.)
(* * Defines a new session icon which does not have to be touched to show the session menu.
Adds a shrunken icon for the session icon. Rearranges the items on the main menus: "Card" items
now have pull across for structure operations (multiple cards) ; "NoteFile" items now have
pull across for session operations (multiple notefiles) ; "Other" items are miscellaneous
items. The "NC FileBrowser" item has been placed on the NoteFile menu, since it applies to
NoteFiles. One new item on Other is "Session Icon Style," which allows the user to choose
either the old or new session icon.)
(* * Before anything gets loaded, smash the existing NoteCards Session Icon (for the patch
file ONLY) after saving the position of the current icon)
(RPAQQ NC.NoteCardsIconPosition NIL)
(if (AND (BOUNDP (QUOTE NC.NoteCardsIconWindow))
(WINDOWP NC.NoteCardsIconWindow))
then
(SETQ NC.NoteCardsIconPosition (CREATEPOSITION (fetch LEFT of (WINDOWPROP NC.NoteCardsIconWindow
(QUOTE REGION)))
(fetch BOTTOM of (WINDOWPROP
NC.NoteCardsIconWindow
(QUOTE REGION)))))
(WINDOWDELPROP NC.NoteCardsIconWindow (QUOTE BUTTONEVENTFN)
(FUNCTION NC.NoteCardsIconButtonEventFn))
(WINDOWDELPROP NC.NoteCardsIconWindow (QUOTE CURSORINFN)
(FUNCTION NC.NoteCardsIconCursorEventFn))
(WINDOWDELPROP NC.NoteCardsIconWindow (QUOTE CURSOROUTFN)
(FUNCTION NC.NoteCardsIconCursorEventFn))
(CLOSEW NC.NoteCardsIconWindow))
(* * For NCINTERFACE:)
(* * NC.NoteCardsIconMenuBitMap should be replaced by NC.OldStyleIconMenuBitmap)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.OldStyleIconMenuBitmap)
)
(RPAQQ NC.OldStyleIconMenuBitmap NIL)
(* * New GlobalvarS)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.OldStyleIconBitmap NC.OldStyleIconMenuBitmap NC.NoteCardsIconMask
NC.NoteCardsIconShrunkenBitmap NC.NoteCardsIconShrunkenMask NC.OtherOpsItems
NC.OtherOpsMenu)
)
(* * New Bitmaps)
(RPAQ NC.OldStyleIconBitmap (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@@")
(RPAQ NC.NoteCardsIconMask (READBITMAP))
(108 86
"@COOOOOOOOOOOOOOOOOOOOOO@@@@"
"@COOOOOOOOOOOOOOOOOOOOOO@@@@"
"@GOOOOOOOOOOOOOOOOOOOOOOH@@@"
"@GOOOOOOOOOOOOOOOOOOOOOOH@@@"
"@OOOOOOOOOOOOOOOOOOOOOOOL@@@"
"@OOOOOOOOOOOOOOOOOOOOOOOL@@@"
"AOOOOOOOOOOOOOOOOOOOOOOON@@@"
"AOOOOOOOOOOOOOOOOOOOOOOON@@@"
"AOOOOOOOOOOOOOOOOOOOOOOOO@@@"
"AOOOOOOOOOOOOOOOOOOOOOOOO@@@"
"@OOOOOOOOOOOOOOOOOOOOOOOOH@@"
"@OOOOOOOOOOOOOOOOOOOOOOOOH@@"
"@GOOOOOOOOOOOOOOOOOOOOOOOL@@"
"@GOOOOOOOOOOOOOOOOOOOOOOOL@@"
"@COOOOOOOOOOOOOOOOOOOOOOON@@"
"@COOOOOOOOOOOOOOOOOOOOOOON@@"
"@AOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@AOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@OOOOOOOOOOOOOOOOOOOOOOOOH@"
"@@OOOOOOOOOOOOOOOOOOOOOOOOH@"
"@@GOOOOOOOOOOOOOOOOOOOOOOOL@"
"@@GOOOOOOOOOOOOOOOOOOOOOOOL@"
"@@COOOOOOOOOOOOOOOOOOOOOOON@"
"@@COOOOOOOOOOOOOOOOOOOOOOON@"
"@@AOOOOOOOOOOOOOOOOOOOOOOOO@"
"@@AOOOOOOOOOOOOOOOOOOOOOOOO@"
"@@@OOOOOOOOOOOOOOOOOOOOOOOO@"
"@@@OOOOOOOOOOOOOOOOOOOOOOON@"
"@@@GOOOOOOOOOOOOOOOOOOOOOON@"
"@@@GOOOOOOOOOOOOOOOOOOOOOOL@"
"@@@COOOOOOOOOOOOOOOOOOOOOOL@"
"@@@COOOOOOOOOOOOOOOOOOOOOOH@"
"@@@AOOOOOOOOOOOOOOOOOOOOOOH@"
"@@@AOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@AOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@COOOOOOOOOOOOOOOOOOOOOO@@"
"@@@GOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@OOOOOOOOOOOOOOOOOOOOOOO@@"
"@@AOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@COOOOOOOOOOOOOOOOOOOOOOO@@"
"@@GOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@OOOOOOOOOOOOOOOOOOOOOOOO@@"
"@AOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@COOOOOOOOOOOOOOOOOOOOOOOO@@"
"@GOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@OOOOOOOOOOOOOOOOOOOOOOOOO@@"
"AOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"COOOOOOOOOOOOOOOOOOOOOOOOO@@"
"GOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOOOOOOOOOOOOOON@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOL@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOH@@"
"OOOOOOOOOOOOOOOOOOOOOOOOO@@@"
"OOOOOOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOOOOOOL@@@"
"OOOOOOOOOOOOOOOOOOOOOOOOH@@@"
"OOOOOOOOOOOOOOOOOOOOOOOO@@@@"
"OOOOOOOOOOOOOOOOOOOOOOON@@@@"
"OOOOOOOOOOOOOOOOOOOOOOOL@@@@"
"OOOOOOOOOOOOOOOOOOOOOOOH@@@@"
"OOOOOOOOOOOOOOOOOOOOOOO@@@@@"
"OOOOOOOOOOOOOOOOOOOOOON@@@@@"
"OOOOOOOOOOOOOOOOOOOOOOL@@@@@"
"OOOOOOOOOOOOOOOOOOOOOOH@@@@@"
"OOOOOOOOOOOOOOOOOOOOOO@@@@@@"
"OOOOOOOOOOOOOOOOOOOOON@@@@@@")
(RPAQ NC.NoteCardsIconShrunkenBitmap (READBITMAP))
(83 51
"@@AOOOOOOOOOOOOOOOOON@@@"
"@@COOOOOOOOOOOOOOOOON@@@"
"@@GAAAAAAAAAAAAAAAAAN@@@"
"@@NDDDDDDDDDDDDDDDDGN@@@"
"@AM@@@@@@@@@@@@@@@AGF@@@"
"@CH@@@@@@@@@@@@@@@@NN@@@"
"@GD@@@@@@@@@@@@@@@ENF@@@"
"@N@@@@@@@@@@@@@@@@CHN@@@"
"AM@@@@@@@@@@@@@@@AGBF@@@"
"CH@@@@@@@@@@@@@@@@NHN@@@"
"GDDDDDDDDDDDDDDDDENBF@@@"
"NAAAAAAAAAAAAAAAACHHN@@@"
"OOOOOOOOOOOOOOOOOOBBN@@@"
"OOOOOOOOOOOOOOOOONHIN@@@"
"LDDDDDDDDDDDDDDDDFBCN@@@"
"MAAAAAAA@AAAAAAAAFHON@@@"
"L@@@@@@@CH@@@@@@@FBNF@@@"
"M@@@@@@@CH@@@@@@AFILN@@@"
"L@@@@@@@CH@@@@@@@FCJF@@@"
"M@@@@@@@A@@@@@@@AFOHN@@@"
"L@@@@@@@A@@@@@@@@FNBF@@@"
"MAAAAAAA@AAAAAAAAGLHN@@@"
"LDDDDDDDDDDDDDDDDGJBF@@@"
"OOOOOOOOOOOOOOOOOOHHN@@@"
"OOOOOOOOOOOOOOOOONBBF@@@"
"MAAAAAAAAAAAAAAAAFHHN@@@"
"LDDDDDBDDDDDDDDDDFBBF@@@"
"M@@@@@@@@@@@@@@@AFHHN@@@"
"L@@@@@@@@@@@@@@@@FBBF@@@"
"M@@@@@@@@@@@@@@@AFHHN@@@"
"L@@@@@@@@@@@@@@@@FBBF@@@"
"L@@@@@@@@@@@@@@@@FHHN@@@"
"LLC@@B@@CO@@@@AH@FBBF@@@"
"LNC@@F@@GAH@@@AH@FHHN@@@"
"LOCALOKLNAINBLOKNFBBF@@@"
"LOKCNFFFN@COCMOKFFHHN@@@"
"LOOFCFFFN@@CCMIK@FBBF@@@"
"LMOFCFGNN@AOCAIKNFHHN@@@"
"LLOFCFF@NAKKCAIHFFBBF@@@"
"LLGCNFF@GAKCCAOKFFHHN@@@"
"LLCALGKNCOCOK@OKNFBCL@@@"
"L@@@@@@@@@@@@@@@@FHKH@@@"
"L@@@@@@@@@@@@@@@@FBG@@@@"
"L@@@@@@@@@@@@@@@@FHN@@@@"
"M@@@@@@@@@@@@@@@AFCL@@@@"
"L@@@@@@@@@@@@@@@@FKH@@@@"
"M@@@@@@@@@@@@@@@AFG@@@@@"
"LDDDDDDDDDDDDDDDDFN@@@@@"
"MAAAAAAAAAAAAAAAAGL@@@@@"
"OOOOOOOOOOOOOOOOOOH@@@@@"
"OOOOOOOOOOOOOOOOOO@@@@@@")
(RPAQ NC.NoteCardsIconShrunkenMask (READBITMAP))
(83 51
"@@AOOOOOOOOOOOOOOOOON@@@"
"@@COOOOOOOOOOOOOOOOON@@@"
"@@GOOOOOOOOOOOOOOOOON@@@"
"@@OOOOOOOOOOOOOOOOOON@@@"
"@AOOOOOOOOOOOOOOOOOON@@@"
"@COOOOOOOOOOOOOOOOOON@@@"
"@GOOOOOOOOOOOOOOOOOON@@@"
"@OOOOOOOOOOOOOOOOOOON@@@"
"AOOOOOOOOOOOOOOOOOOON@@@"
"COOOOOOOOOOOOOOOOOOON@@@"
"GOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOON@@@"
"OOOOOOOOOOOOOOOOOOOOL@@@"
"OOOOOOOOOOOOOOOOOOOOH@@@"
"OOOOOOOOOOOOOOOOOOOO@@@@"
"OOOOOOOOOOOOOOOOOOON@@@@"
"OOOOOOOOOOOOOOOOOOOL@@@@"
"OOOOOOOOOOOOOOOOOOOH@@@@"
"OOOOOOOOOOOOOOOOOOO@@@@@"
"OOOOOOOOOOOOOOOOOON@@@@@"
"OOOOOOOOOOOOOOOOOOL@@@@@"
"OOOOOOOOOOOOOOOOOOH@@@@@"
"OOOOOOOOOOOOOOOOOO@@@@@@"
"OOOOOOOOOOOOOOOOON@@@@@@"
"OOOOOOOOOOOOOOOOOL@@@@@@")
(* * Old Bitmap, redefined)
(RPAQ NC.NoteCardsIconBitmap (READBITMAP))
(108 86
"@COOOOOOOOOOOOOOOOOOOOOO@@@@"
"@COOOOOOOOOOOOOOOOOOOOOO@@@@"
"@GHHHHHHHHHHHHHHHHHHHHHGH@@@"
"@FBBBBBBBBBBFBBBBBBBBBBMH@@@"
"@NH@@@@@@@@@N@@@@@@@@@HLL@@@"
"@N@@@@@@@@@@N@@@@@@@@@AJL@@@"
"ALH@@@@@@@@@L@@@@@@@@@IHN@@@"
"AJBBBBBBBBBBBBBBBBBBBBCBF@@@"
"AHHHHHHHHHHHHHHHHHHHHHKHK@@@"
"AOOOOOOOOOOOOOOOOOOOOOOBC@@@"
"AOOOOOOOOOOOOOOOOOOOOOOHIH@@"
"@NJKJJJJJJJJJJJJJJJJJJKBCH@@"
"@GEEMEEOOOOOOOOOOOOOOOOHHL@@"
"@FJKJBCOOOOOOOOOOOOOOOOJBL@@"
"@CEELHIH@@@@@@@@@@@@@@@LHN@@"
"@CJJNBCH@@@GL@C@@@@@@@@NBF@@"
"@AMEFHIH@@@LFFC@@@@@@@@FHK@@"
"@AJJNBCH@@@LFOKNCLOH@@@FBC@@"
"@@MEGHIH@@@LFFCCFFMH@@@GHIH@"
"@@NJKBCH@@@LFFCCGNL@@@@GBCH@"
"@@GEEHIH@@@LFFCCF@L@@@@GHHL@"
"@@FJKJCH@@@LFFCCFFL@@@@GJBL@"
"@@CEELIH@@@GLCKCCLL@@@@GLHN@"
"@@CJJNCH@@@@@@@@@@@@@@@FNBF@"
"@@AMEFIH@@@@@@@@@@@@@@@GFHK@"
"@@AJKOOOOOOOOOOOOOOOON@FNBC@"
"@@@MEOOOOOOOOOOOOOOOON@GGHK@"
"@@@NKH@@@@@@@@@@@@@@@F@FKBF@"
"@@@GEH@GAH@@@@COFL@@@FJGEHN@"
"@@@FKH@GIH@C@@C@FL@@@GDFKJL@"
"@@@CEH@GIINGLOC@@LO@@FJGELL@"
"@@@CKH@FMKCCAIKNFMIH@GDFJOH@"
"@@@AMH@FMKCCAOK@FMOH@FJGEGH@"
"@@@AKH@FGKCCAHC@FMH@@GDFJO@@"
"@@@AOH@FGKCCAIK@FMIH@FJGOO@@"
"@@@COH@FCINALOC@FLO@@GDGOO@@"
"@@@GEH@@@@@@@@@@@@@@@FJGEG@@"
"@@@NKH@@@@@@@@@@@@@@@GDFJO@@"
"@@AOOOOOOOOOOOOOOOON@FJGEO@@"
"@@COOOOOOOOOOOOOOOON@GDFKO@@"
"@@GH@@@@@@@@@@@@@@@F@FJGGK@@"
"@@OH@@@@OH@@@@L@@@@FJGDFOC@@"
"@AOH@@@AHL@@@@L@@@@GDFJGNK@@"
"@CMH@@@AHLNCNGL@@@@FJGDGNC@@"
"@GKH@@@AH@CCFLL@@@@GDFJGHK@@"
"@OEH@@@AH@OC@LL@@@@FJGDOBC@@"
"ANKH@@@AHMKC@LL@@@@GDFKNHK@@"
"CMEH@@@AHMKC@LL@@@@FJGGNBC@@"
"GJKH@@@@OHOK@GL@@@@GDFOHHK@@"
"OEEH@@@@@@@@@@@@@@@FJGOBBC@@"
"NJKH@@@@@@@@@@@@@@@GDGNHHK@@"
"OOOOOOOOOOOOOOOOOOOOOONBBC@@"
"OOOOOOOOOOOOOOOOOOOOOOHHHK@@"
"NBBBBBBBBBBBBBBBBBBBBCBBBC@@"
"LHHHHHHHHHHHHHHHHHHHHKHHHK@@"
"NBBBBBBBBBBBBBBBBBBBBCBBBC@@"
"LH@@@@@@@@@@@@@@@@@@@KHHHK@@"
"N@@@@@@@@@@@@@@@@@@@@CBBBC@@"
"LH@@@@@@@@@@@@@@@@@@@KHHHK@@"
"N@@@@@@@@@@@@@@@@@@@@CBBBC@@"
"L@@@@@@@@@@@@@@@@@@@@KHHHK@@"
"N@@@@@@@@@@@@@@@@@@@@CBBBC@@"
"LL@F@@@H@@@OL@@@@@AH@KHHHK@@"
"NN@F@@AH@@CMN@@@@@AH@CBBBC@@"
"LO@F@@CH@@GHF@@@@@AH@KHHHK@@"
"NOHFCNGNGHG@@CLCFCIINCBBBC@@"
"LOLFGGCHNLO@@GNCNGOKKKHHHK@@"
"NMNFNCKILNO@@DGCNOGKICBBBG@@"
"LLOFNCKILNO@@@GCHNCKLKHHHO@@"
"NLGNNCKIONO@@GOCHNCINCBBCN@@"
"LLCNNCKIL@G@@OGCHNCHOKHHKL@@"
"NLANNCKIL@GHFNGCHNCKGCBBGH@@"
"LL@NGGCHNFCMNNGCHGGKGKHHO@@@"
"NL@FCNANGH@OHGKKHCMINCBCN@@@"
"L@@@@@@@@@@@@@@@@@@@@KHKL@@@"
"N@@@@@@@@@@@@@@@@@@@@CBGH@@@"
"L@@@@@@@@@@@@@@@@@@@@KHO@@@@"
"N@@@@@@@@@@@@@@@@@@@@CCN@@@@"
"L@@@@@@@@@@@@@@@@@@@@KKL@@@@"
"N@@@@@@@@@@@@@@@@@@@@CGH@@@@"
"LH@@@@@@@@@@@@@@@@@@@KO@@@@@"
"NBBBBBBBBBBBBBBBBBBBBCN@@@@@"
"LHHHHHHHHHHHHHHHHHHHHKL@@@@@"
"NBBBBBBBBBBBBBBBBBBBBCH@@@@@"
"OOOOOOOOOOOOOOOOOOOOOO@@@@@@"
"OOOOOOOOOOOOOOOOOOOOON@@@@@@")
(* * Same as NCINTERFACE, these are here only for the patch file)
(RPAQQ NC.CardOpsMenu NIL)
(RPAQQ NC.NoteFileOpsMenu NIL)
(RPAQQ NC.OtherOpsMenu NIL)
(RPAQQ NC.NoteCardsIconWindow NIL)
(* * Changed Functions)
(DEFINEQ
(NC.MakeNoteCardsIcon
(LAMBDA (Position Style) (* pmi: "18-Mar-87 17:15")
(* * This creates and returns a window containing the NoteCards icon bitmap.)
(* * pmi 3/11/87: Revamped for another new session icon.)
(SELECTQ Style
(OldStyle (NC.MakeOldStyleNoteCardsIcon Position))
(NewStyle (NC.MakeNewStyleNoteCardsIcon Position))
(NC.MakeNewStyleNoteCardsIcon Position))))
(NC.BringUpNoteCardsIcon
(LAMBDA (Position Style) (* pmi: "18-Mar-87 17:18")
(* * Either flash existing NoteCards icon or make a new one.)
(* * fgh 6/7/86 Added Position arg to pass to NC.MakeWindow)
(* * kirk 1Jul86 Changed FLASHW to FLASHWINDOW)
(* * pmi 3/18/87: Added Style argument to be passed to NC.MakeNoteCardsIcon for selection of session icon style)
(DECLARE (GLOBALVARS NC.NoteCardsIconWindow))
(if (WINDOWP NC.NoteCardsIconWindow)
then (if Position
then (MOVEW NC.NoteCardsIconWindow Position))
(FLASHWINDOW NC.NoteCardsIconWindow)
else (SETQ NC.NoteCardsIconWindow (NC.MakeNoteCardsIcon Position Style)))))
(NC.NoteCardsIconButtonEventFn
(LAMBDA (Window) (* pmi: "25-Mar-87 12:17")
(* * 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.)
(* * pmi 3/11/87: Revamped for another new session icon.)
(* * pmi 3/25/87: Added NC.MenuFont to all menus)
(DECLARE (GLOBALVARS NC.MenuFont NC.NoteCardsIconWindow))
(if (MOUSESTATE UP)
else (TOTOPW Window)
(ALLOW.BUTTON.EVENTS)
(LET ((Menus (WINDOWPROP Window (QUOTE MENU))))
(* * For the new 1.3 icon, there are three menus in the icon window. Each is a menu of one item.)
(for Menu in Menus
when (for Item in (fetch (MENU ITEMS) of Menu)
when (INSIDEP (MENUITEMREGION Item Menu)
(LASTMOUSEX Window)
(LASTMOUSEY Window))
do (SHADEITEM Item Menu BLACKSHADE)
(* RESETSAVE (SHADEITEM Item Menu BLACKSHADE)
(BQUOTE (SHADEITEM , Item , Menu , WHITESHADE)))
(MENU (OR (EVAL (CADR Item))
(SET (CADR Item)
(create MENU
ITEMS ←(EVAL (CADDR Item))
MENUFONT ← NC.MenuFont
CHANGEOFFSETFLG ←(QUOTE Y)
MENUOFFSET ←(CONS -1 0)
TITLE ←(CONCAT " " (CAR Item)
" Ops ")
CENTERFLG ← T
ITEMHEIGHT ←(IPLUS
(FONTPROP NC.MenuFont
(QUOTE HEIGHT))
1)))))
(REDISPLAYW NC.NoteCardsIconWindow)
(RETURN T))
do (RETURN))))))
(NC.RedisplayNoteCardsIconWindow
(LAMBDA (Window) (* pmi: "18-Mar-87 17:20")
(* * Redisplay the NC Icon window. Use different displkays whether the cursor is on or out of the window)
(* * fgh 6/23/86 First created.)
(* * pmi 3/18/87: Now used only for the old style session icon. Bitmap names needed to change.)
(DECLARE (GLOBALVARS NC.OldStyleIconMenuBitmap NC.OldStyleIconBitmap))
(if (NULL (WINDOWPROP Window (QUOTE NoteCardsOperationInProgress)))
then (GETMOUSESTATE)
(if (INSIDEP (WINDOWPROP Window (QUOTE REGION))
LASTMOUSEX LASTMOUSEY)
then (BITBLT NC.OldStyleIconMenuBitmap 0 0 Window 0 0 NIL NIL (QUOTE INPUT)
(QUOTE REPLACE))
else (BITBLT NC.OldStyleIconBitmap 0 0 Window 0 0 NIL NIL (QUOTE INPUT)
(QUOTE REPLACE))))))
(NC.NoteCardsIconCursorEventFn
(LAMBDA (Window) (* pmi: "18-Mar-87 17:22")
(* * 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.)
(* * pmi 3/18/87: Uses the globalvar NC.NoteCardsIconWindow to solve problem of switching between the two session
icon styles.)
(DECLARE (GLOBALVARS NC.NoteCardsIconWindow))
(if (NULL (WINDOWPROP NC.NoteCardsIconWindow (QUOTE NoteCardsOperationInProgress)))
then (REDISPLAYW NC.NoteCardsIconWindow))))
)
(* * New Functions)
(DEFINEQ
(NC.NoteCardsIconFn
(LAMBDA (IconWindow Icon) (* pmi: "18-Mar-87 17:22")
(* * Create the shrunken icon for the NoteCards session icon)
(DECLARE (GLOBALVARS NC.NoteCardsIconShrunkenBitmap NC.NoteCardsIconShrunkenMask))
(if Icon
else (ICONW NC.NoteCardsIconShrunkenBitmap NC.NoteCardsIconShrunkenMask NIL T))))
(NC.ResetNoteCardsIcon
(LAMBDA (Style) (* pmi: "18-Mar-87 17:24")
(* * Called when switching between the two styles for the NoteCards session icon. If the requested style is already
in use, just flashes the icon. Otherwise, closes the window, resets it, and brings up the new icon.)
(DECLARE (GLOBALVARS NC.NoteCardsIconWindow))
(if (NULL Style)
elseif (EQ (WINDOWPROP NC.NoteCardsIconWindow (QUOTE NC.SessionIconStyle))
Style)
then (FLASHWINDOW NC.NoteCardsIconWindow)
else (CLOSEW NC.NoteCardsIconWindow)
(SETQ NC.NoteCardsIconWindow NIL)
(NC.BringUpNoteCardsIcon NIL Style))))
(NC.MakeNewStyleNoteCardsIcon
(LAMBDA (Position) (* pmi: "19-Mar-87 18:24")
(* * Creates a new style NoteCards Session Icon (designed by Peggy Irish))
(DECLARE (GLOBALVARS NC.CardOpsMenu NC.NoteFileOpsMenu NC.OtherOpsMenu NC.CardOpsItems
NC.NoteFileOpsItems NC.OtherOpsItems NC.NoteCardsIconBitmap
NC.NoteCardsIconMask NC.NoteCardsIconPosition))
(LET ((WinWidth 115)
(WinHeight 86)
(MenuFont (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD)))
WinPos IconWindow)
(SETQ NC.NoteCardsIconPosition (SETQ WinPos (OR Position NC.NoteCardsIconPosition
(GETBOXPOSITION WinWidth WinHeight
NIL NIL NIL
"Please position NoteCards icon."))))
(* * Make the window an icon so that we can use the masking capability available for icons.
This is what allows us to see the background around the icon, instead of rectangular white space.)
(SETQ IconWindow (ICONW NC.NoteCardsIconBitmap NC.NoteCardsIconMask WinPos T))
(* * Each menu item is actually a separate menu. The item regions needed to be offset horizontally, which is
impossible within a menu.)
(ADDMENU (create MENU
ITEMS ←(QUOTE (("Card" NC.CardOpsMenu NC.CardOpsItems)))
CENTERFLG ← T
MENUFONT ← MenuFont
ITEMWIDTH ← 64
MENUOUTLINESIZE ← 1)
IconWindow
(create POSITION
XCOORD ← 12
YCOORD ← 33)
T)
(ADDMENU (create MENU
ITEMS ←(QUOTE (("NoteFile" NC.NoteFileOpsMenu NC.NoteFileOpsItems)))
CENTERFLG ← T
MENUFONT ← MenuFont
ITEMWIDTH ← 64
MENUOUTLINESIZE ← 1)
IconWindow
(create POSITION
XCOORD ← 20
YCOORD ← 46)
T)
(ADDMENU (create MENU
ITEMS ←(QUOTE (("Other" NC.OtherOpsMenu NC.OtherOpsItems)))
CENTERFLG ← T
MENUFONT ← MenuFont
ITEMWIDTH ← 64
MENUOUTLINESIZE ← 1)
IconWindow
(create POSITION
XCOORD ← 28
YCOORD ← 59)
T)
(OPENW IconWindow)
(WINDOWPROP IconWindow (QUOTE ICONFN)
(FUNCTION NC.NoteCardsIconFn))
(WINDOWPROP IconWindow (QUOTE BUTTONEVENTFN)
(FUNCTION NC.NoteCardsIconButtonEventFn))
(WINDOWPROP IconWindow (QUOTE SCROLLFN)
NIL)
(WINDOWPROP IconWindow (QUOTE NOSCROLLBARS)
T)
(* * Need the RedisplayFn for icons)
(WINDOWPROP IconWindow (QUOTE REPAINTFN)
(FUNCTION \ICONW.REPAINTFN))
(WINDOWPROP IconWindow (QUOTE CURSORINFN)
NIL)
(WINDOWPROP IconWindow (QUOTE CURSORMOVEDFN)
NIL)
(WINDOWPROP IconWindow (QUOTE RESHAPEFN)
(QUOTE DON'T))
(WINDOWPROP IconWindow (QUOTE NC.SessionIconStyle)
(QUOTE NewStyle))
IconWindow)))
(NC.MakeOldStyleNoteCardsIcon
(LAMBDA (Position) (* pmi: "19-Mar-87 12:28")
(* * Creates an old style NoteCards Session Icon (designed by Frank Halasz))
(* * 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.)
(* * rht 8/28/86: Now prevents reshaping of session icon.)
(* * pmi 3/19/87: Separated code for Old style icon from code for New style icon. Most of this function was
formerly NC.MakeNoteCardsIcon, which now calls this function for the Old style icon.)
(DECLARE (GLOBALVARS NC.CardOpsMenu NC.NoteFileOpsMenu NC.OtherOpsMenu NC.CardOpsItems
NC.NoteFileOpsItems NC.OtherOpsItems NC.OldStyleIconBitmap
NC.OldStyleIconMenuBitmap NC.NoteCardsIconPosition))
(LET ((WinWidth (WIDTHIFWINDOW (BITMAPWIDTH NC.OldStyleIconBitmap)
0))
(WinHeight (HEIGHTIFWINDOW (BITMAPHEIGHT NC.OldStyleIconBitmap)
NIL 0))
WinPos IconWindow)
(SETQ NC.NoteCardsIconPosition (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)
("NoteFile Ops" NC.NoteFileOpsMenu
NC.NoteFileOpsItems)
("Other Ops" NC.OtherOpsMenu
NC.OtherOpsItems)))
CENTERFLG ← T
MENUFONT ←(FONTCREATE (QUOTE HELVETICA)
12
(QUOTE BOLD))
MENUBORDERSIZE ← 1
ITEMWIDTH ←(DIFFERENCE (BITMAPWIDTH
NC.OldStyleIconBitmap)
2)
ITEMHEIGHT ←(FIX (TIMES (QUOTIENT 1.0 3.0)
(BITMAPHEIGHT
NC.OldStyleIconBitmap)))
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.OldStyleIconMenuBitmap (BITMAPCREATE WinWidth
WinHeight)))
(WINDOWPROP IconWindow (QUOTE ICONFN)
(FUNCTION NC.NoteCardsIconFn))
(WINDOWPROP IconWindow (QUOTE BUTTONEVENTFN)
(FUNCTION NC.NoteCardsIconButtonEventFn))
(WINDOWPROP IconWindow (QUOTE SCROLLFN)
NIL)
(WINDOWPROP IconWindow (QUOTE NOSCROLLBARS)
T)
(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)
(WINDOWPROP IconWindow (QUOTE RESHAPEFN)
(QUOTE DON'T))
(WINDOWPROP IconWindow (QUOTE NC.SessionIconStyle)
(QUOTE OldStyle))
(BITBLT NC.OldStyleIconBitmap 0 0 IconWindow 0 0 WinWidth WinHeight (QUOTE INPUT)
(QUOTE REPLACE))
IconWindow)))
)
(* * Get rid of Globalvars: NC.StructureOpsItems NC.StructureOpsMenu NC.SessionOpsItems
NC.SessionOpsMenu)
(* * New AddVars)
(* * Must first erase the existing menu items - in the patch file ONLY)
(RPAQQ NC.CardOpsItems NIL)
(RPAQQ NC.NoteFileOpsItems NIL)
(ADDTOVAR NC.CardOpsItems (% Close% (NC.CloseNoteCards NIL NIL NIL NC.NoteCardsIconWindow)
"Delete several note cards."
(SUBITEMS (Close% Structure (NC.CloseStructure NIL NIL
NC.NoteCardsIconWindow)
"Close note cards belonging to a structure.")))
(% Delete% (NC.DeleteNoteCards NIL T NIL NC.NoteCardsIconWindow)
"Delete several note cards."
(SUBITEMS (Delete% Structure (NC.DeleteStructure NIL NIL
NC.NoteCardsIconWindow)
"Delete note cards belonging to a structure.")))
(% Copy% (NC.CopyCards NIL NIL NIL NIL NC.NoteCardsIconWindow)
"Copy note cards to a filebox"
(SUBITEMS (Copy% Structure (NC.CopyStructure NIL NIL NIL
NC.NoteCardsIconWindow)
"Copy note cards belonging to a structure.")))
(% Move% (NC.MoveCards NIL NIL NIL NIL NC.NoteCardsIconWindow)
"Move note cards to a filebox"
(SUBITEMS (Move% Structure (NC.MoveStructure NIL NIL NIL
NC.NoteCardsIconWindow)
"Move note cards belonging to a structure."))))
(ADDTOVAR NC.NoteFileOpsItems (% Open% (NC.DoNoteFileOp (QUOTE Open% NoteFile))
"Opens a notefile."
(SUBITEMS (Read-only% Open (NC.DoNoteFileOp (QUOTE
Read-only% Open))
"Open a notefile for read-only.")
))
(% Checkpoint% (NC.DoNoteFileOp (QUOTE Checkpoint% NoteFile))
"Checkpoint a NoteFile"
(SUBITEMS (Checkpoint% All (NC.CheckpointSession)
"Checkpoint all currently open NoteFiles")))
(% Close% (NC.DoNoteFileOp (QUOTE Close% NoteFile))
"Close a notefile."
(SUBITEMS (Close% w/o% confirm (NC.DoNoteFileOp
(QUOTE
Close% w/o% confirm))
"Close a notefile w/o asking for user confirm before closing open cards.")
(Close% All (NC.CloseSession)
"Close all currently open NoteFiles")
(Close% All% w/o% confirm (NC.CloseSession
NIL T)
"Close all open notefiles w/o asking for user confirm before closing open cards.")))
(% Abort% (NC.DoNoteFileOp (QUOTE Abort% NoteFile))
"Close NF, deleting changes since last checkpoint."
(SUBITEMS (Abort% All (NC.CloseSession T)
"Abort all currently open NoteFiles")
))
(% Compact% (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% (NC.DoNoteFileOp (QUOTE Inspect&Repair% NoteFile))
"Do an Inspect & Repair on a NoteFile."
(SUBITEMS (Read% Substances (NC.DoNoteFileOp
(QUOTE
Read% Substances))
"Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down.")))
(% Copy% (NC.DoNoteFileOp (QUOTE Copy% NoteFile))
"Copy a NoteFile.")
(% Rename% (NC.DoNoteFileOp (QUOTE Rename% NoteFile))
"Rename a NoteFile")
(% Delete% (NC.DoNoteFileOp (QUOTE Delete% NoteFile))
"Delete a NoteFile")
(% Create% (NC.DoNoteFileOp (QUOTE Create% NoteFile))
"Create a new NoteFile w/o opening it.")
(% --------% NIL "")
(% NC% FileBrowser% (NC.FileBrowserMenu NC.NoteCardsIconWindow)
"Bring up a NoteFile browser."))
(ADDTOVAR NC.OtherOpsItems (% 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.")))
(% TEdit% Killer% On%
(START-TEDIT-KILLER)
"Start the TEDIT-KILLER process."
(SUBITEMS (TEdit% Killer% Off (STOP-TEDIT-KILLER)
"Stop the TEDIT-KILLER process.")
(New% Process% Limit (SETQ
TEDIT-PROCESS-LIMIT
(OR (NUMBERP (RNUMBER (CONCAT
"Old TEdit process limit: "
TEDIT-PROCESS-LIMIT)
NIL NIL NIL T))
TEDIT-PROCESS-LIMIT))
"Change value of TEdit process limit.")
(New% Wait% Time (SETQ TEDIT-KILLER-WAIT-TIME
(OR (NUMBERP (RNUMBER (CONCAT
"Old TEdit killer wait time: "
TEDIT-KILLER-WAIT-TIME)
NIL NIL NIL T))
TEDIT-KILLER-WAIT-TIME))
"Change value of TEdit killer wait time.")))
(% Session% Icon% Style% NIL
"Change the style of the NoteCards session icon."
(SUBITEMS (% Old% Style% (
NC.ResetNoteCardsIcon (QUOTE OldStyle))
"Change session icon to Roll-through style")
(% New% Style% (
NC.ResetNoteCardsIcon (QUOTE NewStyle))
"Change session icon to Filebox style"))))
(* * Now bring up the new NoteCards Session Icon)
(NC.BringUpNoteCardsIcon NC.NoteCardsIconPosition (QUOTE NewStyle))
(PUTPROPS PMIPATCH020 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
(FILEMAP (NIL (22889 28126 (NC.MakeNoteCardsIcon 22899 . 23390) (NC.BringUpNoteCardsIcon 23392 . 24200
) (NC.NoteCardsIconButtonEventFn 24202 . 26500) (NC.RedisplayNoteCardsIconWindow 26502 . 27456) (
NC.NoteCardsIconCursorEventFn 27458 . 28124)) (28153 36246 (NC.NoteCardsIconFn 28163 . 28565) (
NC.ResetNoteCardsIcon 28567 . 29319) (NC.MakeNewStyleNoteCardsIcon 29321 . 32459) (
NC.MakeOldStyleNoteCardsIcon 32461 . 36244)))))
STOP