(FILECREATED " 3-Jul-86 15:25:37" {QV}<NOTECARDS>1.3K>FGHPATCH086.;1
 1104   

      changes to:  (VARS FGHPATCH086COMS))


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

(PRETTYCOMPRINT FGHPATCH086COMS)

(RPAQQ FGHPATCH086COMS
 ((FNS NC.RedisplayNoteCardsIconWindow)))
(DEFINEQ

(NC.RedisplayNoteCardsIconWindow

  (LAMBDA (Window)                                           (* fgh: " 3-Jul-86 13:12")


          (* * 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
 (
EQ
 (
WHICHW
)
			   Window)
		   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))))))
)
(PUTPROPS FGHPATCH086 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (298 1022 (NC.RedisplayNoteCardsIconWindow 308 . 1020)))))
STOP