(FILECREATED " 2-May-86 18:58:43" {PHYLUM}<LANNING>FILECACHE>FILECACHEMSGWINDOW.;5
 5430   

      changes to:  (VARS FILECACHEMSGWINDOWCOMS)

      previous date: " 5-Mar-86 12:54:06" {PHYLUM}<LANNING>FILECACHE>FILECACHEMSGWINDOW.;4)


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

(PRETTYCOMPRINT FILECACHEMSGWINDOWCOMS)

(RPAQQ FILECACHEMSGWINDOWCOMS
 ((* * Give the FileCacher a seperate window and Icon)
	(FILES FILECACHE (FROM LISPUSERS)
	       ICONW)
	(BITMAPS FileCacheMessageIcon FileCacheMessageIconMask)
	[INITVARS (FILE-CACHE-MESSAGE-STREAM-REGION (with REGION (WINDOWPROP PROMPTWINDOW
									     (QUOTE REGION))
							  (CREATEREGION (PLUS LEFT WIDTH)
									BOTTOM WIDTH HEIGHT)))
		  (FILE-CACHE-MESSAGE-STREAM-ICON-POSITION (with REGION 
								 FILE-CACHE-MESSAGE-STREAM-REGION
								 (create POSITION XCOORD ← LEFT 
									 YCOORD ←
									 (MIN BOTTOM
									      (DIFFERENCE
										SCREENHEIGHT
										(BITMAPHEIGHT 
									     FileCacheMessageIcon]
	(VARS (*FILE-CACHE-MESSAGE-STREAM* (CREATEW FILE-CACHE-MESSAGE-STREAM-REGION 
						    "FileCache message window"
						    2)))
	(P (DSPTEXTURE BLACKSHADE *FILE-CACHE-MESSAGE-STREAM*)
	   (DSPOPERATION (QUOTE INVERT)
			 *FILE-CACHE-MESSAGE-STREAM*)
	   (DSPSCROLL (QUOTE ON)
		      *FILE-CACHE-MESSAGE-STREAM*)
	   (DSPRESET *FILE-CACHE-MESSAGE-STREAM*)
	   (WINDOWPROP *FILE-CACHE-MESSAGE-STREAM* (QUOTE ICON)
		       (TITLEDICONW (create TITLEDICON ICON ← FileCacheMessageIcon MASK ← 
					    FileCacheMessageIconMask TITLEREG ←
					    (QUOTE (12 15 40 40)))
				    "File cache msgs" NIL FILE-CACHE-MESSAGE-STREAM-ICON-POSITION T))
	   (SHRINKW *FILE-CACHE-MESSAGE-STREAM*))))
(* * Give the FileCacher a seperate window and Icon)


(FILESLOAD FILECACHE (FROM LISPUSERS)
	   ICONW)

(RPAQ FileCacheMessageIcon (READBITMAP))
(62 61
"AOOOOOOOOOOOOON@"
"AH@@@@@@@@@@@FA@"
"C@@@@@@@@@@@@D@H"
"B@@@@@@@@@@@@L@H"
"B@@@@@@@@@@@@H@D"
"B@@@@@@@@@@@@H@D"
"B@@@@@@@@@@@@H@D"
"B@@@@@@@@@@@@D@H"
"C@@@@@@@@@@@@DDH"
"A@@@@@@@@@@@@CG@"
"AH@@@@@@@@@@@@H@"
"@H@@@@@@@@@@@@H@"
"@H@@@@@@@@@@@@D@"
"@L@@@@@@@@@@@@D@"
"@L@@@@@@@@@@@@D@"
"@D@@@@@@@@@@@@D@"
"@F@@@@@@@@@@@@D@"
"@B@@@@@@@@@@@@D@"
"@B@@@@@@@@@@@@D@"
"@C@@@@@@@@@@@@D@"
"@C@@@@@@@@@@@@D@"
"@A@@@@@@@@@@@@D@"
"@A@@@@@@@@@@@@D@"
"@A@@@@@@@@@@@@D@"
"@AH@@@@@@@@@@@F@"
"@@H@@@@@@@@@@@B@"
"@@H@@@@@@@@@@@B@"
"@@H@@@@@@@@@@@B@"
"@@H@@@@@@@@@@@B@"
"@@H@@@@@@@@@@@B@"
"@@H@@@@@@@@@@@B@"
"@@H@@@@@@@@@@@B@"
"@@H@@@@@@@@@@@B@"
"@@L@@@@@@@@@@@C@"
"@@L@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@D@@@@@@@@@@@A@"
"@@L@@@@@@@@@@@A@"
"@@H@@@@@@@@@@@A@"
"@@H@@@@@@@@@@@A@"
"@@H@@@@@@@@@@@A@"
"@OOOOOOOOOOOO@A@"
"AH@@@@@@@@@@GLA@"
"F@@@@@@@@@@@LFA@"
"D@@@@@@@@@@AHBC@"
"L@@@@@@@@@@A@FB@"
"H@@@@@@@@@@A@LF@"
"H@@@@@@@@@@AOHD@"
"H@@@@@@@@@@AH@D@"
"L@@@@@@@@@@@H@H@"
"L@@@@@@@@@@@LA@@"
"N@@@@@@@@@@@GF@@"
"CH@@@@@@@@@@AL@@"
"@OOOOOOOOOOOOH@@")

(RPAQ FileCacheMessageIconMask (READBITMAP))
(62 61
"AOOOOOOOOOOOOON@"
"AOOOOOOOOOOOOOO@"
"COOOOOOOOOOOOOOH"
"COOOOOOOOOOOOOOH"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOH"
"COOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOO@"
"AOOOOOOOOOOOOOH@"
"@OOOOOOOOOOOOOH@"
"@OOOOOOOOOOOOOL@"
"@OOOOOOOOOOOOOL@"
"@OOOOOOOOOOOOOL@"
"@GOOOOOOOOOOOOL@"
"@GOOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOL@"
"@AOOOOOOOOOOOON@"
"@AOOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@OOOOOOOOOOOOO@"
"@@OOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@GOOOOOOOOOOOO@"
"@@OOOOOOOOOOOOO@"
"@@OOOOOOOOOOOOO@"
"@@OOOOOOOOOOOOO@"
"@@OOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOO@"
"AOOOOOOOOOOOOOO@"
"GOOOOOOOOOOOOOO@"
"GOOOOOOOOOOOOOO@"
"OOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOL@"
"OOOOOOOOOOOOOOL@"
"OOOOOOOOOOOOOOH@"
"OOOOOOOOOOOOOO@@"
"OOOOOOOOOOOOON@@"
"COOOOOOOOOOOOL@@"
"@OOOOOOOOOOOOH@@")

(RPAQ? FILE-CACHE-MESSAGE-STREAM-REGION
 (with REGION (WINDOWPROP PROMPTWINDOW (QUOTE REGION))
						(CREATEREGION (PLUS LEFT WIDTH)
							      BOTTOM WIDTH HEIGHT)))

(RPAQ? FILE-CACHE-MESSAGE-STREAM-ICON-POSITION
 [with REGION FILE-CACHE-MESSAGE-STREAM-REGION
						       (create POSITION XCOORD ← LEFT YCOORD ←
							       (MIN BOTTOM (DIFFERENCE SCREENHEIGHT
										       (BITMAPHEIGHT
											 
									     FileCacheMessageIcon])

(RPAQ *FILE-CACHE-MESSAGE-STREAM*
 (CREATEW FILE-CACHE-MESSAGE-STREAM-REGION 
					     "FileCache message window"
					     2))
(DSPTEXTURE BLACKSHADE *FILE-CACHE-MESSAGE-STREAM*)
(DSPOPERATION (QUOTE INVERT)
	      *FILE-CACHE-MESSAGE-STREAM*)
(DSPSCROLL (QUOTE ON)
	   *FILE-CACHE-MESSAGE-STREAM*)
(DSPRESET *FILE-CACHE-MESSAGE-STREAM*)
(WINDOWPROP *FILE-CACHE-MESSAGE-STREAM* (QUOTE ICON)
	    (TITLEDICONW (create TITLEDICON ICON ← FileCacheMessageIcon MASK ← 
				 FileCacheMessageIconMask TITLEREG ← (QUOTE (12 15 40 40)))
			 "File cache msgs" NIL FILE-CACHE-MESSAGE-STREAM-ICON-POSITION T))
(SHRINKW *FILE-CACHE-MESSAGE-STREAM*)
(PUTPROPS FILECACHEMSGWINDOW COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP