(FILECREATED "26-Mar-87 17:15:08" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH023.;2 11970
changes to: (VARS PMIPATCH023COMS)
(FNS NC.NoteCardsIconAfterMoveFn)
previous date: "26-Mar-87 15:51:30" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH023.;1)
(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT PMIPATCH023COMS)
(RPAQQ PMIPATCH023COMS ((* * pmi 3/26/87: Added AFTERMOVEFN to NC.NoteCardsIconWindow, added one
pixel of height to NC.OldStyleIconBitmap to better accommodate new menu.)
(* * Changed in NCINTERFACE:)
(FNS NC.MakeNewStyleNoteCardsIcon NC.MakeOldStyleNoteCardsIcon)
(* * New for NCINTERFACE:)
(FNS NC.NoteCardsIconAfterMoveFn)
(* * For patch file ONLY)
(BITMAPS NC.OldStyleIconBitmap)))
(* * pmi 3/26/87: Added AFTERMOVEFN to NC.NoteCardsIconWindow, added one pixel of height to
NC.OldStyleIconBitmap to better accommodate new menu.)
(* * Changed in NCINTERFACE:)
(DEFINEQ
(NC.MakeNewStyleNoteCardsIcon
(LAMBDA (Position) (* pmi: "26-Mar-87 15:29")
(* * Creates a new style NoteCards Session Icon (designed by Peggy Irish))
(* * pmi 3/26/87: Added AFTERMOVEFNS to keep track of NC.NoteCardsIconPosition.)
(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 AFTERMOVEFN)
(FUNCTION NC.NoteCardsIconAfterMoveFn))
(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: "26-Mar-87 15:44")
(* * 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.)
(* * pmi 3/26/87: Added AFTERMOVEFNS to keep track of NC.NoteCardsIconPosition.)
(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 .333333 (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 AFTERMOVEFN)
(FUNCTION NC.NoteCardsIconAfterMoveFn))
(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)))
)
(* * New for NCINTERFACE:)
(DEFINEQ
(NC.NoteCardsIconAfterMoveFn
(LAMBDA (Window) (* pmi: "26-Mar-87 17:14")
(* * Updates NC.NoteCardsIconPosition when the session icon is moved.)
(DECLARE (GLOBALVARS NC.NoteCardsIconPosition))
(SETQ NC.NoteCardsIconPosition (CREATEPOSITION (fetch (REGION LEFT)
of (WINDOWPROP Window (QUOTE REGION)))
(fetch (REGION BOTTOM)
of (WINDOWPROP Window (QUOTE REGION)))
))))
)
(* * For patch file ONLY)
(RPAQ NC.OldStyleIconBitmap (READBITMAP))
(117 83
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@"
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@"
"L@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@"
"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 PMIPATCH023 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
(FILEMAP (NIL (976 8319 (NC.MakeNewStyleNoteCardsIcon 986 . 4335) (NC.MakeOldStyleNoteCardsIcon 4337
. 8317)) (8353 8899 (NC.NoteCardsIconAfterMoveFn 8363 . 8897)))))
STOP