(FILECREATED " 2-May-86 12:09:10" {QV}<NOTECARDS>1.3K>RHTPATCH040.;1
 1408   

      changes to:  (VARS RHTPATCH040COMS)
		   (FNS NC.FlashFileBrowserWin))


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

(PRETTYCOMPRINT RHTPATCH040COMS)

(RPAQQ RHTPATCH040COMS
 ((* * Changed function in NCINTERFACE)
			  (FNS NC.FlashFileBrowserWin)))
(* * Changed function in NCINTERFACE)


(DEFINEQ

(NC.FlashFileBrowserWin

  (LAMBDA (Pattern NoteCardsIconWindow)                      (* rht: " 2-May-86 12:08")


          (* * Return the file browser window if any, corresponding to given pattern. Expand if shrunken and flash.)




          (* * rht 5/2/86: Now will reexpand shrunken notefile browser but won't recover window if it's been closed.

	  Closing window screws up filebrowser.)



    (LET ((FileBrowserWin (
LISTGET
 (
WINDOWPROP
 NoteCardsIconWindow (
QUOTE
 
									 FileBrowserPatterns&Wins))
				     Pattern))
	  IconWin)
         (if
 (
AND
 FileBrowserWin (
OPENWP
 (
SETQ
 IconWin (
WINDOWPROP
 FileBrowserWin
									     (
QUOTE
 ICONWINDOW)))))
	     then
 (
EXPANDW
 IconWin))
         (if
 (
AND
 FileBrowserWin (
OPENWP
 FileBrowserWin))
	     then
 (
FLASHW
 FileBrowserWin)
		    FileBrowserWin
	   else
 NIL))))
)
(PUTPROPS RHTPATCH040 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (410 1326 (NC.FlashFileBrowserWin 420 . 1324)))))
STOP