(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "10-Apr-2023 07:10:28" ("compiled on " {DSK}larry>il>medley>sources>WINDOW.;2) "10-Apr-2023 06:16:40" "COMPILE-FILEd" in "Medley 10-Apr-2023 ..." dated "10-Apr-2023 06:42:13") (FILECREATED "10-Apr-2023 07:05:18" {DSK}larry>il>medley>sources>WINDOW.;2 222381 :EDIT-BY "lmm" :CHANGES-TO (VARS WINDOWCOMS) :PREVIOUS-DATE " 9-Jul-2022 11:10:09" {DSK}larry>il>medley>sources>WINDOW.;1) (RPAQQ WINDOWCOMS ((COMS (FNS WINDOWWORLD WINDOWWORLDP CHANGEBACKGROUND CHANGEBACKGROUNDBORDER TILE \TTY.CREATING.DISPLAYSTREAM \CREATE.TTY.OUTCHARFN \CREATE.TTYDISPLAYSTREAM HASTTYWINDOWP TTYINFOSTREAM CREATESCREEN \INSURESCREEN \BITMAPTOSCREEN MAINSCREEN) (VARS (\TTYREGIONOFFSETSPTR)) (INITVARS ( TTYREGIONOFFSETS (QUOTE ((0 . 0) (20 . -20) (40 . 0) (20 . 20)))) (DEFAULTTTYREGION (QUOTE (153 100 384 208))) (INITIAL-EXEC-REGION (QUOTE (8 378 550 330))) (INITIAL-PROMPT-REGION (QUOTE (8 719 550 89)) ) (\MAINSCREEN) (\CURRENTBACKGROUNDBORDER) (\SCREENS) (\SCREENBITMAPS)) (GLOBALVARS \TTYREGIONOFFSETSPTR TTYREGIONOFFSETS \DEFAULTTTYDISPLAYSTREAM) (VARIABLES \TopLevelTtyWindow)) (COMS (* ; "Window menu operations") (FNS WINDOW.MOUSE.HANDLER \PROTECTED.APPLY DOWINDOWCOM DOBACKGROUNDCOM DEFAULT.BACKGROUND.COPYFN) (VARS (BackgroundCopyMenu)) (INITVARS BackgroundCopyMenuCommands) (FNS BURYW CLEARW CLOSEW \CLOSEW1 \OKTOCLOSEW \INTERACTIVE.CLOSEW OPENW DOUSERFNS DOUSERFNS2 \USERFNISDON'T \OPENW1 CREATEW CREATEW1 \CREATEW1 OPENDISPLAYSTREAM MOVEW PPROMPT3 \ONSCREENCLIPPINGREGION RELMOVEW SHAPEW SHAPEW1 \SHAPEW2 RESHOWBORDER \RESHOWBORDER1 TRACKW SNAPW WINDOWREGION) (FNS MINIMUMWINDOWSIZE) (INITVARS (BACKGROUNDCURSORINFN) (BACKGROUNDBUTTONEVENTFN) (BACKGROUNDCURSOROUTFN) ( BACKGROUNDCURSORMOVEDFN) (BACKGROUNDCOPYBUTTONEVENTFN) (BACKGROUNDCOPYRIGHTBUTTONEVENTFN (FUNCTION DEFAULT.BACKGROUND.COPYFN)) (BACKGROUNDCURSOREXITFN)) (GLOBALVARS BACKGROUNDCURSORINFN BACKGROUNDBUTTONEVENTFN BACKGROUNDCURSOROUTFN BACKGROUNDCURSORMOVEDFN BACKGROUNDCOPYBUTTONEVENTFN BACKGROUNDCOPYRIGHTBUTTONEVENTFN \CARET.UP BACKGROUNDCURSOREXITFN) (EXPORT (MACROS .COPYKEYDOWNP. WSOP )) (PROP ARGNAMES WSOP) (RECORDS WSOPS WSDATA)) (COMS (* ; "Window utilities") (FNS ADVISEWDS SHOWWFRAME SHOWWTITLE \STRINGWIDTHGUESS RESHOWTITLE TOTOPW \INTERNALTOTOPW \TTW1 WHICHW) (INITVARS ( WINDOWTITLEPRINTLEVEL (QUOTE (2 . 5))) (WINDOWTITLESHADE BLACKSHADE))) (COMS (* ; "Window vs non-window world") (FNS WFROMDS NU\TOTOPWDS \COERCETODS) (DECLARE%: DONTCOPY (EXPORT ( MACROS \COERCETODS .WHILE.ON.TOP.))) (P (MOVD (QUOTE NU\TOTOPWDS) (QUOTE \TOTOPWDS)))) (COMS (* ; "User interface functions") (FNS WINDOWP INSURE.WINDOW WINDOWPROP WINDOWADDPROP WINDOWDELPROP GETWINDOWPROP GETWINDOWUSERPROP PUTWINDOWPROP REMWINDOWPROP WINDOWADDFNPROP) (* ; "Compiled WINDOWPROP") (PROP ARGNAMES WINDOWPROP) (OPTIMIZERS WINDOWPROP) (FNS CWINDOWPROP CGETWINDOWPROP \GETWINDOWHEIGHT \GETWINDOWWIDTH)) (FNS WINDOW.BITMAP) (* ; "lmm 4/23") (COMS (FNS OPENWP TOPWP RESHAPEBYREPAINTFN \INBETWEENP DECODE/WINDOW/OR/DISPLAYSTREAM GROW/REGION CLRPROMPT PROMPTPRINT OPENWINDOWS \INSUREWINDOW) (* ; "these entries are left in for backward compatibility. They were dedocumented 6/83. rrb") (P (MOVD ( QUOTE OPENWP) (QUOTE ACTIVEWP))) (FNS OVERLAPPINGWINDOWS WOVERLAPP ORDERFROMBOTTOMTOTOP) (* ; "screen size changing functions.") (FNS \ONSCREENW \PUTONSCREENW \UPDATECACHEDFIELDS \WWCHANGESCREENSIZE CREATEWFROMIMAGE UPDATEWFROMIMAGE)) (COMS (* ;; "MEDLEY-NATIVE-WINDOWS INTERFACE FUNCTIONS") (GLOBALVARS \SCREENS \SCREENTYPES) (INITVARS (* ;; "\SCREENS is a list of all known screens. The SCREEN-CREATE function for the screen type must register it there. It's used, e.g., by DSPCREATE to find the right screen given a screen bitmap." ) (\SCREENS) (* ;; "\SCREENTYPES is used to interpret the values we get back from the query-for-screen-types function, and to look up the methods for creating a screen and destroying one." ) (\SCREENTYPES (QUOTE ((1 MEDLEY OPEN-SCREEN CREATESCREEN CLOSE-SCREEN NILL) (2 MEDLEY-COLOR-4) (4 MEDLEY-COLOR-8) y (8 MEDLEY-COLOR-24) (16 X-MONO) (32 X-COLOR) (64 MS-WINDOWS))))) (* ;; "OLD-MEDLEY-SCREEN window management functions") (FNS \MEDW.CREATEW \MEDW.OPENW \MEDW.CLOSEW \MEDW.MOVEW \MEDW.RELMOVEW \MEDW.SHRINKW \MEDW.EXPANDW \MEDW.SHAPEW \MEDW.REDISPLAYW \MEDW.BURYW \MEDW.TOTOPW \MEDW.DSPCREATE \GENERIC.DSPCREATE \GENERIC.DSPCREATE.DESTINATION.BITMAP? \MEDW.GETWINDOWPROP \MEDW.PUTWINDOWPROP \MEDW.CURSOR) (FNS \GENERIC.CURSOR) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS WINDOWOP))) (DECLARE%: DONTEVAL@COMPILE DONTEVAL@LOAD DOCOPY (* ;; "Install the generic DSPCREATE over the simple one defined in LLDISPLAY.") (P (MOVD (QUOTE \GENERIC.DSPCREATE) (QUOTE DSPCREATE)) (CL:UNLESS (EQUAL (GETD (QUOTE CURSOR)) (GETD (QUOTE \GENERIC.CURSOR))) (MOVD (QUOTE \GENERIC.CURSOR) (QUOTE CURSOR)))))) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \LastCursorPosition \LastInWindow WindowMenu BackgroundMenu BackgroundMenuCommands \LastWindowButtons WWFNS WindowMenuCommands WindowTitleDisplayStream WINDOWTITLEPRINTLEVEL WBorder \TOPWDS WINDOWBACKGROUNDSHADE BACKGROUNDFNS) (EXPORT (CONSTANTS (MinWindowWidth 26) (MinWindowHeight 16)) (RECORDS WINDOW SCREEN))) (DECLARE%: EVAL@COMPILE (EXPORT (GLOBALVARS WINDOWUSERFORMS ENDOFWINDOWUSERFORMS PROMPTWINDOW))) (SYSRECORDS WINDOW SCREEN) (INITRECORDS WINDOW SCREEN) (INITVARS (WindowMenu) (BackgroundMenu) (\LastCursorPosition (CREATEPOSITION)) (\LastInWindow) ( \LastWindowButtons 0) (WINDOWBACKGROUNDSHADE 34850) (WBorder 4) (HIGHLIGHTSHADE 32800) ( WINDOWBACKGROUNDBORDER 34850)) (FILES PAINTW) (ADDVARS (WindowMenuCommands (Close (QUOTE \INTERACTIVE.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.")) (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%: DONTEVAL@LOAD DOCOPY (P (COND ((NULL \MAINSCREEN) (SETQ \MAINSCREEN (CREATESCREEN (SCREENBITMAP))) (SETQ \CURSORSCREEN \MAINSCREEN) (SETQ LASTSCREEN \MAINSCREEN) (WINDOWWORLD (QUOTE ON) \MAINSCREEN T))) (MOVD? (QUOTE TRUE) (QUOTE LISPWINDOWP))) (VARS (\WINDOWWORLD T))) (* ;; "Arrange for the proper compiler") (PROP FILETYPE WINDOW) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PROMPTPRINT WINDOWPROP DOWINDOWCOM))))) WINDOWWORLD :D8 (P 4 T24 P 3 T23 P 2 T22 P 1 T21 P 0 \INTERRUPTABLE I 2 MAINFLG I 1 SCREEN I 0 ONOFF F 5 \SCREENBITMAPS F 6 WINDOWBACKGROUNDBORDER F 7 INITIAL-EXEC-REGION F 8 INITIAL-PROMPT-REGION) ŠA b@µdÉAÉð’±i@gð´‚±]AÉ` ¿Ah¿V ¿h¿AÉUIJ‘J‚IJc ¿A`KL‘L‚KL¿Ag¿B´‚±èAÉ¿¿Wo ¿¿Wol¿nÿÿ` ¿g` ¿g` ¿`gg¿` ¿`gg¿A`B¿h¿j¿hd¿`ˆd ¿µöh(385 EVAL 334 PUTWINDOWPROP 313 CLEARW 302 PUTWINDOWPROP 281 DSPSCROLL 265 DSPOPERATION 249 DSPTEXTURE 230 CREATEW 215 SETLINELENGTH 209 TTYDISPLAYSTREAM 199 CREATEW 181 \TTY.CREATING.DISPLAYSTREAM 83 CHANGEBACKGROUNDBORDER 66 \CLEARBM 5 \INSURESCREEN) (377 WINDOWUSERFORMS 371 \LastCursorPosition 362 \LastWindowButtons 355 \LastInWindow 346 PROMPTWINDOW 341 SCREEN 329 NILL 324 PAGEFULLFN 319 PROMPTWINDOW 308 PROMPTWINDOW 297 DON'T 292 SHRINKFN 287 PROMPTWINDOW 276 PROMPTWINDOW 271 ON 260 PROMPTWINDOW 255 ERASE 244 PROMPTWINDOW 235 PROMPTWINDOW 204 \TopLevelTtyWindow 186 \DEFAULTTTYDISPLAYSTREAM 175 WindowTitleDisplayStream 168 SCREEN 152 ON 147 SCREEN 140 \SCREENS 122 \SCREENS 97 SCREEN 90 \TOPWDS 73 SCREEN 61 WINDOWBACKGROUNDSHADE 54 SCREEN 38 ON 25 SCREEN 16 SCREEN) ( 223 "Prompt Window" 194 "Exec") WINDOWWORLDP :D8 (I 0 SCREEN) @ Égð(5 \INSURESCREEN) (17 ON 10 SCREEN) () CHANGEBACKGROUND :D8 (P 1 W P 0 WINDOWS I 1 SCREEN I 0 SHADE F 2 \CURSORSCREEN) ”@•@dið™¿`b° ¯@Ã‘@¦@ ¿AµRb XdŒdI µò@ Ÿ@AÉ ¿‰@Ã’@µ H °AÉ ¿°êdI µòh(139 \OPENW1 125 TILE 110 DREVERSE 92 BLTSHADE 77 TEXTUREP 66 \CLOSEW1 52 OPENWINDOWS 40 \ILLEGAL.ARG 24 TEXTUREP) (118 SCREEN 100 BITMAP 85 SCREEN 31 BITMAP 15 WINDOWBACKGROUNDSHADE) () CHANGEBACKGROUNDBORDER :D8 (I 0 SHADE F 0 \CURRENTBACKGROUNDBORDER) ,P@²&@c¿`dlðš¿`@Íí¿lð–@ ¿(40 \DoveDisplay.SetBorderPattern) (25 \IOPAGE 14 \MACHINETYPE) () TILE :D8 (P 5 DSTH P 4 DSTW P 3 H P 2 W P 1 Y P 0 X I 1 DST I 0 SRC) Q`jXdY@ Z@ [A \A ]LHñ¡hj¹MIñ²@jdAHIJKhg ¿IKÔ°âHJÔ¸°Õ(67 BKBITBLT 33 BITMAPHEIGHT 26 BITMAPWIDTH 19 BITMAPHEIGHT 12 BITMAPWIDTH) (61 REPLACE) () \TTY.CREATING.DISPLAYSTREAM :D8 (P 0 DS) (kd Hg(HiH(11 DSPCREATE 6 BITMAPCREATE) (33 STREAM 25 \CREATE.TTY.OUTCHARFN 20 STREAM) () \CREATE.TTY.OUTCHARFN :D8 (I 1 CHAR I 0 STREAM) A (10 \OUTCHAR 4 \CREATE.TTYDISPLAYSTREAM) NIL () \CREATE.TTYDISPLAYSTREAM :D8 (F 0 DEFAULTTTYREGION F 1 \TERM.OFD F 2 *STANDARD-OUTPUT* F 3 \WINDOWWORLD F 4 \TTYWINDOW) |S²mh ³e`ª`¿P`ØP`ØPPo`g hic QR`ð²÷Qc(107 TTYDISPLAYSTREAM 100 CREATEW 93 CONCAT 88 PROCESSPROP 68 CREATEREGION 8 HASTTYWINDOWP) (115 \DEFAULTTTYDISPLAYSTREAM 83 NAME 78 \RUNNING.PROCESS 51 \TTYREGIONOFFSETSPTR 40 \TTYREGIONOFFSETSPTR 32 \TTYREGIONOFFSETSPTR 27 TTYREGIONOFFSETS 21 \TTYREGIONOFFSETSPTR 15 \TTYREGIONOFFSETSPTR) ( 73 "TTY window for ") HASTTYWINDOWP :D8 (I 0 PROCESS) @ µ``ðhð(5 PROCESS.TTY) (17 \DEFAULTTTYDISPLAYSTREAM 12 \DEFAULTTTYDISPLAYSTREAM) () TTYINFOSTREAM :D8 (P 0 STREAM I 0 PROCESS) "@ Hµ ` `ð³ïH(21 \GETSTREAM 5 PROCESS.TTY) (27 \DEFAULTTTYDISPLAYSTREAM 16 PROMPTWINDOW) () CREATESCREEN :D8 (P 6 T32 P 5 T25 P 1 SCREEN P 0 TITLEDS I 0 DESTINATION F 7 WINDOWTITLEFONT F 8 \DISPLAYIMAGEOPS F 9 DisplayFDEV) VP@ XgH WH nÿÿH `dg¿d@¿@ ºdJ¿@ »dK¿@ ¼dLR¿dh¿dH¿dg ¿dg"¿dg$¿dg&¿dg(¿dg*¿dg,¿dg.¿dg0¿dg6¿dg8¿dgF¿dg2¿dg4¿dg@¿dW¿dW¿dgH¿dgJ¿dgL¿dgZ¿dg\¿dg^¿dg`¿Yd`MN‘N‚MNI(87 BITSPERPIXEL 75 BITMAPHEIGHT 63 BITMAPWIDTH 37 DSPRIGHTMARGIN 28 DSPFONT 20 DSPOPERATION 8 DSPCREATE) (338 \SCREENS 320 \SCREENS 310 \MEDW.GETSCREENREGION 301 \MEDW.GETBOXSCREENPOSITION 292 \MEDW.GETSCREENPOSITION 283 \MEDW.CARET.SHOW 274 \MEDW.BBTWINWIN 265 \MEDW.BBTFROMWIN 256 \MEDW.BBTTOWIN 235 \MEDW.CURSOR 226 \MEDW.PUTWINDOWPROP 217 \MEDW.GETWINDOWPROP 208 \MEDW.DSPCREATE 199 \MEDW.TOTOPW 190 \MEDW.BURYW 181 \MEDW.REDISPLAYW 172 \MEDW.SHAPEW 163 \MEDW.EXPANDW 154 \MEDW.SHRINKW 145 \MEDW.RELMOVEW 136 \MEDW.MOVEW 127 \MEDW.CLOSEW 118 \MEDW.OPENW 109 \MEDW.CREATEW 49 OFF 42 |SCREENTYPE#| 14 INVERT) () \INSURESCREEN :D8 (I 0 SCREEN F 0 \CURSORSCREEN) @Ã‘@@µP (18 \ILLEGAL.ARG) (5 SCREEN) () \BITMAPTOSCREEN :D8 (P 1 SCREEN I 0 BITMAP) %`HµhYÉ@ð”IµiHX°çNIL (20 SCREEN 4 \SCREENS) () MAINSCREEN :D8 (F 0 \MAINSCREEN) PNIL NIL () (RPAQQ \TTYREGIONOFFSETSPTR NIL) (RPAQ? TTYREGIONOFFSETS (QUOTE ((0 . 0) (20 . -20) (40 . 0) (20 . 20)))) (RPAQ? DEFAULTTTYREGION (QUOTE (153 100 384 208))) (RPAQ? INITIAL-EXEC-REGION (QUOTE (8 378 550 330))) (RPAQ? INITIAL-PROMPT-REGION (QUOTE (8 719 550 89))) (RPAQ? \MAINSCREEN) (RPAQ? \CURRENTBACKGROUNDBORDER) (RPAQ? \SCREENS) (RPAQ? \SCREENBITMAPS) (CL:PROCLAIM (QUOTE (GLOBAL \TopLevelTtyWindow))) WINDOW.MOUSE.HANDLERA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 \MHCOM F 3 SI::NLSETQ-VALUE) i@R` hcg(15 DOUSERFNS) (24 :NORMAL 10 \LastInWindow) () WINDOW.MOUSE.HANDLERA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 \MHCOM F 3 \MHWINDOW F 4 SI::NLSETQ-VALUE) i@RS hcg(11 DOUSERFNS) (20 :NORMAL) () WINDOW.MOUSE.HANDLERA0022 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 \MHCOM F 3 \MHWINDOW F 4 SI::NLSETQ-VALUE) i@RS hcg(11 DOUSERFNS) (20 :NORMAL) () WINDOW.MOUSE.HANDLERA0032 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 \MHCOM F 3 \MHWINDOW F 4 SI::NLSETQ-VALUE) i@RS hcg(11 DOUSERFNS) (20 :NORMAL) () WINDOW.MOUSE.HANDLERA0042 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) i@j`hcgNIL (21 :NORMAL 10 BACKGROUNDCURSOREXITFN) () WINDOW.MOUSE.HANDLER :D8 (P 79 SI::*NLSETQFLAG* P 78 *PROCEED-CASES* P 77 SI::NLSETQ-VALUE P 76 SI::*NLSETQFLAG* P 75 *PROCEED-CASES* P 74 SI::NLSETQ-VALUE P 73 SI::*NLSETQFLAG* P 72 *PROCEED-CASES* P 71 SI::NLSETQ-VALUE P 70 SI::*NLSETQFLAG* P 69 *PROCEED-CASES* P 68 SI::NLSETQ-VALUE P 67 SI::*NLSETQFLAG* P 66 *PROCEED-CASES* P 65 SI::NLSETQ-VALUE P 64 \MOUSEBUSY P 2 \MHWINDOW P 1 \MHPROCESS P 0 \MHCOM F 80 *PROCEED-CASES* F 81 \INTERRUPTABLE F 82 \CURSORSCREEN F 83 \CURSORDESTWIDTH) {PW¢´‚±tððð,ð;@?¿``ð²``ðž``ð’±i@``¿``¿``W¤Z`ð’±ù`µ@`jð®``ð’±º`µV`²p` ²d` ¿°W ²½```²§` ²›`mÿ±rÉX²A`W CO„ Jµ"`²<` ²0` ¿°#ÉX²D`W FOŠ J¿`djðœ±â`lålð¢±J²JÉ ’±ùJµ‚±Ã`g _¿¾OâââlOlåÙ»kKç½¼MNLÂåjð‘j€kjð’±„`g _¿_¿OâââlOlåÙ_¿kOç_¿_¿OOOÂåjð‘j€kjð³B`g _"¿_ ¿O"âââlO"låÙ_¿kOç_¿_¿OO OÂåjð‘j€kjð–`µJ ¿` ¦h¿±õ ²Þ` °ØJ¢±e``ð’±-`lå_$jð³O$—O$ ªJ É.YµC`g _L¿_J¿OLâââlOLlåÙ_D¿kODç_H¿_F¿OHOJOFÂåjð¢±ÿj±ü ³º`g _.¿_,¿O.âââlO.låÙ_&¿kO&ç_*¿_(¿O*O,O(Âåjð‘j€kjð’±ÿx`g _8¿_6¿O8âââlO8låÙ_0¿kO0ç_4¿_2¿O4O6O2Âåjð‘j€kjð’±ÿ5`g _B¿_@¿OBâââlOBlåÙ_:¿kO:ç_>¿_<¿O>O@O<Âåjð‘j€kjð’±þòJÉ0X¢±þåG`W IO ±okjð’±„`g _V¿_T¿OVâââlOVlåÙ_N¿kONç_R¿_P¿OROTOPÂåjð‘j€kjð³B`g _`¿_^¿O`âââlO`låÙ_X¿kOXç_\¿_Z¿O\O^OZÂåjð‘j€kjðœJg µ`lålð˜JÉ ‡JÉXµ`±™J ±£JÉX´‚±‚J`W LO– ±g``ð’±J’±Î`g _j¿_h¿OjâââlOjlåÙ_b¿kObç_f¿_d¿OfOhOdÂåjð‘j€kjð’±„`g _t¿_r¿OtâââlOtlåÙ_l¿kOlç_p¿_n¿OpOrOnÂåjð‘j€kjð³B`g _~¿_|¿O~âââlO~låÙ_v¿kOvç_z¿_x¿OzO|OxÂåjð‘j€kjð–`µ#`µ`°t ²ï`°t ²Ú`°f`µS`´K`jð«`W¦kÙð´7M`W OOœ ¿``¿``h ²ª` ¿`h(1644 GETMOUSESTATE 1638 \PROTECTED.APPLY 1626 \DEFINEDP 1595 GETMOUSESTATE 1588 WINDOW.MOUSE.HANDLERA0042 1524 \DEFINEDP 1510 \DEFINEDP 1430 \KEYNAMETONUMBER 1365 \KEYNAMETONUMBER 1298 \KEYNAMETONUMBER 1258 WINDOW.MOUSE.HANDLERA0032 1219 \PROTECTED.APPLY 1166 GETWINDOWUSERPROP 1106 \KEYNAMETONUMBER 1041 \KEYNAMETONUMBER 1013 WINDOW.MOUSE.HANDLERA0022 927 \KEYNAMETONUMBER 860 \KEYNAMETONUMBER 793 \KEYNAMETONUMBER 776 TTY.PROCESSP 721 \KEYNAMETONUMBER 701 \INSUREWINDOW 694 \FZEROP 646 \PROTECTED.APPLY 634 \DEFINEDP 617 OPENWP 606 DOWINDOWCOM 544 \KEYNAMETONUMBER 479 \KEYNAMETONUMBER 424 \KEYNAMETONUMBER 346 WINDOW.MOUSE.HANDLERA0002 312 \PROTECTED.APPLY 300 \DEFINEDP 278 WINDOW.MOUSE.HANDLERA0001 234 SCROLL.HANDLER 222 IN/SCROLL/BAR? 200 LISPWINDOWP 192 \PROTECTED.APPLY 180 \DEFINEDP 115 WHICHW 27 GETMOUSESTATE) (1655 \LastWindowButtons 1650 LASTMOUSEBUTTONS 1633 BACKGROUNDCURSORMOVEDFN 1618 LASTMOUSEY 1613 \LastCursorPosition 1606 LASTMOUSEX 1601 \LastCursorPosition 1575 SI::NLSETQ-PROCEED-CASE 1560 LASTMOUSEX 1552 LASTMOUSEX 1545 BACKGROUNDCURSOREXITFN 1538 BACKGROUNDCURSORMOVEDFN 1531 BACKGROUNDCOPYBUTTONEVENTFN 1517 BACKGROUNDBUTTONEVENTFN 1503 \LastWindowButtons 1498 LASTMOUSEBUTTONS 1491 BACKGROUNDBUTTONEVENTFN 1484 BACKGROUNDCOPYBUTTONEVENTFN 1425 COPY 1420 \LASTKEYSTATE 1360 RSHIFT 1355 \LASTKEYSTATE 1293 LSHIFT 1288 \LASTKEYSTATE 1273 \LastWindowButtons 1268 LASTMOUSEBUTTONS 1245 SI::NLSETQ-PROCEED-CASE 1228 WINDOW 1210 \LastWindowButtons 1205 LASTMOUSEBUTTONS 1195 WINDOW 1186 WINDOW 1173 LASTMOUSEBUTTONS 1161 COPYBUTTONEVENTFN 1101 COPY 1096 \LASTKEYSTATE 1036 RSHIFT 1031 \LASTKEYSTATE 1000 SI::NLSETQ-PROCEED-CASE 985 WINDOW 922 COPY 917 \LASTKEYSTATE 855 RSHIFT 850 \LASTKEYSTATE 788 LSHIFT 783 \LASTKEYSTATE 716 LSHIFT 711 \LASTKEYSTATE 673 LASTMOUSEBUTTONS 663 \LastWindowButtons 658 LASTMOUSEBUTTONS 641 BACKGROUNDCOPYRIGHTBUTTONEVENTFN 624 \LastInWindow 612 \LastInWindow 598 BACKGROUNDCOPYRIGHTBUTTONEVENTFN 539 COPY 534 \LASTKEYSTATE 474 RSHIFT 469 \LASTKEYSTATE 419 LSHIFT 414 \LASTKEYSTATE 396 WINDOW 377 LASTMOUSEBUTTONS 369 \LastWindowButtons 360 LASTMOUSEBUTTONS 354 \LastInWindow 333 SI::NLSETQ-PROCEED-CASE 320 WINDOW 307 BACKGROUNDCURSORINFN 295 BACKGROUNDCURSORINFN 288 BACKGROUNDCURSORINFN 265 SI::NLSETQ-PROCEED-CASE 252 WINDOW 241 \LastCursorPosition 229 \LastInWindow 217 LASTMOUSEY 212 LASTMOUSEX 207 \LastInWindow 187 BACKGROUNDCURSOROUTFN 175 BACKGROUNDCURSOROUTFN 168 BACKGROUNDCURSOROUTFN 161 \LastInWindow 151 \LastWindowButtons 146 LASTMOUSEBUTTONS 138 LASTMOUSEBUTTONS 131 \LastInWindow 121 \LastInWindow 108 LASTMOUSEY 103 LASTMOUSEX 96 LASTMOUSEY 91 \LastCursorPosition 84 LASTMOUSEX 79 \LastCursorPosition 65 \LastWindowButtons 60 LASTMOUSEBUTTONS 52 \LastCursorPosition 47 LASTMOUSEY 38 \LastCursorPosition 33 LASTMOUSEX) () \PROTECTED.APPLYA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 WINDOW F 3 FN F 4 SI::NLSETQ-VALUE) i@RkShcgNIL (18 :NORMAL) () \PROTECTED.APPLY :D8 (P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 1 WINDOW I 0 FN F 3 *PROCEED-CASES*) `SI gð´H(18 \PROTECTED.APPLYA0001) (24 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) () DOWINDOWCOM :D8 (P 4 $$VAR P 1 WINDOW P 0 ARGS) ¿eHjð’±´ka!IÃ¢±Ig \•IkL`–I ¿I ¿`Ã–`°Q`d`¿dg¿mÿjºdJ¿dg¿dg ¿di¿jdnÿdh»dK ¿ \´IkLiI¥h(186 DOBACKGROUNDCOM 169 MENU 66 TOTOPW 59 \CARET.DOWN 39 GETWINDOWUSERPROP) (164 WindowMenu 134 CLRPROMPT 125 PPROMPT3 106 Y 97 WindowMenuCommands 90 |MENUTYPE#| 83 WindowMenu 77 MENU 72 WindowMenu 52 \CARET.UP 34 DOWINDOWCOMFN 21 WINDOW) () DOBACKGROUNDCOMA0010 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FORM F 3 SI::NLSETQ-VALUE) i@R hcg(10 EVAL) (19 :NORMAL) () DOBACKGROUNDCOM :D8 (P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 0 FORM F 6 *PROCEED-CASES*) ›0`µ`´‚±‡`Ã–`°Q`d`¿dg¿mÿj¹dI¿dg¿dg ¿di¿jdnÿdhºdJ ¿ X´`VL gðh(144 DOBACKGROUNDCOMA0010 122 MENU) (150 :NORMAL 133 SI::NLSETQ-PROCEED-CASE 117 BackgroundMenu 87 CLRPROMPT 78 PPROMPT3 59 Y 50 BackgroundMenuCommands 43 |MENUTYPE#| 36 BackgroundMenu 30 MENU 25 BackgroundMenu 14 BackgroundMenuCommands 7 BackgroundMenu) () DEFAULT.BACKGROUND.COPYFNA0011 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FORM F 3 SI::NLSETQ-VALUE) i@R hcg(10 EVAL) (19 :NORMAL) () DEFAULT.BACKGROUND.COPYFN :D8 (P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 FORM F 6 BackgroundCopyMenu F 7 BackgroundCopyMenuCommands F 8 *PROCEED-CASES*) ³¿`låHjðµ H´H ’±W´‚±†VÃ’V°S`dW¿dg¿mÿjHdI¿di¿dg ¿dg¿jdnÿdhHdI ¿c J´`WL gð´Kh(164 DEFAULT.BACKGROUND.COPYFNA0011 141 MENU 32 \FZEROP 4 GETMOUSESTATE) (170 :NORMAL 152 SI::NLSETQ-PROCEED-CASE 110 DEFAULTMENUHELDFN 101 CLRPROMPT 73 Y 60 |MENUTYPE#| 51 MENU 10 LASTMOUSEBUTTONS) () (RPAQQ BackgroundCopyMenu NIL) (RPAQ? BackgroundCopyMenuCommands NIL) BURYW :D8 (P 0 A0330 I 0 WINDOW) /@ bÉ2É6@ bÉ2@lH(30 \INSUREWINDOW 5 \INSUREWINDOW) (37 WINDOW 19 SCREEN 12 WINDOW) () CLEARW :D8 (I 0 WINDOW) @ bdÉ (20 DSPRESET 5 \INSUREWINDOW) (13 WINDOW) () CLOSEW :D8 (P 0 A0331 I 0 WINDOW) B@ bd ´2@ ´*@ ´"@É2É$@É2@lHi(29 OPENWP 21 \OKTOCLOSEW 13 OPENWP 5 \INSUREWINDOW) (55 WINDOW 44 SCREEN 37 WINDOW) () \CLOSEW1 :D8 (P 0 A0332 I 0 WINDOW) /@ bÉ2É$@ bÉ2@lH(30 \INSUREWINDOW 5 \INSUREWINDOW) (37 WINDOW 19 SCREEN 12 WINDOW) () \OKTOCLOSEW :D8 (I 0 WINDOW) @É$@igð‘h@(14 DOUSERFNS) (19 DON'T 5 WINDOW) () \INTERACTIVE.CLOSEW :D8 (P 0 CLOSEFN I 0 WINDOW) 3@É$Hgð«H²gHšo @ i(47 CLOSEW 40 PROMPTPRINT) (27 DON'T 16 DON'T 5 WINDOW) ( 35 "This window cannot be closed.") OPENW :D8 (P 0 USEROPENFN I 0 WINDOW) 8@ bd ‘h@g H ³ê@ ¿H@ @(52 DOUSERFNS 44 \OPENW1 36 \USERFNISDON'T 27 GETWINDOWUSERPROP 13 OPENWP 5 \INSUREWINDOW) (22 OPENFN) () DOUSERFNS :D8 (P 1 USERFN I 2 CHECKFORDON'TFLG I 1 WINDOW I 0 FNLST) `@™@`²)Bž@dgð–g@´)Ak@gð´gB˜g@³ñ@Hµh¹AkIgð’B³ÖHX°çNIL (84 DON'T 58 DON'T 50 DON'T 42 DON'T 28 DON'T 21 DON'T 9 LAMBDASPLST) () DOUSERFNS2 :D8 (P 0 USERFN I 4 ARG3 I 3 ARG2 I 2 ARG1 I 1 WINDOW I 0 FNLST) 0@d™d`²´ ABCDl@dABCDlHµïhNIL (10 LAMBDASPLST) () \USERFNISDON'T :D8 (L (0 USERFN)) @§@gðg@NIL (15 DON'T 8 DON'T) () \OPENW1 :D8 (P 0 A0337 I 0 WINDOW) /@ bÉ2É"@ bÉ2@lH(30 \INSUREWINDOW 5 \INSUREWINDOW) (37 WINDOW 19 SCREEN 12 WINDOW) () CREATEW :D8 (P 1 REG P 0 SCREEN I 4 PROPS I 3 NOOPENFLG I 2 BORDERSIZE I 1 TITLE I 0 REGION F 2 \CURSORSCREEN) Á @µ8o ¿A²oAo¿ll b¸@ Y°xl ²@…d3•µùi¿hšR¸@ Y°T@d²3Ã²*@l ²@„d3•µùi¿hœ@¸@ Y°@ šo ŠoI ¿HIABCD (190 \CREATEW1 177 ERROR 165 HELP 154 DISPLAYSTREAMP 145 COPY 117 EQLENGTH 92 COPY 66 EQLENGTH 56 COPY 45 GETSCREENREGION 35 PROMPTPRINT 15 PROMPTPRINT) (106 SCREEN) ( 171 "Not a region" 160 "DISPLAYSTREAMs as REGIONS no longer supported." 30 "%"" 24 " %"" 10 "Specify region for window") CREATEW1 :D8 (P 8 A0338 P 6 WINDOW P 5 TITLEHEIGHT P 4 DISPLAYDATA P 3 DSP P 2 REG P 1 SCREEN P 0 BORDERSIZE I 5 OLDWINDOW I 4 PROPS I 3 NOOPENFLG I 2 BORDERSIZE I 1 TITLE I 0 REGION F 9 \CURSORSCREEN) B3µJ`3µHlq@µGo ¿A²oAo¿ll b¹@ Z±Š °¾ °·l ²@…d3•µùi¿h›W¹@ Z°V@d²3Ã²*@l ²@„d3•µùi¿hœ@¹@ Z°!@ šo ŠoJ ¿JJ_¿dOñ’¿OHàñ«o@ ¿IÉ IJAHCDElO^C¥d N(279 OPENW 245 ERROR 209 ERROR 197 HELP 186 DISPLAYSTREAMP 177 COPY 149 EQLENGTH 124 COPY 97 EQLENGTH 88 ABS 81 ABS 72 COPY 61 GETSCREENREGION 51 PROMPTPRINT 31 PROMPTPRINT) (252 SCREEN 138 SCREEN 9 WBorder) ( 239 "Region too small to use as a window" 203 "Not a region" 192 "DISPLAYSTREAMs as REGIONS no longer supported." 46 "%"" 40 " %"" 26 "Specify region for window") \CREATEW1 :D8 (P 6 A0339 P 4 WINDOW P 3 TITLEHEIGHT P 2 DISPLAYDATA P 1 DSP P 0 BORDERSIZE I 6 OLDWINDOW I 5 PROPS I 4 NOOPENFLG I 3 BORDERSIZE I 2 TITLE I 1 REGION I 0 SCREEN) dC3µR`3µPlQAA½dMñ‘¿MHàñ«oA ¿@É @ABHDEFlN\D¥d L °¶ °¯(96 ABS 89 ABS 82 OPENW 49 ERROR) (56 SCREEN 9 WBorder) ( 43 "Region too small to use as a window") OPENDISPLAYSTREAM :D8 (I 1 OPTIONS I 0 FILE) "Ag'@dgð•¿o (31 GETSTREAM 26 CREATEW) (13 {LPT} 5 REGION) ( 21 "Display image stream") MOVEW :D8 (P 0 A0340 I 3 FORCE I 2 Y I 1 POSorX I 0 WINDOW) $@É2É&@É2@ABClHNIL (23 WINDOW 12 SCREEN 5 WINDOW) () PPROMPT3 :D8 (I 0 ITEM) @´@´@ (18 PROMPTPRINT) NIL () \ONSCREENCLIPPINGREGION :D8 (I 0 WIN) Eh@ @É2jdHÉHÉh@ ÉÉ0 (66 INTERSECTREGIONS 61 \DSPUNTRANSFORMREGION 47 \INSUREWINDOW 6 DSPCLIPPINGREGION) (54 STREAM 33 SCREEN 25 SCREEN 12 WINDOW) () RELMOVEW :D8 (P 0 A0341 I 1 POS I 0 WINDOW) 0@ bÉ2É(@ bÉ2@AlH(30 \INSUREWINDOW 5 \INSUREWINDOW) (37 WINDOW 19 SCREEN 12 WINDOW) () SHAPEW :D8 (P 1 NEWSIZE P 0 OLDSIZE I 2 MAINONLYFLG I 1 NEWREGION I 0 WINDOW) @ bd ÉQ@É ›o h@ YAµ@@g ²oII@g @É*@dg ¼@kL °\dIýó¬¿AdIýó²FAIAºdJñ¡¿JIA»dKñ¡¿K° II@g @É*@ YdHô’±ÿWdHð²dHð›@II@g µg½@I BlM(275 COPYALL 260 GETWINDOWUSERPROP 248 MOVEW 206 GETREGION 191 WINDOWREGION 174 CREATEREGION 114 GETREGION 102 GETWINDOWUSERPROP 82 WINDOWREGION 65 GETWINDOWUSERPROP 50 MINIMUMWINDOWSIZE 42 PROMPTPRINT 31 \USERFNISDON'T 13 \INSUREWINDOW 5 \INSUREWINDOW) (267 SHAPEW1 255 DOSHAPEFN 197 WINDOW 186 SHAPEW 97 INITCORNERSFN 88 WINDOW 77 SHAPEW 60 INITCORNERSFN 24 WINDOW) ( 37 "This window cannot be reshaped.") SHAPEW1 :D8 (L (1 REGION 0 WINDOW) P 6 \INTERRUPTABLE) Ú@ bA ¦A ¿@Éh@É @É,3@É2[AAKÉÈ\@d š¿i½@ ¿@A¿@L@É¼¿@H ¿@ ¿M–@ …@ @Éµg@LJdIIhH @(214 DOUSERFNS2 173 OPENW 166 \OPENW1 157 SHOWWFRAME 150 ADVISEWDS 113 \CLOSEW1 103 OPENWP 92 BITMAPCREATE 43 DSPCLIPPINGREGION 20 \ILLEGAL.ARG 13 REGIONP 5 \INSUREWINDOW) (189 RESHAPEBYREPAINTFN 180 WINDOW 137 WINDOW 130 WINDOW 120 WINDOW 85 BITMAP 78 SCREEN 60 WINDOW 49 WINDOW 36 WINDOW 27 WINDOW) () \SHAPEW2 :D8 (L (1 REGION 0 WINDOW) P 5 \INTERRUPTABLE) Ï@ bA ¦A ¿@Éh@É @É,#@É2[AAKÉÈ\@d ˜¿@ ¿@A¿@L@É¼¿@H ¿@ ¿@ @Éµg@LJdIIH @(203 DOUSERFNS2 196 CREATEREGION 162 \OPENW1 155 SHOWWFRAME 148 ADVISEWDS 111 \CLOSEW1 103 OPENWP 92 BITMAPCREATE 43 DSPCLIPPINGREGION 20 \ILLEGAL.ARG 13 REGIONP 5 \INSUREWINDOW) (178 RESHAPEBYREPAINTFN 169 WINDOW 135 WINDOW 128 WINDOW 118 WINDOW 85 BITMAP 78 SCREEN 60 WINDOW 49 WINDOW 36 WINDOW 27 WINDOW) () RESHOWBORDER :D8 (I 1 WINDOW I 0 BORDER) @AÉ,ðµ@AÉ,A(26 \RESHOWBORDER1) (18 WINDOW 6 WINDOW) () \RESHOWBORDER1 :D8 (P 7 SOFTCURSORUP P 6 DISPINTERRUPT P 5 NUHEIGHT P 4 NUWIDTH P 3 DELTA P 2 NUSAV P 1 OLDSAVE P 0 REGION I 2 WINDOW I 1 OLDBORDER I 0 NEWBORDER F 8 \SOFTCURSORP F 9 \SOFTCURSORUPP F 10 \CURSORDESTINATION F 11 \SCREENBITMAPS) ƒBÉBÉB@AÙ[HKlÚØ\hBÉ @lÚØBÉ(²hBÉ2É €jÙ]LMIÈZ W²+W´hB Wð_²`È¾`jÍ¿¿Bd`ð³¿hB W–B ¿BÉ2ÉHBÉh¿BJ¿B@,¿BHKÙHKÙLMh¿B ¿B ¿IAdJ@dIÈlAÚÙhBÉ gg ¿BÉ2ÉBÉBÉh¿O´¿`NÍh(374 \SOFTCURSORUPCURRENT 364 \SW2BM 326 BKBITBLT 306 DSPCLIPPINGREGION 272 SHOWWFRAME 265 UPDATE/SCROLL/REG 213 \SW2BM 182 \TOTOPWDS 172 DSPDESTINATION 153 \SOFTCURSORDOWN 124 DSPDESTINATION 105 BITMAPCREATE 86 DSPLINEFEED 46 DSPCLIPPINGREGION) (380 \EM.DISPINTERRUPT 356 WINDOW 348 WINDOW 340 SCREEN 333 WINDOW 320 REPLACE 315 INPUT 299 WINDOW 285 BITMAP 240 WINDOW 230 WINDOW 220 WINDOW 205 WINDOW 196 SCREEN 189 WINDOW 161 \TOPWDS 144 \EM.DISPINTERRUPT 136 \EM.DISPINTERRUPT 98 BITMAP 79 SCREEN 72 WINDOW 61 WINDOW 39 WINDOW 13 WINDOW 5 WINDOW) () TRACKWA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 DY P 1 DX I 0 SI::*CLEANUP-FORMS* F 4 WINDOW F 5 LOCKEDSPOT) ŒT ¿`låHjðµ H´H ³ÞU TÉ`ÙTÉ`Ù¿`lå[jð³&K—K ³T`IØ`JØ ¿°Ëh(133 MOVEW 110 \FZEROP 86 GETMOUSESTATE 47 CURSOR 38 \FZEROP 10 GETMOUSESTATE 5 TOTOPW) (125 LASTMOUSEY 118 LASTMOUSEX 92 LASTMOUSEBUTTONS 77 LASTMOUSEY 68 WINDOW 61 LASTMOUSEX 53 WINDOW 16 LASTMOUSEBUTTONS) () TRACKW :D8 (P 0 SI::*RESETFORMS* I 0 WINDOW F 1 CROSSHAIRS) 7@ bgQ hhhg ¿$(48 SI::RESETUNWIND 43 \MVLIST 38 TRACKWA0001 18 CURSOR 5 \INSUREWINDOW) (33 SI::RESETUNWIND 12 CURSOR) () SNAPW :D8 (P 3 NEWWINDOW P 2 REGION P 1 SCREEN P 0 SCREENREGION) |@ll XdYHZIJ` hdi[IÉJJKÉ`dJJgg KggK K K(120 MOVEW 114 OPENW 108 PUTWINDOWPROP 92 BKBITBLT 39 CREATEW 30 GROW/REGION 11 GETSCREENREGION) (103 :SNAP 98 TYPE 86 REPLACE 81 INPUT 66 WBorder 59 WINDOW 46 SCREEN 25 WBorder) () WINDOWREGION :D8 (P 0 FN I 1 COM I 0 WINDOW) "@g X—@AlH@ É(29 \INSUREWINDOW 13 GETWINDOWUSERPROP) (8 CALCULATEREGIONFN) () MINIMUMWINDOWSIZE :D8 (P 0 EXT I 0 WINDOW) P@g Hµl@È @ É( XŒd3@ð–@kHX€H3–Hd3«¿oH (77 ERROR 39 HEIGHTIFWINDOW 32 \INSUREWINDOW 10 GETWINDOWUSERPROP) (24 FONTDESCRIPTOR 5 MINSIZE) ( 71 "Illegal extent property") (RPAQ? BACKGROUNDCURSORINFN) (RPAQ? BACKGROUNDBUTTONEVENTFN) (RPAQ? BACKGROUNDCURSOROUTFN) (RPAQ? BACKGROUNDCURSORMOVEDFN) (RPAQ? BACKGROUNDCOPYBUTTONEVENTFN) (RPAQ? BACKGROUNDCOPYRIGHTBUTTONEVENTFN (FUNCTION DEFAULT.BACKGROUND.COPYFN)) (RPAQ? BACKGROUNDCURSOREXITFN) (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 . OTHERARGS)) (RECORD WSOPS (STARTBOARD STARTCOLOR STOPCOLOR EVENTFN SENDCOLORMAPENTRY SENDPAGE PILOTBITBLT)) (RECORD WSDATA (WSDESTINATION WSREGION WSBACKGROUND WSCOLORMAP) (SYSTEM)) ADVISEWDS :D8 (L (2 MOVEONLYFLG 1 OLDREG 0 WINDOW)) ?`@É¸@É¹@É,Zà¼A²[HAÙI ¿HAÙI ¿B’±÷hI [KHLÙHLÙ@É(²_h@É2É °IHJØI ¿HJØI ¿jdHLÙHLÙ@É(²h@É2É €jØhI ¿B³eAžhI ALÙðœHLÙI ¿@ É.]²¿O&°9Ojñ²1I².OMØIIØmÿØñ²IdOñ’¿OOOÙ_(¿dO(ñ¥¿O(O_¿C²OHHØCCØð²:OOÙ_¿Ojñ²wId²wdOñ²lIIØmÿØNÙ_*¿dO*ñ²O¿O*°JOjñ²BI²?OLØOØIIØñ²,OOÙI_,¿dO,ñ¢¿O,IIØNÙ_.¿dO.ñ¥¿O.O_¿I³^h@ OdKØ²Kh@ _$OdLØ²6OO$ñœO$@È Õ° O$ONØ@ÈÕñŸO$NÙ@ÈØ_¿OOð³h@ gð«OOÕ@ ¿OOð³+h@ gðžOOÕO$Ô@ ŠOOÕ@ ¿ONØ_OLØ_ñ²@OOMOOÙhi¿OOñ²@OOOOÙLhi¿ABBJOOKLhg OMØ_ OKØ_"ñ²@O"OO O"ÙLhi¿OOñ²@OOMOOÙhi@(701 REDISPLAYW 671 REDISPLAYW 634 BKBITBLT 608 REDISPLAYW 578 REDISPLAYW 540 WYOFFSET 528 DSPYPOSITION 507 DSPSCROLL 492 WXOFFSET 474 DSPSCROLL 406 \INBETWEENP 394 DSPYPOSITION 385 \INBETWEENP 375 DSPXPOSITION 45 DSPCLIPPINGREGION 21 \INSUREWINDOW 13 \INSUREWINDOW 5 \INSUREWINDOW) (628 REPLACE 512 ON 479 ON 454 FONTDESCRIPTOR 439 FONTDESCRIPTOR 422 FONTDESCRIPTOR) () \INBETWEENP :D8 (L (2 RGHT 1 LFT 0 X)) A@óhð´B@óNIL NIL () DECODE/WINDOW/OR/DISPLAYSTREAM :D8 (P 0 WINDOW I 3 BORDER I 2 TITLE I 1 WINDOWVAR I 0 DSORW) Ö@ µB@ ²;@ B²B@É(ô¬@gB¿Cœ@gC¿@É@µ]A H ²5H ¿B²BHÉ(ô¬HgB¿CœHgC¿HAhBC Égð²AhBC Éo@Ah (211 ERROR 188 SET 183 CREATEW 157 SET 152 CREATEW 140 PUTWINDOWPROP 125 PUTWINDOWPROP 98 OPENW 90 WINDOWP 81 \EVALV1 62 PUTWINDOWPROP 47 PUTWINDOWPROP 21 OPENW 13 WINDOWP 5 DISPLAYSTREAMP) (193 WINDOW 171 NEW 163 WINDOW 134 BORDER 119 TITLE 109 WINDOW 69 WINDOW 56 BORDER 41 TITLE 31 WINDOW) ( 201 "Illegal args") GROW/REGION :D8 (I 1 AMOUNT I 0 REGION) "@AÙ@AÙ@AlÚbØ@AØ(31 CREATEREGION) NIL () CLRPROMPT :D8 (P 0 P) '`Hd²Ã–H H H (36 TERPRI 30 TERPRI 23 DSPRESET) (16 WINDOW 4 PROMPTWINDOW) () PROMPTPRINT :D8 (P 2 I P 0 N) (eHkJIó‘hJa` ¿JkÔZ°ê(31 PRIN1 8 CLRPROMPT) (26 PROMPTWINDOW) () OPENWINDOWS :D8 (P 5 SCREEN P 1 WINDOWS P 0 WINDOW I 0 SCREEN) c @dið²3¿0`°dM Z–KµJ\[¿µèL [J°ñ bdÉXdµ I I¹HÉX°ë(82 DREVERSE 62 \INSURESCREEN 52 LAST 30 OPENWINDOWS) (92 WINDOW 70 SCREEN 17 \SCREENS) () \INSUREWINDOW :D8 (I 0 WINDOW) +@Ã‘@@gi —@ µ@ (40 \ILLEGAL.ARG 32 WFROMDS 25 DISPLAYSTREAMP 20 \GETSTREAM) (14 OUTPUT 5 WINDOW) () (MOVD (QUOTE OPENWP) (QUOTE ACTIVEWP)) OVERLAPPINGWINDOWS :D8 (P 6 OVERLAPPED P 5 ADDS P 4 X P 2 DONTS P 1 OVERLAPS P 0 WPTR I 0 WINDOW) ’@@É2É¸@d ¹H¡IHdI ³_¿IŽdHL ¤µðh²BHI¹HhJ[µh²)NM½NI¹NJ Z°é¾MN •Nµãi°ÝK°ÔM]³ÎƒHJºHÉX°Ž(111 WOVERLAPP 98 REMOVE 56 WOVERLAPP 39 MEMB 25 ALLATTACHEDWINDOWS) (139 WINDOW 15 SCREEN 8 WINDOW) () WOVERLAPP :D8 (I 1 W2 I 0 W1) @ÉAÉ (20 REGIONSINTERSECTP) (13 WINDOW 5 WINDOW) () ORDERFROMBOTTOMTOTOP :D8 (P 1 WPTR P 0 ANS I 0 WLST) - @d²É2ÉYµH@“IH¸IÉ°ìNIL (39 WINDOW 19 SCREEN 12 WINDOW) () \ONSCREENW :D8 (I 0 W) @É2ÉlÙ@ Éñ(23 \INSUREWINDOW) (12 SCREEN 5 WINDOW) () \PUTONSCREENW :D8 (I 0 W) ,@dÉ@É2ÉÙ@ É (41 MOVEW 31 \INSUREWINDOW) (22 SCREEN 15 WINDOW 6 WINDOW) () \UPDATECACHEDFIELDS :D8 (I 0 DS) @ (5 \SFFixDestination) NIL () \WWCHANGESCREENSIZE :D8 (P 1 W P 0 WINDOWS I 0 SCREEN) ƒ@ bd XdŒdI µò@É` H°dI É µëH °dI ¦I ¿I µäh(122 OPENW 115 \PUTONSCREENW 108 \ONSCREENW 95 REVERSE 84 \UPDATECACHEDFIELDS 77 \INSUREWINDOW 63 \CLEARBM 45 \STARTDISPLAY 35 \CLOSEW1 21 DREVERSE 16 OPENWINDOWS 8 \INSURESCREEN) (58 WINDOWBACKGROUNDSHADE 51 SCREEN) () CREATEWFROMIMAGE :D8 (P 0 WINDOW I 1 SCREEN I 0 IMAGE) e0A jd@ @ hhjiXdg@ ¹lIñ‘Il@ ºlJñ‘Jl@jdHÉH(97 BKBITBLT 81 PUTWINDOWPROP 65 BITMAPHEIGHT 49 BITMAPWIDTH 36 CREATEW 22 BITMAPHEIGHT 16 BITMAPWIDTH 8 \INSURESCREEN) (90 WINDOW 43 MINSIZE) () UPDATEWFROMIMAGE :D8 (P 1 IMAGE P 0 REGION I 0 WINDOW) 2@É@ÉHjHjHI HI h(45 BITMAPHEIGHT 34 BITMAPWIDTH) (13 WINDOW 5 WINDOW) () (RPAQ? \SCREENS) (RPAQ? \SCREENTYPES (QUOTE ((1 MEDLEY OPEN-SCREEN CREATESCREEN CLOSE-SCREEN NILL) (2 MEDLEY-COLOR-4) ( 4 MEDLEY-COLOR-8) y (8 MEDLEY-COLOR-24) (16 X-MONO) (32 X-COLOR) (64 MS-WINDOWS)))) \MEDW.CREATEW :D8 (P 7 TWICEBORDER P 6 R P 5 \INTERRUPTABLE P 2 WINDOW P 1 DISPLAYDATA P 0 DSP I 6 OLDWINDOW I 5 PROPS I 4 NOOPENFLG I 3 BORDERSIZE I 2 TITLE I 1 REGION I 0 SCREEN) 8Fž@FÉ …@ AHÉ0YFµS`dA¿AA@É »dK¿dB(¿dC,¿dg¿dg0¿dg¿Zd@2JHI¼LdÈ(nðåJÒnÿåäÍ(¿Ll(kØÐJÓÍFµ!J ¿J ¿J ¿D¥J JÉCàNCØH ¿NCØH ¿jdNOÙNOÙFÉ(²hFÉ2É €jØhH °”(307 DSPCLIPPINGREGION 293 DSPLINEFEED 244 DSPYOFFSET 232 DSPXOFFSET 208 OPENW 199 SHOWWFRAME 192 MOVETOUPPERLEFT 185 ADVISEWDS 75 BITMAPCREATE 70 BITSPERPIXEL 22 DSPCREATE 15 DSPCREATE) (286 SCREEN 279 WINDOW 268 WINDOW 215 WINDOW 143 \DISPLAYDATA 134 WINDOW 125 WINDOW 115 TOTOPW 106 GIVE.TTY.PROCESS 97 CLOSED 63 SCREEN 42 |WINDOWTYPE#| 31 STREAM 8 WINDOW) () \MEDW.OPENW :D8 (P 3 SOFTCURSORUP P 2 DISPINTERRUPT P 1 \INTERRUPTABLE P 0 DD I 1 WINDOW I 0 SCREEN F 4 \SOFTCURSORP F 5 \SOFTCURSORUPP F 6 \CURSORDESTINATION F 7 \SCREENBITMAPS) ôAÉgð´‚±áA@É@AAÉdÉ0XdÉ*@ÉÈàààànÿÿåÍ T²,U´h` Vð[²`Èº`jÍ¿¿`dð³h` Wš` ¿HÉAÉAÉhK´¿`JÍh(231 \SOFTCURSORUPCURRENT 223 \SW2BM 192 \TOTOPWDS 178 DSPDESTINATION 157 \SOFTCURSORDOWN 130 DSPDESTINATION) (237 \EM.DISPINTERRUPT 215 WINDOW 207 WINDOW 199 \DISPLAYDATA 187 \TOPWDS 173 \TOPWDS 163 \TOPWDS 148 \EM.DISPINTERRUPT 140 \EM.DISPINTERRUPT 125 \TOPWDS 98 BITMAP 91 SCREEN 85 PILOTBBT 78 \DISPLAYDATA 69 STREAM 63 \TOPWDS 56 WINDOW 47 SCREEN 37 SCREEN 31 WINDOW 12 CLOSED 5 WINDOW) () \MEDW.CLOSEW :D8 (P 2 SOFTCURSORUP P 1 DISPINTERRUPT P 0 NEXTW I 1 WINDOW I 0 SCREEN F 3 \SOFTCURSORP F 4 \SOFTCURSORUPP F 5 \CURSORDESTINATION F 6 \SCREENBITMAPS) Ö`AÉð®AÉi ¿ S²,T´h` UðZ²`È¹`jÍ¿¿`dð³h` Vš` ¿@ÉAÉAÉh¿AÉ¸@H¿Hd–É¿AgJ´¿`IÍh(201 \SOFTCURSORUPCURRENT 144 \SW2BM 113 \TOTOPWDS 100 DSPDESTINATION 79 \SOFTCURSORDOWN 52 DSPDESTINATION 31 \TOTOPWDS) (207 \EM.DISPINTERRUPT 191 CLOSED 186 WINDOW 179 \TOPWDS 172 WINDOW 160 SCREEN 151 WINDOW 136 WINDOW 128 WINDOW 120 SCREEN 108 \TOPWDS 95 \TOPWDS 85 \TOPWDS 70 \EM.DISPINTERRUPT 62 \EM.DISPINTERRUPT 47 \TOPWDS 23 WINDOW 13 WINDOW 7 \TOPWDS) () \MEDW.MOVEW :D8 (P 32 NCT P 31 OCT P 30 NCH P 29 OCH P 28 NCW P 27 OCW P 26 NCR P 25 OCR P 24 OCB P 23 NCB P 22 OCL P 21 NCL P 20 NEWCLIPPINGREGION P 19 SOFTCURSORUP P 18 DISPINTERRUPT P 17 \INTERRUPTABLE P 16 MFN P 14 FN P 13 REG P 12 BTM P 11 LFT P 10 OLDCLIPREGION P 9 OLDHEIGHT P 8 OLDWIDTH P 7 OLDBOTTOM P 6 OLDLEFT P 5 NEWREGION P 4 POS P 3 OLDSCREEN P 2 OPEN? P 1 USERMOVEFN P 0 OLDREGION I 3 Y I 2 POSorX I 1 WINDOW I 0 SCREEN F 33 \SOFTCURSORP F 34 \SOFTCURSORUPP F 35 \CURSORDESTINATION F 36 \SCREENBITMAPS) }!A bdÉAÉ&A ÃAÉ2[Id˜¿gI…gð›o hHjdKÉKÉh «A µi_¿H^H_H_H_Bµ‚±ŒA ¿Ag _ŸAglO_µ;OONO¼iZ¿Id¢±¿d`’±³Oµ|hgð¢±½hOO_O_\NOÙØLOOÙØ°ª ’B°'Bd3œ¿Cd3²¿BC° –BB…B \¢±ÿGJ¢±ÿwA ±ÿm_ ¿ALlO ]dgð˜¿g±ÿl ‘M¼O_±ÿX²ALlI]dgð’±ÿR ’M\€LNðšLdOð’±Õ¿LLOOh½J¢±Š WB²-WD´hA WFð_&²`È_$¿`jÍ¿¿A`ð³hA WH–A ¿KÉHAÉh¿AÉhKÉM¿O&Ÿ¿`O$Í¿AM¿AHiJœA É“OµAg A LiðšAhi¿°áÐ A _(µ±Õ_.¿O_0¿O_6¿O(_8¿O_:¿O(_<¿O(_*O_,ýñ²AO*O0O,O*ÙO: ¿O,O6Ø_2O*O8Ø_4ýñ²AO2O0O4O2ÙO: ¿O0dO.ñ²¿AO*O.O8O0O.Ù ¿O0O:Ø_>O.O<Ø_@ýñ²AO*O>O8O@O>Ù ¿OOØK¿¿±þü(873 REDISPLAYW 868 CREATEREGION 832 REDISPLAYW 827 CREATEREGION 800 REDISPLAYW 795 CREATEREGION 759 REDISPLAYW 754 CREATEREGION 670 \ONSCREENCLIPPINGREGION 658 REDISPLAYW 645 DOUSERFNS 639 GETWINDOWUSERPROP 621 \INSUREWINDOW 612 ADVISEWDS 582 \SOFTCURSORUPCURRENT 573 \SW2BM 559 \SW2BM 535 \TOTOPWDS 525 DSPDESTINATION 508 \SOFTCURSORDOWN 477 DSPDESTINATION 417 POSITIONP 380 POSITIONP 342 TOTOPW 326 \ILLEGAL.ARG 312 REGIONP 285 POSITIONP 262 GETBOXPOSITION 192 GETBOXPOSITION 161 GETWINDOWUSERPROP 149 TOTOPW 109 \ONSCREENCLIPPINGREGION 102 SUBREGIONP 71 PROMPTPRINT 29 OPENWP 5 \INSUREWINDOW) (885 SCREEN 634 AFTERMOVEFN 600 WINDOW 588 \EM.DISPINTERRUPT 551 WINDOW 542 SCREEN 515 \TOPWDS 499 \EM.DISPINTERRUPT 489 \EM.DISPINTERRUPT 407 DON'T 372 DON'T 364 DON'T 230 DON'T 210 LAMBDASPLST 170 \MEDW.MOVEW 156 CALCULATEREGIONFN 90 SCREEN 82 SCREEN 59 DON'T 51 DON'T 38 WINDOW 21 WINDOW 13 WINDOW) ( 66 "This window cannot be moved.") \MEDW.RELMOVEW :D8 (P 0 WINREG I 2 POS I 1 WINDOW I 0 SCREEN) A ÉAHBØHBØ h(28 MOVEW 5 \INSUREWINDOW) NIL () \MEDW.SHRINKW :D8 (P 3 ICONISBITMAP P 2 FN P 1 ICONW P 0 TITLE I 4 EXPANDFN I 3 ICONPOSITION I 2 TOWHAT I 1 WINDOW I 0 SCREEN F 5 DEFAULTICONFN) A bd ¡hAg ³óAg Aigð³ÙPBÃ²(AgB[ AÉ2 b¿B±¦B ²AgB¿B±B ²AgABlUb¿B°gAg Z²Adg C lJŠAg b ’B°+BÃ²B[ AÉ2 ‹ABlUYAgIIgAIggI Égð²Igg¿AggIggDœAgD¿IggCgð³AK§C ²7IC ’C°&Ag b µAI É b I É\Lb¿AgCAi A I I(524 OPENW 518 \CLOSEW1 512 TOTOPW 505 PUTWINDOWPROP 482 \INSUREWINDOW 475 MOVEW 468 ICONPOSITION.FROM.WINDOW 461 \INSUREWINDOW 452 POSITIONP 445 GETWINDOWUSERPROP 430 POSITIONP 421 POSITIONP 404 PUTWINDOWPROP 387 WINDOWADDFNPROP 373 WINDOWADDFNPROP 357 WINDOWADDFNPROP 340 PUTWINDOWPROP 314 \INSUREWINDOW 308 WINDOWADDFNPROP 292 PUTWINDOWPROP 280 PUTWINDOWPROP 254 CREATEWFROMIMAGE 241 BITMAPCOPY 222 WINDOWP 215 GETWINDOWUSERPROP 198 POSITIONP 192 GETWINDOWUSERPROP 177 GETWINDOWUSERPROP 162 PUTWINDOWPROP 135 STRINGP 124 PUTWINDOWPROP 110 WINDOWP 99 PUTWINDOWPROP 92 CREATEWFROMIMAGE 79 BITMAPCOPY 47 DOUSERFNS 40 GETWINDOWUSERPROP 27 GETWINDOWUSERPROP 13 OPENWP 5 \INSUREWINDOW) (499 ICONPOSITION 440 ICONPOSITION 410 SAME 399 DOICONWINDOWCOM 394 DOWINDOWCOMFN 381 EXPANDFN 368 \NOTENEWICONPOSITION 363 MOVEFN 352 CLOSEICONWINDOW 347 OPENFN 335 ICONBUTTONEVENTFN 330 BUTTONEVENTFN 321 TOTOPW 303 CLOSEMAINWINDOW 298 CLOSEFN 286 ICONFOR 274 ICONWINDOW 267 WINDOW 247 WINDOW 232 BITMAP 210 ICON 187 ICONWINDOW 172 ICONFN 155 WINDOW 143 ICON 118 ICON 85 WINDOW 72 ICON 64 BITMAP 52 DON'T 35 SHRINKFN 22 ICONFOR) () \MEDW.EXPANDW :D8 (P 3 EXPANDREGION P 2 USEREXPANDFN P 1 MAINWINDOW P 0 IW I 1 ICONW I 0 SCREEN) ±AAHg YµHg X™AY ‘AId¢±ƒg Z ³oIg ²Ig ¼IkL[—IK …I ¿H ¿Igg¿Hgg¿JI ¿Hghh(172 PUTWINDOWPROP 159 DOUSERFNS 151 WINDOWDELPROP 134 WINDOWDELPROP 117 \CLOSEW1 110 \OPENW1 103 \SHAPEW2 88 GETWINDOWUSERPROP 75 GETWINDOWUSERPROP 62 \USERFNISDON'T 56 GETWINDOWUSERPROP 37 OPENWP 28 GETWINDOWUSERPROP 14 GETWINDOWUSERPROP) (166 ICONFOR 146 CLOSEMAINWINDOW 141 CLOSEFN 129 CLOSEICONWINDOW 124 OPENFN 83 EXPANDREGIONFN 70 EXPANDREGIONFN 51 EXPANDFN 23 ICONWINDOW 9 ICONFOR) () \MEDW.SHAPEW :D8 (P 1 NEWSIZE P 0 OLDSIZE I 2 NEWREGION I 1 WINDOW I 0 SCREEN) A bd ÉQAÉ ›o hA YBµ@Ag ²oIIAg AÉ*Adg ¼AkL °\dIýó¬¿BdIýó²FBIBºdJñ¡¿JIB»dKñ¡¿K° IIAg AÉ*A YdHô’±ÿWdHð²dHð›AIIAg µg½AI lM(275 COPYALL 260 GETWINDOWUSERPROP 248 MOVEW 206 GETREGION 191 WINDOWREGION 174 CREATEREGION 114 GETREGION 102 GETWINDOWUSERPROP 82 WINDOWREGION 65 GETWINDOWUSERPROP 50 MINIMUMWINDOWSIZE 42 PROMPTPRINT 31 \USERFNISDON'T 13 \INSUREWINDOW 5 \INSUREWINDOW) (267 SHAPEW1 255 DOSHAPEFN 197 WINDOW 186 \MEDW.SHAPEW 97 INITCORNERSFN 88 WINDOW 77 \MEDW.SHAPEW 60 INITCORNERSFN 24 WINDOW) ( 37 "This window cannot be reshaped.") \MEDW.REDISPLAYWA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DSP F 1 SI::*RESETFORMS* F 2 REGION F 3 WINDOW F 4 REPAINTFN) \gRP PhhdQcghP PhhdQcghP PhhdQcSR TSR(89 DOUSERFNS2 81 FILLWITHBACKGROUND 61 DSPYOFFSET 36 DSPXOFFSET 11 DSPCLIPPINGREGION) (54 DSPYOFFSET 29 DSPXOFFSET 4 DSPCLIPPINGREGION) () \MEDW.REDISPLAYW :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 CLIPREG P 1 REPAINTFN P 0 DSP I 3 ALWAYSFLG I 2 REGION I 1 WINDOW I 0 SCREEN F 6 LISPXHIST) xAÉ!A ÉY¨C²(g¹hH ZB²@dB ³BJ bho hV!g ¿$AB IAJ(117 DOUSERFNS2 109 FILLWITHBACKGROUND 97 SI::RESETUNWIND 92 \MVLIST 87 \MEDW.REDISPLAYWA0001 71 PROMPTPRINT 56 INTERSECTREGIONS 47 SUBREGIONP 36 DSPCLIPPINGREGION 16 \INSUREWINDOW) (82 SI::RESETUNWIND 28 NILL 5 WINDOW) ( 66 "Window has no REPAINTFN. Can't redisplay.") \MEDW.BURYW :D8 (P 3 W P 2 ATWINS P 1 ABOVEWINDOWS P 0 OVERLAPPINGWINDOWS I 1 WINDOW I 0 SCREEN) nA bd !AHA Z YH ŒdK µòA JŒdK µòIŒdK µòA(101 \OPENW1 83 \OPENW1 70 \OPENW1 59 \CLOSEW1 47 REVERSE 40 REMOVE 35 LDIFFERENCE 29 ALLATTACHEDWINDOWS 18 ORDERFROMBOTTOMTOTOP 13 OVERLAPPINGWINDOWS 5 \INSUREWINDOW) NIL () \MEDW.TOTOPW :D8 (I 2 NOCALLTOTOPFNFLG I 1 WINDOW I 0 SCREEN) kA bddÉ2Éð³OA ²B³Ag A ¿A °*A ²B³Ag A ŠoA A(103 ERROR 91 DOUSERFNS 85 GETWINDOWUSERPROP 69 OPENW 61 \INTERNALTOTOPW 54 DOUSERFNS 48 GETWINDOWUSERPROP 32 OPENWP 5 \INSUREWINDOW) (80 TOTOPFN 43 TOTOPFN 21 SCREEN 14 WINDOW) ( 97 "Window won't open; Can't be bring to top.") \MEDW.DSPCREATE :D8 (I 2 OLDDSP I 1 DESTINATION I 0 SCREEN) =@ÉHÃ´HµAÃ’Aµ`@É@É(58 \COMMON.DSPCREATE) (51 SCREEN 43 SCREEN 37 ScreenBitMap 28 BITMAP 16 BITMAP 5 SCREEN) () \GENERIC.DSPCREATE :D8 (P 4 A0358 P 3 SC P 1 SCREEN P 0 DSTRM I 1 OLDDSP I 0 DESTINATION) ‰ @µ2`b¿`Jµh°8»@KÉð•Kµïi°ìJZ°ãÃ’@°@ ¿`Jµ hYµ @ ÉFI@AlL»@KÉð•KµÕi°ÒJZ°É(92 \COMMON.DSPCREATE 68 \GENERIC.DSPCREATE.DESTINATION.BITMAP?) (120 SCREEN 98 SCREEN 74 \SCREENS 58 SCREEN 38 SCREEN 18 \SCREENS 10 ScreenBitMap) () \GENERIC.DSPCREATE.DESTINATION.BITMAP? :D8 (I 0 DESTINATION) @NIL (5 BITMAP) () \MEDW.GETWINDOWPROP :D8 (I 2 PROP I 1 WINDOW I 0 SCREEN) °AÃ³$Agi ˜A b…A ¿Bdgð—¿A gð–A Bdgð™¿AÉ gð˜AÉBdgð™¿AÉgð˜AÉBdgð™¿AÉgð˜AÉBdgð™¿AÉ2gð˜AÉBdgð™¿AÉgð˜AÉBdgð™¿AÉgð˜AÉ&Bdgð™¿AÉ$gð˜AÉ0Bdgð™¿AÉ.gð˜AÉBdgð™¿AÉ*gð˜AÉ(Bdgð™¿AÉ,gð˜AÉAB (429 GETWINDOWUSERPROP 71 \GETWINDOWWIDTH 57 \GETWINDOWHEIGHT 40 \ILLEGAL.ARG 31 WFROMDS 24 DISPLAYSTREAMP 19 \GETSTREAM) (419 WINDOW 411 IMAGECOVERED 403 WINDOW 394 BORDER 384 WINDOW 376 TITLE 368 WINDOW 359 NEWREGIONFN 349 WINDOW 341 REGION 333 WINDOW 324 PROCESS 314 WINDOW 306 WINDOWENTRYFN 298 WINDOW 289 CLOSEFN 279 WINDOW 271 MOVEFN 263 WINDOW 254 REPAINTFN 244 WINDOW 236 EXTENT 228 WINDOW 219 RESHAPEFN 209 WINDOW 201 SCROLLFN 193 WINDOW 184 SCREEN 174 WINDOW 166 DSP 158 WINDOW 149 CURSORMOVEDFN 139 WINDOW 131 CURSOROUTFN 123 WINDOW 114 CURSORINFN 104 WINDOW 96 BUTTONEVENTFN 88 WINDOW 79 RIGHTBUTTONFN 63 WIDTH 48 HEIGHT 13 OUTPUT 5 WINDOW) () \MEDW.PUTWINDOWPROP :D8 (P 2 OLDVALUE P 1 OLDDATA P 0 CURREGION I 3 VALUE I 2 PROP I 1 WINDOW I 0 SCREEN) QAÃ³$Agh ˜A b…A ¿Bdgð²¿AÉ AC ¿gð²AÉAC¿Bdgð²¿AÉ$AC$¿gð²AÉ&AC&¿Bdgð²¿AÉAC¿gð²AÉAC¿Bdgð²¿AÉAC¿gð›oA Bdgðœ¿oA gð²AÉAC¿Bdgð²¿AÉAC¿gð²%AÉCC ¦C ¿AC¿Bdgð²¿AÉAC¿A ¿gð›oA Bdgðœ¿oA gð›oA Bdgð²I¿A ÉXC ¦C ¿HCð²HCð›ACC†AC hgð²AÉ*AC*¿Bdgð²¿AÉ(CA ¿gð²AÉ,Cd3—A ¿ ¿Bdgð²¿AÉ.AC.¿gð²AÉ0AC0¿0AÉYd²CdB'ºCšIBC¿°/J´AIdBð² ¿AI¿°Bð—Kd¿†K[µîJ°C´ABCh¿hAÉ(¢±þNBgð¢±þCAÉ(Ai¿(845 RESHOWTITLE 738 LISTPUT 650 \ILLEGAL.ARG 643 RESHOWBORDER 614 RESHOWTITLE 559 SHAPEW 551 MOVEW 516 \ILLEGAL.ARG 509 REGIONP 500 \INSUREWINDOW 479 ERROR 460 ERROR 438 ERROR 418 UPDATE/SCROLL/REG 371 \ILLEGAL.ARG 364 REGIONP 282 ERROR 260 ERROR 40 \ILLEGAL.ARG 31 WFROMDS 24 DISPLAYSTREAMP 19 \GETSTREAM) (836 WINDOW 825 WINDOWTITLESHADE 813 WINDOW 798 WINDOW 758 WINDOW 718 WINDOW 704 WINDOW 696 WINDOW 687 WINDOWENTRYFN 677 WINDOW 669 WINDOW 659 PROCESS 630 WINDOW 621 BORDER 605 WINDOW 595 TITLE 583 WINDOW 575 WINDOW 566 NEWREGIONFN 487 REGION 466 WIDTH 446 HEIGHT 425 IMAGECOVERED 408 WINDOW 400 WINDOW 390 SCROLLFN 378 WINDOW 354 WINDOW 345 EXTENT 335 WINDOW 327 WINDOW 317 REPAINTFN 305 WINDOW 297 WINDOW 288 RESHAPEFN 268 SCREEN 247 DSP 237 WINDOW 229 WINDOW 219 CURSORMOVEDFN 207 WINDOW 199 WINDOW 190 CURSOROUTFN 180 WINDOW 172 WINDOW 162 CURSORINFN 150 WINDOW 142 WINDOW 133 MOVEFN 123 WINDOW 115 WINDOW 105 CLOSEFN 93 WINDOW 85 WINDOW 76 BUTTONEVENTFN 66 WINDOW 58 WINDOW 48 RIGHTBUTTONFN 13 OUTPUT 5 WINDOW) ( 473 "Not implemented to change WIDTH as property." 454 "Not implemented to change HEIGHT as property." 432 "Not implemented to change IMAGECOVERED property." 276 "Can't change SCREEN of a window" 254 "Can't change DSP of a window") \MEDW.CURSOR :D8 (P 0 OLDCURSOR I 2 INVERTFLG I 1 NEWCURSOR I 0 SCREEN F 1 \CURRENTCURSOR F 2 \CURSORHOTSPOTX F 3 \CURSORHOTSPOTY) cQXAdið—¿`b` ²9¿AB ¿AÉc¿AÉÈkÙAÉÙc¿‚AµH ¿°ø(94 \ILLEGAL.ARG 42 \CURSORUP 34 \CURSORDOWN 27 \CURSOR-VALID-P) (77 CURSOR 67 BITMAP 60 CURSOR 49 CURSOR 22 \SOFTCURSORP 15 DEFAULTCURSOR) () \GENERIC.CURSOR :D8 (P 1 A0359 P 0 SCREEN I 1 INVERTFLG I 0 NEWCURSOR F 2 \CURRENTCURSOR) )@²%R`°dHÉ@¹H@AlIµèRNIL (21 SCREEN 8 \SCREENS) () (MOVD (QUOTE \GENERIC.DSPCREATE) (QUOTE DSPCREATE)) (COND ((NOT (EQUAL (GETD (QUOTE CURSOR)) (GETD (QUOTE \GENERIC.CURSOR)))) (MOVD (QUOTE \GENERIC.CURSOR ) (QUOTE CURSOR)))) (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 (NATIVE-HANDLE FIXP) (NATIVE-INFO1 FIXP) (NATIVE-W1 WORD) (NATIVE-W2 WORD) (NATIVE-P1 POINTER)) ) (DATATYPE SCREEN (SCONOFF SCDESTINATION SCWIDTH SCHEIGHT SCTOPW SCTOPWDS SCTITLEDS SCFDEV SCDS SCDATA (HANDLE FIXP) (HANDLE2 FIXP) (NATIVE-INFO POINTER) NATIVETYPE WINIMAGEOPS WINFDEV CREATEWFN OPENWFN CLOSEWFN MOVEWFN RELMOVEWFN SHRINKWFN EXPANDWFN SHAPEWFN REDISPLAYFN GETWINDOWPROPFN PUTWINDOWPROPFN BURYWFN TOTOPWFN IMPORTWFN EXPORTWFN DESTROYFN SETCURSORFN PROMPTW SHOWGCFN DSPCREATEFN BBTTOWIN BBTFROMWIN BBTWINWIN SCCURSOR SCKEYBOARD SCDEPTH SCCLOSEDOWN SCCLOSESCREEN SCREOPEN SCCARETFLASH SCGETSCREENPOSITION SCGETBOXSCREENPOSITION SCGETSCREENREGION SCMOVEPOINTER))) (/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 FIXP FIXP WORD WORD 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) (WINDOW 52 FIXP) (WINDOW 54 FIXP) (WINDOW 56 (BITS . 15)) (WINDOW 57 (BITS . 15)) (WINDOW 58 POINTER))) (QUOTE 60)) (/DECLAREDATATYPE (QUOTE SCREEN) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FIXP FIXP 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 POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((SCREEN 0 POINTER) (SCREEN 2 POINTER) ( SCREEN 4 POINTER) (SCREEN 6 POINTER) (SCREEN 8 POINTER) (SCREEN 10 POINTER) (SCREEN 12 POINTER) ( SCREEN 14 POINTER) (SCREEN 16 POINTER) (SCREEN 18 POINTER) (SCREEN 20 FIXP) (SCREEN 22 FIXP) (SCREEN 24 POINTER) (SCREEN 26 POINTER) (SCREEN 28 POINTER) (SCREEN 30 POINTER) (SCREEN 32 POINTER) (SCREEN 34 POINTER) (SCREEN 36 POINTER) (SCREEN 38 POINTER) (SCREEN 40 POINTER) (SCREEN 42 POINTER) (SCREEN 44 POINTER) (SCREEN 46 POINTER) (SCREEN 48 POINTER) (SCREEN 50 POINTER) (SCREEN 52 POINTER) (SCREEN 54 POINTER) (SCREEN 56 POINTER) (SCREEN 58 POINTER) (SCREEN 60 POINTER) (SCREEN 62 POINTER) (SCREEN 64 POINTER) (SCREEN 66 POINTER) (SCREEN 68 POINTER) (SCREEN 70 POINTER) (SCREEN 72 POINTER) (SCREEN 74 POINTER) (SCREEN 76 POINTER) (SCREEN 78 POINTER) (SCREEN 80 POINTER) (SCREEN 82 POINTER) (SCREEN 84 POINTER) (SCREEN 86 POINTER) (SCREEN 88 POINTER) (SCREEN 90 POINTER) (SCREEN 92 POINTER) (SCREEN 94 POINTER) (SCREEN 96 POINTER) (SCREEN 98 POINTER))) (QUOTE 100)) (RPAQ? WindowMenu) (RPAQ? BackgroundMenu) (RPAQ? \LastCursorPosition (CREATEPOSITION)) (RPAQ? \LastInWindow) (RPAQ? \LastWindowButtons 0) (RPAQ? WINDOWBACKGROUNDSHADE 34850) (RPAQ? WBorder 4) (RPAQ? HIGHLIGHTSHADE 32800) (RPAQ? WINDOWBACKGROUNDBORDER 34850) (FILESLOAD PAINTW) (ADDTOVAR WindowMenuCommands (Close (QUOTE \INTERACTIVE.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 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) (COND ((NULL \MAINSCREEN) (SETQ \MAINSCREEN (CREATESCREEN (SCREENBITMAP))) (SETQ \CURSORSCREEN \MAINSCREEN) (SETQ LASTSCREEN \MAINSCREEN) (WINDOWWORLD (QUOTE ON) \MAINSCREEN T))) (MOVD? (QUOTE TRUE) (QUOTE LISPWINDOWP)) (RPAQQ \WINDOWWORLD T) (PUTPROPS WINDOW FILETYPE :FAKE-COMPILE-FILE) (PUTPROPS WINDOW COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993 1994 1999 2000 2021)) NIL