(FILECREATED "12-Jul-84 03:13:15" {PHYLUM}<SHRAGER>LISP>WAM.;3
 2834   

      changes to:  (FNS WAM)
		   (VARS WAMCOMS WAM.ICON.CLOSEW WAM.ICON.REDISPLAYW WAM.ICON.SHRINKW WAM.ICON.SHAPEW 
			 WAM.ICON.MOVEW)

      previous date: "12-Jul-84 02:16:08" {PHYLUM}<SHRAGER>LISP>WAM.;1)


(* Copyright (c) 1984 by Jeff. All rights reserved.)

(PRETTYCOMPRINT WAMCOMS)

(RPAQQ WAMCOMS
 ((VARS WAM.ICON.CLOSEW WAM.ICON.MOVEW WAM.ICON.REDISPLAYW WAM.ICON.SHAPEW 
		      WAM.ICON.SHRINKW)
		(FNS WAM)))

(RPAQ WAM.ICON.CLOSEW (READBITMAP))
(18 18
"@@@@@@@@"
"AOOKH@@@"
"AL@AH@@@"
"AG@BH@@@"
"AALD@@@@"
"A@G@H@@@"
"A@ALH@@@"
"A@@DH@@@"
"A@@DH@@@"
"A@@DH@@@"
"A@@DH@@@"
"A@ADH@@@"
"AL@DH@@@"
"AG@DH@@@"
"AOOOH@@@"
"@@ND@@@@"
"@@CL@@@@"
"@@@@@@@@")

(RPAQ WAM.ICON.MOVEW (READBITMAP))
(18 18
"@@@@@@@@"
"GOOOL@@@"
"D@@@D@@@"
"D@@@D@@@"
"D@@@D@@@"
"D@@@D@@@"
"D@@@D@@@"
"D@@@D@@@"
"D@@@D@@@"
"D@@@D@@@"
"D@@@D@@@"
"GOOOL@@@"
"CHNCH@@@"
"DEADD@@@"
"DEADD@@@"
"DEADD@@@"
"CHNCH@@@"
"@@@@@@@@")

(RPAQ WAM.ICON.REDISPLAYW (READBITMAP))
(18 18
"@@@@@@@@"
"F@A@@@@@"
"G@CH@@@@"
"CHFL@@@@"
"ALLF@@@@"
"@OHK@@@@"
"@GBEH@@@"
"@FABH@@@"
"@LDI@@@@"
"AIBDH@@@"
"C@IB@@@@"
"FBDH@@@@"
"DIBD@@@@"
"FDI@@@@@"
"CBD@@@@@"
"AIB@@@@@"
"@LH@@@@@"
"@@@@@@@@")

(RPAQ WAM.ICON.SHAPEW (READBITMAP))
(18 18
"O@@CL@@@"
"L@@@L@@@"
"J@@AD@@@"
"IOOND@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"A@@B@@@@"
"IOOND@@@"
"J@@AD@@@"
"L@@@L@@@"
"O@@CL@@@")

(RPAQ WAM.ICON.SHRINKW (READBITMAP))
(18 18
"OOOOL@@@"
"L@@@L@@@"
"J@@AD@@@"
"ID@JD@@@"
"HL@LD@@@"
"IL@ND@@@"
"H@@@D@@@"
"HAN@D@@@"
"HAB@D@@@"
"HAB@D@@@"
"HAN@D@@@"
"H@@@D@@@"
"IL@ND@@@"
"HL@LD@@@"
"ID@JD@@@"
"J@@AD@@@"
"L@@@L@@@"
"OOOOL@@@")
(DEFINEQ

(WAM

  [LAMBDA (W EDGE)                                           (* Jeff.Shrager "12-Jul-84 03:09")

    (PROG [(WAM
 (ADDMENU (create
 MENU
				 MENUBORDERSIZE ← 0
				 MENUOUTLINESIZE ← 0
				 ITEMS ←[BQUOTE ([, WAM.ICON.MOVEW (MOVEW (WINDOWPROP (WHICHW)
										      (QUOTE 
										       MAINWINDOW]
						 [, WAM.ICON.SHRINKW (SHRINKW (WINDOWPROP
										(WHICHW)
										(QUOTE MAINWINDOW]
						 [, WAM.ICON.SHAPEW (SHAPEW (WINDOWPROP (WHICHW)
											(QUOTE 
										       MAINWINDOW]
						 [, WAM.ICON.REDISPLAYW (REDISPLAYW
						      (WINDOWPROP (WHICHW)
								  (QUOTE MAINWINDOW]
						 (, WAM.ICON.CLOSEW (CLOSEW (WINDOWPROP (WHICHW)
											(QUOTE 
										       MAINWINDOW]
				 CENTERFLG ← T)
			 (CREATEW (create
 REGION
					  LEFT ← 0
					  BOTTOM ← 0
					  HEIGHT ← 100
					  WIDTH ← 23)
				  NIL 1)
			 (QUOTE (0 . 0]
          (ATTACHWINDOW WAM (SETQ W (OR W (WHICHW)))
			(OR EDGE (QUOTE RIGHT))
			(QUOTE TOP))
          (WINDOWPROP WAM (QUOTE SCROLLFN)
		      NIL])
)
(PUTPROPS WAM COPYRIGHT ("Jeff" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1722 2773 (WAM 1732 . 2771)))))
STOP