(FILECREATED "17-Jan-84 14:03:35" ("compiled on " {PHYLUM}SOURCES>WINDOW.;180) "14-Jan-84 16:49:23" recompiled changes: SHAPEW CREATEWFROMIMAGE \MAKEICONWINDOW \TITLEICONMINSIZE in WORK dated "14-Jan-84 17:06:24") (FILECREATED "17-Jan-84 14:01:46" {PHYLUM}SOURCES>WINDOW.;180 153972 changes to: (FNS SHAPEW \MAKEICONWINDOW CREATEWFROMIMAGE \TITLEICONMINSIZE) (VARS WINDOWCOMS) previous date: "13-Jan-84 10:51:35" {PHYLUM}SOURCES>WINDOW.;179) 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``Hj@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(350Q PRIN3 343Q DSPFONT 333Q MOVETO 275Q \DRAWLOGOWINDOWIMAGE 260Q SIN 247Q COS 173Q CREATEW 170Q CONCAT 165Q DATE 143Q GETBOXREGION 111Q POSITIONP 67Q STRINGWIDTH) (103Q WINDOWTYPE#) ( 337Q (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 0 TtyDisplayStream) h PA (15Q \OUTCHAR 7 \CREATE.TTYDISPLAYSTREAM 3 HASTTYWINDOWP) NIL () \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.HANDLERA0387 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 \MHCOM) `kPiNIL (2 \LastInWindow) () WINDOW.MOUSE.HANDLERA0389 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 \MHWINDOW F 1 \MHCOM) PkQiNIL NIL () WINDOW.MOUSE.HANDLERA0391 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 \MHWINDOW F 1 \MHCOM) PkQiNIL NIL () WINDOW.MOUSE.HANDLER D1 (P 3 \MHPROCESS P 2 \MHCOM P 1 \MHWINDOW P 0 NBREAKS F 4 TtyDisplayStream F 5 NBREAKS F 6 \INTERRUPTABLE) zVjUjUـU1```````````` Y``D`j``u` Id Zoi I`RZoi `` ` T``T i` `m`h`llId I ` hI``1`dljI .[`llI I0IIZ` T``T ioi `g(555Q GETMOUSESTATE 551Q WINDOW.MOUSE.HANDLERA0391 533Q \SHOWCARET 513Q PROCESS.TTY 465Q TTY.PROCESSP 437Q \INSUREWINDOW 373Q OPENWP 364Q DOWINDOWCOM 325Q GETMOUSESTATE 311Q SCROLL.HANDLER 275Q \SHOWCARET 255Q PROCESS.TTY 245Q IN/SCROLL/BAR? 231Q WINDOW.MOUSE.HANDLERA0387 175Q WINDOW.MOUSE.HANDLERA0389 114Q WHICHW 25Q GETMOUSESTATE) (564Q \LastWindowButtons 561Q LASTMOUSEBUTTONS 540Q \CARETDOWN 526Q \CARETFLG 522Q \CARET 510Q \TTY.PROCESS 447Q LASTMOUSEBUTTONS 423Q LASTMOUSEBUTTONS 415Q \LastWindowButtons 412Q LASTMOUSEBUTTONS 401Q \LastInWindow 370Q \LastInWindow 341Q LASTMOUSEBUTTONS 334Q \LastWindowButtons 331Q LASTMOUSEBUTTONS 316Q \LastCursorPosition 306Q \LastInWindow 302Q \CARETDOWN 270Q \CARETFLG 264Q \CARET 252Q \TTY.PROCESS 242Q LASTMOUSEY 237Q LASTMOUSEX 211Q \LastWindowButtons 206Q LASTMOUSEBUTTONS 202Q \LastInWindow 154Q \LastInWindow 146Q \LastWindowButtons 143Q LASTMOUSEBUTTONS 135Q LASTMOUSEBUTTONS 130Q \LastInWindow 120Q \LastInWindow 111Q LASTMOUSEY 106Q LASTMOUSEX 101Q LASTMOUSEY 76Q \LastCursorPosition 71Q LASTMOUSEX 66Q \LastCursorPosition 56Q \LastWindowButtons 53Q LASTMOUSEBUTTONS 45Q \LastCursorPosition 42Q LASTMOUSEY 33Q \LastCursorPosition 30Q LASTMOUSEX) ( 545Q (DUMMY.FOR.ERRORSET) 225Q (DUMMY.FOR.ERRORSET) 171Q (DUMMY.FOR.ERRORSET)) DOWINDOWCOM D1 (P 0 $$VAR I 0 WINDOW) @d`x0@g X@kH@ ```E`d`dgmjdIdgdg di jdndhdJ  X@kHih(202Q DOBACKGROUNDCOM 164Q MENU 37Q TOTOPW 23Q GETWINDOWUSERPROP) (161Q WindowMenu 125Q CLRPROMPT 116Q PPROMPT3 75Q Y 66Q WindowMenuCommands 61Q MENUTYPE# 54Q WindowMenu 47Q MENUTYPE# 43Q WindowMenu 20Q DOWINDOWCOMFN 5 WINDOWTYPE#) () DOBACKGROUNDCOMA0084 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FORM) P i(3 EVAL) NIL () DOBACKGROUNDCOM D1 (P 0 FORM) s`ljd0```E`d`dgmjdIdgdg di jdndhdJ  X oi h(157Q DOBACKGROUNDCOMA0084 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 (DUMMY.FOR.ERRORSET)) BURYW D1 (P 1 TOUCHEDW I 0 WINDOW) -@ bdd @i HhYi HX(45Q TOTOPW 30Q TOTOPW 20Q ORDERFROMBOTTOMTOTOP 15Q DREMOVE 12Q OVERLAPPINGWINDOWS 3 \INSUREWINDOW) NIL () CLEARW D1 (I 0 WINDOW) h@ b @ h@ @ @ (34Q DSPRESET 26Q WYOFFSET 22Q WYOFFSET 15Q WXOFFSET 11Q WXOFFSET 4 \INSUREWINDOW) NIL () CLOSEW D1 (I 0 WINDOW) @ bd @ @ (25Q \CLOSEW1 17Q \OKTOCLOSEW 11Q OPENWP 3 \INSUREWINDOW) NIL () \CLOSEW1 D1 (P 0 \INTERRUPTABLE I 0 WINDOW) /@ `@@ @d@gg(22Q \SW2BM 6 \INTERNALTOTOPW) (54Q CLOSED 47Q CLOSED 44Q WINDOW 37Q \TOPWDS 30Q TOPW 11Q ScreenBitMap) () \OKTOCLOSEW D1 (I 0 WINDOW) @$@i gh@(7 DOUSERFNS) (12Q DON'T) () 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 3 ARG2 I 2 ARG1 I 1 WINDOW I 0 FNLST) ,@dd`ABCl@dABClHhNIL (10Q LAMBDASPLST) () \USERFNISDON'T D1 (L (0 USERFN)) @@gg@NIL (13Q DON'T 6 DON'T) () \OPENW1 D1 (P 0 \INTERRUPTABLE I 0 WINDOW) &@`@dd(@@ (43Q \SW2BM) (25Q \TOPWDS 17Q TOPW 11Q TOPW 6 WINDOW) () CREATEW D1 (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` ـjBdd` @ e`hK Z@[(\ LJdjjILJdjjI`JdNNI`HJ_dOOIHhZv@l 0@ddih@@@@@7A'` o` A` o` ll A[(Jl JddihoJ JJ_dOOIoJ `K `dKdJJJ _dOdA(dI,dgdg0dg]L_d(nM(OM)M M M CM M(667Q OPENW 661Q SHOWWFRAME 655Q MOVETOUPPERLEFT 651Q ADVISEWDS 542Q BITMAPCREATE 510Q DSPDESTINATION 500Q ERROR 437Q HELP 401Q EQLENGTH 367Q DSPCREATE 362Q CLRPROMPT 355Q GETREGION 345Q PRIN1 332Q PRIN1 322Q PRIN1 307Q TERPRI 216Q EQLENGTH 55Q DSPDESTINATION 43Q DISPLAYSTREAMP 11Q DSPLINEFEED) (617Q \DISPLAYDATA 607Q TOTOPW 600Q GIVE.TTY.PROCESS 571Q CLOSED 513Q WINDOWTYPE# 504Q ScreenBitMap 342Q PROMPTWINDOW 327Q PROMPTWINDOW 317Q PROMPTWINDOW 304Q PROMPTWINDOW 151Q SCREENHEIGHT 130Q SCREENWIDTH 50Q ScreenBitMap 34Q WBorder 6 WindowTitleDisplayStream) ( 474Q "Region too small to use as a window" 433Q "Not a region" 337Q "%"" 314Q "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) @ bd@&@  IdgIgo hH` @ _H]H^H_H_Ay@ @g _@kO_8OOMN iZIdd`OhghOO_O_ [MOKNO A3AdddBdddAB AAA [OJp@ h_@KlO\dggm LO_W@KlI\dgU L[KMKdN&KKOOhJ!@ `H@ @h`L @L@Hi @ O@ 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:O4OHIHhJ[h%NMNINJ ZMN NiKM]HJHX(120Q WOVERLAPP 105Q REMOVE 35Q WOVERLAPP) (2 TOPW) () WOVERLAPP D1 (I 1 W2 I 0 W1) @A (10Q REGIONSINTERSECTP) NIL () ORDERFROMBOTTOMTOTOP D1 (L (0 WLST)) `HI@HIHXNIL (2 TOPW) () \ONSCREENW D1 (I 0 W) `l@ (11Q \INSUREWINDOW) (2 SCREENWIDTH) () \PUTONSCREENW D1 (I 0 W) @d`@  (24Q MOVEW 14Q \INSUREWINDOW) (7 SCREENWIDTH) () \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 CLEAR 27Q \STARTDISPLAY 17Q CLOSEW 5 DREVERSE 2 OPENWINDOWS) (70Q KNOWNWINDOWS 35Q WINDOWBACKGROUNDSHADE 32Q ScreenBitMap) () CREATEWFROMIMAGE D1 (P 0 WINDOW I 0 IMAGE) Hjd@ @ hhji !Hg@ lIIl@ lJJl @jdH H(104Q BKBITBLT 73Q PUTWINDOWPROP 55Q BITMAPHEIGHT 37Q BITMAPWIDTH 24Q CREATEW 11Q BITMAPHEIGHT 5 BITMAPWIDTH) (33Q MINSIZE) () UPDATEWFROMIMAGE D1 (L (0 WINDOW)) )@@HjHjHIHI@j,hNIL (42Q WINDOW) () SCROLLW D1 (I 3 CONTINUOUSFLG I 2 DY I 1 DX I 0 WINDOW) @g@ABClHNIL (7 SCROLLBYREPAINTFN) () SCROLLBYREPAINTFN D1 (P 16Q NEWY P 15Q OLDY P 14Q NEWX P 13Q OLDX P 10Q WHOLEWIDTH P 7 WHOLEHEIGHT P 6 CRBOTTOM P 5 CRLEFT P 4 CRWIDTH P 3 CRHEIGHT P 2 X P 1 EXTENT P 0 DSP I 3 CONTINUOUSFLG I 2 YDELTA I 1 XDELTA I 0 WINDOW) @ @  hH Zd_J_`@  J`H( ZJ]J^J\J[A3Ijb*m IAIO _hH ObCAdjj jhH bH bAjI/iz@MN@AMNLKgg AH MAٽ@Aj7MNAAmMIMLIIdAA_dOObjhMLAdMMNjAdLLK i B;Ijb2m oBI OI_hH ObCBdjj jhH bH bBjI4i@MN@MBNLKgg BH NBٺ@Bj?MJLBImNKZIIJkIdBB_dOObjhMKJBdJJLjBdKK i h(1024Q REDISPLAYW 1020Q CREATEREGION 657Q WYOFFSET 651Q BKBITBLT 601Q DSPLINEFEED 571Q DSPLINEFEED 540Q WYOFFSET 521Q FIXR 447Q REDISPLAYW 443Q CREATEREGION 312Q WXOFFSET 304Q BKBITBLT 240Q DSPLINEFEED 230Q DSPLINEFEED 177Q WXOFFSET 166Q FIXR 73Q INTERSECTREGIONS 70Q \DSPUNTRANSFORMREGION 55Q SUBREGIONP 50Q \INSUREWINDOW 23Q DSPCLIPPINGREGION 11Q \INSUREWINDOW 3 \INSUREWINDOW) (645Q REPLACE 642Q INPUT 300Q REPLACE 275Q INPUT 62Q WHOLEDISPLAY 44Q WHOLEDISPLAY) ( 506Q 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 0 EXTENT I 2 Y I 1 X I 0 WINDOW) :@5@AB +@AB !@ Himh@ H (67Q EXTENDPASTHORIZBOUNDARIES 63Q DSPCLIPPINGREGION 34Q \INSUREWINDOW 26Q INSIDE? 14Q INSIDE?) NIL () 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.HANDLERA0025 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 BUTTON F 1 WINDOW F 2 TIMEDOWN F 3 SCROLLW F 4 CONTINUOUSSCROLL? F 5 DIRECTION F 6 SCROLLREG F 7 TIMEIN F 10Q LEFTCURSOR F 11Q MACROY F 12Q RIGHTCURSOR F 13Q SCROLLCURSOR F 14Q MIDDLECURSOR) W WQ S 6g hcQ V`` S Q `` hicS `dlj;P0ThcQPUV`` SUQ W hcccohlj`dlj#Pggcj cW 6`ljPggcj cW T,R` #R cQPUV``i SUQ R` ic`kjPggcW (521Q CURSOR 447Q \CLOCKGREATERP 434Q \UPDATE.EXTENT.IMAGE 425Q \SCROLL.HANDLER.DOIT 403Q \CLOCK0 375Q \CLOCKGREATERP 357Q CURSOR 347Q CLOCK 310Q CURSOR 300Q CLOCK 226Q BLOCK 207Q CURSOR 201Q \UPDATE.EXTENT.IMAGE 172Q \SCROLL.HANDLER.DOIT 125Q TOTOPW 107Q INSIDE? 74Q \INSUREWINDOW 67Q CLOSEW 61Q INSIDE? 44Q TOTOPW 32Q TIMEREXPIRED? 21Q CLOSEW 13Q OPENWP 2 GETMOUSESTATE) (511Q MIDDLE 501Q MIDDLE 465Q LASTMOUSEBUTTONS 444Q WAITBEFORESCROLLTIME 420Q LASTMOUSEY 415Q LASTMOUSEX 372Q WAITBETWEENSCROLLTIME 340Q RIGHT 332Q RIGHT 317Q LASTMOUSEBUTTONS 271Q LEFT 263Q LEFT 246Q LASTMOUSEBUTTONS 166Q LASTMOUSEY 163Q LASTMOUSEX 131Q LASTMOUSEBUTTONS 114Q \LastInWindow 104Q LASTMOUSEY 101Q LASTMOUSEX 56Q LASTMOUSEY 53Q LASTMOUSEX 27Q MILLISECONDS) () SCROLL.HANDLER D1 (P 22Q RESETSTATE P 21Q MACROY P 17Q OLDVALUE P 14Q TIMEINTIMER P 13Q TIMEIN P 12Q CONTINUOUSSCROLL? P 11Q TIMEDOWN P 10Q MIDDLECURSOR P 7 RIGHTCURSOR P 6 LEFTCURSOR P 5 SCROLLCURSOR P 4 DIRECTION P 3 BUTTON P 2 SCROLLW P 1 SCROLLREG P 0 SCROLLWINDOWTOTOPWAIT I 0 WINDOW F 23Q RESETVARSLST F 24Q VertThumbCursor F 25Q HorizThumbCursor) +n@Y`` T` I`` =@ Z/@Ihl _ OZg```_W(_l @Y`` ` I`` @"Z}@Ihl _"OZg``W*_`_JL@ l H_M 1gOhhW&c&_ og g_$O c&gO  O$ O"(444Q OPENW 440Q ERROR! 432Q APPLY 403Q SCROLL.HANDLERA0025 345Q CURSOR 335Q \CLOCK0 327Q \UPDATE.EXTENT.IMAGE 261Q CREATEW 227Q INSIDE? 214Q GETMOUSESTATE 210Q DISMISS 174Q INSIDE? 152Q OPENW 105Q CREATEW 57Q INSIDE? 44Q GETMOUSESTATE 40Q DISMISS 30Q INSIDE? 10Q GETMOUSESTATE) (422Q CURSOR 407Q ERROR 400Q INTERNAL 353Q CURSOR 316Q ScrollRightCursor 305Q ScrollLeftCursor 301Q HorizScrollCursor 275Q HORIZ 252Q WINDOW 241Q WINDOW 224Q LASTMOUSEY 221Q LASTMOUSEX 205Q SCROLLWAITTIME 171Q LASTMOUSEY 166Q LASTMOUSEX 160Q WINDOW 135Q ScrollDownCursor 131Q ScrollUpCursor 125Q VertScrollCursor 121Q VERT 76Q WINDOW 65Q WINDOW 54Q LASTMOUSEY 51Q LASTMOUSEX 35Q SCROLLWAITTIME 25Q LASTMOUSEY 22Q LASTMOUSEX 14Q WINDOW) ( 375Q (DUMMY.FOR.ERRORSET)) \SCROLL.HANDLER.DOITA0020 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 SCROLLREGION F 1 XPOS F 2 YPOS F 3 DIRECTION F 4 BUTTON F 5 WINDOW F 6 CONTINUOUS?) USgETdgPQٰ8dgQPٰ+g ooQPlPl jSgaTdgPPkRٰKdgRPPkٰ5g*ooPPklRPl jV h(266Q SCROLLW 260Q SHOULDNT 254Q MIN 251Q MAX 111Q SHOULDNT 105Q MIN 102Q MAX) (202Q MIDDLE 155Q RIGHT 127Q LEFT 117Q VERT 45Q MIDDLE 31Q RIGHT 14Q LEFT 4 HORIZ) ( 215Q 0.0 211Q 1.0 60Q 0.0 54Q 1.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.DOITA0020) NIL ( 3 (DUMMY.FOR.ERRORSET)) \UPDATE.EXTENT.IMAGE D1 (P 24Q WINWIDTH P 23Q SCROLLHEIGHT P 22Q SCROLLWIDTH P 21Q GRAYLEFT P 20Q GRAYWIDTH P 17Q EXWIDTH P 16Q SCROLLREGION P 15Q WINREGION P 14Q SCROLLBARSHADE 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 3 SCROLLBARSHADE P 0 EXTENT I 2 SCROLLINGW I 1 DIRECTION I 0 SCROLLBARW) e@ B !HhAdgn hB h@ HT NmM_M_L_OOON۹dII_OOHHkLLkNO_hdd@jOOOggn hdd@kOlOlOlggK MgDn hB h@ HTOmxO_$O_&O_(O$O(O$OۺdJJ_ O(OHO_"hdd@O"jO O&ggn hdd@O"lkO lO&lggO (536Q BKBITBLT 475Q BKBITBLT 333Q DSPCLIPPINGREGION 326Q DSPCLIPPINGREGION 277Q BKBITBLT 237Q BKBITBLT 50Q DSPCLIPPINGREGION 43Q DSPCLIPPINGREGION 7 \INSUREWINDOW 3 CLEARW) (530Q REPLACE 525Q TEXTURE 466Q REPLACE 463Q TEXTURE 307Q HORIZ 272Q REPLACE 267Q TEXTURE 230Q REPLACE 225Q TEXTURE 25Q VERT) () EXTENDPASTHORIZBOUNDARIES D1 (L (1 EXTENT 0 VIEW)) @AAAk@@kNIL NIL () REDISPLAYWA0171 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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) d@!@ YB0ghH ZA;dA AJ bV!Wog ho hg] ML@A I@J (141Q DOUSERFNS2 133Q FILLWITHBACKGROUND 123Q ERROR! 116Q RESETRESTORE 105Q PROMPTPRINT 73Q REDISPLAYWA0171 50Q INTERSECTREGIONS 42Q SUBREGIONP 31Q DSPCLIPPINGREGION 11Q \INSUREWINDOW) (112Q ERROR 70Q INTERNAL 23Q NILL) ( 102Q "Window has no REPAINTFN. Can't redisplay." 65Q (DUMMY.FOR.ERRORSET)) 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(134Q DSPLINEFEED 53Q CLOSEW 30Q CLOSEW) (202Q SCROLLBARWIDTH 162Q SCROLLBARWIDTH 152Q WINDOW 131Q WindowTitleDisplayStream 114Q SCROLLBARWIDTH 75Q SCROLLBARWIDTH 70Q WINDOW 60Q WINDOW 35Q WINDOW) () WTODSX D1 (I 1 WINDOW I 0 WX) @hA (7 DSPCLIPPINGREGION) NIL () WTODSY D1 (I 1 WINDOW I 0 WY) @hA (7 DSPCLIPPINGREGION) NIL () WXOFFSET D1 (P 1 CR P 0 DS I 1 WINDOW I 0 DX) EAg A hH Yd@dd@hH H Idj@IH (101Q DSPCLIPPINGREGION 62Q DSPXOFFSET 55Q 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) HAg A hH Yd@dd@hH H IIj@IH (104Q DSPCLIPPINGREGION 63Q DSPYOFFSET 56Q 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) YA 1@`HhH YddCCI@ٺdJJH IdBBI@ٻdKKH @jdH h(125Q BKBITBLT 116Q WXOFFSET 63Q WYOFFSET 25Q DSPCLIPPINGREGION 3 \INSUREWINDOW) (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) 8@`o@ A hH Y@jdHIII@ (65Q BKBITBLT 35Q DSPCLIPPINGREGION 23Q \INSUREWINDOW 16Q ERROR) (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 () 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 AbAAX@g Z@dg lJ@g b B gbA)Ad` @ ( o Y@gI Ig@ Igg @gg Igg C@gC Igg BgIB IgB B@g @ I __`OOOjKKj`OOؼdLLOO`OOOjMM!j`OOؾdNNO @ I I(723Q OPENW 717Q \CLOSEW1 712Q MOVEW 506Q \INSUREWINDOW 500Q \INSUREWINDOW 466Q POSITIONP 463Q GETWINDOWUSERPROP 447Q PUTWINDOWPROP 436Q POSITIONP 420Q PUTWINDOWPROP 405Q WINDOWADDFNPROP 373Q WINDOWADDFNPROP 361Q WINDOWADDFNPROP 347Q WINDOWADDFNPROP 335Q PUTWINDOWPROP 325Q PUTWINDOWPROP 314Q \MAKEICONWINDOW 311Q CONCAT 306Q DATE 273Q \INSUREWINDOW 263Q CREATEWFROMIMAGE 260Q BITMAPCOPY 233Q POSITIONP 226Q WINDOWP 221Q GETWINDOWUSERPROP 204Q GETWINDOWUSERPROP 172Q GETWINDOWUSERPROP 150Q PUTWINDOWPROP 131Q POSITIONP 123Q WINDOWP 114Q PUTWINDOWPROP 110Q CREATEWFROMIMAGE 105Q BITMAPCOPY 74Q PUTWINDOWPROP 44Q DOUSERFNS 37Q GETWINDOWUSERPROP 26Q GETWINDOWUSERPROP 14Q OPENWP 3 \INSUREWINDOW) (655Q SCREENHEIGHT 614Q SCREENHEIGHT 557Q SCREENWIDTH 521Q SCREENWIDTH 460Q ICONPOSITION 443Q ICONPOSITION 424Q SAME 415Q DOICONWINDOWCOM 412Q DOWINDOWCOMFN 401Q EXPANDFN 370Q \NOTENEWICONPOSITION 365Q MOVEFN 356Q CLOSEICONWINDOW 353Q OPENFN 344Q CLOSEMAINWINDOW 341Q CLOSEFN 331Q ICONFOR 321Q ICONWINDOW 253Q BITMAPTYPE# 237Q SAME 216Q ICON 201Q ICONWINDOW 167Q ICONFN 144Q ICON 135Q SAME 101Q ICON 70Q ICON 60Q BITMAPTYPE# 47Q DON'T 34Q SHRINKFN 23Q ICONFOR) ( 303Q "Icon made ") \MAKEICONWINDOW D1 (P 1 W I 0 ICONTEXT) :``jh` ٸ@` lHh@hi Igg I(66Q PUTWINDOWPROP 51Q CREATEW 31Q STRINGWIDTH 20Q DSPLINEFEED) (63Q \TITLEICONMINSIZE 60Q 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@YI>Ig Z 0I H Igg Hgg JI Hg h(126Q PUTWINDOWPROP 116Q DOUSERFNS 110Q WINDOWDELPROP 75Q WINDOWDELPROP 62Q \CLOSEW1 55Q \OPENW1 47Q \USERFNISDON'T 43Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 12Q GETWINDOWUSERPROP) (123Q ICONFOR 105Q CLOSEMAINWINDOW 102Q CLOSEFN 72Q CLOSEICONWINDOW 67Q OPENFN 40Q 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 0 ICONW I 0 MAINWIN) +@g H@gg hgg H (46Q CLOSEW 41Q WINDOWDELPROP 26Q WINDOWDELPROP 6 GETWINDOWUSERPROP) (36Q CLOSEMAINWINDOW 33Q CLOSEFN 23Q CLOSEICONWINDOW 20Q OPENFN 3 ICONWINDOW) () (PRETTYCOMPRINT WINDOWCOMS) (RPAQQ WINDOWCOMS ((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 DOWINDOWCOM DOBACKGROUNDCOM) (FNS BURYW CLEARW CLOSEW \CLOSEW1 \OKTOCLOSEW OPENW DOUSERFNS DOUSERFNS2 \USERFNISDON'T \OPENW1 CREATEW MOVEW \ONSCREENCLIPPINGREGION RELMOVEW PAINTW PAINTW.READBRUSHSHADE PAINTW.READMODE PAINTW.READBRUSHSHAPE PAINTW.READBRUSHSIZE SHAPEW SHAPEW1 RESHOWBORDER \RESHOWBORDER1 TRACKW SNAPW WINDOWREGION) (FNS MINIMUMWINDOWSIZE)) (COMS (* Window utilities) (FNS ADVISEWDS SHOWWFRAME SHOWWTITLE \STRINGWIDTHGUESS RESHOWTITLE TOTOPW \INTERNALTOTOPW \TTW1 WHICHW) (VARS ( WINDOWTITLEPRINTLEVEL (QUOTE (2 . 5))))) (COMS (* Window vs non-window world) (FNS SWITCHDEF NU\BACKGROUND 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 )) (COMS (FNS OPENWP RESHAPEBYREPAINTFN 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 \UPDATE.EXTENT.IMAGE EXTENDPASTHORIZBOUNDARIES 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) ( 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. Includes a HARDCOPY command.") (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.") (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."))) (ADDVARS (WINDOWUSERFORMS ) (ENDOFWINDOWUSERFORMS)) (DECLARE: DOCOPY DONTEVAL@LOAD (P (WINDOWWORLD T)) (ADDVARS (GLOBALVARS SCROLLBARWIDTH SCROLLWAITTIME WAITBEFORESCROLLTIME WAITBETWEENSCROLLTIME WAITINGCURSOR))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PROMPTPRINT WINDOWPROP WINDOWWORLD))))) (RPAQQ \TTYREGIONOFFSETSPTR NIL) (RPAQ? TTYREGIONOFFSETS (QUOTE ((0 . 0) (20 . -20) (40 . 0) (20 . 20)))) (RPAQ? DEFAULTTTYREGION (QUOTE (153 100 384 208))) (RPAQQ WINDOWTITLEPRINTLEVEL (2 . 5)) (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 (ADDTOVAR 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))) (/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))) (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? 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. Includes a HARDCOPY command.") (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.") (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.")) (ADDTOVAR WINDOWUSERFORMS) (ADDTOVAR ENDOFWINDOWUSERFORMS) (WINDOWWORLD T) (ADDTOVAR GLOBALVARS SCROLLBARWIDTH SCROLLWAITTIME WAITBEFORESCROLLTIME WAITBETWEENSCROLLTIME WAITINGCURSOR) (PUTPROPS WINDOW COPYRIGHT ("Xerox Corporation" 1982 1983 1984)) NIL