Artifact 812258283d6e05ba0730f154d5e3a6d794cce1d22707a4f0dc472768cc9716e8:

• File psl-1983/glisp/window.old — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 2347) [annotate] [blame] [check-ins using] [more...]

(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