(FILECREATED "28-Aug-86 12:31:10" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH096.;1
 3495   

      changes to:  (VARS RHTPATCH096COMS))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RHTPATCH096COMS)

(RPAQQ RHTPATCH096COMS
 ((* * Changes to NCINTERFACE)
			  (FNS NC.MakeNoteCardsIcon)))
(* * Changes to NCINTERFACE)


(DEFINEQ

(NC.MakeNoteCardsIcon

  (LAMBDA (Position)                                         (* rht: "28-Aug-86 12:30")


          (* * 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.)




          (* * rht 8/28/86: Now prevents reshaping of session icon.)



    (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)
         (
WINDOWPROP
 IconWindow (
QUOTE
 RESHAPEFN)
		       (
QUOTE
 DON'T))
         (
BITBLT
 NC.NoteCardsIconBitmap 0 0 IconWindow 0 0 WinWidth WinHeight (
QUOTE
 INPUT)
		   (
QUOTE
 REPLACE))
     IconWindow)))
)
(PUTPROPS RHTPATCH096 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (361 3413 (NC.MakeNoteCardsIcon 371 . 3411)))))
STOP