(FILECREATED "28-Aug-85 16:45:18" {DSK}<LISPFILES>MATT>DEDITICON.;1
 3823   

      changes to:  (VARS DEDITICONCOMS)

      previous date: " 9-Apr-85 18:21:59" {DSK}<LISPFILES>MATT>MTHSTUFF.;28)


(* Copyright (c) 1985 by Beckman Instruments, Inc.. All rights reserved.)

(PRETTYCOMPRINT DEDITICONCOMS)

(RPAQQ DEDITICONCOMS
 ((FILES (FROM VALUEOF LISPUSERSDIRECTORIES)
			     ICONW)
		      (VARS EditorBitMap EditorMask)
		      (INITVARS (DEditIconPosition (create POSITION XCOORD ← 150 YCOORD ← 737)))
		      (VARS (DEditLinger (ICONW EditorBitMap EditorMask DEditIconPosition T)))
		      (ADVISE RESETDEDIT UNDEDITW)))
(FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES)
	   ICONW)

(RPAQ EditorBitMap (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@OOOOOOOOOOOOON@"
"AH@@@@@@@@@@@FA@"
"C@@@@@@@@@@@@D@H"
"B@@@@@@@@@@@@L@H"
"B@@@@@@@@@@@@H@D"
"B@@@@@@@@@@@@H@D"
"B@@@@@@@@@@@@H@D"
"B@@@@@@@@@@@@D@H"
"C@@@@@@@F@@@@F@H"
"A@@@@@@@I@@@@CO@"
"AH@@@@@A@H@@@A@@"
"@H@@@@@B@H@@@@H@"
"@H@@@@@EA@@@@@D@"
"@L@@@@@HJ@@@@@D@"
"@L@@@@A@D@@@@@D@"
"@D@@@@B@H@@@@@D@"
"@F@@@@DA@@@@@@D@"
"@B@@@@HB@@@@@@D@"
"@B@@@A@D@@@@@@D@"
"@C@@@B@H@@@@@@D@"
"@C@@@DA@@@@@@@D@"
"@A@@@HB@@@@@@@D@"
"@A@@A@D@@@@@@@D@"
"@A@@B@H@@@D@@@D@"
"@AH@DA@@@@J@@@F@"
"@@H@HB@@@AA@@@B@"
"@@HA@D@@@B@H@@B@"
"@@HB@H@@@D@D@@B@"
"@@HDA@@@@H@B@@B@"
"@@HHB@@@A@@F@@B@"
"@@HHD@@@B@@J@@B@"
"@@HLH@@@D@AB@@B@"
"@@HO@@@@H@BB@@B@"
"@@L@@@@A@@DD@@C@"
"@@LH@@@B@@HH@@A@"
"@@DH@@@D@AA@@@A@"
"@@DG@@@H@BB@@@A@"
"@@DA@@@L@DD@@@A@"
"@@DA@@@J@HH@@@A@"
"@@D@H@@IAA@@@@A@"
"@@D@D@@HJB@@@@A@"
"@@D@B@@DDD@@@@A@"
"@@D@B@@BDH@@@@A@"
"@@D@L@@AE@@@@@A@"
"@@L@@@@@N@@@@@A@"
"@@H@@@@@D@@@@@A@"
"@@H@@@@@@@@@@@A@"
"@@H@@@@@@@@@@@A@"
"@OOOOOOOOOOOO@A@"
"AH@@@@@@@@@@GLA@"
"F@GNCOH@@@@@LFA@"
"D@BAA@HABB@AHBC@"
"L@BAA@@A@B@A@FB@"
"H@BAAN@MBG@A@LF@"
"H@BAA@ACBB@AOHD@"
"H@BAA@AABB@AH@D@"
"L@BAA@ICBB@@H@H@"
"D@GNCOHMCC@@LA@@"
"F@@@@@@@@@@@GF@@"
"CH@@@@@@@@@@AL@@"
"@OOOOOOOOOOOOH@@")

(RPAQ EditorMask (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@OOOOOOOOOOOOON@"
"AOOOOOOOOOOOOOO@"
"COOOOOOOOOOOOOOH"
"COOOOOOOOOOOOOOH"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOH"
"COOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOO@"
"AOOOOOOOOOOOOO@@"
"@OOOOOOOOOOOOOH@"
"@OOOOOOOOOOOOOL@"
"@OOOOOOOOOOOOOL@"
"@OOOOOOOOOOOOOL@"
"@GOOOOOOOOOOOOL@"
"@GOOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOL@"
"@AOOOOOOOOOOOON@"
"@@OOOOOOOOOOOON@"
"@@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@"
"GOOOOOOOOOOOOO@@"
"GOOOOOOOOOOOON@@"
"COOOOOOOOOOOOL@@"
"@OOOOOOOOOOOOH@@")

(RPAQ? DEditIconPosition
 (create POSITION XCOORD ← 150 YCOORD ← 737))

(RPAQ DEditLinger
 (ICONW EditorBitMap EditorMask DEditIconPosition T))

(PUTPROPS RESETDEDIT READVICE
 [NIL (AROUND NIL (PROG1 * (AND (WINDOWP DEditLinger)
							     (CLOSEW DEditLinger])

(PUTPROPS UNDEDITW READVICE
 [NIL (AFTER NIL (AND (NULL (CDR WDS))
						 (EQP (CAR WDS)
						      DEditWindow)
						 DEditLinger
						 (NEQ DEditLinger T)
						 (SETQ DEditLinger (SHRINKW DEditWindow DEditLinger])
(READVISE RESETDEDIT UNDEDITW)
(PUTPROPS DEDITICON COPYRIGHT ("Beckman Instruments, Inc." 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP