(FILECREATED "11-Oct-85 14:58:39" ("compiled on " {ERIS}NEWWINDOWS>WINDOW.;1) "10-Oct-85 19:26:01" recompiled changes: \CLOSEW1 \OPENW1 in "INTERLISP-D 10-Oct-85 ..." dated "10-Oct-85 19:58:34") (FILECREATED "11-Oct-85 14:55:16" {ERIS}NEWWINDOWS>WINDOW.;1 209242 changes to: (FNS \CLOSEW1 \OPENW1) (MACROS \INSURE.WRITABLE.DS .WHILE.WRITABLE.DS.) (VARS WINDOWCOMS) previous date: " 7-Oct-85 14:32:02" {ERIS}SOURCES>WINDOW.;67) \RESTORE.CLOSED.WINDOW D1 (P 2 OLDDESTINATION P 1 OLDYOFFSET P 0 OLDXOFFSET I 0 WINDOW) O@g @g @g @g @g @g @g (JH@ I@ @(113Q DSPYOFFSET 106Q DSPXOFFSET 63Q \GETSTREAM 54Q PUTWINDOWPROP 45Q PUTWINDOWPROP 36Q PUTWINDOWPROP 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (76Q \DISPLAYDATA 73Q \DISPLAYDATA 66Q STREAM 60Q OUTPUT 51Q OLDDESTINATION 42Q OLDYOFFSET 33Q OLDXOFFSET 21Q OLDDESTINATION 12Q OLDYOFFSET 3 OLDXOFFSET) () \MAKE.CLOSED.WINDOW.WRITABLE D1 (P 4 OLDREGION P 3 SAVED-BITMAP P 2 OLDDESTINATION P 1 OLDYOFFSET P 0 OLDXOFFSET I 0 WINDOW) nh@ h@ @g (@@ @gH @gI @gJ @g (KLH@ LI@ @(152Q DSPYOFFSET 141Q DSPXOFFSET 113Q \GETSTREAM 104Q PUTWINDOWPROP 74Q PUTWINDOWPROP 64Q PUTWINDOWPROP 47Q \INSUREWINDOW 20Q \GETSTREAM 11Q DSPYOFFSET 4 DSPXOFFSET) (126Q \DISPLAYDATA 123Q \DISPLAYDATA 116Q STREAM 110Q OUTPUT 100Q OLDDESTINATION 70Q OLDYOFFSET 60Q OLDXOFFSET 41Q WINDOW 33Q \DISPLAYDATA 30Q \DISPLAYDATA 23Q STREAM 15Q OUTPUT) () WINDOWWORLDA0001 D1 (L (0 W) F 0 LOGOW) hcNIL NIL () WINDOWWORLD D1 (P 3 F P 2 FN P 1 \INTERRUPTABLE P 0 CHANGEIT F 4 TtyDisplayStream F 5 \DEFAULTTTYDISPLAYSTREAM F 6 LOGOW F 7 \LINEBUF.OFD)  e``HjHH @s`` ``d ~`dJgg ` ,g` gl ` n`` jT jT lnzn&nMhT `T c h`n`lLn&ljOnOOn+IHO JHO OOlM OC__IOl JHlM oM LM M(364Q PRIN3 357Q DSPFONT 347Q MOVETO 311Q \DRAWLOGOWINDOWIMAGE 274Q SIN 263Q COS 227Q \FZEROP 173Q CREATEW 170Q CONCAT 165Q DATE 143Q GETBOXREGION 111Q POSITIONP 67Q STRINGWIDTH) (103Q WINDOWTYPE#) ( 353Q (TIMESROMAND 44Q) 156Q " " 152Q "Copyright (c) by Xerox Corporation" 137Q "Specify location for logo window." 64Q (TIMESROMAND 44Q) 47Q .5 35Q .62 16Q "Interlisp-D") \DRAWLOGOWINDOWIMAGE D1 (I 5 W I 4 BORDER I 3 HEIGHT I 2 WIDTH I 1 YPOS I 0 XPOS) 8hddE@ABCggn hddED@DABDlCDlggj (65Q BKBITBLT 24Q BKBITBLT) (60Q REPLACE 55Q TEXTURE 15Q REPLACE 12Q TEXTURE) () \TTY.CREATING.DISPLAYSTREAM D1 NIL kd Hg HiH(7 DSPCREATE 4 BITMAPCREATE) (27Q STREAM 21Q \CREATE.TTY.OUTCHARFN 16Q STREAM) () \CREATE.TTY.OUTCHARFN D1 (I 1 CHAR I 0 STREAM F 1 TtyDisplayStream) h Q QAlH(7 \CREATE.TTYDISPLAYSTREAM 3 HASTTYWINDOWP) (14Q STREAM) () \CREATE.TTYDISPLAYSTREAM D1 (F 0 DEFAULTTTYREGION F 1 \TTYWINDOW) MH``P`P`PP o`g hi c (112Q TTYDISPLAYSTREAM 105Q CREATEW 100Q CONCAT 75Q PROCESSPROP 60Q CREATEREGION 2 WINDOWWORLDP) (72Q NAME 67Q \RUNNING.PROCESS 41Q \TTYREGIONOFFSETSPTR 30Q \TTYREGIONOFFSETSPTR 22Q \TTYREGIONOFFSETSPTR 17Q TTYREGIONOFFSETS 13Q \TTYREGIONOFFSETSPTR 7 \TTYREGIONOFFSETSPTR) ( 64Q "TTY window for ") HASTTYWINDOWP D1 (I 0 PROCESS F 0 TtyDisplayStream) @ P`h d(15Q PROCESS.TTY) (6 \DEFAULTTTYDISPLAYSTREAM) () TTYINFOSTREAM D1 (P 0 STREAM I 0 PROCESS F 1 TtyDisplayStream) @Q H ` `H(23Q \GETSTREAM 7 PROCESS.TTY) (27Q \DEFAULTTTYDISPLAYSTREAM 20Q PROMPTWINDOW) () WINDOW.MOUSE.HANDLERA0001 D1 (NAME ERRORSET F 0 \MHCOM) P` i(6 DOUSERFNS) (3 \LastInWindow) () WINDOW.MOUSE.HANDLERA0002 D1 (NAME ERRORSET F 0 \MHCOM F 1 \MHWINDOW) PQ i(4 DOUSERFNS) NIL () WINDOW.MOUSE.HANDLERA0004 D1 (NAME ERRORSET F 0 \MHCOM F 1 \MHWINDOW) PQ i(4 DOUSERFNS) NIL () WINDOW.MOUSE.HANDLERA0005 D1 (NAME ERRORSET F 0 \MHCOM F 1 \MHWINDOW) PQ i(4 DOUSERFNS) NIL () WINDOW.MOUSE.HANDLER D1 (P 5 \MOUSEBUSY P 3 \MHPROCESS P 2 \MHCOM P 1 \MHWINDOW P 0 NBREAKS F 6 NBREAKS F 7 \INTERRUPTABLE) WjVjVـVA``````i`````` Y``9`j`d ``v`?`J` B` 9`` ` `m`4Zoi I`!` `  Zoi I``llpII fI@l@`ljjkj'l`ljjkjl@`l jjkj`I ` h ` I```l\jLL I .[l@`ljVjT l@`ljjkjl`ljjkjl@`l jjkjI0Zoi Vkj'l`ljjkjl@`l jjkjIg `llI IZdI `hIZ}oi q``cI?l@`ljjkj'l`ljjkjl@`l jjkj``d# `  ` `h ` (1375Q \PROTECTED.APPLY 1365Q \DEFINEDP 1351Q \PROTECTED.APPLY 1341Q \DEFINEDP 1333Q \PROTECTED.APPLY 1323Q \DEFINEDP 1176Q WINDOW.MOUSE.HANDLERA0005 1144Q GETMOUSESTATE 1140Q \PROTECTED.APPLY 1075Q GETWINDOWUSERPROP 1012Q WINDOW.MOUSE.HANDLERA0004 676Q TTY.PROCESSP 646Q \INSUREWINDOW 641Q \FZEROP 574Q \PROTECTED.APPLY 564Q \DEFINEDP 545Q OPENWP 536Q DOWINDOWCOM 365Q WINDOW.MOUSE.HANDLERA0002 345Q \PROTECTED.APPLY 335Q \DEFINEDP 316Q WINDOW.MOUSE.HANDLERA0001 264Q GETMOUSESTATE 250Q SCROLL.HANDLER 240Q IN/SCROLL/BAR? 225Q \PROTECTED.APPLY 215Q \DEFINEDP 161Q \FZEROP 122Q WHICHW 26Q GETMOUSESTATE) (1372Q BACKGROUNDCURSORMOVEDFN 1356Q BACKGROUNDCURSORMOVEDFN 1346Q BACKGROUNDCOPYBUTTONEVENTFN 1330Q BACKGROUNDBUTTONEVENTFN 1315Q BACKGROUNDBUTTONEVENTFN 1310Q BACKGROUNDCOPYBUTTONEVENTFN 1270Q \LASTKEYSTATE 1245Q \LASTKEYSTATE 1222Q \LASTKEYSTATE 1207Q \LastWindowButtons 1204Q LASTMOUSEBUTTONS 1161Q WINDOW 1153Q \LastWindowButtons 1150Q LASTMOUSEBUTTONS 1124Q WINDOW 1115Q WINDOW 1102Q LASTMOUSEBUTTONS 1072Q COPYBUTTONEVENTFN 1051Q \LASTKEYSTATE 1026Q \LASTKEYSTATE 775Q WINDOW 753Q \LASTKEYSTATE 730Q \LASTKEYSTATE 705Q \LASTKEYSTATE 660Q \LASTKEYSTATE 621Q LASTMOUSEBUTTONS 611Q \LastWindowButtons 606Q LASTMOUSEBUTTONS 571Q BACKGROUNDCOPYRIGHTBUTTONEVENTFN 555Q \LastInWindow 542Q \LastInWindow 530Q BACKGROUNDCOPYRIGHTBUTTONEVENTFN 510Q \LASTKEYSTATE 465Q \LASTKEYSTATE 442Q \LASTKEYSTATE 426Q WINDOW 410Q LASTMOUSEBUTTONS 401Q \LastWindowButtons 376Q LASTMOUSEBUTTONS 372Q \LastInWindow 351Q WINDOW 342Q BACKGROUNDCURSORINFN 332Q BACKGROUNDCURSORINFN 325Q BACKGROUNDCURSORINFN 302Q WINDOW 273Q \LastWindowButtons 270Q LASTMOUSEBUTTONS 255Q \LastCursorPosition 245Q \LastInWindow 235Q LASTMOUSEY 232Q LASTMOUSEX 222Q BACKGROUNDCURSOROUTFN 212Q BACKGROUNDCURSOROUTFN 205Q BACKGROUNDCURSOROUTFN 200Q \LastInWindow 170Q \LastWindowButtons 165Q LASTMOUSEBUTTONS 152Q LASTMOUSEBUTTONS 143Q LASTMOUSEBUTTONS 136Q \LastInWindow 126Q \LastInWindow 117Q LASTMOUSEY 114Q LASTMOUSEX 107Q LASTMOUSEY 104Q \LastCursorPosition 77Q LASTMOUSEX 74Q \LastCursorPosition 60Q \LastWindowButtons 55Q LASTMOUSEBUTTONS 47Q \LastCursorPosition 44Q LASTMOUSEY 35Q \LastCursorPosition 32Q LASTMOUSEX) ( 1172Q (WINDOW.MOUSE.HANDLERA0005) 1006Q (WINDOW.MOUSE.HANDLERA0004) 361Q (WINDOW.MOUSE.HANDLERA0002) 312Q (WINDOW.MOUSE.HANDLERA0001)) \PROTECTED.APPLYA0001 D1 (NAME ERRORSET F 0 WINDOW F 1 FN) PkQhNIL NIL () \PROTECTED.APPLY D1 (I 1 WINDOW I 0 FN) oi (7 \PROTECTED.APPLYA0001) NIL ( 3 (\PROTECTED.APPLYA0001)) DOWINDOWCOM D1 (P 0 $$VAR I 0 WINDOW) @d`0@g X@kH`@ @ ```E`d`dgmjdIdgdg di jdndhdJ  X@kHih(215Q DOBACKGROUNDCOM 177Q MENU 52Q TOTOPW 45Q \CARET.DOWN 25Q GETWINDOWUSERPROP) (174Q WindowMenu 140Q CLRPROMPT 131Q PPROMPT3 110Q Y 101Q WindowMenuCommands 74Q MENUTYPE# 67Q WindowMenu 62Q MENUTYPE# 56Q WindowMenu 40Q \CARET.UP 22Q DOWINDOWCOMFN 5 WINDOWTYPE#) () DOBACKGROUNDCOMA0010 D1 (NAME ERRORSET F 0 FORM) P i(3 EVAL) NIL () DOBACKGROUNDCOM D1 (P 0 FORM) s`ljd0```E`d`dgmjdIdgdg di jdndhdJ  X oi h(157Q DOBACKGROUNDCOMA0010 144Q MENU 2 GETMOUSESTATE) (141Q BackgroundMenu 105Q CLRPROMPT 76Q PPROMPT3 55Q Y 46Q BackgroundMenuCommands 41Q MENUTYPE# 34Q BackgroundMenu 27Q MENUTYPE# 23Q BackgroundMenu 6 LASTMOUSEBUTTONS) ( 153Q (DOBACKGROUNDCOMA0010)) DEFAULT.BACKGROUND.COPYFNA0011 D1 (NAME ERRORSET F 0 FORM) P i(3 EVAL) NIL () DEFAULT.BACKGROUND.COPYFN D1 (P 1 FORM F 4 BackgroundCopyMenu F 5 BackgroundCopyMenuCommands) |`lHj HH ]0T`TB`dUdgmjdJdi dg dgjdndhdK c Y oi h(170Q DEFAULT.BACKGROUND.COPYFNA0011 155Q MENU 32Q \FZEROP 2 GETMOUSESTATE) (124Q DEFAULTMENUHELDFN 115Q CLRPROMPT 67Q Y 55Q MENUTYPE# 45Q MENUTYPE# 6 LASTMOUSEBUTTONS) ( 164Q (DEFAULT.BACKGROUND.COPYFNA0011)) BURYW D1 (P 2 ATWINS P 1 ABOVEWINDOWS P 0 OVERLAPPINGWINDOWS I 0 WINDOW) L@ bd !@H@ Z YH d @ Jd Id @(103Q \OPENW1 67Q \OPENW1 60Q \OPENW1 47Q \CLOSEW1 41Q REVERSE 34Q REMOVE 31Q LDIFFERENCE 25Q ALLATTACHEDWINDOWS 14Q ORDERFROMBOTTOMTOTOP 11Q OVERLAPPINGWINDOWS 3 \INSUREWINDOW) NIL () CLEARW D1 (I 0 WINDOW) "h@ b @ h@ @ @ (37Q DSPRESET 26Q WYOFFSET 22Q WYOFFSET 15Q WXOFFSET 11Q WXOFFSET 4 \INSUREWINDOW) (32Q WINDOW) () CLOSEW D1 (I 0 WINDOW) @ bd @ @ @ (33Q \CLOSEW1 25Q OPENWP 17Q \OKTOCLOSEW 11Q OPENWP 3 \INSUREWINDOW) NIL () \CLOSEW1 D1 (P 0 \INTERRUPTABLE I 0 WINDOW) <@ `@@ @d@g@ (71Q \MAKE.CLOSED.WINDOW.WRITABLE 30Q \SW2BM 6 \INTERNALTOTOPW) (63Q CLOSED 60Q WINDOW 53Q \TOPWDS 46Q WINDOW 41Q TOPW 34Q WINDOW 23Q WINDOW 15Q WINDOW 11Q ScreenBitMap) () \OKTOCLOSEW D1 (I 0 WINDOW) @$@i gh@(12Q DOUSERFNS) (15Q DON'T 3 WINDOW) () OPENW D1 (P 0 USEROPENFN I 0 WINDOW) *@ bd h@g H @ H@ @(46Q DOUSERFNS 40Q \OPENW1 32Q \USERFNISDON'T 23Q GETWINDOWUSERPROP 11Q OPENWP 3 \INSUREWINDOW) (20Q OPENFN) () DOUSERFNS D1 (P 1 USERFN I 2 CHECKFORDON'TFLG I 1 WINDOW I 0 FNLST) R@@`!B@dgg@#Ak@ggBg@@HhAkIgBHXNIL (106Q DON'T 56Q DON'T 50Q DON'T 42Q DON'T 26Q DON'T 21Q DON'T 7 LAMBDASPLST) () DOUSERFNS2 D1 (P 0 USERFN I 4 ARG3 I 3 ARG2 I 2 ARG1 I 1 WINDOW I 0 FNLST) .@dd` ABCDl@dABCDlHhNIL (10Q LAMBDASPLST) () \USERFNISDON'T D1 (L (0 USERFN)) @@gg@NIL (13Q DON'T 6 DON'T) () \OPENW1 D1 (P 0 \INTERRUPTABLE I 0 WINDOW) [@`@d@g (*`n`(@@ @ (130Q \RESTORE.CLOSED.WINDOW 124Q \SW2BM 37Q \GETSTREAM) (117Q WINDOW 111Q WINDOW 103Q \DISPLAYDATA 76Q STREAM 73Q \TOPWDS 62Q SCREENWIDTH 57Q PILOTBBT 52Q \DISPLAYDATA 47Q \DISPLAYDATA 42Q STREAM 34Q OUTPUT 30Q \TOPWDS 23Q WINDOW 17Q TOPW 11Q TOPW 6 WINDOW) () CREATEW D1 (P 13Q \INTERRUPTABLE P 5 WINDOW P 4 DISPLAYDATA P 3 DSP P 2 REG P 1 WBORDER P 0 TITLEHEIGHT I 3 NOOPENFLG I 2 BORDERSIZE I 1 TITLE I 0 REGION)  Ajh` ـjB3` @ k`hK `@[(\ LJdjjILJdjjI`JdNNIn(HJ_dOOIHhZu@l ,@d3ih@@@@@7A'` o` A` o` ll A[(Jl Jd3ihoJ JJ_dOOIoJ `K `dKdJJJ _dOdA(dI,dgdg0dg]L_ OlQMlǿOM)M M M CM M(661Q OPENW 653Q SHOWWFRAME 647Q MOVETOUPPERLEFT 643Q ADVISEWDS 532Q BITMAPCREATE 500Q DSPDESTINATION 470Q ERROR 427Q HELP 376Q EQLENGTH 361Q DSPCREATE 354Q CLRPROMPT 347Q GETREGION 337Q PRIN1 324Q PRIN1 314Q PRIN1 301Q TERPRI 214Q EQLENGTH 45Q DSPDESTINATION 33Q DISPLAYSTREAMP 11Q DSPLINEFEED) (607Q \DISPLAYDATA 577Q TOTOPW 570Q GIVE.TTY.PROCESS 561Q CLOSED 503Q WINDOWTYPE# 474Q ScreenBitMap 365Q STREAM 334Q PROMPTWINDOW 321Q PROMPTWINDOW 311Q PROMPTWINDOW 276Q PROMPTWINDOW 126Q SCREENWIDTH 67Q \DISPLAYDATA 55Q STREAM 40Q ScreenBitMap 24Q WBorder 6 WindowTitleDisplayStream) ( 464Q "Region too small to use as a window" 423Q "Not a region" 331Q "%"" 306Q "Specify region for window %"") MOVEW D1 (P 36Q NCT P 35Q OCT P 34Q NCH P 33Q OCH P 32Q NCW P 31Q OCW P 30Q NCR P 27Q OCR P 26Q OCB P 25Q NCB P 24Q OCL P 23Q NCL P 22Q NEWCLIPPINGREGION P 21Q \INTERRUPTABLE P 20Q \INTERRUPTABLE P 17Q MFN P 15Q FN P 14Q REG P 13Q BTM P 12Q LFT P 11Q OLDCLIPREGION P 10Q OLDHEIGHT P 7 OLDWIDTH P 6 OLDBOTTOM P 5 OLDLEFT P 4 NEWREGION P 3 POS P 2 OPEN? P 1 USERMOVEFN P 0 OLDREGION I 2 Y I 1 POSorX I 0 WINDOW F 37Q LAMBDASPLST) @ bd@&@  IdgIgo hH` @ i_H]H^H_H_Ax@ @g _@glO_3OOMN iZIddW>OlhghOO_O_ [MOKNO A"Ad3Bd3AB AAA [aJ@ _@KlO\dgg LO_n@KlI\dgh L[KMKdNbKKOOhJ'@ `H@ @h`L @L@Hi @ O@g @ Ki@hi @ O$_*O_,O_2O$_4O_6O$_8O$_&O_(@O&O,O(O&O6 O(O2_.O&O4_0@O.O,O0O.O6 O,dO*@O&O*O4O,O* O,O6_:O*O8_<@O&O:O4O@`@gi @ b@ Adg@ g@ Adg@ g@Adg@ g@Adg@g@Adg@g@Adg@g@Adg@&g@$Adg@0g@.Adg@g@*Adg@(g@,Ag@@A (473Q GETWINDOWUSERPROP 65Q \GETWINDOWWIDTH 53Q \GETWINDOWHEIGHT 36Q \ILLEGAL.ARG 27Q WFROMDS 22Q DISPLAYSTREAMP 17Q \GETSTREAM) (463Q WINDOW 455Q IMAGECOVERED 446Q WINDOW 440Q BORDER 432Q WINDOW 423Q TITLE 413Q WINDOW 405Q NEWREGIONFN 377Q WINDOW 370Q REGION 360Q WINDOW 352Q PROCESS 344Q WINDOW 335Q WINDOWENTRYFN 325Q WINDOW 317Q CLOSEFN 311Q WINDOW 302Q MOVEFN 272Q WINDOW 264Q REPAINTFN 256Q WINDOW 247Q EXTENT 237Q WINDOW 231Q RESHAPEFN 223Q WINDOW 214Q SCROLLFN 204Q WINDOW 176Q DSP 170Q WINDOW 161Q CURSORMOVEDFN 151Q WINDOW 143Q CURSOROUTFN 135Q WINDOW 126Q CURSORINFN 116Q WINDOW 110Q BUTTONEVENTFN 102Q WINDOW 73Q RIGHTBUTTONFN 57Q WIDTH 44Q HEIGHT 13Q OUTPUT 4 WINDOWTYPE#) () GETWINDOWUSERPROP D1 (I 1 USERPROP I 0 WINDOW) @ A'(3 \INSUREWINDOW) (6 WINDOW) () PUTWINDOWPROP D1 (P 2 OLDVALUE P 1 OLDDATA P 0 CURREGION I 2 VALUE I 1 PROP I 0 WINDOW) @`@g @ b@ Adg@ @B g@@BAdg@$@B$g@&@B&Adg@ @B g@@BAdg@@Bgo@ Adg@@Bg@@BAdg@BB B @Bg@@B@ Adgo@ go@ Adgo@ g=@ B B HBHB@BB @B hAdg@*@B*g@(B@ Adg@,Bd3@  g@.@B.Ag@0@B0@!IBK@ABhhOdLOII,OI_,dO,O,IIN_.dO.O.O_IPh@ OdK Ah@ _$OdL 0OO$O$@հO$ON@O$N@_OOh@ gOO@ OO#h@ gOOO$@ OO@ ON_OL_@OOMOOhi OO@OOOOLhi ABBJOOKLhg OM_ OK_"@O"OO O"Lhi OO@OOMOOhi @(1213Q REDISPLAYW 1157Q REDISPLAYW 1114Q BKBITBLT 1066Q REDISPLAYW 1032Q REDISPLAYW 766Q WYOFFSET 754Q DSPYPOSITION 733Q DSPSCROLL 716Q WXOFFSET 700Q DSPSCROLL 604Q \INBETWEENP 572Q DSPYPOSITION 563Q \INBETWEENP 553Q DSPXPOSITION 45Q DSPCLIPPINGREGION 17Q \INSUREWINDOW 11Q \INSUREWINDOW 3 \INSUREWINDOW) (1110Q REPLACE 736Q ON 703Q ON 656Q FONTDESCRIPTOR 641Q FONTDESCRIPTOR 622Q FONTDESCRIPTOR) () \INBETWEENP D1 (L (2 RGHT 1 LFT 0 X)) A@hB@NIL NIL () DECODE/WINDOW/OR/DISPLAYSTREAM D1 (P 0 WINDOW I 3 BORDER I 2 TITLE I 1 WINDOWVAR I 0 DSORW) @ 2@ -@ BB@(@gB C@gC @@EA-H )H BBH(HgB CHgC HAhBC gAhBC o@Ah (235Q ERROR 213Q SET 210Q CREATEW 165Q SET 162Q CREATEW 150Q PUTWINDOWPROP 135Q PUTWINDOWPROP 110Q OPENW 102Q WINDOWP 56Q PUTWINDOWPROP 43Q PUTWINDOWPROP 17Q OPENW 11Q WINDOWP 3 DISPLAYSTREAMP) (216Q WINDOW 177Q NEW 171Q WINDOW 144Q BORDER 131Q TITLE 121Q WINDOW 63Q WINDOW 52Q BORDER 37Q TITLE 27Q WINDOW) ( 225Q "Illegal args") GROW/REGION D1 (I 1 AMOUNT I 0 REGION) @A@A@Alb@A (35Q CREATEREGION) NIL () PPROMPT3 D1 (I 0 ITEM) @@ @ (20Q PROMPTPRINT) NIL () CLRPROMPT D1 NIL `d`  ` (26Q TERPRI 20Q TERPRI 14Q CLEARW) (23Q PROMPTWINDOW 7 WINDOWTYPE# 2 PROMPTWINDOW) () PROMPTPRINT D1 (P 2 I P 0 N) "eHkJdIha` JkZ(31Q PRIN1 6 CLRPROMPT) (26Q PROMPTWINDOW) () OPENWINDOWS D1 NIL  `YHHINIL (21Q WINDOW 5 TOPW) () \INSUREWINDOW D1 (I 0 WINDOW) @d`gi @ @ (35Q \ILLEGAL.ARG 27Q WFROMDS 22Q DISPLAYSTREAMP 17Q \GETSTREAM) (13Q OUTPUT 5 WINDOWTYPE#) () OVERLAPPINGWINDOWS D1 (P 6 OVERLAPPED P 5 ADDS P 4 X P 2 DONTS P 1 OVERLAPS P 0 WPTR I 0 WINDOW) v`@d "HII WIdHL h>HIHhJ[h%NMNINJ ZMN NiKM]HJHX(125Q WOVERLAPP 112Q REMOVE 42Q WOVERLAPP 24Q MEMB 7 ALLATTACHEDWINDOWS) (157Q WINDOW 2 TOPW) () WOVERLAPP D1 (I 1 W2 I 0 W1) @A (16Q REGIONSINTERSECTP) (11Q WINDOW 3 WINDOW) () ORDERFROMBOTTOMTOTOP D1 (L (0 WLST)) `HI@HIHXNIL (25Q WINDOW 2 TOPW) () \ONSCREENW D1 (I 0 W) `l@ (11Q \INSUREWINDOW) (2 SCREENWIDTH) () \PUTONSCREENW D1 (I 0 W) @d`@  (27Q MOVEW 17Q \INSUREWINDOW) (12Q SCREENWIDTH 4 WINDOW) () \UPDATECACHEDFIELDS D1 (I 0 DS) @ (3 \SFFixDestination) NIL () \WWCHANGESCREENSIZE D1 (P 1 W P 0 WINDOWS) n Hd `` HdI `dI H dI I I h(145Q OPENW 140Q \PUTONSCREENW 133Q \ONSCREENW 120Q DREVERSE 107Q \UPDATECACHEDFIELDS 102Q \INSUREWINDOW 60Q \UPDATECACHEDFIELDS 53Q \INSUREWINDOW 40Q \CLEARBM 27Q \STARTDISPLAY 17Q CLOSEW 5 DREVERSE 2 OPENWINDOWS) (70Q KNOWNWINDOWS 35Q WINDOWBACKGROUNDSHADE 32Q ScreenBitMap) () CREATEWFROMIMAGE D1 (P 0 WINDOW I 0 IMAGE) Kjd@ @ hhji !Hg@ lIIl@ lJJl @jdH H(107Q BKBITBLT 73Q PUTWINDOWPROP 55Q BITMAPHEIGHT 37Q BITMAPWIDTH 24Q CREATEW 11Q BITMAPHEIGHT 5 BITMAPWIDTH) (102Q WINDOW 33Q MINSIZE) () UPDATEWFROMIMAGE D1 (L (0 WINDOW)) 5@@HjHjHIHI@j,hNIL (56Q WINDOW 47Q BITMAP 34Q BITMAP 11Q WINDOW 3 WINDOW) () SCROLLW D1 (I 3 CONTINUOUSFLG I 2 DY I 1 DX I 0 WINDOW) "`@ @g@ABClH(7 \CARET.DOWN) (23Q SCROLLBYREPAINTFN 14Q WINDOW 2 \CARET.UP) () SCROLLBYREPAINTFN D1 (P 21Q NEWY P 20Q OLDY P 17Q NEWX P 16Q OLDX P 13Q YEXTENTUSE P 12Q XEXTENTUSE P 11Q WHOLEWIDTH P 10Q WHOLEHEIGHT P 7 CRBOTTOM P 6 CRLEFT P 5 CRWIDTH P 4 CRHEIGHT P 3 X P 2 EXTENTUSE P 1 EXTENT P 0 DSP I 3 CONTINUOUSFLG I 2 YDELTA I 1 XDELTA I 0 WINDOW) @ @ @g  hH [d^K_K]K\IIJg_g_8iJdg'dg dgdgJggJRi__AIjbCVAjQAjEjhH ٰ@m IAIM _hH Ob _J _H bB:Ijb1m oBIL I_"hH O"bCBjBj jhH كH b`@  !K`H( [AH BH hAjI\OiVImMNIOgOgMjNMIIOgOgMjdAA_dOObjhiL@NO@ANOMLgg AH NAپ@AjNOANMAdNNOjAdMML i BjIIbOi\ImROIOgOgLjOLIIOgOgLjdBB_dOObjhi@NO@NBOMLgg BH OBٻ@BjNKMBNLKBdKKMjBdLL i (1313Q REDISPLAYW 1307Q CREATEREGION 1236Q WYOFFSET 1230Q BKBITBLT 1020Q REDISPLAYW 1014Q CREATEREGION 743Q WXOFFSET 735Q BKBITBLT 536Q WYOFFSET 530Q WXOFFSET 521Q INTERSECTREGIONS 516Q \DSPUNTRANSFORMREGION 477Q SUBREGIONP 472Q \INSUREWINDOW 460Q DSPLINEFEED 452Q DSPLINEFEED 421Q WYOFFSET 405Q FIXR 327Q DSPLINEFEED 316Q \DECODE.EXTENT.USE 306Q \DECODE.EXTENT.USE 272Q WXOFFSET 261Q FIXR 226Q DSPLINEFEED 32Q DSPCLIPPINGREGION 22Q GETWINDOWUSERPROP 11Q \INSUREWINDOW 3 \INSUREWINDOW) (1224Q REPLACE 1221Q INPUT 1134Q +- 1125Q - 1074Q + 1065Q +- 731Q REPLACE 726Q INPUT 645Q +- 636Q - 610Q + 601Q +- 511Q STREAM 505Q WHOLEDISPLAY 466Q WHOLEDISPLAY 155Q +- 150Q -+ 140Q LIMIT 131Q +- 122Q - 113Q + 75Q + 67Q LIMIT 17Q SCROLLEXTENTUSE) ( 370Q 1.0) ADJUSTOFFSETS D1 (P 0 DSP I 2 YDELTA I 1 XDELTA I 0 WINDOW) @ BH AH h(22Q WXOFFSET 15Q WYOFFSET 3 \INSUREWINDOW) NIL () CREATESCROLLINGW D1 (I 1 BORDER I 0 TITLE) h@A gg (16Q PUTWINDOWPROP 5 CREATEW) (13Q SCROLLBYREPAINTFN 10Q SCROLLFN) () IN/SCROLL/BAR? D1 (P 1 EXTENTUSE P 0 EXTENT I 2 Y I 1 X I 0 WINDOW) @@g h@AB h@AB ?@ @g HhnHmeIh`Id ghPh@ H @AB 9@ @g Hh$HmId gh h@ H (266Q EXTENDPASTHORIZBOUNDARIES 262Q DSPCLIPPINGREGION 245Q \DECODE.EXTENT.USE 214Q GETWINDOWUSERPROP 203Q \INSUREWINDOW 175Q INSIDE? 161Q EXTENDPASTVERTBOUNDARIES 155Q DSPCLIPPINGREGION 140Q \DECODE.EXTENT.USE 102Q GETWINDOWUSERPROP 71Q \INSUREWINDOW 63Q INSIDE? 45Q INSIDE? 22Q GETWINDOWUSERPROP) (250Q LIMIT 211Q SCROLLEXTENTUSE 166Q WINDOW 143Q LIMIT 77Q SCROLLEXTENTUSE 54Q WINDOW 36Q WINDOW 17Q NOSCROLLBARS 3 WINDOW) () RELDSPXOFFSET D1 (I 1 DISPLAYSTREAM I 0 DX) @hA A (12Q DSPXOFFSET 5 DSPXOFFSET) NIL () RELDSPYOFFSET D1 (I 1 DISPLAYSTREAM I 0 DY) @hA A (12Q DSPYOFFSET 5 DSPYOFFSET) NIL () SCROLL.HANDLERA0005 D1 (NAME ERRORSET L (0 NIL) F 1 BUTTON F 2 WINDOW F 3 TIMEDOWN F 4 SCROLLW F 5 CONTINUOUSSCROLL? F 6 DIRECTION F 7 SCROLLREG F 10Q TIMEIN F 11Q LEFTCURSOR F 12Q MACROY F 13Q RIGHTCURSOR F 14Q SCROLLCURSOR F 15Q MIDDLECURSOR) b R T (W-W`` 0T R `` hic hcR T `lHj HH ;Q1Uhc RQVW`` TVR W hccc c\`dljdlj#Qggcj cW )`ljQggcj cW U-S` $S cRQVW``i TVR S` ic kjQggcW (534Q CURSOR 465Q \CLOCKGREATERP 452Q \UPDATE.EXTENT.IMAGE 443Q \SCROLL.HANDLER.DOIT 420Q \CLOCK0 412Q \CLOCKGREATERP 374Q CURSOR 364Q CLOCK 325Q CURSOR 315Q CLOCK 242Q BLOCK 223Q CURSOR 215Q \UPDATE.EXTENT.IMAGE 206Q \SCROLL.HANDLER.DOIT 152Q \FZEROP 122Q TOTOPW 113Q TOTOPW 101Q TIMEREXPIRED? 64Q INSIDE? 51Q \INSUREWINDOW 44Q CLOSEW 36Q INSIDE? 14Q CLOSEW 7 OPENWP 2 GETMOUSESTATE) (524Q MIDDLE 514Q MIDDLE 462Q WAITBEFORESCROLLTIME 436Q LASTMOUSEY 433Q LASTMOUSEX 407Q WAITBETWEENSCROLLTIME 355Q RIGHT 347Q RIGHT 334Q LASTMOUSEBUTTONS 306Q LEFT 300Q LEFT 251Q LASTMOUSEBUTTONS 202Q LASTMOUSEY 177Q LASTMOUSEX 126Q LASTMOUSEBUTTONS 71Q \LastInWindow 61Q LASTMOUSEY 56Q LASTMOUSEX 33Q LASTMOUSEY 30Q LASTMOUSEX) () SCROLL.HANDLER D1 (P 21Q RESETSTATE P 20Q MACROY P 16Q OLDVALUE P 13Q TIMEINTIMER P 12Q TIMEIN P 11Q CONTINUOUSSCROLL? P 10Q TIMEDOWN P 7 MIDDLECURSOR P 6 RIGHTCURSOR P 5 LEFTCURSOR P 4 SCROLLCURSOR P 3 DIRECTION P 2 BUTTON P 1 SCROLLW P 0 SCROLLREG I 0 WINDOW F 22Q RESETVARSLST F 23Q VertThumbCursor F 24Q HorizThumbCursor) - @ h@X`` R` H`` ;@ Y-@Hhl _ OYg```W&_j @X`` ` H`` @"Y}@Hhl _"OYg``W(_`IK@ l n_L 1gOhhW$c$_og g_"Oc$gO O" O (446Q OPENW 442Q ERROR! 434Q APPLY 405Q SCROLL.HANDLERA0005 347Q CURSOR 335Q \CLOCK0 327Q \UPDATE.EXTENT.IMAGE 263Q CREATEW 231Q INSIDE? 216Q GETMOUSESTATE 212Q DISMISS 176Q INSIDE? 154Q OPENW 111Q CREATEW 63Q INSIDE? 50Q GETMOUSESTATE 44Q DISMISS 34Q INSIDE? 14Q GETMOUSESTATE 6 OPENWP) (424Q CURSOR 411Q ERROR 402Q INTERNAL 355Q CURSOR 320Q ScrollRightCursor 307Q ScrollLeftCursor 303Q HorizScrollCursor 277Q HORIZ 254Q WINDOW 243Q WINDOW 226Q LASTMOUSEY 223Q LASTMOUSEX 207Q SCROLLWAITTIME 173Q LASTMOUSEY 170Q LASTMOUSEX 162Q WINDOW 141Q ScrollDownCursor 135Q ScrollUpCursor 131Q VertScrollCursor 125Q VERT 102Q WINDOW 71Q WINDOW 60Q LASTMOUSEY 55Q LASTMOUSEX 41Q SCROLLWAITTIME 31Q LASTMOUSEY 26Q LASTMOUSEX 20Q WINDOW) ( 377Q (SCROLL.HANDLERA0005)) \SCROLL.HANDLER.DOITA0001 D1 (NAME ERRORSET P 3 TOP P 2 LFT P 1 SIZEOFORIGIN P 0 WBORDER F 4 SCROLLREGION F 5 XPOS F 6 YPOS F 7 WINDOW F 10Q DIRECTION F 11Q BUTTON F 12Q CONTINUOUS?) W ,l"HTغTTkHٻWWg^WdgJUdkNkJdgUJdk;k7g,JIUo%ooUJITIl jWgaWdgKVdkQkMdgVKdm=m8g-VKIo&ooKIVTIl jW h(362Q SCROLLW 353Q SHOULDNT 347Q MIN 344Q MAX 203Q SHOULDNT 177Q MIN 174Q MAX 4 \INSUREWINDOW) (272Q MIDDLE 246Q RIGHT 223Q LEFT 212Q VERT 123Q MIDDLE 101Q RIGHT 56Q LEFT 45Q HORIZ) ( 321Q 0.0 315Q 1.0 307Q 0.0 152Q 0.0 146Q 1.0 140Q 0.0) \SCROLL.HANDLER.DOIT D1 (I 6 CONTINUOUS? I 5 YPOS I 4 XPOS I 3 SCROLLREGION I 2 DIRECTION I 1 BUTTON I 0 WINDOW) oi (7 \SCROLL.HANDLER.DOITA0001) NIL ( 3 (\SCROLL.HANDLER.DOITA0001)) \DECODE.EXTENT.USE D1 (L (0 EXTENTUSE)) 3@dgg@didgdgdg@ggiNIL (56Q +- 51Q -+ 42Q +- 34Q - 26Q + 11Q LIMIT 5 LIMIT) () \UPDATE.EXTENT.IMAGE D1 (P 23Q WINWIDTH P 22Q SCROLLHEIGHT P 21Q SCROLLWIDTH P 20Q GRAYLEFT P 17Q GRAYWIDTH P 16Q EXWIDTH P 15Q SCROLLREGION P 14Q WINREGION P 13Q WINHEIGHT P 12Q SCROLLHEIGHT P 11Q SCROLLWIDTH P 10Q GRAYBOTTOM P 7 GRAYHEIGHT P 6 EXHEIGHT P 5 SCROLLREGION P 4 WINREGION P 0 EXTENT I 2 SCROLLINGW I 1 DIRECTION I 0 SCROLLBARW F 24Q SCROLLBARSHADE) y@ B 1HhAdghB h@ HS NjM_M_L_OOON۹dIIlJJl_OdHHkLLkNO_hdd@jOOOggn hdd@kOlOlOlggW( n ?g6hB h@ HSjOO_"O_$O_&O"O&O"OۻdKK_O&OHO_ hdd@O jOO$ggn hdd@O lkOlO$lggW( n (562Q BKBITBLT 551Q TEXTUREP 511Q BKBITBLT 346Q DSPCLIPPINGREGION 341Q DSPCLIPPINGREGION 315Q BKBITBLT 304Q TEXTUREP 244Q BKBITBLT 45Q DSPCLIPPINGREGION 40Q DSPCLIPPINGREGION 7 \INSUREWINDOW 3 CLEARW) (544Q REPLACE 541Q TEXTURE 502Q REPLACE 477Q TEXTURE 325Q HORIZ 277Q REPLACE 274Q TEXTURE 235Q REPLACE 232Q TEXTURE 25Q VERT) () EXTENDPASTHORIZBOUNDARIES D1 (L (1 EXTENT 0 VIEW)) @AAAk@@kNIL NIL () EXTENDPASTVERTBOUNDARIES D1 (L (1 EXTENT 0 VIEW)) "@AAAk@@kNIL NIL () REDISPLAYWA0001 D1 (NAME ERRORSET F 0 DSP F 1 RESETVARSLST F 2 REGION F 3 WINDOW F 4 RESETY F 5 REPAINTFN) SgRP PhhhQcghP PhhhQcghP PhhhQcSR USR ci(115Q DOUSERFNS2 106Q FILLWITHBACKGROUND 63Q DSPYOFFSET 35Q DSPXOFFSET 7 DSPCLIPPINGREGION) (56Q DSPYOFFSET 30Q DSPXOFFSET 2 DSPCLIPPINGREGION) () REDISPLAYW D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 CLIPREG P 1 REPAINTFN P 0 DSP I 2 ALWAYSFLG I 1 REGION I 0 WINDOW F 6 LISPXHIST F 7 RESETVARSLST) j@!@ YB ghH ZA>dA AJ bho hV!Wog hg] ML@A I@J (147Q DOUSERFNS2 141Q FILLWITHBACKGROUND 131Q ERROR! 124Q RESETRESTORE 112Q REDISPLAYWA0001 70Q PROMPTPRINT 54Q INTERSECTREGIONS 45Q SUBREGIONP 34Q DSPCLIPPINGREGION 14Q \INSUREWINDOW) (120Q ERROR 107Q INTERNAL 26Q NILL 3 WINDOW) ( 104Q (REDISPLAYWA0001) 65Q "Window has no REPAINTFN. Can't redisplay.") FILLWITHBACKGROUND D1 (I 1 REG I 0 WIN) Ah@ g@ (21Q DSPFILL 14Q \INSUREWINDOW 5 DSPTEXTURE) (10Q REPLACE) () UPDATE/SCROLL/REG D1 (P 0 IMAGEREG I 0 WINDOW) @@!@ @ @h @"@" @h"@H`ٹjIIjH`H@(h` jh@HH`ٺjJJjH`hh(163Q DSPLINEFEED 77Q CLOSEW 45Q CLOSEW) (231Q SCROLLBARWIDTH 211Q SCROLLBARWIDTH 201Q WINDOW 160Q WindowTitleDisplayStream 151Q WINDOW 140Q SCROLLBARWIDTH 121Q SCROLLBARWIDTH 114Q WINDOW 104Q WINDOW 72Q WINDOW 62Q WINDOW 52Q WINDOW 40Q WINDOW 30Q WINDOW 17Q WINDOW 3 WINDOW) () WTODSX D1 (I 1 WINDOW I 0 WX) @hA (12Q DSPCLIPPINGREGION) (5 WINDOW) () WTODSY D1 (I 1 WINDOW I 0 WY) @hA (12Q DSPCLIPPINGREGION) (5 WINDOW) () WXOFFSET D1 (P 1 CR P 0 DS I 1 WINDOW I 0 DX) =Ag A hH Yd@3@hH H Idj@IH (71Q DSPCLIPPINGREGION 52Q DSPXOFFSET 45Q DSPXOFFSET 27Q DSPCLIPPINGREGION 17Q \ILLEGAL.ARG 11Q DISPLAYSTREAMP 6 \GETSTREAM) (3 OUTPUT) () WYOFFSET D1 (P 1 CR P 0 DS I 1 WINDOW I 0 DY) @Ag A hH Yd@3@hH H IIj@IH (74Q DSPCLIPPINGREGION 53Q DSPYOFFSET 46Q DSPYOFFSET 27Q DSPCLIPPINGREGION 17Q \ILLEGAL.ARG 11Q DISPLAYSTREAMP 6 \GETSTREAM) (3 OUTPUT) () BITMAPSCROLLFN D1 (I 2 YDELTA I 1 XDELTA I 0 WINDOW) @g @AB (14Q SCROLLBITMAP 6 GETWINDOWUSERPROP) (3 BITMAP) () SCROLLBITMAP D1 (P 1 REGION P 0 DSP I 3 YDELTA I 2 XDELTA I 1 WINDOW I 0 BITMAP) _A 1@`NhH YddCCI@ٺdJJH IdBBI@ٻdKKH @jdH h(133Q BKBITBLT 124Q WXOFFSET 66Q WYOFFSET 25Q DSPCLIPPINGREGION 3 \INSUREWINDOW) (106Q BITMAP 50Q BITMAP 15Q BITMAPTYPE#) () REDISPLAYBITMAP D1 (P 1 WREGION P 0 DSP I 1 WINDOW I 0 BITMAP) .@`o@ A hH Y@jdHII (53Q BKBITBLT 35Q DSPCLIPPINGREGION 23Q \INSUREWINDOW 16Q ERROR) (4 BITMAPTYPE#) ( 12Q "ILLEGAL ARG") ULREDISPLAYBITMAP D1 (P 1 REGION P 0 DSP I 1 WNEW I 0 BITMAP) ;@`o@ A hH Y@jdHIII@ (70Q BKBITBLT 35Q DSPCLIPPINGREGION 23Q \INSUREWINDOW 16Q ERROR) (61Q BITMAP 4 BITMAPTYPE#) ( 12Q "ILLEGAL ARG") EXTENDEXTENT D1 (P 0 EXTENT I 1 INCLUDEREGION I 0 WINDOW) 1@ H!@gAAAAA A (56Q EXTENDREGION 51Q PUTWINDOWPROP 3 \INSUREWINDOW) (17Q EXTENT) () WIDTHIFWINDOW D1 (L (1 BORDER 0 INTERIORWIDTH)) @A`lNIL (6 WBorder) () HEIGHTIFWINDOW D1 (I 2 BORDER I 1 TITLEFLG I 0 INTERIORHEIGHT) @Ajh` ـjB`l(12Q DSPLINEFEED) (23Q WBorder 7 WindowTitleDisplayStream) () \DSPUNTRANSFORMREGION D1 (I 1 DISPLAYDATA I 0 REGION) @A @A @@ (30Q CREATEREGION 14Q \DSPUNTRANSFORMY 5 \DSPUNTRANSFORMX) NIL () SHRINKWA0001 D1 (I 0 ICONW) `kj` @ @ (32Q MOVEW 25Q CURSOR 21Q EXPANDW 15Q CURSOR) (12Q WAITINGCURSOR 2 LASTMOUSEBUTTONS) () SHRINKW D1 (P 2 FN P 1 ICONW P 0 TITLE I 3 EXPANDFN I 2 ICONPOSITION I 1 TOWHAT I 0 WINDOW)  @ b@ h@g @g @i gAd` @gA @gA Y I B gb@gA AlAAb@g Z@dg lJ@g b B gbA3Ad` #@ (XHoH o Y@gI Ig@ Igg I gIgg @gg Igg C@gC Igg BgIB IgB B@g @ I __`OOOjKKj`OOؼdLLOO`OOOjMM!j`OOؾdNNO @ I I(764Q OPENW 760Q \CLOSEW1 753Q MOVEW 547Q \INSUREWINDOW 541Q \INSUREWINDOW 527Q POSITIONP 524Q GETWINDOWUSERPROP 510Q PUTWINDOWPROP 477Q POSITIONP 461Q PUTWINDOWPROP 446Q WINDOWADDFNPROP 434Q WINDOWADDFNPROP 422Q WINDOWADDFNPROP 407Q PUTWINDOWPROP 366Q \INSUREWINDOW 362Q WINDOWADDFNPROP 350Q PUTWINDOWPROP 340Q PUTWINDOWPROP 327Q \MAKEICONWINDOW 324Q CONCAT 321Q DATE 274Q \INSUREWINDOW 264Q CREATEWFROMIMAGE 261Q BITMAPCOPY 234Q POSITIONP 227Q WINDOWP 222Q GETWINDOWUSERPROP 205Q GETWINDOWUSERPROP 173Q GETWINDOWUSERPROP 151Q PUTWINDOWPROP 132Q POSITIONP 124Q WINDOWP 114Q PUTWINDOWPROP 110Q CREATEWFROMIMAGE 105Q BITMAPCOPY 74Q PUTWINDOWPROP 44Q DOUSERFNS 37Q GETWINDOWUSERPROP 26Q GETWINDOWUSERPROP 14Q OPENWP 3 \INSUREWINDOW) (716Q SCREENHEIGHT 655Q SCREENHEIGHT 620Q SCREENWIDTH 562Q SCREENWIDTH 521Q ICONPOSITION 504Q ICONPOSITION 465Q SAME 456Q DOICONWINDOWCOM 453Q DOWINDOWCOMFN 442Q EXPANDFN 431Q \NOTENEWICONPOSITION 426Q MOVEFN 417Q CLOSEICONWINDOW 414Q OPENFN 404Q SHRINKWA0001 401Q BUTTONEVENTFN 373Q TOTOPW 357Q CLOSEMAINWINDOW 354Q CLOSEFN 344Q ICONFOR 334Q ICONWINDOW 254Q BITMAPTYPE# 240Q SAME 217Q ICON 202Q ICONWINDOW 170Q ICONFN 145Q ICON 136Q SAME 101Q ICON 70Q ICON 60Q BITMAPTYPE# 47Q DON'T 34Q SHRINKFN 23Q ICONFOR) ( 316Q "Icon made " 305Q "") \MAKEICONWINDOW D1 (P 2 W I 0 ICONTEXT) D ``jh` ٸ@` lعlIIlHh@hi Jgg J(100Q PUTWINDOWPROP 63Q CREATEW 31Q STRINGWIDTH 20Q DSPLINEFEED) (75Q \TITLEICONMINSIZE 72Q MINSIZE 26Q WindowTitleDisplayStream 15Q WindowTitleDisplayStream 10Q LASTMOUSEY 5 LASTMOUSEX) () \TITLEICONMINSIZE D1 (I 0 WINDOW) ljh` (11Q DSPLINEFEED) (6 WindowTitleDisplayStream) () \NOTENEWICONPOSITION D1 (I 1 NEWPOS I 0 ICONW) @g b@gA A(21Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (15Q ICONPOSITION 3 ICONFOR) () EXPANDW D1 (P 2 USEREXPANDFN P 1 MAINWINDOW P 0 IW I 0 ICONW) `@!Hg YHg X@Y @Id=g Z 0I H Igg Hgg JI Hg h(133Q PUTWINDOWPROP 123Q DOUSERFNS 115Q WINDOWDELPROP 102Q WINDOWDELPROP 67Q \CLOSEW1 62Q \OPENW1 54Q \USERFNISDON'T 50Q GETWINDOWUSERPROP 33Q OPENWP 24Q GETWINDOWUSERPROP 12Q GETWINDOWUSERPROP) (130Q ICONFOR 112Q CLOSEMAINWINDOW 107Q CLOSEFN 77Q CLOSEICONWINDOW 74Q OPENFN 45Q EXPANDFN 21Q ICONWINDOW 7 ICONFOR) () DOICONWINDOWCOM D1 (P 0 COM I 0 WINDOW) q@`i0@ ```E`d`dgmjdIdgdg di jdndhdJ ` X@kHi(145Q MENU 16Q TOTOPW) (142Q IconWindowMenu 137Q IconWindowMenu 103Q CLRPROMPT 74Q PPROMPT3 53Q Y 44Q IconWindowMenuCommands 37Q MENUTYPE# 32Q IconWindowMenu 25Q MENUTYPE# 21Q IconWindowMenu 4 WINDOWTYPE#) () CLOSEMAINWINDOW D1 (P 0 MAINWIN I 0 ICONWIN) ,@g H @g h gH H (47Q \CLOSEW1 41Q OPENWP 30Q \OKTOCLOSEW 23Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (34Q DON'T 20Q ICONFOR 3 ICONFOR) () CLOSEICONWINDOW D1 (P 1 USEREXPANDFN P 0 ICONW I 0 MAINWIN) ?@g H@gg hgg H @g @ Hg (72Q PUTWINDOWPROP 62Q DOUSERFNS 56Q GETWINDOWUSERPROP 46Q CLOSEW 41Q WINDOWDELPROP 26Q WINDOWDELPROP 6 GETWINDOWUSERPROP) (67Q ICONFOR 53Q EXPANDFN 36Q CLOSEMAINWINDOW 33Q CLOSEFN 23Q CLOSEICONWINDOW 20Q OPENFN 3 ICONWINDOW) () (PRETTYCOMPRINT WINDOWCOMS) (RPAQQ WINDOWCOMS ((COMS (* closed/writable window stuff) (FNS \RESTORE.CLOSED.WINDOW \MAKE.CLOSED.WINDOW.WRITABLE) (MACROS \INSURE.WRITABLE.DS .WHILE.WRITABLE.DS.)) (COMS (FNS WINDOWWORLD WINDOWWORLDP CHANGEBACKGROUND CHANGEBACKGROUNDBORDER TILE LOGOW \DRAWLOGOWINDOWIMAGE \TTY.CREATING.DISPLAYSTREAM \CREATE.TTY.OUTCHARFN \CREATE.TTYDISPLAYSTREAM HASTTYWINDOWP TTYINFOSTREAM ) (VARS (\TTYREGIONOFFSETSPTR)) (INITVARS (TTYREGIONOFFSETS (QUOTE ((0 . 0) (20 . -20) (40 . 0) (20 . 20)))) (DEFAULTTTYREGION (QUOTE (153 100 384 208)))) (GLOBALVARS \TTYREGIONOFFSETSPTR TTYREGIONOFFSETS )) (COMS (* Window menu operations) (FNS WINDOW.MOUSE.HANDLER \PROTECTED.APPLY DOWINDOWCOM DOBACKGROUNDCOM DEFAULT.BACKGROUND.COPYFN) (VARS (BACKGROUNDCOPYRIGHTBUTTONEVENTFN (FUNCTION DEFAULT.BACKGROUND.COPYFN)) (BackgroundCopyMenu)) (INITVARS BackgroundCopyMenuCommands) (FNS BURYW CLEARW CLOSEW \CLOSEW1 \OKTOCLOSEW OPENW DOUSERFNS DOUSERFNS2 \USERFNISDON'T \OPENW1 CREATEW MOVEW \ONSCREENCLIPPINGREGION RELMOVEW PAINTW PAINTW.READMODE PAINTW.READBRUSHSHAPE PAINTW.READBRUSHSIZE SHAPEW SHAPEW1 RESHOWBORDER \RESHOWBORDER1 TRACKW SNAPW WINDOWREGION) (COMS (FNS PAINTW.READBRUSHSHADE PAINTW.READ.AND.SAVE.SHADE PAINTW.CACHE.SHADE PAINTW.SHADE.LABEL) (INITVARS (PAINTW.SHADES)) ( GLOBALVARS PAINTW.SHADES)) (FNS MINIMUMWINDOWSIZE) (INITVARS (BACKGROUNDCURSORINFN) ( BACKGROUNDBUTTONEVENTFN) (BACKGROUNDCURSOROUTFN) (BACKGROUNDCURSORMOVEDFN)) (GLOBALVARS BACKGROUNDCURSORINFN BACKGROUNDBUTTONEVENTFN BACKGROUNDCURSOROUTFN BACKGROUNDCURSORMOVEDFN \LASTKEYSTATE BACKGROUNDCOPYBUTTONEVENTFN BACKGROUNDCOPYRIGHTBUTTONEVENTFN \CARET.UP) (EXPORT (MACROS .COPYKEYDOWNP. WSOP)) (PROP ARGNAMES WSOP) (RECORDS WSOPS WSDATA)) (COMS (* image object support - here so that DEDIT can use it without needing TEDIT to be loaded.) (RECORDS IMAGEOBJ IMAGEFNS IMAGEBOX ) (FNS COPYINSERT IMAGEBOX IMAGEFNSCREATE IMAGEFNSP IMAGEOBJCREATE IMAGEOBJP IMAGEOBJPROP \IMAGEUSERPROP HPRINT.IMAGEOBJ COPYIMAGEOBJ READIMAGEOBJ WRITEIMAGEOBJ) (ADDVARS (HPRINTMACROS ( IMAGEOBJ . WRITEIMAGEOBJ))) (GLOBALVARS (IMAGEOBJTYPES NIL) (IMAGEOBJGETFNS NIL))) (COMS (* For encapsulating unknown-type IMAGEOBJs.) (FNS ENCAPSULATEDOBJ.BUTTONEVENTINFN ENCAPSULATEDOBJ.DISPLAYFN ENCAPSULATEDOBJ.IMAGEBOXFN ENCAPSULATEDOBJ.INIT) (P (ENCAPSULATEDOBJ.INIT)) (GLOBALVARS ENCAPSULATEDIMAGEFNS)) (COMS (* Window utilities) (FNS ADVISEWDS SHOWWFRAME SHOWWTITLE \STRINGWIDTHGUESS RESHOWTITLE TOTOPW \INTERNALTOTOPW \TTW1 WHICHW) (VARS (WINDOWTITLEPRINTLEVEL (QUOTE (2 . 5))) (WINDOWTITLESHADE BLACKSHADE))) (COMS (* Window vs non-window world) (FNS SWITCHDEF WFROMDS NU\TOTOPWDS \COERCETODS) (DECLARE: DONTCOPY (EXPORT (MACROS \COERCETODS .WHILE.ON.TOP.)))) (COMS (* User interface functions) (FNS WINDOWP WINDOWPROP WINDOWADDPROP WINDOWDELPROP GETWINDOWPROP GETWINDOWUSERPROP PUTWINDOWPROP REMWINDOWPROP WINDOWADDFNPROP) (* for compiling windowprops.) (PROP ARGNAMES WINDOWPROP) (MACROS WINDOWPROP) (FNS CWINDOWPROP CGETWINDOWPROP \GETWINDOWHEIGHT \GETWINDOWWIDTH)) (COMS (FNS OPENWP RESHAPEBYREPAINTFN \INBETWEENP DECODE/WINDOW/OR/DISPLAYSTREAM GROW/REGION PPROMPT3 CLRPROMPT PROMPTPRINT OPENWINDOWS \INSUREWINDOW) (* these entries are left in for backward compatibility. They were dedocumented 6/83. rrb) (P (MOVD (QUOTE OPENWP) (QUOTE ACTIVEWP)) ( MOVD (QUOTE OPENWINDOWS) (QUOTE ACTIVEWINDOWS))) (FNS OVERLAPPINGWINDOWS WOVERLAPP ORDERFROMBOTTOMTOTOP) (* screen size changing functions.) (FNS \ONSCREENW \PUTONSCREENW \UPDATECACHEDFIELDS \WWCHANGESCREENSIZE CREATEWFROMIMAGE UPDATEWFROMIMAGE) (EXPORT (DECLARE: DOEVAL@COMPILE DONTCOPY (MACROS WINDOWWORLD)))) (COMS (* Scrolling stuff) (FNS SCROLLW SCROLLBYREPAINTFN ADJUSTOFFSETS CREATESCROLLINGW IN/SCROLL/BAR? RELDSPXOFFSET RELDSPYOFFSET SCROLL.HANDLER \SCROLL.HANDLER.DOIT \DECODE.EXTENT.USE \UPDATE.EXTENT.IMAGE EXTENDPASTHORIZBOUNDARIES EXTENDPASTVERTBOUNDARIES REDISPLAYW FILLWITHBACKGROUND UPDATE/SCROLL/REG WTODSX WTODSY WXOFFSET WYOFFSET BITMAPSCROLLFN SCROLLBITMAP REDISPLAYBITMAP ULREDISPLAYBITMAP EXTENDEXTENT WIDTHIFWINDOW HEIGHTIFWINDOW) (* this function should be on LLDISPLAY but Ron has it checked out. Move it later - rrb.) (FNS \DSPUNTRANSFORMREGION)) (COMS (* icon functions) (FNS SHRINKW \MAKEICONWINDOW \TITLEICONMINSIZE \NOTENEWICONPOSITION EXPANDW DOICONWINDOWCOM CLOSEMAINWINDOW CLOSEICONWINDOW) (VARS IconMenuItems)) (CURSORS VertScrollCursor ScrollUpCursor ScrollDownCursor HorizScrollCursor ScrollLeftCursor ScrollRightCursor VertThumbCursor HorizThumbCursor WAITINGCURSOR) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS \LastCursorPosition \LastInWindow WindowMenu BackgroundMenu BackgroundMenuCommands \LastWindowButtons WWFNS WindowMenuCommands IconWindowMenu IconWindowMenuCommands VertScrollCursor ScrollUpCursor ScrollDownCursor ScrollLeftCursor ScrollRightCursor HorizScrollCursor WindowTitleDisplayStream WINDOWTITLEPRINTLEVEL WBorder \TOPWDS WINDOWBACKGROUNDSHADE CURRENTBACKGROUNDSHADE BACKGROUNDFNS) (CONSTANTS (MinWindowWidth 26) ( MinWindowHeight 16)) (EXPORT (RECORDS WINDOW))) (DECLARE: EVAL@COMPILE (EXPORT (GLOBALVARS TOPW WINDOWUSERFORMS ENDOFWINDOWUSERFORMS PROMPTWINDOW KNOWNWINDOWS))) (SYSRECORDS WINDOW) (INITRECORDS WINDOW) (INITVARS (WWFNS (QUOTE (\TOTOPWDS))) (WindowTitleDisplayStream) (WindowMenu) (BackgroundMenu) (TOPW) (\LastCursorPosition (CREATEPOSITION)) (\LastInWindow) (\LastWindowButtons 0) (IconWindowMenu) (KNOWNWINDOWS) (WINDOWBACKGROUNDSHADE 34850) (WBorder 4) (SCROLLBARWIDTH 24) (SCROLLWAITTIME 100) ( SCROLLBARSHADE 32800) (WAITBEFORESCROLLTIME 750) (WAITBETWEENSCROLLTIME 100) (PAINTCOMMANDBRUSH (QUOTE (ROUND 2))) (PAINTCOMMANDMODE (QUOTE PAINT)) (PAINTCOMMANDMENU) (PAINTCOMMANDSHADE BLACKSHADE) ( PAINTSIZEMENU) (PAINTSHAPEMENU) (PAINTSHADEMENU) (PAINTMODEMENU) (HIGHLIGHTSHADE 32800)) (ADDVARS ( WindowMenuCommands (Close (QUOTE CLOSEW) "Closes a window") (Snap (QUOTE SNAPW) "Saves a snapshot of a region of the screen.") (Paint (QUOTE PAINTW) "Starts a painting mode in which the mouse can be used to draw pictures or make notes on windows.") (Clear (QUOTE CLEARW) "Clears a window to its gray." ) (Bury (QUOTE BURYW) "Puts a window on the bottom.") (Redisplay (QUOTE REDISPLAYW) "Redisplays a window using its REPAINTFN.") (Hardcopy (QUOTE HARDCOPYIMAGEW) "Prints a window using its HARDCOPYFN." (SUBITEMS ("To a file" (QUOTE HARDCOPYIMAGEW.TOFILE) "Puts image on a file; prompts for filename and format") ("To a printer" (QUOTE HARDCOPYIMAGEW.TOPRINTER) "Sends image to a printer of your choosing"))) (Move (QUOTE MOVEW) "Moves a window by a corner.") (Shape (QUOTE SHAPEW) "Gets a new region for a window. Left button down marks fixed corner; sweep to other corner. Middle button down moves closest corner.") (Shrink (QUOTE SHRINKW) "Replaces this window with its icon (or title if it doesn't have an icon.")) (IconWindowMenuCommands ( Close (QUOTE CLOSEW) "Closes the icon and its assciated window") (Snap (QUOTE SNAPW) "Saves a snapshot of a region of the screen.") (Paint (QUOTE PAINTW) "Starts a painting mode in which the mouse can be used to draw pictures or make notes on windows. Includes a HARDCOPY command.") (Bury (QUOTE BURYW) "Puts a window on the bottom.") (Move (QUOTE MOVEW) "Moves a window by a corner.") (Shape (QUOTE SHAPEW) "Gets a new region for a window. Left button down marks fixed corner; sweep to other corner. Middle button down moves closest corner.") (Expand (QUOTE EXPANDW) "Expands the window for which this is the ICON.")) (BackgroundMenuCommands (SaveVM (QUOTE (SAVEVM)) "Updates the virtual memory.") (Snap (QUOTE (SNAPW)) "Saves a snapshot of a region of the screen.") ( Hardcopy (QUOTE (HARDCOPYW)) "Send hardcopy of screen region to printer." (SUBITEMS ("To a file" ( QUOTE (HARDCOPYREGION.TOFILE)) "Writes a region of screen to a file; prompts for filename and format") ("To a printer" (QUOTE (HARDCOPYREGION.TOPRINTER)) "Sends a region of screen to a printer of your choosing"))))) (ADDVARS (WINDOWUSERFORMS) ( ENDOFWINDOWUSERFORMS)) (P (PAINTW.CACHE.SHADE BLACKSHADE) (PAINTW.CACHE.SHADE GRAYSHADE) ( PAINTW.CACHE.SHADE HIGHLIGHTSHADE)) (DECLARE: DOCOPY DONTEVAL@LOAD (P (WINDOWWORLD T)) (ADDVARS ( GLOBALVARS SCROLLBARWIDTH SCROLLWAITTIME SCROLLBARSHADE WAITBEFORESCROLLTIME WAITBETWEENSCROLLTIME WAITINGCURSOR))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PROMPTPRINT WINDOWPROP IMAGEOBJPROP WINDOWWORLD))))) (PROGN (PUTPROPS \INSURE.WRITABLE.DS DMACRO (OPENLAMBDA (DS) (OR (EQ DS \TOPWDS) (EQ (fetch (WINDOW NEXTW) of (WFROMDS DS)) (QUOTE CLOSED)) (\TOTOPWDS DS)))) (PUTPROPS \INSURE.WRITABLE.DS MACRO ((DS) (* For non-window implementations) (PROGN)))) (PUTPROPS .WHILE.WRITABLE.DS. MACRO ((FIRST . REST) (* FIRST should be a displaystream and a variable. ) (UNINTERRUPTABLY (AND \COLORCURSORBM (\IFCOLORDS\TAKEDOWNCOLORCURSOR FIRST)) (\INSURE.WRITABLE.DS FIRST) (PROGN . REST) (AND \COLORCURSORDOWN (\PUTUPCOLORCURSOR))))) (RPAQQ \TTYREGIONOFFSETSPTR NIL) (RPAQ? TTYREGIONOFFSETS (QUOTE ((0 . 0) (20 . -20) (40 . 0) (20 . 20)))) (RPAQ? DEFAULTTTYREGION (QUOTE (153 100 384 208))) (RPAQ BACKGROUNDCOPYRIGHTBUTTONEVENTFN (FUNCTION DEFAULT.BACKGROUND.COPYFN)) (RPAQQ BackgroundCopyMenu NIL) (RPAQ? BackgroundCopyMenuCommands NIL) (RPAQ? PAINTW.SHADES) (RPAQ? BACKGROUNDCURSORINFN) (RPAQ? BACKGROUNDBUTTONEVENTFN) (RPAQ? BACKGROUNDCURSOROUTFN) (RPAQ? BACKGROUNDCURSORMOVEDFN) (PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)) (KEYDOWNP (QUOTE COPY))))) (PUTPROPS WSOP MACRO (ARGS (LET ((METHOD (CADR (CAR ARGS))) (DISPLAY (CADR ARGS)) (OTHERARGS (CDDR ARGS))) (BQUOTE (SPREADAPPLY* (fetch (WSOPS , METHOD) of (fetch (FDEV WINDOWOPS) of , DISPLAY)) , DISPLAY ,@ OTHERARGS))))) (PUTPROPS WSOP ARGNAMES (METHOD DISPLAY . ARGS)) (RECORD WSOPS (WSCHANGEBACKGROUND WSCHANGEBACKGROUNDBORDER WSDISPLAYHEIGHT STARTCOLOR STOPCOLOR SETSCREENCOLORMAP COLORLEVEL ROTATECOLORMAP MEDIUM)) (RECORD WSDATA (WSDESTINATION WSREGION WSBACKGROUND WSCOLORMAP)) (DATATYPE IMAGEOBJ (OBJECTDATUM IMAGEOBJPLIST IMAGEOBJFNS)) (DATATYPE IMAGEFNS (DISPLAYFN (* FN called to display the object's image) IMAGEBOXFN (* To tell how big it is) PUTFN (* To write it onto a file) GETFN (* To read it back from the file) COPYFN (* To make a copy of the object) BUTTONEVENTINFN (* Called when the mouse goes down over the object) COPYBUTTONEVENTINFN (* Called when the MIDDLE mouse button goes down over the object) WHENMOVEDFN (* Called when the object is moved within a document or other environment) WHENINSERTEDFN (* Called when the object is inserted into a context) WHENDELETEDFN (* Called when the object is removed from a context) WHENCOPIEDFN (* Called when the object is copied within a context) WHENOPERATEDONFN (* Called when something interesting happens to the object) PREPRINTFN IMAGECLASSNAME (* LITATOM unique name by which this kind of IMAGEOBJ is to be known to the world.))) (RECORD IMAGEBOX (XSIZE YSIZE YDESC XKERN)) (/DECLAREDATATYPE (QUOTE IMAGEOBJ) (QUOTE (POINTER POINTER POINTER)) (QUOTE ((IMAGEOBJ 0 POINTER) ( IMAGEOBJ 2 POINTER) (IMAGEOBJ 4 POINTER))) (QUOTE 6)) (/DECLAREDATATYPE (QUOTE IMAGEFNS) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((IMAGEFNS 0 POINTER) (IMAGEFNS 2 POINTER) (IMAGEFNS 4 POINTER) (IMAGEFNS 6 POINTER) (IMAGEFNS 8 POINTER) (IMAGEFNS 10 POINTER) ( IMAGEFNS 12 POINTER) (IMAGEFNS 14 POINTER) (IMAGEFNS 16 POINTER) (IMAGEFNS 18 POINTER) (IMAGEFNS 20 POINTER) (IMAGEFNS 22 POINTER) (IMAGEFNS 24 POINTER) (IMAGEFNS 26 POINTER))) (QUOTE 28)) (ADDTOVAR HPRINTMACROS (IMAGEOBJ . WRITEIMAGEOBJ)) (ENCAPSULATEDOBJ.INIT) (RPAQQ WINDOWTITLEPRINTLEVEL (2 . 5)) (RPAQ WINDOWTITLESHADE BLACKSHADE) (PUTPROPS WINDOWPROP ARGNAMES (NIL (WINDOW PROP {NEWVALUE}) . U)) (PUTPROPS WINDOWPROP MACRO (ARGS (CWINDOWPROP ARGS))) (MOVD (QUOTE OPENWP) (QUOTE ACTIVEWP)) (MOVD (QUOTE OPENWINDOWS) (QUOTE ACTIVEWINDOWS)) (RPAQQ IconMenuItems (Expand)) (RPAQ VertScrollCursor (CURSORCREATE (READBITMAP) 7 15)) (16 16 "@A@@" "@CH@" "@CH@" "@GL@" "@GL@" "@ON@" "@CH@" "@CH@" "@CH@" "@CH@" "@ON@" "@GL@" "@GL@" "@CH@" "@CH@" "@A@@") (RPAQ ScrollUpCursor (CURSORCREATE (READBITMAP) 7 15)) (16 16 "@A@@" "@CH@" "@CH@" "@GL@" "@GL@" "@ON@" "@ON@" "AOO@" "AOO@" "@CH@" "@CH@" "@CH@" "@CH@" "@CH@" "@CH@" "@CH@") (RPAQ ScrollDownCursor (CURSORCREATE (READBITMAP) 7 15)) (16 16 "@CH@" "@CH@" "@CH@" "@CH@" "@CH@" "@CH@" "@CH@" "AOO@" "AOO@" "@ON@" "@ON@" "@GL@" "@GL@" "@CH@" "@CH@" "@A@@") (RPAQ HorizScrollCursor (CURSORCREATE (READBITMAP) 7 5)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@HB@" "AHC@" "CHCH" "GHCL" "OOON" "OOON" "GHCL" "CHCH" "AHC@" "@HB@") (RPAQ ScrollLeftCursor (CURSORCREATE (READBITMAP) 8 5)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@H@" "@CH@" "@OH@" "COH@" "OOOO" "OOOO" "COH@" "@OH@" "@CH@" "@@H@") (RPAQ ScrollRightCursor (CURSORCREATE (READBITMAP) 7 5)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@A@@" "@AL@" "@AO@" "@AOL" "OOOO" "OOOO" "@AOL" "@AO@" "@AL@" "@A@@") (RPAQ VertThumbCursor (CURSORCREATE (READBITMAP) 6 8)) (16 16 "@@@@" "OH@@" "@@@@" "OO@@" "@@@@" "OON@" "@@@@" "OOOH" "@@@@" "OON@" "@@@@" "OO@@" "@@@@" "OH@@" "@@@@" "@@@@") (RPAQ HorizThumbCursor (CURSORCREATE (READBITMAP) 6 6)) (16 16 "@@@@" "@@@@" "@@@@" "@B@@" "@B@@" "@JH@" "@JH@" "@JH@" "BJJ@" "BJJ@" "BJJ@" "JJJH" "JJJH" "JJJH" "JJJH" "JJJH") (RPAQ WAITINGCURSOR (CURSORCREATE (READBITMAP) 7 8)) (16 16 "OOON" "L@@F" "F@AL" "CMGH" "AOO@" "@ON@" "@FL@" "@CH@" "@BH@" "@FL@" "@MF@" "AIC@" "CGMH" "FGNL" "OOON" "OOON") (DECLARE: DOEVAL@COMPILE DONTCOPY (GLOBALVARS TOPW WINDOWUSERFORMS ENDOFWINDOWUSERFORMS PROMPTWINDOW KNOWNWINDOWS)) (ADDTOVAR SYSTEMRECLST (DATATYPE WINDOW (DSP NEXTW SAVE REG BUTTONEVENTFN RIGHTBUTTONFN CURSORINFN CURSOROUTFN CURSORMOVEDFN REPAINTFN RESHAPEFN EXTENT USERDATA VERTSCROLLREG HORIZSCROLLREG SCROLLFN VERTSCROLLWINDOW HORIZSCROLLWINDOW CLOSEFN MOVEFN WTITLE NEWREGIONFN WBORDER PROCESS WINDOWENTRYFN SCREEN))) (/DECLAREDATATYPE (QUOTE WINDOW) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((WINDOW 0 POINTER) (WINDOW 2 POINTER ) (WINDOW 4 POINTER) (WINDOW 6 POINTER) (WINDOW 8 POINTER) (WINDOW 10 POINTER) (WINDOW 12 POINTER) ( WINDOW 14 POINTER) (WINDOW 16 POINTER) (WINDOW 18 POINTER) (WINDOW 20 POINTER) (WINDOW 22 POINTER) ( WINDOW 24 POINTER) (WINDOW 26 POINTER) (WINDOW 28 POINTER) (WINDOW 30 POINTER) (WINDOW 32 POINTER) ( WINDOW 34 POINTER) (WINDOW 36 POINTER) (WINDOW 38 POINTER) (WINDOW 40 POINTER) (WINDOW 42 POINTER) ( WINDOW 44 POINTER) (WINDOW 46 POINTER) (WINDOW 48 POINTER) (WINDOW 50 POINTER))) (QUOTE 52)) (RPAQ? WWFNS (QUOTE (\TOTOPWDS))) (RPAQ? WindowTitleDisplayStream) (RPAQ? WindowMenu) (RPAQ? BackgroundMenu) (RPAQ? TOPW) (RPAQ? \LastCursorPosition (CREATEPOSITION)) (RPAQ? \LastInWindow) (RPAQ? \LastWindowButtons 0) (RPAQ? IconWindowMenu) (RPAQ? KNOWNWINDOWS) (RPAQ? WINDOWBACKGROUNDSHADE 34850) (RPAQ? WBorder 4) (RPAQ? SCROLLBARWIDTH 24) (RPAQ? SCROLLWAITTIME 100) (RPAQ? SCROLLBARSHADE 32800) (RPAQ? WAITBEFORESCROLLTIME 750) (RPAQ? WAITBETWEENSCROLLTIME 100) (RPAQ? PAINTCOMMANDBRUSH (QUOTE (ROUND 2))) (RPAQ? PAINTCOMMANDMODE (QUOTE PAINT)) (RPAQ? PAINTCOMMANDMENU) (RPAQ? PAINTCOMMANDSHADE BLACKSHADE) (RPAQ? PAINTSIZEMENU) (RPAQ? PAINTSHAPEMENU) (RPAQ? PAINTSHADEMENU) (RPAQ? PAINTMODEMENU) (RPAQ? HIGHLIGHTSHADE 32800) (ADDTOVAR WindowMenuCommands (Close (QUOTE CLOSEW) "Closes a window") (Snap (QUOTE SNAPW) "Saves a snapshot of a region of the screen.") (Paint (QUOTE PAINTW) "Starts a painting mode in which the mouse can be used to draw pictures or make notes on windows.") (Clear (QUOTE CLEARW) "Clears a window to its gray." ) (Bury (QUOTE BURYW) "Puts a window on the bottom.") (Redisplay (QUOTE REDISPLAYW) "Redisplays a window using its REPAINTFN.") (Hardcopy (QUOTE HARDCOPYIMAGEW) "Prints a window using its HARDCOPYFN." (SUBITEMS ("To a file" (QUOTE HARDCOPYIMAGEW.TOFILE) "Puts image on a file; prompts for filename and format") ("To a printer" (QUOTE HARDCOPYIMAGEW.TOPRINTER) "Sends image to a printer of your choosing"))) (Move (QUOTE MOVEW) "Moves a window by a corner.") (Shape (QUOTE SHAPEW) "Gets a new region for a window. Left button down marks fixed corner; sweep to other corner. Middle button down moves closest corner.") (Shrink (QUOTE SHRINKW) "Replaces this window with its icon (or title if it doesn't have an icon.")) (ADDTOVAR IconWindowMenuCommands (Close (QUOTE CLOSEW) "Closes the icon and its assciated window") ( Snap (QUOTE SNAPW) "Saves a snapshot of a region of the screen.") (Paint (QUOTE PAINTW) "Starts a painting mode in which the mouse can be used to draw pictures or make notes on windows. Includes a HARDCOPY command.") (Bury (QUOTE BURYW) "Puts a window on the bottom.") (Move (QUOTE MOVEW) "Moves a window by a corner.") (Shape (QUOTE SHAPEW) "Gets a new region for a window. Left button down marks fixed corner; sweep to other corner. Middle button down moves closest corner.") (Expand (QUOTE EXPANDW) "Expands the window for which this is the ICON.")) (ADDTOVAR BackgroundMenuCommands (SaveVM (QUOTE (SAVEVM)) "Updates the virtual memory.") (Snap (QUOTE (SNAPW)) "Saves a snapshot of a region of the screen.") (Hardcopy (QUOTE (HARDCOPYW)) "Send hardcopy of screen region to printer." (SUBITEMS ("To a file" (QUOTE (HARDCOPYREGION.TOFILE)) "Writes a region of screen to a file; prompts for filename and format") ("To a printer" (QUOTE ( HARDCOPYREGION.TOPRINTER)) "Sends a region of screen to a printer of your choosing")))) (ADDTOVAR WINDOWUSERFORMS) (ADDTOVAR ENDOFWINDOWUSERFORMS) (PAINTW.CACHE.SHADE BLACKSHADE) (PAINTW.CACHE.SHADE GRAYSHADE) (PAINTW.CACHE.SHADE HIGHLIGHTSHADE) (WINDOWWORLD T) (ADDTOVAR GLOBALVARS SCROLLBARWIDTH SCROLLWAITTIME SCROLLBARSHADE WAITBEFORESCROLLTIME WAITBETWEENSCROLLTIME WAITINGCURSOR) (PUTPROPS WINDOW COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL