(FILECREATED "19-Feb-85 16:08:59" ("compiled on " {ERIS}SOURCES>WINDOW.;36) " 9-Feb-85 17:06:29" recompiled changes: IMAGEFNSCREATE IMAGEOBJPROP COPYIMAGEOBJ READIMAGEOBJ WRITEIMAGEOBJ ENCAPSULATEDOBJ.BUTTONEVENTINFN ENCAPSULATEDOBJ.DISPLAYFN ENCAPSULATEDOBJ.IMAGEBOXFN ENCAPSULATEDOBJ.INIT in "INTERLISP-D 9-Feb-85 ..." dated " 9-Feb-85 17:18:24") (FILECREATED "19-Feb-85 16:02:22" {ERIS}SOURCES>WINDOW.;36 192867 changes to: (FNS READIMAGEOBJ IMAGEFNSCREATE WRITEIMAGEOBJ COPYIMAGEOBJ ENCAPSULATEDOBJ.INIT ENCAPSULATEDOBJ.BUTTONEVENTINFN ENCAPSULATEDOBJ.DISPLAYFN ENCAPSULATEDOBJ.IMAGEBOXFN IMAGEOBJPROP) ( VARS WINDOWCOMS) (RECORDS IMAGEFNS) previous date: "14-Feb-85 17:00:36" {ERIS}SOURCES>WINDOW.;33) 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 LOGOW F 6 \LINEBUF.OFD)  e``HjHH @s`` ``d ~`dJgg ` ,g` gl ` n`` jT jT lnzn&nMhT `T 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 BACKGROUNDCOPYRIGHTBUTTONEVENTFN F 10Q BACKGROUNDCOPYBUTTONEVENTFN F 11Q \INTERRUPTABLE) WjVjVـVA``````i`````` Y``9`j`d ``M`J`U` M` D`` `` ` `m`Zoi I`!` `  Zoi I``llZII PI+`l@j`lj`dl@jWI ` khc W I```l\jLL I .["`l@je`ljY`dKP `l@j`lj`dl@jI0Z`I oi ?l@jIg `llI IZ`I JI `hIZp`I oi [``MI*`l@j`lj`dl@jW`d" `  W `h ` (1324Q \PROTECTED.APPLY 1314Q \DEFINEDP 1300Q \PROTECTED.APPLY 1271Q \DEFINEDP 1263Q \PROTECTED.APPLY 1253Q \DEFINEDP 1153Q WINDOW.MOUSE.HANDLERA0005 1142Q \CARET.DOWN 1110Q GETMOUSESTATE 1104Q \PROTECTED.APPLY 1076Q \CARET.DOWN 1026Q GETWINDOWUSERPROP 1005Q WINDOW.MOUSE.HANDLERA0004 774Q \CARET.DOWN 703Q TTY.PROCESSP 633Q \INSUREWINDOW 626Q \FZEROP 561Q \PROTECTED.APPLY 552Q \DEFINEDP 533Q OPENWP 524Q DOWINDOWCOM 400Q WINDOW.MOUSE.HANDLERA0002 360Q \PROTECTED.APPLY 350Q \DEFINEDP 331Q WINDOW.MOUSE.HANDLERA0001 277Q GETMOUSESTATE 263Q SCROLL.HANDLER 254Q \CARET.DOWN 240Q IN/SCROLL/BAR? 225Q \PROTECTED.APPLY 215Q \DEFINEDP 161Q \FZEROP 122Q WHICHW 26Q GETMOUSESTATE) (1321Q BACKGROUNDCURSORMOVEDFN 1305Q BACKGROUNDCURSORMOVEDFN 1260Q BACKGROUNDBUTTONEVENTFN 1245Q BACKGROUNDBUTTONEVENTFN 1224Q \EM.KBDAD4 1211Q \EM.KBDAD3 1175Q \EM.KBDAD2 1164Q \LastWindowButtons 1161Q LASTMOUSEBUTTONS 1135Q \CARET.UP 1125Q WINDOW 1117Q \LastWindowButtons 1114Q LASTMOUSEBUTTONS 1071Q \CARET.UP 1055Q WINDOW 1046Q WINDOW 1033Q LASTMOUSEBUTTONS 1023Q COPYBUTTONEVENTFN 767Q \CARET.UP 757Q WINDOW 740Q \EM.KBDAD4 724Q \EM.KBDAD3 710Q \EM.KBDAD2 673Q \EM.KBDAD4 657Q \EM.KBDAD3 643Q \EM.KBDAD2 606Q LASTMOUSEBUTTONS 576Q \LastWindowButtons 573Q LASTMOUSEBUTTONS 543Q \LastInWindow 530Q \LastInWindow 502Q \EM.KBDAD4 467Q \EM.KBDAD3 453Q \EM.KBDAD2 441Q WINDOW 423Q LASTMOUSEBUTTONS 414Q \LastWindowButtons 411Q LASTMOUSEBUTTONS 405Q \LastInWindow 364Q WINDOW 355Q BACKGROUNDCURSORINFN 345Q BACKGROUNDCURSORINFN 340Q BACKGROUNDCURSORINFN 315Q WINDOW 306Q \LastWindowButtons 303Q LASTMOUSEBUTTONS 270Q \LastCursorPosition 260Q \LastInWindow 251Q \LastInWindow 245Q \CARET.UP 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) ( 1147Q (WINDOW.MOUSE.HANDLERA0005) 1001Q (WINDOW.MOUSE.HANDLERA0004) 374Q (WINDOW.MOUSE.HANDLERA0002) 325Q (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 @ @ (25Q \CLOSEW1 17Q \OKTOCLOSEW 11Q OPENWP 3 \INSUREWINDOW) NIL () \CLOSEW1 D1 (P 0 \INTERRUPTABLE I 0 WINDOW) ;@ `@@ @d@gg(30Q \SW2BM 6 \INTERNALTOTOPW) (70Q CLOSED 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) 5@`@dd(@@ (62Q \SW2BM) (55Q WINDOW 47Q WINDOW 41Q \DISPLAYDATA 34Q STREAM 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` ـjBdd` @ k`hK `@[(\ LJdjjILJdjjI`JdNNI`HJ_dOOIHhZ}@l 4@dddih@@@@@7A'` o` A` o` ll A[(Jl JdddihoJ JJ_dOOIoJ `K `dKdJJJ _dOdA(dI,dgdg0dg]L_ OlQMlǿOM)M M M CM M(712Q OPENW 704Q SHOWWFRAME 700Q MOVETOUPPERLEFT 674Q ADVISEWDS 563Q BITMAPCREATE 531Q DSPDESTINATION 521Q ERROR 460Q HELP 416Q EQLENGTH 401Q DSPCREATE 374Q CLRPROMPT 367Q GETREGION 357Q PRIN1 344Q PRIN1 334Q PRIN1 321Q TERPRI 224Q EQLENGTH 55Q DSPDESTINATION 43Q DISPLAYSTREAMP 11Q DSPLINEFEED) (640Q \DISPLAYDATA 630Q TOTOPW 621Q GIVE.TTY.PROCESS 612Q CLOSED 534Q WINDOWTYPE# 525Q ScreenBitMap 405Q STREAM 354Q PROMPTWINDOW 341Q PROMPTWINDOW 331Q PROMPTWINDOW 316Q PROMPTWINDOW 157Q SCREENHEIGHT 136Q SCREENWIDTH 77Q \DISPLAYDATA 65Q STREAM 50Q ScreenBitMap 34Q WBorder 6 WindowTitleDisplayStream) ( 515Q "Region too small to use as a window" 454Q "Not a region" 351Q "%"" 326Q "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` @ i_H]H^H_H_Ay@ @g _@kO_8OOMN iZIdd`OhghOO_O_ [MOKNO A3AdddBdddAB AAA [OJp@ h_@KlO\dggm LO_W@KlI\dgU 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:O4OA BIAB -J+IdA@IAKdK[J@(Ag@(@i (1217Q RESHOWTITLE 1102Q LISTPUT 1071Q LISTGET 754Q \ILLEGAL.ARG 747Q RESHOWBORDER 705Q RESHOWTITLE 634Q SHAPEW 626Q MOVEW 565Q \ILLEGAL.ARG 560Q REGIONP 547Q \INSUREWINDOW 534Q ERROR 513Q ERROR 475Q ERROR 453Q UPDATE/SCROLL/REG 411Q \ILLEGAL.ARG 404Q REGIONP 303Q ERROR 35Q \ILLEGAL.ARG 26Q WFROMDS 21Q DISPLAYSTREAMP 16Q \GETSTREAM) (1210Q WINDOW 1177Q WINDOWTITLESHADE 1165Q WINDOW 1124Q WINDOW 1052Q WINDOW 1033Q WINDOW 1022Q WINDOW 1014Q WINDOW 1006Q WINDOWENTRYFN 775Q WINDOW 767Q WINDOW 761Q PROCESS 724Q WINDOW 714Q BORDER 676Q WINDOW 670Q TITLE 660Q WINDOW 652Q WINDOW 643Q NEWREGIONFN 540Q REGION 521Q WIDTH 501Q HEIGHT 462Q IMAGECOVERED 443Q WINDOW 435Q WINDOW 426Q SCROLLFN 416Q WINDOW 374Q WINDOW 364Q EXTENT 352Q WINDOW 344Q WINDOW 336Q REPAINTFN 326Q WINDOW 320Q WINDOW 311Q RESHAPEFN 271Q DSP 261Q WINDOW 253Q WINDOW 244Q CURSORMOVEDFN 232Q WINDOW 224Q WINDOW 216Q CURSOROUTFN 206Q WINDOW 200Q WINDOW 171Q CURSORINFN 157Q WINDOW 151Q WINDOW 143Q MOVEFN 133Q WINDOW 125Q WINDOW 116Q CLOSEFN 104Q WINDOW 76Q WINDOW 70Q BUTTONEVENTFN 60Q WINDOW 52Q WINDOW 43Q RIGHTBUTTONFN 13Q OUTPUT 4 WINDOWTYPE#) ( 530Q "Not implemented to change WIDTH as property." 507Q "Not implemented to change HEIGHT as property." 471Q "Not implemented to change IMAGECOVERED property." 277Q "Can't change DSP of a window") REMWINDOWPROP D1 (I 1 PROP I 0 WINDOW) `@d`g @ b@l @1HYhA%JIId[KI@hAIZ(37Q \LISPERROR 26Q WFROMDS 21Q DISPLAYSTREAMP 16Q \GETSTREAM) (123Q WINDOW 44Q WINDOW 13Q OUTPUT 5 WINDOWTYPE#) () WINDOWADDFNPROP D1 (P 0 CURRENT I 2 ITEMTOADD I 1 PROP I 0 WINDOW) 6@A @AHBh!H`HBhBHHH Bh (63Q WINDOWPROP 60Q \NCONC2 52Q \APPEND2 4 WINDOWPROP) (30Q LAMBDASPLST) () CWINDOWPROP D1 (I 0 FORMTAIL) L@d'oi i g@hi i @ gg@@@ g@(103Q CGETWINDOWPROP 50Q CGETWINDOWPROP 43Q TERPRI 36Q PRIN1 22Q TERPRI 15Q PRIN1) (107Q PUTWINDOWPROP 64Q IGNOREMACRO 57Q QUOTE 26Q WINDOWPROP) ( 11Q "Possible error in call to WINDOWPROP: less than 2 args") CGETWINDOWPROP D1 (I 1 PROP I 0 WINFORM) Ng@hgAdgogoAdgogoAdgogoAdgogoAdgogoAdgogo{AdgomgobAdgoTgoIAdgo;go0Adgo"gg@oAgg@oh g@Addidd gAhh(446Q SUBST) (503Q QUOTE 452Q GETWINDOWUSERPROP 432Q GETWINDOWPROP 425Q WIDTH 413Q GETWINDOWPROP 406Q HEIGHT 372Q IMAGECOVERED 355Q BORDER 341Q TITLE 324Q NEWREGIONFN 310Q REGION 273Q PROCESS 257Q WINDOWENTRYFN 242Q CLOSEFN 225Q REPAINTFN 207Q EXTENT 172Q RESHAPEFN 154Q MOVEFN 137Q SCROLLFN 121Q DSP 104Q CURSORMOVEDFN 66Q CURSOROUTFN 51Q CURSORINFN 33Q BUTTONEVENTFN 16Q RIGHTBUTTONFN 11Q DATUM 2 \INSUREWINDOW) ( 437Q (QUOTE WIDTH) 420Q (QUOTE HEIGHT) 401Q (FFETCHFIELD (QUOTE (WINDOW 4 POINTER)) DATUM) 363Q (FFETCHFIELD (QUOTE (WINDOW 54Q POINTER)) DATUM) 350Q (FFETCHFIELD (QUOTE (WINDOW 50Q POINTER)) DATUM) 332Q (FFETCHFIELD (QUOTE (WINDOW 52Q POINTER)) DATUM) 317Q (FFETCHFIELD (QUOTE (WINDOW 6 POINTER)) DATUM) 301Q (FFETCHFIELD (QUOTE (WINDOW 56Q POINTER)) DATUM) 266Q (FFETCHFIELD (QUOTE (WINDOW 60Q POINTER)) DATUM) 250Q (FFETCHFIELD (QUOTE (WINDOW 44Q POINTER)) DATUM) 234Q (FFETCHFIELD (QUOTE (WINDOW 22Q POINTER)) DATUM) 215Q (FFETCHFIELD (QUOTE (WINDOW 26Q POINTER)) DATUM) 201Q (FFETCHFIELD (QUOTE (WINDOW 24Q POINTER)) DATUM) 162Q (FFETCHFIELD (QUOTE (WINDOW 46Q POINTER)) DATUM) 146Q (FFETCHFIELD (QUOTE (WINDOW 36Q POINTER)) DATUM) 127Q (FFETCHFIELD (QUOTE (WINDOW 0 POINTER)) DATUM) 113Q (FFETCHFIELD (QUOTE (WINDOW 20Q POINTER)) DATUM) 74Q (FFETCHFIELD (QUOTE (WINDOW 16Q POINTER)) DATUM) 60Q (FFETCHFIELD (QUOTE (WINDOW 14Q POINTER)) DATUM) 41Q (FFETCHFIELD (QUOTE (WINDOW 10Q POINTER)) DATUM) 25Q (FFETCHFIELD (QUOTE (WINDOW 12Q POINTER)) DATUM)) \GETWINDOWHEIGHT D1 (I 0 WINDOW) -@ bd@,l@(h` j(46Q DSPLINEFEED 3 \INSUREWINDOW) (43Q WindowTitleDisplayStream 34Q WINDOW 23Q WINDOW 11Q WINDOW) () \GETWINDOWWIDTH D1 (I 0 WINDOW) @ bd@,l(3 \INSUREWINDOW) (22Q WINDOW 11Q WINDOW) () OPENWP D1 (L (0 WINDOW)) @`@gh@NIL (20Q CLOSED 13Q WINDOW 4 WINDOWTYPE#) () RESHAPEBYREPAINTFN D1 (P 22Q YPOS P 21Q OLDPRIGHT P 20Q NEWPRIGHT P 17Q OLDPTOP P 16Q NEWPTOP P 15Q DELTAHGHT P 14Q DELTAWID P 13Q NEWCRBTM P 12Q NEWCRLFT P 11Q OLDCRBTM P 10Q OLDCRLFT P 7 WREGION P 6 NEWHGHT P 5 NEWWID P 4 OLDHEIGHT P 3 OLDWIDTH P 2 DSP P 1 EXTENT P 0 NEWSCREENREGION I 3 OLDSCREENREGION I 2 IMAGEREGION I 1 OLDIMAGE I 0 WINDOW) @ @ @ BB@hJ _d_O_O]dK_O^dL_CFICHHCC2OO_Oj_IOXIIIkM_&dO&?O&:Oj2I/OdMIIk IdOOOO_(dO(O(O_CNHHCC9OO_OjuIdudOjIIkN_*dO*NO*IOjAI>OdLOII,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@ABClHNIL (12Q SCROLLBYREPAINTFN 3 WINDOW) () 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_A3Ijb*m IAIO _hH ObCAjAj jhH كH bB;Ijb2m oBI OI_hH ObCBjBj jhH كH b`@  "J`H( ZAH BH hJ]J^J\J[AjI/iz@MN@AMNLKgg AH MAٽ@Aj7MNAAmMIMLIIdAA_dOObjhMLAdMMNjAdLLK i BjcI4iZ@MN@MBNLKgg BH NBٺ@Bj?MJLBImNKZIIJkIdBB_dOObjhMKJBdJJLjBdKK i (1042Q REDISPLAYW 1036Q CREATEREGION 675Q WYOFFSET 667Q BKBITBLT 621Q REDISPLAYW 615Q CREATEREGION 464Q WXOFFSET 456Q BKBITBLT 371Q WYOFFSET 363Q WXOFFSET 353Q INTERSECTREGIONS 350Q \DSPUNTRANSFORMREGION 331Q SUBREGIONP 324Q \INSUREWINDOW 312Q DSPLINEFEED 304Q DSPLINEFEED 253Q WYOFFSET 234Q FIXR 160Q DSPLINEFEED 152Q DSPLINEFEED 121Q WXOFFSET 110Q FIXR 23Q DSPCLIPPINGREGION 11Q \INSUREWINDOW 3 \INSUREWINDOW) (663Q REPLACE 660Q INPUT 452Q REPLACE 447Q INPUT 343Q STREAM 337Q WHOLEDISPLAY 320Q WHOLEDISPLAY) ( 221Q 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) N@F@g h;@AB .@AB !@ Himh@ H (113Q EXTENDPASTHORIZBOUNDARIES 107Q DSPCLIPPINGREGION 60Q \INSUREWINDOW 52Q INSIDE? 35Q INSIDE? 16Q GETWINDOWUSERPROP) (43Q WINDOW 26Q WINDOW 13Q 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) f WR T 7g hcR W`` T R `` hicT `lHj HH ;Q1Uhc RQVW`` TVR W hccc _X`dljdlj#Qggcj cW %`ljQggcj cW U-S` $S cRQVW``i TVR S` ic kjQggcW (540Q CURSOR 471Q \CLOCKGREATERP 456Q \UPDATE.EXTENT.IMAGE 447Q \SCROLL.HANDLER.DOIT 424Q \CLOCK0 416Q \CLOCKGREATERP 400Q CURSOR 370Q CLOCK 331Q CURSOR 321Q CLOCK 246Q BLOCK 227Q CURSOR 221Q \UPDATE.EXTENT.IMAGE 212Q \SCROLL.HANDLER.DOIT 156Q \FZEROP 126Q TOTOPW 110Q INSIDE? 75Q \INSUREWINDOW 70Q CLOSEW 62Q INSIDE? 44Q TOTOPW 32Q TIMEREXPIRED? 21Q CLOSEW 13Q OPENWP 2 GETMOUSESTATE) (530Q MIDDLE 520Q MIDDLE 466Q WAITBEFORESCROLLTIME 442Q LASTMOUSEY 437Q LASTMOUSEX 413Q WAITBETWEENSCROLLTIME 361Q RIGHT 353Q RIGHT 340Q LASTMOUSEBUTTONS 312Q LEFT 304Q LEFT 255Q LASTMOUSEBUTTONS 206Q LASTMOUSEY 203Q LASTMOUSEX 132Q LASTMOUSEBUTTONS 115Q \LastInWindow 105Q LASTMOUSEY 102Q LASTMOUSEX 57Q LASTMOUSEY 54Q LASTMOUSEX 27Q MILLISECONDS) () 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) & @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 (437Q OPENW 433Q ERROR! 425Q APPLY 376Q SCROLL.HANDLERA0005 340Q CURSOR 326Q \CLOCK0 320Q \UPDATE.EXTENT.IMAGE 254Q CREATEW 222Q INSIDE? 207Q GETMOUSESTATE 203Q DISMISS 167Q INSIDE? 145Q OPENW 102Q CREATEW 54Q INSIDE? 41Q GETMOUSESTATE 35Q DISMISS 25Q INSIDE? 5 GETMOUSESTATE) (415Q CURSOR 402Q ERROR 373Q INTERNAL 346Q CURSOR 311Q ScrollRightCursor 300Q ScrollLeftCursor 274Q HorizScrollCursor 270Q HORIZ 245Q WINDOW 234Q WINDOW 217Q LASTMOUSEY 214Q LASTMOUSEX 200Q SCROLLWAITTIME 164Q LASTMOUSEY 161Q LASTMOUSEX 153Q WINDOW 132Q ScrollDownCursor 126Q ScrollUpCursor 122Q VertScrollCursor 116Q VERT 73Q WINDOW 62Q WINDOW 51Q LASTMOUSEY 46Q LASTMOUSEX 32Q SCROLLWAITTIME 22Q LASTMOUSEY 17Q LASTMOUSEX 11Q WINDOW) ( 370Q (SCROLL.HANDLERA0005)) \SCROLL.HANDLER.DOITA0001 D1 (NAME ERRORSET P 2 SIZEOFORIGIN P 1 TOP P 0 LFT F 3 SCROLLREGION F 4 XPOS F 5 YPOS F 6 DIRECTION F 7 BUTTON F 10Q WINDOW F 11Q CONTINUOUS?) SlSSkllWVgPWdgHTٰCdgTHٰ7g,HJTo%ooTHJSJl jVgQWdgIUٰDdgUIٰ8g-UIJo&ooIJUSJl jW h(313Q SCROLLW 304Q SHOULDNT 300Q MIN 275Q MAX 155Q SHOULDNT 151Q MIN 146Q MAX) (223Q MIDDLE 210Q RIGHT 174Q LEFT 163Q VERT 75Q MIDDLE 62Q RIGHT 46Q LEFT 35Q HORIZ) ( 252Q 0.0 246Q 1.0 240Q 0.0 124Q 0.0 120Q 1.0 112Q 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)) \UPDATE.EXTENT.IMAGE D1 (P 25Q WINWIDTH P 24Q SCROLLHEIGHT P 23Q SCROLLWIDTH P 22Q GRAYLEFT P 21Q GRAYWIDTH P 20Q EXWIDTH P 17Q SCROLLREGION P 16Q WINREGION P 15Q SCROLLBARSHADE P 14Q WINHEIGHT P 13Q SCROLLHEIGHT P 12Q SCROLLWIDTH P 11Q GRAYBOTTOM P 10Q GRAYHEIGHT P 7 EXHEIGHT P 6 SCROLLREGION P 5 WINREGION P 4 SCROLLBARSHADE P 0 EXTENT I 2 SCROLLINGW I 1 DIRECTION I 0 SCROLLBARW) o@ B 1HhAdgn hB h@ HT OjN_N_M_OOOO۹dIIlJJl_OdHHkMMkOO_hdd@jOOOggn hdd@kOlOlOlggL Bg9n hB h@ HTjO xO_&O_(O_*O&O*O&O ۻdKK_"O*OHO _$hdd@O$jO"O(ggn hdd@O$lkO"lO(lggO (550Q BKBITBLT 507Q BKBITBLT 346Q DSPCLIPPINGREGION 341Q DSPCLIPPINGREGION 312Q BKBITBLT 252Q BKBITBLT 50Q DSPCLIPPINGREGION 43Q DSPCLIPPINGREGION 7 \INSUREWINDOW 3 CLEARW) (542Q REPLACE 537Q TEXTURE 500Q REPLACE 475Q TEXTURE 322Q HORIZ 305Q REPLACE 302Q TEXTURE 243Q REPLACE 240Q TEXTURE 25Q VERT) () EXTENDPASTHORIZBOUNDARIES 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) 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) _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 AbAAX@g Z@dg lJ@g b B gbA)Ad` @ ( 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(751Q OPENW 745Q \CLOSEW1 740Q MOVEW 534Q \INSUREWINDOW 526Q \INSUREWINDOW 514Q POSITIONP 511Q GETWINDOWUSERPROP 475Q PUTWINDOWPROP 464Q POSITIONP 446Q PUTWINDOWPROP 433Q WINDOWADDFNPROP 421Q WINDOWADDFNPROP 407Q WINDOWADDFNPROP 374Q PUTWINDOWPROP 353Q \INSUREWINDOW 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) (703Q SCREENHEIGHT 642Q SCREENHEIGHT 605Q SCREENWIDTH 547Q SCREENWIDTH 506Q ICONPOSITION 471Q ICONPOSITION 452Q SAME 443Q DOICONWINDOWCOM 440Q DOWINDOWCOMFN 427Q EXPANDFN 416Q \NOTENEWICONPOSITION 413Q MOVEFN 404Q CLOSEICONWINDOW 401Q OPENFN 371Q SHRINKWA0001 366Q BUTTONEVENTFN 360Q TOTOPW 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@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 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 \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.READBRUSHSHADE PAINTW.READMODE PAINTW.READBRUSHSHAPE PAINTW.READBRUSHSIZE SHAPEW SHAPEW1 RESHOWBORDER \RESHOWBORDER1 TRACKW SNAPW WINDOWREGION) (FNS MINIMUMWINDOWSIZE GETWINDOWDATA PUTWINDOWDATA) (INITVARS ( BACKGROUNDCURSORINFN) (BACKGROUNDBUTTONEVENTFN) (BACKGROUNDCURSOROUTFN) (BACKGROUNDCURSORMOVEDFN)) ( GLOBALVARS BACKGROUNDCURSORINFN BACKGROUNDBUTTONEVENTFN BACKGROUNDCURSOROUTFN BACKGROUNDCURSORMOVEDFN) (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 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 \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 \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.") (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)) (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 IMAGEOBJPROP WINDOWWORLD))))) (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? 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)) (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))) (/DECLAREDATATYPE (QUOTE IMAGEFNS) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))) (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))) (/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.") (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) (WINDOWWORLD T) (ADDTOVAR GLOBALVARS SCROLLBARWIDTH SCROLLWAITTIME WAITBEFORESCROLLTIME WAITBETWEENSCROLLTIME WAITINGCURSOR) (PUTPROPS WINDOW COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL