Artifact 19941b3743858aee7ad1d2cb8c53ddd3000747124a9a5d98044384d5e4e5cc51:

• File psl-1983/3-1/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: 1478) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/glisp/window.sl — 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: 1478) [annotate] [blame] [check-ins using]

% WINDOW.SL         28 Feb 83
% {DSK}WINDOW.PSL;1  5-FEB-83 15:51:00 





% GSN  2-FEB-83 13:57 
(DG WINDOW-CENTEROFFSET (W:WINDOW V:VECTOR)
(SEND W:REGION CENTEROFFSET V))


% GSN 13-JAN-83 16:28 
(DG WINDOW-DRAWLINE (W:WINDOW FROM:VECTOR TO:VECTOR)
(DRAWLINE FROM:X FROM:Y TO:X TO:Y 1 'PAINT
	  W))


% GSN 13-JAN-83 15:29 
(DG WINDOW-MOVETO (W:WINDOW POS:VECTOR)
(MOVETO POS:X POS:Y W))


% GSN 13-JAN-83 16:25 
(DG WINDOW-PRINTAT (W:WINDOW S:STRING POS:VECTOR)
(PROG (LASTWOP)
      (SEND W MOVETO POS)
      (SETQ LASTWOP (DSPOPERATION 'PAINT
				  W))
      (PRIN1 S W)
      (DSPOPERATION LASTWOP W)))


% GSN 13-JAN-83 16:28 
(DG WINDOW-UNDRAWLINE (W:WINDOW FROM:VECTOR TO:VECTOR)
(DRAWLINE FROM:X FROM:Y TO:X TO:Y 1 'ERASE
	  W))


% GSN 13-JAN-83 16:24 
(DG WINDOW-UNPRINTAT (W:WINDOW S:STRING POS:VECTOR)
(PROG (LASTWOP)
      (SEND W MOVETO POS)
      (SETQ LASTWOP (DSPOPERATION '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)
         (START (REGION:START))
         (SIZE  (REGION:SIZE)))
MSG     ((CLEAR CLEARW)
	 (OPEN OPENW)
	 (CLOSE CLOSEW)))

)