MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 5 code / Lisp Mini-App.sea / Lisp Mini-App / Program / utilities.lisp < prev
MacBinary | 1992-04-08 | 9.5 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Apr 8 19:03:04 1992, modified Wed Apr 8 19:03:04 1992, creator Common Lisp 2, type ASCII, 8980 bytes "utilities.lisp" , at 0x2394 441 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 75 74 69 6c 69 74 | 69 65 73 2e 6c 69 73 70 |..utilit|ies.lisp|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 23 14 00 | 00 01 b9 a6 09 2c 28 a6 |.....#..|.....,(.|
|00000060| 09 2c 28 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.,(.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c0 31 00 00 |........|.....1..|
|00000080| 23 7c 0d 20 20 20 75 74 | 69 6c 69 74 69 65 73 2e |#|.   ut|ilities.|
|00000090| 6c 69 73 70 0d 0d 20 20 | 20 44 65 66 69 6e 65 73 |lisp..  | Defines|
|000000a0| 20 73 6f 6d 65 20 75 74 | 69 6c 69 74 69 65 73 20 | some ut|ilities |
|000000b0| 6e 65 65 64 65 64 20 62 | 79 20 74 68 65 20 4d 69 |needed b|y the Mi|
|000000c0| 6e 69 2d 41 70 70 6c 69 | 63 61 74 69 6f 6e 0d 20 |ni-Appli|cation. |
|000000d0| 20 20 73 61 6d 70 6c 65 | 20 70 72 6f 67 72 61 6d |  sample| program|
|000000e0| 2e 0d 0d 20 20 20 46 6f | 72 20 66 75 72 74 68 65 |...   Fo|r furthe|
|000000f0| 72 20 69 6e 66 6f 2c 20 | 73 65 65 20 66 69 6c 65 |r info, |see file|
|00000100| 73 20 22 41 62 6f 75 74 | 20 4d 69 6e 69 2d 41 70 |s "About| Mini-Ap|
|00000110| 70 22 20 61 6e 64 20 22 | 49 6e 73 74 72 75 63 74 |p" and "|Instruct|
|00000120| 69 6f 6e 73 22 2e 0d 0d | 0d 20 20 20 43 6f 70 79 |ions"...|.   Copy|
|00000130| 72 69 67 68 74 20 31 39 | 39 30 2c 20 31 39 39 31 |right 19|90, 1991|
|00000140| 20 62 79 20 52 75 62 65 | 6e 20 4b 6c 65 69 6d 61 | by Rube|n Kleima|
|00000150| 6e 20 66 6f 72 20 41 70 | 70 6c 65 20 43 6f 6d 70 |n for Ap|ple Comp|
|00000160| 75 74 65 72 2c 20 49 6e | 63 2e 0d 20 20 20 41 63 |uter, In|c..   Ac|
|00000170| 6b 6e 6f 77 6c 65 64 67 | 65 6d 65 6e 74 3a 20 64 |knowledg|ement: d|
|00000180| 72 61 67 2d 69 6e 76 65 | 72 74 65 64 2d 72 65 67 |rag-inve|rted-reg|
|00000190| 69 6f 6e 20 6d 6f 64 69 | 66 69 65 64 20 66 72 6f |ion modi|fied fro|
|000001a0| 6d 20 61 20 76 65 72 73 | 69 6f 6e 20 62 79 20 44 |m a vers|ion by D|
|000001b0| 61 76 65 20 56 72 6f 6e | 61 79 2e 0d 0d 20 20 20 |ave Vron|ay...   |
|000001c0| 43 68 61 6e 67 65 20 48 | 69 73 74 6f 72 79 2e 0d |Change H|istory..|
|000001d0| 20 20 20 30 33 2d 31 32 | 2d 39 32 20 73 6c 6d 20 |   03-12|-92 slm |
|000001e0| 20 55 70 64 61 74 65 64 | 20 66 69 6c 65 20 68 65 | Updated| file he|
|000001f0| 61 64 65 72 20 63 6f 6d | 6d 65 6e 74 73 2e 0d 20 |ader com|ments.. |
|00000200| 20 20 30 31 2d 31 39 2d | 39 32 20 73 6c 6d 20 20 |  01-19-|92 slm  |
|00000210| 67 65 74 2d 72 65 73 6f | 75 72 63 65 2d 68 61 6e |get-reso|urce-han|
|00000220| 64 6c 65 3a 20 0d 20 20 | 20 20 20 20 20 20 20 20 |dle: .  |        |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 61 64 64 65 64 20 |        |  added |
|00000240| 23 5f 47 65 74 49 63 6f | 6e 20 66 6f 72 20 42 26 |#_GetIco|n for B&|
|00000250| 57 20 73 79 73 74 65 6d | 73 20 61 66 74 65 72 20 |W system|s after |
|00000260| 63 72 65 61 74 69 6e 67 | 20 42 26 57 20 49 43 4f |creating| B&W ICO|
|00000270| 4e 73 2e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |Ns..    |        |
|00000280| 20 20 20 20 20 20 20 20 | 6e 75 6d 62 65 72 70 20 |        |numberp |
|00000290| 2d 3e 20 69 6e 74 65 67 | 65 72 70 2e 0d 20 20 20 |-> integ|erp..   |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002b0| 20 6f 73 74 79 70 65 20 | 73 75 70 65 72 73 65 64 | ostype |supersed|
|000002c0| 65 73 20 72 65 73 74 79 | 70 65 2d 66 72 6f 6d 2d |es resty|pe-from-|
|000002d0| 73 74 72 69 6e 67 2e 0d | 20 20 20 20 20 20 20 20 |string..|        |
|000002e0| 20 20 20 20 20 20 20 20 | 20 72 65 73 74 79 70 65 |        | restype|
|000002f0| 2d 66 72 6f 6d 2d 73 74 | 72 69 6e 67 3a 20 73 75 |-from-st|ring: su|
|00000300| 70 65 72 73 65 64 65 64 | 20 73 6f 20 72 65 6d 6f |perseded| so remo|
|00000310| 76 65 64 2e 0d 20 20 20 | 30 31 2d 31 38 2d 39 32 |ved..   |01-18-92|
|00000320| 20 73 6c 6d 20 20 6d 61 | 63 72 6f 20 67 65 74 2d | slm  ma|cro get-|
|00000330| 77 6d 67 72 2d 70 6f 72 | 74 20 68 61 73 20 62 65 |wmgr-por|t has be|
|00000340| 65 6e 20 75 70 64 61 74 | 65 64 3a 0d 20 20 20 20 |en updat|ed:.    |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 25 73 74 61 63 6b 2d 62 | 6c 6f 63 6b 20 2d 3e 20 |%stack-b|lock -> |
|00000370| 72 6c 65 74 0d 20 20 20 | 20 20 20 20 20 20 20 20 |rlet.   |        |
|00000380| 20 20 20 20 20 20 20 20 | 20 5f 47 65 74 57 4d 67 |        | _GetWMg|
|00000390| 72 50 6f 72 74 20 2d 3e | 20 72 65 71 75 69 72 65 |rPort ->| require|
|000003a0| 2d 74 72 61 70 20 23 5f | 47 65 74 57 4d 67 72 50 |-trap #_|GetWMgrP|
|000003b0| 6f 72 74 0d 20 20 20 30 | 31 2d 31 38 2d 39 32 20 |ort.   0|1-18-92 |
|000003c0| 73 6c 6d 20 20 66 75 6e | 63 74 69 6f 6e 20 64 65 |slm  fun|ction de|
|000003d0| 73 6b 74 6f 70 2d 72 65 | 63 74 20 68 61 73 20 62 |sktop-re|ct has b|
|000003e0| 65 65 6e 20 75 70 64 61 | 74 65 64 3a 0d 20 20 20 |een upda|ted:.   |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000400| 20 67 65 74 2d 72 65 63 | 6f 72 64 2d 66 69 65 6c | get-rec|ord-fiel|
|00000410| 64 20 20 2d 3e 20 70 72 | 65 66 0d 20 20 20 20 20 |d  -> pr|ef.     |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 23 |        |       #|
|00000430| 78 39 45 45 20 28 3d 23 | 24 47 72 61 79 52 67 6e |x9EE (=#|$GrayRgn|
|00000440| 29 20 2d 3e 20 23 5f 47 | 65 74 47 72 61 79 52 67 |) -> #_G|etGrayRg|
|00000450| 6e 0d 20 20 20 30 31 2d | 31 37 2d 39 32 20 73 6c |n.   01-|17-92 sl|
|00000460| 6d 20 20 63 63 6c 3a 3a | 63 6c 61 73 73 2d 70 72 |m  ccl::|class-pr|
|00000470| 65 63 65 64 65 6e 63 65 | 2d 6c 69 73 74 20 2d 3e |ecedence|-list ->|
|00000480| 20 63 6c 61 73 73 2d 70 | 72 65 63 65 64 65 6e 63 | class-p|recedenc|
|00000490| 65 2d 6c 69 73 74 0d 20 | 20 20 20 20 20 20 20 20 |e-list. |        |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 6e 6f 77 20 65 |        |   now e|
|000004b0| 78 70 6f 72 74 65 64 20 | 61 6e 64 20 64 6f 63 75 |xported |and docu|
|000004c0| 6d 65 6e 74 65 64 2e 0d | 20 20 20 20 20 20 20 20 |mented..|        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 63 63 6c 3a 3a 77 69 |        | ccl::wi|
|000004e0| 74 68 2d 63 6c 69 70 2d | 72 65 63 74 20 2d 3e 20 |th-clip-|rect -> |
|000004f0| 77 69 74 68 2d 63 6c 69 | 70 2d 72 65 63 74 0d 20 |with-cli|p-rect. |
|00000500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000510| 20 20 20 6e 6f 77 20 65 | 78 70 6f 72 74 65 64 20 |   now e|xported |
|00000520| 62 75 74 20 6d 61 79 20 | 6e 6f 74 20 62 65 20 64 |but may |not be d|
|00000530| 6f 63 75 6d 65 6e 74 65 | 64 2e 0d 20 20 20 20 20 |ocumente|d..     |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 63 63 6c |        |    (ccl|
|00000550| 3a 3a 6d 6f 64 65 2d 61 | 72 67 20 3a 70 61 74 78 |::mode-a|rg :patx|
|00000560| 6f 72 29 20 2d 3e 20 28 | 70 6f 73 69 74 69 6f 6e |or) -> (|position|
|00000570| 20 3a 50 61 74 58 4f 72 | 20 2a 70 65 6e 2d 6d 6f | :PatXOr| *pen-mo|
|00000580| 64 65 73 2a 29 0d 20 20 | 20 20 20 20 20 20 20 20 |des*).  |        |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 53 69 6d 69 6c 61 |        |  Simila|
|000005a0| 72 6c 79 20 66 6f 72 20 | 3a 70 61 74 43 6f 70 79 |rly for |:patCopy|
|000005b0| 2e 0d 20 20 20 30 31 2d | 31 37 2d 39 32 20 73 6c |..   01-|17-92 sl|
|000005c0| 6d 20 20 5f 6f 70 65 6e | 72 65 73 66 69 6c 65 20 |m  _open|resfile |
|000005d0| 20 20 20 20 20 2d 3e 20 | 23 5f 4f 70 65 6e 52 65 |     -> |#_OpenRe|
|000005e0| 73 46 69 6c 65 20 20 28 | 32 78 29 0d 20 20 20 20 |sFile  (|2x).    |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5f 63 75 |        |     _cu|
|00000600| 72 72 65 73 66 69 6c 65 | 20 20 20 20 20 20 20 2d |rresfile|       -|
|00000610| 3e 20 23 5f 43 75 72 52 | 65 73 46 69 6c 65 0d 20 |> #_CurR|esFile. |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000630| 5f 75 73 65 72 65 73 66 | 69 6c 65 20 20 20 20 20 |_useresf|ile     |
|00000640| 20 20 2d 3e 20 23 5f 55 | 73 65 52 65 73 46 69 6c |  -> #_U|seResFil|
|00000650| 65 20 20 20 28 32 78 29 | 0d 20 20 20 20 20 20 20 |e   (2x)|.       |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 5f 47 65 74 43 69 |        |  _GetCi|
|00000670| 63 6f 6e 20 20 20 20 20 | 20 20 20 20 2d 3e 20 23 |con     |    -> #|
|00000680| 5f 47 65 74 43 49 63 6f | 6e 0d 20 20 20 20 20 20 |_GetCIco|n.      |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 5f 67 65 74 6e |        |   _getn|
|000006a0| 61 6d 65 64 72 65 73 6f | 75 72 63 65 20 2d 3e 20 |amedreso|urce -> |
|000006b0| 23 5f 47 65 74 4e 61 6d | 65 64 52 65 73 6f 75 72 |#_GetNam|edResour|
|000006c0| 63 65 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ce.     |        |
|000006d0| 20 20 20 20 5f 67 65 74 | 72 65 73 6f 75 72 63 65 |    _get|resource|
|000006e0| 20 20 20 20 20 20 2d 3e | 20 23 5f 47 65 74 52 65 |      ->| #_GetRe|
|000006f0| 73 6f 75 72 63 65 0d 20 | 20 20 20 20 20 20 20 20 |source. |        |
|00000700| 20 20 20 20 20 20 20 20 | 5f 47 65 74 50 65 6e 53 |        |_GetPenS|
|00000710| 74 61 74 65 20 20 20 20 | 20 20 2d 3e 20 23 5f 47 |tate    |  -> #_G|
|00000720| 65 74 50 65 6e 53 74 61 | 74 65 0d 20 20 20 20 20 |etPenSta|te.     |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 5f 50 65 6e |        |    _Pen|
|00000740| 4d 6f 64 65 20 20 20 20 | 20 20 20 20 20 20 2d 3e |Mode    |      ->|
|00000750| 20 23 5f 50 65 6e 4d 6f | 64 65 20 20 20 20 20 20 | #_PenMo|de      |
|00000760| 28 33 78 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |(3x).   |        |
|00000770| 20 20 20 20 20 20 5f 70 | 74 32 72 65 63 74 20 20 |      _p|t2rect  |
|00000780| 20 20 20 20 20 20 20 20 | 2d 3e 20 23 5f 50 74 32 |        |-> #_Pt2|
|00000790| 52 65 63 74 20 20 20 20 | 20 20 28 32 78 29 0d 20 |Rect    |  (2x). |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007b0| 5f 46 72 61 6d 65 52 65 | 63 74 20 20 20 20 20 20 |_FrameRe|ct      |
|000007c0| 20 20 2d 3e 20 23 5f 46 | 72 61 6d 65 52 65 63 74 |  -> #_F|rameRect|
|000007d0| 20 20 20 20 28 34 78 29 | 0d 20 20 20 20 20 20 20 |    (4x)|.       |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 5f 53 65 74 50 65 |        |  _SetPe|
|000007f0| 6e 53 74 61 74 65 20 20 | 20 20 20 20 2d 3e 20 23 |nState  |    -> #|
|00000800| 5f 53 65 74 50 65 6e 53 | 74 61 74 65 0d 20 20 20 |_SetPenS|tate.   |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5f 43 |        |      _C|
|00000820| 6f 70 79 52 67 6e 20 20 | 20 20 20 20 20 20 20 20 |opyRgn  |        |
|00000830| 2d 3e 20 23 5f 43 6f 70 | 79 52 67 6e 20 20 20 20 |-> #_Cop|yRgn    |
|00000840| 20 20 28 34 78 29 0d 20 | 20 20 20 20 20 20 20 20 |  (4x). |        |
|00000850| 20 20 20 20 20 20 20 20 | 5f 49 6e 76 65 72 52 67 |        |_InverRg|
|00000860| 6e 20 20 20 20 20 20 20 | 20 20 2d 3e 20 23 5f 49 |n       |  -> #_I|
|00000870| 6e 76 65 72 74 52 67 6e | 20 20 20 20 28 33 78 29 |nvertRgn|    (3x)|
|00000880| 20 20 28 22 74 22 20 61 | 64 64 65 64 29 0d 20 20 |  ("t" a|dded).  |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5f |        |       _|
|000008a0| 67 65 74 6d 6f 75 73 65 | 20 20 20 20 20 20 20 20 |getmouse|        |
|000008b0| 20 2d 3e 20 23 5f 47 65 | 74 4d 6f 75 73 65 0d 20 | -> #_Ge|tMouse. |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008d0| 5f 6f 66 66 73 65 74 52 | 67 6e 20 20 20 20 20 20 |_offsetR|gn      |
|000008e0| 20 20 2d 3e 20 23 5f 4f | 66 66 73 65 74 52 67 6e |  -> #_O|ffsetRgn|
|000008f0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000900| 20 20 5f 58 4f 52 52 67 | 6e 20 20 20 20 20 20 20 |  _XORRg|n       |
|00000910| 20 20 20 20 2d 3e 20 23 | 5f 58 4f 72 52 67 6e 0d |    -> #|_XOrRgn.|
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000930| 20 49 6e 20 61 64 64 69 | 74 69 6f 6e 2c 20 6d 6f | In addi|tion, mo|
|00000940| 73 74 20 6b 65 79 77 6f | 72 64 73 20 73 75 63 68 |st keywo|rds such|
|00000950| 20 61 73 20 3a 65 72 72 | 63 68 6b 20 77 65 72 65 | as :err|chk were|
|00000960| 20 72 65 6d 6f 76 65 64 | 2e 0d 20 0d 7c 23 0d 0d | removed|.. .|#..|
|00000970| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000980| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000990| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000009a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000009b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000009c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 3b |;;;;;;;;|;;;;;;.;|
|000009d0| 3b 3b 0d 3b 3b 3b 20 67 | 65 74 2d 77 6d 67 72 2d |;;.;;; g|et-wmgr-|
|000009e0| 70 6f 72 74 0d 3b 3b 3b | 0d 3b 3b 3b 20 20 20 20 |port.;;;|.;;;    |
|000009f0| 20 47 65 74 73 20 74 68 | 65 20 77 69 6e 64 6f 77 | Gets th|e window|
|00000a00| 20 6d 61 6e 61 67 65 72 | 27 73 20 70 6f 72 74 0d | manager|'s port.|
|00000a10| 3b 3b 3b 0d 28 64 65 66 | 6d 61 63 72 6f 20 67 65 |;;;.(def|macro ge|
|00000a20| 74 2d 77 6d 67 72 2d 70 | 6f 72 74 20 28 29 0d 20 |t-wmgr-p|ort (). |
|00000a30| 20 60 28 72 6c 65 74 20 | 28 28 70 6f 72 74 20 3a | `(rlet |((port :|
|00000a40| 70 6f 69 6e 74 65 72 29 | 29 0d 20 20 20 20 20 28 |pointer)|).     (|
|00000a50| 72 65 71 75 69 72 65 2d | 74 72 61 70 20 23 5f 47 |require-|trap #_G|
|00000a60| 65 74 57 4d 67 72 50 6f | 72 74 20 70 6f 72 74 29 |etWMgrPo|rt port)|
|00000a70| 0d 20 20 20 20 20 28 25 | 67 65 74 2d 70 74 72 20 |.     (%|get-ptr |
|00000a80| 70 6f 72 74 29 29 29 0d | 0d 3b 3b 3b 3b 3b 3b 3b |port))).|.;;;;;;;|
|00000a90| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000aa0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ab0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ac0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ad0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ae0| 3b 3b 3b 3b 3b 3b 3b 0d | 3b 3b 3b 20 6f 70 65 6e |;;;;;;;.|;;; open|
|00000af0| 2d 72 65 73 6f 75 72 63 | 65 2d 66 69 6c 65 0d 3b |-resourc|e-file.;|
|00000b00| 3b 3b 0d 3b 3b 3b 20 20 | 20 20 47 69 76 65 6e 20 |;;.;;;  |  Given |
|00000b10| 61 20 66 69 6c 65 6e 61 | 6d 65 2c 20 6f 70 65 6e |a filena|me, open|
|00000b20| 73 20 69 74 73 20 72 65 | 73 6f 75 72 63 65 20 66 |s its re|source f|
|00000b30| 6f 72 6b 2e 0d 3b 3b 3b | 20 20 20 20 52 65 74 75 |ork..;;;|    Retu|
|00000b40| 72 6e 73 20 74 68 65 20 | 66 69 6c 65 20 72 65 66 |rns the |file ref|
|00000b50| 65 72 65 6e 63 65 20 6e | 75 6d 62 65 72 2e 0d 3b |erence n|umber..;|
|00000b60| 3b 3b 0d 28 64 65 66 75 | 6e 20 6f 70 65 6e 2d 72 |;;.(defu|n open-r|
|00000b70| 65 73 6f 75 72 63 65 2d | 66 69 6c 65 20 28 66 69 |esource-|file (fi|
|00000b80| 6c 65 6e 61 6d 65 29 0d | 20 20 28 6c 65 74 20 28 |lename).|  (let (|
|00000b90| 28 74 65 6d 70 66 69 6c | 65 20 28 77 69 74 68 2d |(tempfil|e (with-|
|00000ba0| 70 73 74 72 73 20 28 28 | 74 65 6d 70 66 69 6c 65 |pstrs ((|tempfile|
|00000bb0| 20 28 6e 61 6d 65 73 74 | 72 69 6e 67 20 28 74 72 | (namest|ring (tr|
|00000bc0| 75 65 6e 61 6d 65 20 66 | 69 6c 65 6e 61 6d 65 29 |uename f|ilename)|
|00000bd0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|00000be0| 20 20 20 20 20 20 20 20 | 28 23 5f 4f 70 65 6e 52 |        |(#_OpenR|
|00000bf0| 65 73 46 69 6c 65 20 74 | 65 6d 70 66 69 6c 65 29 |esFile t|empfile)|
|00000c00| 29 29 29 0d 20 20 20 20 | 28 69 66 20 28 2f 3d 20 |))).    |(if (/= |
|00000c10| 74 65 6d 70 66 69 6c 65 | 20 2d 31 29 0d 20 20 20 |tempfile| -1).   |
|00000c20| 20 20 20 74 65 6d 70 66 | 69 6c 65 29 29 29 0d 0d |   tempf|ile)))..|
|00000c30| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c40| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c50| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c60| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c70| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c80| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 3b |;;;;;;;;|;;;;;;.;|
|00000c90| 3b 3b 20 67 65 74 2d 72 | 65 73 6f 75 72 63 65 2d |;; get-r|esource-|
|00000ca0| 68 61 6e 64 6c 65 0d 3b | 3b 3b 0d 3b 3b 3b 20 20 |handle.;|;;.;;;  |
|00000cb0| 47 69 76 65 6e 20 74 68 | 65 20 72 65 73 6f 75 72 |Given th|e resour|
|00000cc0| 63 65 20 74 79 70 65 20 | 61 6e 64 20 65 69 74 68 |ce type |and eith|
|00000cd0| 65 72 20 69 74 73 20 6e | 61 6d 65 20 6f 72 20 69 |er its n|ame or i|
|00000ce0| 64 2c 20 72 65 74 75 72 | 6e 73 20 69 74 73 20 68 |d, retur|ns its h|
|00000cf0| 61 6e 64 6c 65 2e 0d 3b | 3b 3b 20 20 49 66 20 61 |andle..;|;;  If a|
|00000d00| 20 72 65 73 6f 75 72 63 | 65 2d 66 69 6c 65 20 69 | resourc|e-file i|
|00000d10| 73 20 70 72 6f 76 69 64 | 65 64 2c 20 74 68 65 6e |s provid|ed, then|
|00000d20| 20 74 68 61 74 20 6f 6e | 65 20 77 69 6c 6c 20 62 | that on|e will b|
|00000d30| 65 20 75 73 65 64 2e 0d | 3b 3b 3b 0d 28 64 65 66 |e used..|;;;.(def|
|00000d40| 75 6e 20 67 65 74 2d 72 | 65 73 6f 75 72 63 65 2d |un get-r|esource-|
|00000d50| 68 61 6e 64 6c 65 20 28 | 74 79 70 65 20 6e 61 6d |handle (|type nam|
|00000d60| 65 2d 6f 72 2d 69 64 20 | 26 6f 70 74 69 6f 6e 61 |e-or-id |&optiona|
|00000d70| 6c 20 72 65 73 6f 75 72 | 63 65 2d 66 69 6c 65 20 |l resour|ce-file |
|00000d80| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000da0| 20 20 26 61 75 78 20 6f | 6c 64 2d 72 65 73 6f 75 |  &aux o|ld-resou|
|00000db0| 72 63 65 2d 66 69 6c 65 | 20 72 65 73 29 0d 20 20 |rce-file| res).  |
|00000dc0| 28 73 65 74 71 20 6f 6c | 64 2d 72 65 73 6f 75 72 |(setq ol|d-resour|
|00000dd0| 63 65 2d 66 69 6c 65 20 | 28 23 5f 43 75 72 52 65 |ce-file |(#_CurRe|
|00000de0| 73 46 69 6c 65 29 29 0d | 20 20 28 75 6e 77 69 6e |sFile)).|  (unwin|
|00000df0| 64 2d 70 72 6f 74 65 63 | 74 0d 20 20 20 20 28 70 |d-protec|t.    (p|
|00000e00| 72 6f 67 6e 0d 20 20 20 | 20 20 20 28 75 6e 6c 65 |rogn.   |   (unle|
|00000e10| 73 73 20 28 61 6e 64 20 | 28 73 74 72 69 6e 67 70 |ss (and |(stringp|
|00000e20| 20 74 79 70 65 29 20 28 | 3d 20 28 6c 65 6e 67 74 | type) (|= (lengt|
|00000e30| 68 20 74 79 70 65 29 20 | 34 29 29 0d 20 20 20 20 |h type) |4)).    |
|00000e40| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 59 50 45 |    (err|or "TYPE|
|00000e50| 20 53 48 4f 55 4c 44 20 | 42 45 20 41 20 53 54 52 | SHOULD |BE A STR|
|00000e60| 49 4e 47 20 4f 46 20 4c | 45 4e 47 54 48 20 34 2e |ING OF L|ENGTH 4.|
|00000e70| 22 29 29 0d 20 20 20 20 | 20 20 28 77 68 65 6e 20 |")).    |  (when |
|00000e80| 28 61 6e 64 20 72 65 73 | 6f 75 72 63 65 2d 66 69 |(and res|ource-fi|
|00000e90| 6c 65 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |le.     |        |
|00000ea0| 20 20 20 20 28 70 72 6f | 62 65 2d 66 69 6c 65 20 |    (pro|be-file |
|00000eb0| 72 65 73 6f 75 72 63 65 | 2d 66 69 6c 65 29 0d 20 |resource|-file). |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ed0| 28 73 65 74 71 20 72 65 | 73 6f 75 72 63 65 2d 66 |(setq re|source-f|
|00000ee0| 69 6c 65 20 28 6e 61 6d | 65 73 74 72 69 6e 67 20 |ile (nam|estring |
|00000ef0| 28 74 72 75 65 6e 61 6d | 65 20 72 65 73 6f 75 72 |(truenam|e resour|
|00000f00| 63 65 2d 66 69 6c 65 29 | 29 29 29 0d 20 20 20 20 |ce-file)|))).    |
|00000f10| 20 20 20 20 28 77 69 74 | 68 2d 70 73 74 72 73 20 |    (wit|h-pstrs |
|00000f20| 28 28 66 6e 20 72 65 73 | 6f 75 72 63 65 2d 66 69 |((fn res|ource-fi|
|00000f30| 6c 65 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 28 |le)).   |       (|
|00000f40| 73 65 74 71 20 72 65 73 | 6f 75 72 63 65 2d 66 69 |setq res|ource-fi|
|00000f50| 6c 65 20 28 23 5f 4f 70 | 65 6e 52 65 73 46 69 6c |le (#_Op|enResFil|
|00000f60| 65 20 66 6e 29 29 29 0d | 20 20 20 20 20 20 20 20 |e fn))).|        |
|00000f70| 28 23 5f 55 73 65 52 65 | 73 46 69 6c 65 20 72 65 |(#_UseRe|sFile re|
|00000f80| 73 6f 75 72 63 65 2d 66 | 69 6c 65 29 29 0d 20 20 |source-f|ile)).  |
|00000f90| 20 20 20 20 28 63 61 73 | 65 20 28 72 65 61 64 2d |    (cas|e (read-|
|00000fa0| 66 72 6f 6d 2d 73 74 72 | 69 6e 67 20 74 79 70 65 |from-str|ing type|
|00000fb0| 29 0d 20 20 20 20 20 20 | 20 20 28 63 69 63 6e 20 |).      |  (cicn |
|00000fc0| 28 73 65 74 71 20 72 65 | 73 20 28 23 5f 47 65 74 |(setq re|s (#_Get|
|00000fd0| 43 49 63 6f 6e 20 6e 61 | 6d 65 2d 6f 72 2d 69 64 |CIcon na|me-or-id|
|00000fe0| 29 29 29 20 20 3b 6e 61 | 6d 65 2d 6f 72 2d 69 64 |)))  ;na|me-or-id|
|00000ff0| 20 6d 75 73 74 20 62 65 | 20 49 44 0d 20 20 20 20 | must be| ID.    |
|00001000| 20 20 20 20 28 49 43 4f | 4e 20 28 73 65 74 71 20 |    (ICO|N (setq |
|00001010| 72 65 73 20 28 23 5f 47 | 65 74 49 63 6f 6e 20 20 |res (#_G|etIcon  |
|00001020| 6e 61 6d 65 2d 6f 72 2d | 69 64 29 29 29 20 20 3b |name-or-|id)))  ;|
|00001030| 6e 61 6d 65 2d 6f 72 2d | 69 64 20 6d 75 73 74 20 |name-or-|id must |
|00001040| 62 65 20 49 44 0d 20 20 | 20 20 20 20 20 20 28 4f |be ID.  |      (O|
|00001050| 54 48 45 52 57 49 53 45 | 0d 20 20 20 20 20 20 20 |THERWISE|.       |
|00001060| 20 20 28 63 6f 6e 64 20 | 28 28 73 74 72 69 6e 67 |  (cond |((string|
|00001070| 70 20 6e 61 6d 65 2d 6f | 72 2d 69 64 29 0d 20 20 |p name-o|r-id).  |
|00001080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 77 |        |      (w|
|00001090| 69 74 68 2d 70 73 74 72 | 73 20 28 28 6e 61 6d 65 |ith-pstr|s ((name|
|000010a0| 20 6e 61 6d 65 2d 6f 72 | 2d 69 64 29 29 0d 20 20 | name-or|-id)).  |
|000010b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010c0| 28 73 65 74 71 20 72 65 | 73 20 28 23 5f 47 65 74 |(setq re|s (#_Get|
|000010d0| 4e 61 6d 65 64 52 65 73 | 6f 75 72 63 65 20 74 79 |NamedRes|ource ty|
|000010e0| 70 65 20 6e 61 6d 65 29 | 29 29 29 0d 20 20 20 20 |pe name)|))).    |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 69 6e 74 |        |   ((int|
|00001100| 65 67 65 72 70 20 6e 61 | 6d 65 2d 6f 72 2d 69 64 |egerp na|me-or-id|
|00001110| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001120| 20 20 28 73 65 74 71 20 | 72 65 73 20 28 23 5f 47 |  (setq |res (#_G|
|00001130| 65 74 52 65 73 6f 75 72 | 63 65 20 74 79 70 65 20 |etResour|ce type |
|00001140| 6e 61 6d 65 2d 6f 72 2d | 69 64 29 29 29 0d 20 20 |name-or-|id))).  |
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 74 0d |        |     (t.|
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001170| 28 65 72 72 6f 72 20 22 | 41 20 52 45 53 4f 55 52 |(error "|A RESOUR|
|00001180| 43 45 20 4e 41 4d 45 20 | 4f 52 20 49 44 20 53 48 |CE NAME |OR ID SH|
|00001190| 4f 55 4c 44 20 48 41 56 | 45 20 42 45 45 4e 20 50 |OULD HAV|E BEEN P|
|000011a0| 52 4f 56 49 44 45 44 2e | 22 29 29 29 29 29 29 0d |ROVIDED.|")))))).|
|000011b0| 20 20 20 20 28 23 5f 55 | 73 65 52 65 73 46 69 6c |    (#_U|seResFil|
|000011c0| 65 20 6f 6c 64 2d 72 65 | 73 6f 75 72 63 65 2d 66 |e old-re|source-f|
|000011d0| 69 6c 65 29 0d 20 20 20 | 20 72 65 73 29 29 0d 0d |ile).   | res))..|
|000011e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000011f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001200| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001210| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001220| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001230| 3b 3b 3b 3b 3b 0d 3b 3b | 3b 20 73 75 62 63 6c 61 |;;;;;.;;|; subcla|
|00001240| 73 73 2d 6f 66 0d 3b 3b | 3b 0d 3b 3b 3b 20 20 20 |ss-of.;;|;.;;;   |
|00001250| 49 73 20 63 6c 61 73 73 | 20 41 20 61 20 73 75 62 |Is class| A a sub|
|00001260| 63 6c 61 73 73 20 6f 66 | 20 42 3f 0d 3b 3b 3b 0d |class of| B?.;;;.|
|00001270| 28 64 65 66 75 6e 20 73 | 75 62 63 6c 61 73 73 2d |(defun s|ubclass-|
|00001280| 6f 66 20 28 41 20 42 29 | 0d 20 20 28 61 6e 64 20 |of (A B)|.  (and |
|00001290| 28 73 79 6d 62 6f 6c 70 | 20 41 29 0d 20 20 20 20 |(symbolp| A).    |
|000012a0| 20 20 20 28 73 79 6d 62 | 6f 6c 70 20 42 29 0d 20 |   (symb|olp B). |
|000012b0| 20 20 20 20 20 20 28 6d | 65 6d 71 20 28 66 69 6e |      (m|emq (fin|
|000012c0| 64 2d 63 6c 61 73 73 20 | 41 29 0d 20 20 20 20 20 |d-class |A).     |
|000012d0| 20 20 20 20 20 20 20 20 | 28 63 6c 61 73 73 2d 70 |        |(class-p|
|000012e0| 72 65 63 65 64 65 6e 63 | 65 2d 6c 69 73 74 20 28 |recedenc|e-list (|
|000012f0| 66 69 6e 64 2d 63 6c 61 | 73 73 20 42 29 29 29 0d |find-cla|ss B))).|
|00001300| 20 20 20 20 20 20 20 54 | 29 29 0d 0d 3b 3b 3b 3b |       T|))..;;;;|
|00001310| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001320| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001330| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001340| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001350| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 3b 3b 3b 20 73 65 |;;;;;;;;|;.;;; se|
|00001360| 6c 65 63 74 2d 72 65 63 | 74 61 6e 67 6c 65 20 5b |lect-rec|tangle [|
|00001370| 77 69 6e 64 6f 77 5d 0d | 3b 3b 3b 0d 3b 3b 3b 20 |window].|;;;.;;; |
|00001380| 20 20 54 68 69 73 20 61 | 6c 6c 6f 77 73 20 74 68 |  This a|llows th|
|00001390| 65 20 75 73 65 72 20 74 | 6f 20 64 72 61 67 20 61 |e user t|o drag a|
|000013a0| 20 67 72 61 79 20 72 65 | 63 74 61 6e 67 6c 65 20 | gray re|ctangle |
|000013b0| 6f 6e 20 61 20 77 69 6e | 64 6f 77 0d 3b 3b 3b 20 |on a win|dow.;;; |
|000013c0| 20 20 52 65 74 75 72 6e | 73 20 74 68 65 20 74 6f |  Return|s the to|
|000013d0| 70 6c 65 66 74 20 61 6e | 64 20 62 6f 74 74 6f 6d |pleft an|d bottom|
|000013e0| 72 69 67 68 74 20 6f 66 | 20 74 68 65 20 73 65 6c |right of| the sel|
|000013f0| 65 63 74 65 64 20 72 65 | 63 74 61 6e 67 6c 65 2e |ected re|ctangle.|
|00001400| 0d 3b 3b 3b 0d 28 64 65 | 66 6d 65 74 68 6f 64 20 |.;;;.(de|fmethod |
|00001410| 73 65 6c 65 63 74 2d 72 | 65 63 74 61 6e 67 6c 65 |select-r|ectangle|
|00001420| 20 28 28 77 69 6e 64 6f | 77 20 77 69 6e 64 6f 77 | ((windo|w window|
|00001430| 29 29 0d 20 20 28 6c 65 | 74 2a 20 28 28 61 6e 63 |)).  (le|t* ((anc|
|00001440| 68 6f 72 2d 70 6f 69 6e | 74 20 28 76 69 65 77 2d |hor-poin|t (view-|
|00001450| 6d 6f 75 73 65 2d 70 6f | 73 69 74 69 6f 6e 20 77 |mouse-po|sition w|
|00001460| 69 6e 64 6f 77 29 29 0d | 20 20 20 20 20 20 20 20 |indow)).|        |
|00001470| 20 28 6f 6c 64 2d 6d 6f | 75 73 65 20 61 6e 63 68 | (old-mo|use anch|
|00001480| 6f 72 2d 70 6f 69 6e 74 | 29 0d 20 20 20 20 20 20 |or-point|).      |
|00001490| 20 20 20 28 6e 65 77 2d | 6d 6f 75 73 65 20 6f 6c |   (new-|mouse ol|
|000014a0| 64 2d 6d 6f 75 73 65 29 | 0d 20 20 20 20 20 20 20 |d-mouse)|.       |
|000014b0| 20 20 28 70 6f 72 74 20 | 28 77 70 74 72 20 77 69 |  (port |(wptr wi|
|000014c0| 6e 64 6f 77 29 29 29 0d | 20 20 20 20 28 72 6c 65 |ndow))).|    (rle|
|000014d0| 74 20 28 28 72 20 3a 72 | 65 63 74 29 0d 20 20 20 |t ((r :r|ect).   |
|000014e0| 20 20 20 20 20 20 20 20 | 28 6f 6c 64 2d 70 65 6e |        |(old-pen|
|000014f0| 2d 73 74 61 74 65 20 3a | 70 65 6e 73 74 61 74 65 |-state :|penstate|
|00001500| 29 29 0d 20 20 20 20 20 | 20 28 77 69 74 68 2d 70 |)).     | (with-p|
|00001510| 6f 72 74 20 70 6f 72 74 | 0d 20 20 20 20 20 20 20 |ort port|.       |
|00001520| 20 28 23 5f 47 65 74 50 | 65 6e 53 74 61 74 65 20 | (#_GetP|enState |
|00001530| 6f 6c 64 2d 70 65 6e 2d | 73 74 61 74 65 29 0d 20 |old-pen-|state). |
|00001540| 20 20 20 20 20 20 20 28 | 23 5f 50 65 6e 4d 6f 64 |       (|#_PenMod|
|00001550| 65 20 28 70 6f 73 69 74 | 69 6f 6e 20 3a 50 61 74 |e (posit|ion :Pat|
|00001560| 58 4f 72 20 2a 70 65 6e | 2d 6d 6f 64 65 73 2a 29 |XOr *pen|-modes*)|
|00001570| 29 0d 20 20 20 20 20 20 | 20 20 3b 20 28 72 73 65 |).      |  ; (rse|
|00001580| 74 20 70 6f 72 74 20 77 | 69 6e 64 6f 77 2e 70 6e |t port w|indow.pn|
|00001590| 50 61 74 20 2a 67 72 61 | 79 2d 70 61 74 74 65 72 |Pat *gra|y-patter|
|000015a0| 6e 2a 29 0d 20 20 20 20 | 20 20 20 20 28 23 5f 50 |n*).    |    (#_P|
|000015b0| 74 32 52 65 63 74 20 3a | 6c 6f 6e 67 20 61 6e 63 |t2Rect :|long anc|
|000015c0| 68 6f 72 2d 70 6f 69 6e | 74 20 3a 6c 6f 6e 67 20 |hor-poin|t :long |
|000015d0| 6e 65 77 2d 6d 6f 75 73 | 65 20 3a 70 74 72 20 72 |new-mous|e :ptr r|
|000015e0| 29 0d 20 20 20 20 20 20 | 20 20 28 23 5f 46 72 61 |).      |  (#_Fra|
|000015f0| 6d 65 52 65 63 74 20 72 | 29 0d 20 20 20 20 20 20 |meRect r|).      |
|00001600| 20 20 28 6c 6f 6f 70 0d | 20 20 20 20 20 20 20 20 |  (loop.|        |
|00001610| 20 20 28 75 6e 6c 65 73 | 73 20 28 6d 6f 75 73 65 |  (unles|s (mouse|
|00001620| 2d 64 6f 77 6e 2d 70 29 | 20 28 72 65 74 75 72 6e |-down-p)| (return|
|00001630| 29 29 20 20 20 20 20 3b | 72 65 74 75 72 6e 20 77 |))     ;|return w|
|00001640| 68 65 6e 20 74 68 65 20 | 6d 6f 75 73 65 20 6c 65 |hen the |mouse le|
|00001650| 74 73 20 75 70 0d 20 20 | 20 20 20 20 20 20 20 20 |ts up.  |        |
|00001660| 28 75 6e 6c 65 73 73 20 | 28 65 71 20 6f 6c 64 2d |(unless |(eq old-|
|00001670| 6d 6f 75 73 65 20 6e 65 | 77 2d 6d 6f 75 73 65 29 |mouse ne|w-mouse)|
|00001680| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |.       |     (#_|
|00001690| 46 72 61 6d 65 52 65 63 | 74 20 72 29 0d 20 20 20 |FrameRec|t r).   |
|000016a0| 20 20 20 20 20 20 20 20 | 20 28 23 5f 50 74 32 52 |        | (#_Pt2R|
|000016b0| 65 63 74 20 3a 6c 6f 6e | 67 20 61 6e 63 68 6f 72 |ect :lon|g anchor|
|000016c0| 2d 70 6f 69 6e 74 20 3a | 6c 6f 6e 67 20 6e 65 77 |-point :|long new|
|000016d0| 2d 6d 6f 75 73 65 20 3a | 70 74 72 20 72 29 0d 20 |-mouse :|ptr r). |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 28 23 5f 46 72 |        |   (#_Fr|
|000016f0| 61 6d 65 52 65 63 74 20 | 72 29 0d 20 20 20 20 20 |ameRect |r).     |
|00001700| 20 20 20 20 20 20 20 28 | 73 6c 65 65 70 20 31 2f |       (|sleep 1/|
|00001710| 36 30 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |60).    |        |
|00001720| 28 73 65 74 71 20 6f 6c | 64 2d 6d 6f 75 73 65 20 |(setq ol|d-mouse |
|00001730| 6e 65 77 2d 6d 6f 75 73 | 65 29 29 0d 20 20 20 20 |new-mous|e)).    |
|00001740| 20 20 20 20 20 20 28 73 | 65 74 71 20 6e 65 77 2d |      (s|etq new-|
|00001750| 6d 6f 75 73 65 20 28 76 | 69 65 77 2d 6d 6f 75 73 |mouse (v|iew-mous|
|00001760| 65 2d 70 6f 73 69 74 69 | 6f 6e 20 77 69 6e 64 6f |e-positi|on windo|
|00001770| 77 29 29 29 0d 20 20 20 | 20 20 20 20 20 28 23 5f |w))).   |     (#_|
|00001780| 46 72 61 6d 65 52 65 63 | 74 20 72 29 0d 20 20 20 |FrameRec|t r).   |
|00001790| 20 20 20 20 20 28 23 5f | 53 65 74 50 65 6e 53 74 |     (#_|SetPenSt|
|000017a0| 61 74 65 20 6f 6c 64 2d | 70 65 6e 2d 73 74 61 74 |ate old-|pen-stat|
|000017b0| 65 29 0d 20 20 20 20 20 | 20 20 20 28 76 61 6c 75 |e).     |   (valu|
|000017c0| 65 73 20 28 72 72 65 66 | 20 72 20 72 65 63 74 2e |es (rref| r rect.|
|000017d0| 74 6f 70 6c 65 66 74 29 | 0d 20 20 20 20 20 20 20 |topleft)|.       |
|000017e0| 20 20 20 20 20 20 20 20 | 20 28 72 72 65 66 20 72 |        | (rref r|
|000017f0| 20 72 65 63 74 2e 62 6f | 74 74 6f 6d 72 69 67 68 | rect.bo|ttomrigh|
|00001800| 74 29 29 29 29 29 29 0d | 0d 3b 3b 3b 3b 3b 3b 3b |t)))))).|.;;;;;;;|
|00001810| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001820| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001830| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001840| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001850| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001860| 3b 3b 0d 3b 3b 3b 20 64 | 65 73 6b 74 6f 70 2d 72 |;;.;;; d|esktop-r|
|00001870| 65 63 74 0d 3b 3b 3b 0d | 3b 3b 3b 20 20 20 52 65 |ect.;;;.|;;;   Re|
|00001880| 74 75 72 6e 73 20 74 68 | 65 20 64 65 73 6b 74 6f |turns th|e deskto|
|00001890| 70 20 72 65 63 74 61 6e | 67 6c 65 2e 0d 3b 3b 3b |p rectan|gle..;;;|
|000018a0| 20 20 20 4f 62 76 69 6f | 75 73 6c 79 20 6e 6f 74 |   Obvio|usly not|
|000018b0| 20 73 6f 6d 65 74 68 69 | 6e 67 20 77 68 6f 73 65 | somethi|ng whose|
|000018c0| 20 76 61 6c 75 65 20 79 | 6f 75 20 73 68 6f 75 6c | value y|ou shoul|
|000018d0| 64 20 61 6c 74 65 72 2e | 0d 3b 3b 3b 0d 28 64 65 |d alter.|.;;;.(de|
|000018e0| 66 75 6e 20 64 65 73 6b | 74 6f 70 2d 72 65 63 74 |fun desk|top-rect|
|000018f0| 20 28 29 0d 20 20 28 70 | 72 65 66 20 28 23 5f 47 | ().  (p|ref (#_G|
|00001900| 65 74 47 72 61 79 52 67 | 6e 29 20 3a 72 65 67 69 |etGrayRg|n) :regi|
|00001910| 6f 6e 2e 72 67 6e 62 62 | 6f 78 29 29 0d 0d 3b 3b |on.rgnbb|ox))..;;|
|00001920| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001930| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001940| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001950| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001960| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001970| 3b 3b 3b 3b 3b 3b 3b 0d | 3b 3b 3b 20 64 72 61 67 |;;;;;;;.|;;; drag|
|00001980| 2d 69 6e 76 65 72 74 65 | 64 2d 72 65 67 69 6f 6e |-inverte|d-region|
|00001990| 0d 3b 3b 3b 0d 3b 3b 3b | 20 20 20 57 69 6c 6c 20 |.;;;.;;;|   Will |
|000019a0| 70 72 6f 64 75 63 65 20 | 61 6e 20 69 6e 76 65 72 |produce |an inver|
|000019b0| 74 65 64 20 72 65 67 69 | 6f 6e 20 77 68 69 63 68 |ted regi|on which|
|000019c0| 20 6d 61 79 20 62 65 20 | 64 72 61 67 67 65 64 20 | may be |dragged |
|000019d0| 77 69 74 68 20 74 68 65 | 20 6d 6f 75 73 65 2e 0d |with the| mouse..|
|000019e0| 3b 3b 3b 20 20 20 52 65 | 74 75 72 6e 73 20 74 68 |;;;   Re|turns th|
|000019f0| 65 20 6f 66 66 73 65 74 | 20 6f 66 20 74 68 65 20 |e offset| of the |
|00001a00| 64 72 61 67 20 66 72 6f | 6d 20 74 68 65 20 73 74 |drag fro|m the st|
|00001a10| 61 72 74 69 6e 67 20 70 | 6f 73 69 74 69 6f 6e 2e |arting p|osition.|
|00001a20| 0d 3b 3b 3b 0d 28 64 65 | 66 6d 65 74 68 6f 64 20 |.;;;.(de|fmethod |
|00001a30| 64 72 61 67 2d 69 6e 76 | 65 72 74 65 64 2d 72 65 |drag-inv|erted-re|
|00001a40| 67 69 6f 6e 20 28 28 77 | 69 6e 64 6f 77 20 77 69 |gion ((w|indow wi|
|00001a50| 6e 64 6f 77 29 20 72 65 | 67 69 6f 6e 20 26 6b 65 |ndow) re|gion &ke|
|00001a60| 79 20 28 73 74 61 72 74 | 20 30 29 29 0d 20 20 28 |y (start| 0)).  (|
|00001a70| 6c 65 74 2a 20 28 28 77 | 4f 66 66 73 65 74 20 28 |let* ((w|Offset (|
|00001a80| 76 69 65 77 2d 70 6f 73 | 69 74 69 6f 6e 20 77 69 |view-pos|ition wi|
|00001a90| 6e 64 6f 77 29 29 20 20 | 20 20 20 3b 20 53 63 72 |ndow))  |   ; Scr|
|00001aa0| 65 65 6e 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 20 |een coor|dinates |
|00001ab0| 6f 66 20 77 69 6e 64 6f | 77 0d 20 20 20 20 20 20 |of windo|w.      |
|00001ac0| 20 20 20 28 77 68 65 72 | 65 20 28 61 64 64 2d 70 |   (wher|e (add-p|
|00001ad0| 6f 69 6e 74 73 20 73 74 | 61 72 74 20 77 4f 66 66 |oints st|art wOff|
|00001ae0| 73 65 74 29 29 20 20 20 | 3b 20 53 63 72 65 65 6e |set))   |; Screen|
|00001af0| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 20 6f 66 20 | coordin|ates of |
|00001b00| 73 74 61 72 74 20 70 6f | 73 69 74 69 6f 6e 0d 20 |start po|sition. |
|00001b10| 20 20 20 20 20 20 20 20 | 28 6f 70 20 77 68 65 72 |        |(op wher|
|00001b20| 65 29 0d 20 20 20 20 20 | 20 20 20 20 28 6d 6f 75 |e).     |    (mou|
|00001b30| 73 65 2d 72 65 63 74 20 | 28 6d 61 6b 65 2d 72 65 |se-rect |(make-re|
|00001b40| 63 6f 72 64 20 3a 72 65 | 63 74 29 29 20 20 20 20 |cord :re|ct))    |
|00001b50| 20 3b 20 52 65 63 74 61 | 6e 67 6c 65 20 66 6f 72 | ; Recta|ngle for|
|00001b60| 20 6d 6f 75 73 65 20 70 | 6f 73 69 74 69 6f 6e 0d | mouse p|osition.|
|00001b70| 20 20 20 20 20 20 20 20 | 20 28 6e 72 65 67 69 6f |        | (nregio|
|00001b80| 6e 20 28 6e 65 77 2d 72 | 65 67 69 6f 6e 29 29 0d |n (new-r|egion)).|
|00001b90| 20 20 20 20 20 20 20 20 | 20 28 6f 72 65 67 69 6f |        | (oregio|
|00001ba0| 6e 20 28 6e 65 77 2d 72 | 65 67 69 6f 6e 29 29 0d |n (new-r|egion)).|
|00001bb0| 20 20 20 20 20 20 20 20 | 20 28 73 72 65 67 69 6f |        | (sregio|
|00001bc0| 6e 20 28 6e 65 77 2d 72 | 65 67 69 6f 6e 29 29 0d |n (new-r|egion)).|
|00001bd0| 20 20 20 20 20 20 20 20 | 20 28 77 69 64 65 4f 70 |        | (wideOp|
|00001be0| 65 6e 20 28 6d 61 6b 65 | 2d 72 65 63 6f 72 64 20 |en (make|-record |
|00001bf0| 3a 72 65 63 74 29 29 20 | 20 20 20 20 20 20 3b 20 |:rect)) |      ; |
|00001c00| 43 6c 69 70 20 74 6f 20 | 72 65 63 74 61 6e 67 6c |Clip to |rectangl|
|00001c10| 65 20 28 77 69 6c 6c 20 | 62 65 20 64 65 73 6b 74 |e (will |be deskt|
|00001c20| 6f 70 29 0d 20 20 20 20 | 20 20 20 20 20 28 6f 6c |op).    |     (ol|
|00001c30| 64 2d 70 6f 69 6e 74 20 | 77 68 65 72 65 29 0d 20 |d-point |where). |
|00001c40| 20 20 20 20 20 20 20 20 | 28 64 72 61 67 43 65 6e |        |(dragCen|
|00001c50| 74 65 72 20 30 29 20 20 | 20 20 20 20 20 20 20 20 |ter 0)  |        |
|00001c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 6e |        |     ; n|
|00001c70| 65 65 64 73 20 74 6f 20 | 62 65 20 73 65 74 20 74 |eeds to |be set t|
|00001c80| 6f 20 73 6f 6d 65 74 68 | 69 6e 67 20 2a 2a 2a 0d |o someth|ing ***.|
|00001c90| 20 20 20 20 20 20 20 20 | 20 73 68 69 66 74 29 0d |        | shift).|
|00001ca0| 20 20 20 20 3b 3b 20 55 | 73 65 20 64 65 73 6b 74 |    ;; U|se deskt|
|00001cb0| 6f 70 20 72 65 63 74 61 | 6e 67 6c 65 20 61 73 20 |op recta|ngle as |
|00001cc0| 74 68 65 20 6f 6e 65 20 | 74 6f 20 63 6c 69 70 20 |the one |to clip |
|00001cd0| 74 6f 3a 0d 20 20 20 20 | 28 63 6f 70 79 2d 72 65 |to:.    |(copy-re|
|00001ce0| 63 6f 72 64 20 28 64 65 | 73 6b 74 6f 70 2d 72 65 |cord (de|sktop-re|
|00001cf0| 63 74 29 20 3a 72 65 63 | 74 20 77 69 64 65 4f 70 |ct) :rec|t wideOp|
|00001d00| 65 6e 29 0d 20 20 20 20 | 28 75 6e 77 69 6e 64 2d |en).    |(unwind-|
|00001d10| 70 72 6f 74 65 63 74 0d | 20 20 20 20 20 20 28 70 |protect.|      (p|
|00001d20| 72 6f 67 6e 0d 20 20 20 | 20 20 20 20 20 28 6f 66 |rogn.   |     (of|
|00001d30| 66 73 65 74 2d 72 65 67 | 69 6f 6e 20 72 65 67 69 |fset-reg|ion regi|
|00001d40| 6f 6e 20 77 4f 66 66 73 | 65 74 29 0d 20 20 20 20 |on wOffs|et).    |
|00001d50| 20 20 20 20 28 77 69 74 | 68 2d 70 6f 72 74 20 28 |    (wit|h-port (|
|00001d60| 67 65 74 2d 77 6d 67 72 | 2d 70 6f 72 74 29 0d 20 |get-wmgr|-port). |
|00001d70| 20 20 20 20 20 20 20 20 | 20 28 77 69 74 68 2d 63 |        | (with-c|
|00001d80| 6c 69 70 2d 72 65 63 74 | 20 77 69 64 65 4f 70 65 |lip-rect| wideOpe|
|00001d90| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 28 23 |n.      |      (#|
|00001da0| 5f 50 65 6e 4d 6f 64 65 | 20 28 70 6f 73 69 74 69 |_PenMode| (positi|
|00001db0| 6f 6e 20 3a 50 61 74 58 | 4f 72 20 2a 70 65 6e 2d |on :PatX|Or *pen-|
|00001dc0| 6d 6f 64 65 73 2a 29 29 | 0d 20 20 20 20 20 20 20 |modes*))|.       |
|00001dd0| 20 20 20 20 20 28 23 5f | 43 6f 70 79 52 67 6e 20 |     (#_|CopyRgn |
|00001de0| 3a 70 74 72 20 72 65 67 | 69 6f 6e 20 20 3a 70 74 |:ptr reg|ion  :pt|
|00001df0| 72 20 6e 72 65 67 69 6f | 6e 29 0d 20 20 20 20 20 |r nregio|n).     |
|00001e00| 20 20 20 20 20 20 20 28 | 23 5f 43 6f 70 79 52 67 |       (|#_CopyRg|
|00001e10| 6e 20 3a 70 74 72 20 6e | 72 65 67 69 6f 6e 20 3a |n :ptr n|region :|
|00001e20| 70 74 72 20 6f 72 65 67 | 69 6f 6e 29 0d 20 20 20 |ptr oreg|ion).   |
|00001e30| 20 20 20 20 20 20 20 20 | 20 28 23 5f 49 6e 76 65 |        | (#_Inve|
|00001e40| 72 74 52 67 6e 20 3a 70 | 74 72 20 6f 72 65 67 69 |rtRgn :p|tr oregi|
|00001e50| 6f 6e 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |on).    |        |
|00001e60| 28 64 6f 20 28 28 77 68 | 65 72 65 20 77 68 65 72 |(do ((wh|ere wher|
|00001e70| 65 20 28 70 72 6f 67 6e | 20 28 23 5f 47 65 74 4d |e (progn| (#_GetM|
|00001e80| 6f 75 73 65 20 3a 70 74 | 72 20 6d 6f 75 73 65 2d |ouse :pt|r mouse-|
|00001e90| 72 65 63 74 29 0d 20 20 | 20 20 20 20 20 20 20 20 |rect).  |        |
|00001ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001eb0| 20 20 20 20 20 20 20 20 | 20 20 20 28 25 67 65 74 |        |   (%get|
|00001ec0| 2d 6c 6f 6e 67 20 6d 6f | 75 73 65 2d 72 65 63 74 |-long mo|use-rect|
|00001ed0| 29 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |)))).   |        |
|00001ee0| 20 20 20 20 20 28 28 6e | 6f 74 20 28 6d 6f 75 73 |     ((n|ot (mous|
|00001ef0| 65 2d 64 6f 77 6e 2d 70 | 29 29 20 20 20 20 20 20 |e-down-p|))      |
|00001f00| 20 20 3b 20 48 61 73 20 | 6d 6f 75 73 65 20 62 65 |  ; Has |mouse be|
|00001f10| 65 6e 20 72 65 6c 65 61 | 73 65 64 3f 0d 20 20 20 |en relea|sed?.   |
|00001f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 73 |        |      (s|
|00001f30| 65 74 71 20 6f 6c 64 2d | 70 6f 69 6e 74 20 77 68 |etq old-|point wh|
|00001f40| 65 72 65 29 29 20 20 20 | 20 20 3b 20 59 65 73 3a |ere))   |  ; Yes:|
|00001f50| 20 72 65 74 75 72 6e 20 | 77 68 65 72 65 20 77 65 | return |where we|
|00001f60| 20 61 72 65 20 61 6e 64 | 20 71 75 69 74 20 44 4f | are and| quit DO|
|00001f70| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |.       |       (|
|00001f80| 63 6f 6e 64 20 28 28 65 | 71 20 6f 6c 64 2d 70 6f |cond ((e|q old-po|
|00001f90| 69 6e 74 20 77 68 65 72 | 65 29 29 20 20 20 3b 20 |int wher|e))   ; |
|00001fa0| 44 6f 20 6e 6f 74 68 69 | 6e 67 20 69 66 20 6d 6f |Do nothi|ng if mo|
|00001fb0| 75 73 65 20 68 61 73 20 | 6e 6f 74 20 6d 6f 76 65 |use has |not move|
|00001fc0| 64 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d.      |        |
|00001fd0| 20 20 20 20 20 20 28 54 | 20 20 20 20 20 20 20 20 |      (T|        |
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00001ff0| 20 4d 6f 75 73 65 20 68 | 61 73 20 6d 6f 76 65 64 | Mouse h|as moved|
|00002000| 21 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |!.      |        |
|00002010| 20 20 20 20 20 20 20 28 | 23 5f 43 6f 70 79 52 67 |       (|#_CopyRg|
|00002020| 6e 20 3a 70 74 72 20 6f | 72 65 67 69 6f 6e 20 3a |n :ptr o|region :|
|00002030| 70 74 72 20 6e 72 65 67 | 69 6f 6e 29 0d 20 20 20 |ptr nreg|ion).   |
|00002040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002050| 20 20 28 73 65 74 71 20 | 73 68 69 66 74 20 28 73 |  (setq |shift (s|
|00002060| 75 62 74 72 61 63 74 2d | 70 6f 69 6e 74 73 20 77 |ubtract-|points w|
|00002070| 68 65 72 65 20 6f 6c 64 | 2d 70 6f 69 6e 74 29 29 |here old|-point))|
|00002080| 20 3b 3b 20 66 69 67 75 | 72 65 20 68 6f 77 20 66 | ;; figu|re how f|
|00002090| 61 72 20 77 65 20 6d 6f | 76 65 64 0d 20 20 20 20 |ar we mo|ved.    |
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020b0| 20 28 23 5f 4f 66 66 73 | 65 74 52 67 6e 20 3a 70 | (#_Offs|etRgn :p|
|000020c0| 74 72 20 72 65 67 69 6f | 6e 20 3a 6c 6f 6e 67 20 |tr regio|n :long |
|000020d0| 73 68 69 66 74 29 20 20 | 3b 3b 20 6f 66 66 73 65 |shift)  |;; offse|
|000020e0| 74 20 74 68 65 20 72 65 | 67 69 6f 6e 0d 20 20 20 |t the re|gion.   |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002100| 20 20 28 73 65 74 71 20 | 64 72 61 67 43 65 6e 74 |  (setq |dragCent|
|00002110| 65 72 20 28 61 64 64 2d | 70 6f 69 6e 74 73 20 73 |er (add-|points s|
|00002120| 68 69 66 74 20 64 72 61 | 67 43 65 6e 74 65 72 29 |hift dra|gCenter)|
|00002130| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00002140| 20 20 20 20 20 20 20 28 | 23 5f 43 6f 70 79 52 67 |       (|#_CopyRg|
|00002150| 6e 20 3a 70 74 72 20 72 | 65 67 69 6f 6e 20 3a 70 |n :ptr r|egion :p|
|00002160| 74 72 20 6f 72 65 67 69 | 6f 6e 29 0d 20 20 20 20 |tr oregi|on).    |
|00002170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002180| 20 28 23 5f 58 4f 72 52 | 67 6e 20 3a 70 74 72 20 | (#_XOrR|gn :ptr |
|00002190| 6f 72 65 67 69 6f 6e 20 | 3a 70 74 72 20 6e 72 65 |oregion |:ptr nre|
|000021a0| 67 69 6f 6e 20 3a 70 74 | 72 20 6e 72 65 67 69 6f |gion :pt|r nregio|
|000021b0| 6e 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n).     |        |
|000021c0| 20 20 20 20 20 20 20 20 | 28 23 5f 49 6e 76 65 72 |        |(#_Inver|
|000021d0| 74 52 67 6e 20 3a 70 74 | 72 20 6e 72 65 67 69 6f |tRgn :pt|r nregio|
|000021e0| 6e 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n).     |        |
|000021f0| 20 20 20 20 20 20 20 20 | 28 73 65 74 71 20 6f 6c |        |(setq ol|
|00002200| 64 2d 70 6f 69 6e 74 20 | 77 68 65 72 65 29 29 29 |d-point |where)))|
|00002210| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 28 23 |).      |      (#|
|00002220| 5f 50 65 6e 4d 6f 64 65 | 20 28 70 6f 73 69 74 69 |_PenMode| (positi|
|00002230| 6f 6e 20 3a 70 61 74 43 | 6f 70 79 20 2a 70 65 6e |on :patC|opy *pen|
|00002240| 2d 6d 6f 64 65 73 2a 29 | 29 0d 20 20 20 20 20 20 |-modes*)|).      |
|00002250| 20 20 20 20 20 20 28 23 | 5f 49 6e 76 65 72 74 52 |      (#|_InvertR|
|00002260| 67 6e 20 3a 70 74 72 20 | 6f 72 65 67 69 6f 6e 29 |gn :ptr |oregion)|
|00002270| 29 29 29 0d 20 20 20 20 | 20 20 28 64 69 73 70 6f |))).    |  (dispo|
|00002280| 73 65 2d 72 65 63 6f 72 | 64 20 6d 6f 75 73 65 2d |se-recor|d mouse-|
|00002290| 72 65 63 74 20 3a 72 65 | 63 74 29 0d 20 20 20 20 |rect :re|ct).    |
|000022a0| 20 20 28 64 69 73 70 6f | 73 65 2d 72 65 63 6f 72 |  (dispo|se-recor|
|000022b0| 64 20 77 69 64 65 4f 70 | 65 6e 20 3a 72 65 63 74 |d wideOp|en :rect|
|000022c0| 29 0d 20 20 20 20 20 20 | 28 64 69 73 70 6f 73 65 |).      |(dispose|
|000022d0| 2d 72 65 67 69 6f 6e 20 | 6e 72 65 67 69 6f 6e 29 |-region |nregion)|
|000022e0| 0d 20 20 20 20 20 20 28 | 64 69 73 70 6f 73 65 2d |.      (|dispose-|
|000022f0| 72 65 67 69 6f 6e 20 6f | 72 65 67 69 6f 6e 29 0d |region o|region).|
|00002300| 20 20 20 20 20 20 28 64 | 69 73 70 6f 73 65 2d 72 |      (d|ispose-r|
|00002310| 65 67 69 6f 6e 20 73 72 | 65 67 69 6f 6e 29 29 0d |egion sr|egion)).|
|00002320| 20 20 20 20 28 73 75 62 | 74 72 61 63 74 2d 70 6f |    (sub|tract-po|
|00002330| 69 6e 74 73 20 6f 6c 64 | 2d 70 6f 69 6e 74 20 6f |ints old|-point o|
|00002340| 70 29 29 29 0d 0d 3b 65 | 6e 64 20 6f 66 20 66 69 |p)))..;e|nd of fi|
|00002350| 6c 65 20 75 74 69 6c 69 | 74 69 65 73 2e 6c 69 73 |le utili|ties.lis|
|00002360| 70 0d 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |p.;-----|--------|
|00002370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002390| 2d 2d 2d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |---.....|........|
|000023a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002400| 00 00 01 00 00 00 01 67 | 00 00 00 67 00 00 00 52 |.......g|...g...R|
|00002410| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00002420| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00002430| 0e 75 74 69 6c 69 74 69 | 65 73 2e 6c 69 73 70 75 |.utiliti|es.lispu|
|00002440| 02 00 00 00 54 45 58 54 | 43 43 4c 32 01 00 01 38 |....TEXT|CCL2...8|
|00002450| 00 00 54 45 58 54 43 43 | 4c 32 01 00 01 38 00 40 |..TEXTCC|L2...8.@|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 a2 c3 98 00 00 00 | 23 14 00 00 01 b9 6f 20 |........|#.....o |
|00002480| 70 2e 6c 69 73 70 0d 3b | 3b 3b 0d 0d 3b 3b 3b 20 |p.lisp.;|;;..;;; |
|00002490| 47 65 74 73 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |Gets the| window |
|000024a0| 6d 61 6e 61 67 65 72 27 | 73 20 70 6f 72 74 0d 28 |manager'|s port.(|
|000024b0| 64 65 66 6d 61 63 72 6f | 20 67 65 74 2d 77 6d 67 |defmacro| get-wmg|
|000024c0| 72 2d 70 6f 72 74 20 28 | 29 0d 20 20 27 28 25 73 |r-port (|).  '(%s|
|000024d0| 74 61 63 6b 2d 62 6c 6f | 63 6b 20 28 28 70 6f 72 |tack-blo|ck ((por|
|000024e0| 74 20 34 29 29 0d 20 20 | 20 20 20 28 5f 47 65 74 |t 4)).  |   (_Get|
|000024f0| 57 4d 67 72 50 6f 72 74 | 20 3a 70 74 72 20 70 6f |WMgrPort| :ptr po|
|00002500| 00 00 00 0a 00 01 00 04 | 09 00 01 00 00 00 00 00 |........|........|
|00002510| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 00 00 00 00 00 |.H..Mona|co......|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 06 00 08 | 00 28 00 08 01 41 02 3e |........|.(...A.>|
|00002540| 00 28 00 08 01 41 02 3e | 00 00 00 00 00 00 02 57 |.(...A.>|.......W|
|00002550| 00 00 02 57 00 00 00 00 | 01 00 00 00 00 09 00 00 |...W....|........|
|00002560| 06 4d 6f 6e 61 63 6f 00 | 00 01 00 00 00 01 67 00 |.Monaco.|......g.|
|00002570| 00 00 67 00 00 00 52 00 | 1b 2a bc 08 16 00 00 00 |..g...R.|.*......|
|00002580| 1c 00 52 00 01 46 52 45 | 44 00 01 00 12 4d 50 53 |..R..FRE|D....MPS|
|00002590| 52 00 00 00 2a 00 02 ff | ff 00 00 00 00 00 00 00 |R...*...|........|
|000025a0| 00 00 03 ff ff 00 00 00 | 5a 00 00 00 00 03 ed ff |........|Z.......|
|000025b0| ff 00 00 00 0e 00 1c 09 | 10 00 00 00 00 00 00 00 |........|........|
|000025c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+