File psl-1983/glisp/window.old artifact 812258283d part of check-in 46c747b52c


(FILECREATED "13-JAN-83 16:31:59" {DSK}WINDOW.LSP;2 2220   

      changes to:  (VARS WINDOWCOMS)
		   (FNS WINDOW-DRAWLINE WINDOW-PRINTAT WINDOW-UNDRAWLINE WINDOW-UNPRINTAT 
			WINDOW-MOVETO)

      previous date: "13-JAN-83 15:33:15" {DSK}WINDOW.LSP;1)


(PRETTYCOMPRINT WINDOWCOMS)

(RPAQQ WINDOWCOMS ((FNS WINDOW-DRAWLINE WINDOW-MOVETO WINDOW-PRINTAT WINDOW-UNDRAWLINE 
			WINDOW-UNPRINTAT)
		   (GLISPOBJECTS WINDOW)))
(DEFINEQ

(WINDOW-DRAWLINE
  (GLAMBDA (W:WINDOW FROM,TO:VECTOR)                         (* GSN "13-JAN-83 16:28")
	   (DRAWLINE FROM:X FROM:Y TO:X TO:Y 1 (QUOTE PAINT)
		     W)))

(WINDOW-MOVETO
  (GLAMBDA (W:WINDOW POS:VECTOR)                             (* GSN "13-JAN-83 15:29")
	   (MOVETO POS:X POS:Y W)))

(WINDOW-PRINTAT
  (GLAMBDA (W:WINDOW S:STRING POS:VECTOR)                    (* GSN "13-JAN-83 16:25")
	   (PROG (LASTWOP)
	         (SEND W MOVETO POS)
	         (SETQ LASTWOP (DSPOPERATION (QUOTE PAINT)
					     W))
	         (PRIN1 S W)
	         (DSPOPERATION LASTWOP W))))

(WINDOW-UNDRAWLINE
  (GLAMBDA (W:WINDOW FROM,TO:VECTOR)                         (* GSN "13-JAN-83 16:28")
	   (DRAWLINE FROM:X FROM:Y TO:X TO:Y 1 (QUOTE ERASE)
		     W)))

(WINDOW-UNPRINTAT
  (GLAMBDA (W:WINDOW S:STRING POS:VECTOR)                    (* GSN "13-JAN-83 16:24")
	   (PROG (LASTWOP)
	         (SEND W MOVETO POS)
	         (SETQ LASTWOP (DSPOPERATION (QUOTE ERASE)
					     W))
	         (PRIN1 S W)
	         (DSPOPERATION LASTWOP W))))
)


[GLISPOBJECTS


(WINDOW

   ANYTHING

   PROP   ((REGION ((DSPCLIPPINGREGION NIL self))
		   RESULT DOLPHINREGION)
	   (XPOSITION ((DSPXPOSITION NIL self))
		      RESULT INTEGER)
	   (YPOSITION ((DSPYPOSITION NIL self))
		      RESULT INTEGER)
	   (HEIGHT (REGION:HEIGHT))
	   (WIDTH (REGION:WIDTH))
	   (LEFT ((DSPXOFFSET NIL self))
		 RESULT INTEGER)
	   (BOTTOM ((DSPYOFFSET NIL self))
		   RESULT INTEGER))

   MSG    ((CLEAR CLEARW)
	   (OPEN OPENW)
	   (CLOSE CLOSEW)
	   (MOVETO WINDOW-MOVETO OPEN T)
	   (PRINTAT WINDOW-PRINTAT OPEN T)
	   (UNPRINTAT WINDOW-UNPRINTAT OPEN T)
	   (DRAWLINE WINDOW-DRAWLINE OPEN T)
	   (UNDRAWLINE WINDOW-UNDRAWLINE OPEN T))  )
]

(DECLARE: DONTCOPY
  (FILEMAP (NIL (432 1520 (WINDOW-DRAWLINE 442 . 619) (WINDOW-MOVETO 621 . 759) (WINDOW-PRINTAT 761 . 
1047) (WINDOW-UNDRAWLINE 1049 . 1228) (WINDOW-UNPRINTAT 1230 . 1518)))))
STOP


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]