(FILECREATED " 7-Jun-86 16:22:30" {QV}<NOTECARDS>1.3K>FGHPATCH066.;1
 2931   

      changes to:  (VARS FGHPATCH066COMS NC.NoteCardsIconPosition)
		   (FNS NC.BringUpNoteCardsIcon NoteCards))


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

(PRETTYCOMPRINT FGHPATCH066COMS)

(RPAQQ FGHPATCH066COMS
 ((* * Fix to bug %#97 NC icon positioning)
			  (FNS NC.MakeNoteCardsIcon NC.BringUpNoteCardsIcon)
			  (* * NEw for NCInterface)
			  (FNS NoteCards)
			  (GLOBALVARS NC.NoteCardsIconPosition)
			  (VARS NC.NoteCardsIconPosition)))
(* * Fix to bug %#97 NC icon positioning)


(DEFINEQ

(NC.MakeNoteCardsIcon

  (LAMBDA (Position)                                         (* fgh: " 7-Jun-86 16:16")


          (* * This creates and returns a window containing the NoteCards icon bitmap.)




          (* * fgh 6/7/86 Added Position arg and NC.NoteCardsIconPosition globalvar reference.)



    (LET ((WinWidth (
PLUS
 5 (
BITMAPWIDTH
 NC.NoteCardsIconBitmap)))
	  (WinHeight (
PLUS
 5 (
BITMAPHEIGHT
 NC.NoteCardsIconBitmap)))
	  WinPos IconWindow)
         (
SETQ
 WinPos (
OR
 Position NC.NoteCardsIconPosition (
GETBOXPOSITION
 WinWidth WinHeight 
										  NIL NIL NIL 
								"Please position NoteCards icon.")))
         (
SETQ
 IconWindow (
CREATEW
 (
CREATEREGION
 (fetch
 (
POSITION
 XCOORD) of
 WinPos)
						       (fetch
 (
POSITION
 YCOORD) of
 WinPos)
						       WinWidth WinHeight)
				       NIL NIL T))
         (
OPENW
 IconWindow)
         (
WINDOWPROP
 IconWindow (
QUOTE
 BUTTONEVENTFN)
		       (
FUNCTION
 NC.SessionOperations))
         (
BITBLT
 NC.NoteCardsIconBitmap 0 0 IconWindow 0 0 WinWidth WinHeight (
QUOTE
 INPUT)
		   (
QUOTE
 REPLACE))
     IconWindow)))

(NC.BringUpNoteCardsIcon

  (LAMBDA (Position)                                         (* fgh: " 7-Jun-86 16:18")


          (* * Either flash existing NoteCards icon or make a new one.)




          (* * fgh 6/7/86 Added Position arg to pass to NC.MakeWindow)



    (if
 (
WINDOWP
 NC.NoteCardsIconWindow)
	then
 (if
 Position
		   then
 (
MOVEW
 NC.NoteCardsIconWindow Position))
	       (
FLASHW
 NC.NoteCardsIconWindow)
      else
 (
SETQ
 NC.NoteCardsIconWindow (NC.MakeNoteCardsIcon
 Position)))))
)
(* * NEw for NCInterface)


(DEFINEQ

(NoteCards

  (LAMBDA (IconPosition)                                     (* fgh: " 7-Jun-86 16:21")


          (* * Start up NoteCards by bringing up the NoteCards icon at IconPosition)




          (* * fgh 6/7/86 First created.)



    (NC.BringUpNoteCardsIcon
 (if
 (
POSITIONP
 IconPosition)
				   then
 IconPosition))))
)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.NoteCardsIconPosition)
)

(RPAQQ NC.NoteCardsIconPosition
 NIL)
(PUTPROPS FGHPATCH066 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (608 2337 (NC.MakeNoteCardsIcon 618 . 1789) (NC.BringUpNoteCardsIcon 1791 . 2335)) (2370
 2732 (NoteCards 2380 . 2730)))))
STOP