| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485 |
- (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
|
