home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1989-09-14 | 16.1 KB | [TEXT/KAHL] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| AMOS Picture Packer (image/amosPicturePacker)
| ext
| Supported |
| 1%
| dexvert
| Debian floppy split (archive/debianFloppySplit)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images sound sample (audio/soundImagesSoundSample)
| ext
| Unsupported |
| 1%
| dexvert
| DESI-III drawing (image/desiIIIDrawing)
| ext
| Unsupported |
| 1%
| dexvert
| MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable)
| ext
| Unsupported |
| 1%
| dexvert
| Alien Trilogytextures (other/alienTrilogyTextures)
| ext
| Unsupported |
| 1%
| dexvert
| APT cache data (other/aptCacheData)
| ext
| Unsupported |
| 1%
| dexvert
| CorelTRACE configuration (other/corelTRACEConfiguration)
| ext
| Unsupported |
| 1%
| dexvert
| Dreamcast Disc (other/dreamcastDisc)
| ext
| Unsupported |
| 1%
| dexvert
| EST flat binary (other/estFlatBinary)
| ext
| Unsupported |
| 1%
| dexvert
| Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Sega Genesis/Megadrive/32x ROM (other/genesisROM)
| ext
| Unsupported |
| 1%
| dexvert
| Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images Sound Driver (other/soundImagesSoundDriver)
| ext
| Unsupported |
| 1%
| dexvert
| Symantec/Norton Config (other/symantecNortonConfig)
| ext
| Unsupported |
| 1%
| dexvert
| Vectrex ROM (other/vectrexROM)
| ext
| Unsupported |
| 1%
| dexvert
| BIS raP encoded format (other/bisraPEncoded)
| ext
| Unsupported |
| 1%
| dexvert
| Pascal Script binary (other/pascalScriptBinary)
| ext
| Unsupported |
| 1%
| dexvert
| 7th Level game data archive (other/seventhLevelGameDataArchive)
| ext
| Unsupported |
| 1%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Binary Text (image/binaryText)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary, Sat Feb 18 13:21:40 1989, modified Sat Feb 18 13:54:44 1989, creator Think C, type ASCII, 16310 bytes "EventLog.c"
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 1
| default (weak)
| |
| 100%
| lsar
| MacBinary
| default
| |
| 100%
| gt2
| MAC Bilddatei
| default (weak)
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [KAHL] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 45 76 65 6e 74 4c | 6f 67 2e 63 00 00 00 00 |..EventL|og.c....|
|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 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 3f b6 00 | 00 00 00 a0 23 64 b4 a0 |.....?..|....#d..|
|00000060| 23 6c 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |#lt.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2f 2a 0d 09 45 76 65 6e | 74 4c 6f 67 20 2d 20 54 |/*..Even|tLog - T|
|00000090| 72 61 6e 73 44 69 73 70 | 6c 61 79 20 65 76 65 6e |ransDisp|lay even|
|000000a0| 74 2d 6c 6f 67 67 69 6e | 67 20 64 65 6d 6f 6e 73 |t-loggin|g demons|
|000000b0| 74 72 61 74 69 6f 6e 20 | 70 72 6f 67 72 61 6d 0d |tration |program.|
|000000c0| 0d 09 54 68 65 20 70 72 | 6f 6a 65 63 74 20 73 68 |..The pr|oject sh|
|000000d0| 6f 75 6c 64 20 69 6e 63 | 6c 75 64 65 20 45 76 65 |ould inc|lude Eve|
|000000e0| 6e 74 4c 6f 67 2e 63 20 | 28 74 68 69 73 20 66 69 |ntLog.c |(this fi|
|000000f0| 6c 65 29 2c 20 54 72 61 | 6e 73 44 69 73 70 6c 61 |le), Tra|nsDispla|
|00000100| 79 2e 63 0d 09 28 6f 72 | 20 61 20 70 72 6f 6a 65 |y.c..(or| a proje|
|00000110| 63 74 20 6d 61 64 65 20 | 66 72 6f 6d 20 54 72 61 |ct made |from Tra|
|00000120| 6e 73 44 69 73 70 6c 61 | 79 2e 63 29 2c 20 54 72 |nsDispla|y.c), Tr|
|00000130| 61 6e 73 53 6b 65 6c 2e | 63 20 28 6f 72 20 61 20 |ansSkel.|c (or a |
|00000140| 70 72 6f 6a 65 63 74 0d | 09 6d 61 64 65 20 66 72 |project.|.made fr|
|00000150| 6f 6d 20 54 72 61 6e 73 | 53 6b 65 6c 2e 63 29 2c |om Trans|Skel.c),|
|00000160| 20 61 6e 64 20 4d 61 63 | 54 72 61 70 73 2e 0d 09 | and Mac|Traps...|
|00000170| 0d 09 30 38 20 4e 6f 76 | 20 38 36 20 50 61 75 6c |..08 Nov| 86 Paul|
|00000180| 20 44 75 42 6f 69 73 0d | 09 32 38 20 44 65 63 20 | DuBois.|.28 Dec |
|00000190| 38 36 20 52 65 6d 6f 76 | 65 64 20 77 69 6e 64 6f |86 Remov|ed windo|
|000001a0| 77 20 7a 6f 6f 6d 69 6e | 67 20 63 6f 6e 73 74 61 |w zoomin|g consta|
|000001b0| 6e 74 73 2c 20 73 69 6e | 63 65 20 4c 69 67 68 74 |nts, sin|ce Light|
|000001c0| 73 70 65 65 64 43 0d 09 | 09 09 20 20 76 2e 20 32 |speedC..|.. v. 2|
|000001d0| 2e 30 31 20 6e 6f 77 20 | 73 75 70 70 6f 72 74 73 |.01 now |supports|
|000001e0| 20 74 68 65 6d 20 64 69 | 72 65 63 74 6c 79 2e 0d | them di|rectly..|
|000001f0| 09 30 31 20 46 65 62 20 | 38 39 20 4d 6f 64 69 66 |.01 Feb |89 Modif|
|00000200| 69 65 64 20 66 6f 72 20 | 54 72 61 6e 73 53 6b 65 |ied for |TransSke|
|00000210| 6c 20 32 2e 30 2e 20 20 | 32 2d 62 79 74 65 20 61 |l 2.0. |2-byte a|
|00000220| 6e 64 20 34 2d 62 79 74 | 65 20 69 6e 74 65 67 65 |nd 4-byt|e intege|
|00000230| 72 0d 09 09 09 20 20 74 | 79 70 65 73 20 61 72 65 |r.... t|ypes are|
|00000240| 20 74 79 70 65 64 65 66 | 27 65 64 20 74 6f 20 49 | typedef|'ed to I|
|00000250| 6e 74 65 67 65 72 20 61 | 6e 64 20 4c 6f 6e 67 69 |nteger a|nd Longi|
|00000260| 6e 74 20 74 6f 20 65 61 | 73 65 20 70 6f 72 74 69 |nt to ea|se porti|
|00000270| 6e 67 2e 0d 2a 2f 0d 0d | 0d 23 20 69 6e 63 6c 75 |ng..*/..|.# inclu|
|00000280| 64 65 09 3c 45 76 65 6e | 74 4d 67 72 2e 68 3e 0d |de.<Even|tMgr.h>.|
|00000290| 23 20 69 6e 63 6c 75 64 | 65 09 3c 4d 65 6e 75 4d |# includ|e.<MenuM|
|000002a0| 67 72 2e 68 3e 0d 23 20 | 69 6e 63 6c 75 64 65 09 |gr.h>.# |include.|
|000002b0| 3c 43 6f 6e 74 72 6f 6c | 4d 67 72 2e 68 3e 0d 23 |<Control|Mgr.h>.#|
|000002c0| 20 69 6e 63 6c 75 64 65 | 09 3c 46 6f 6e 74 4d 67 | include|.<FontMg|
|000002d0| 72 2e 68 3e 0d 23 20 69 | 6e 63 6c 75 64 65 09 22 |r.h>.# i|nclude."|
|000002e0| 54 72 61 6e 73 44 69 73 | 70 6c 61 79 2e 68 22 0d |TransDis|play.h".|
|000002f0| 0d 0d 74 79 70 65 64 65 | 66 09 69 6e 74 09 09 49 |..typede|f.int..I|
|00000300| 6e 74 65 67 65 72 3b 09 | 2f 2a 20 63 6f 6d 70 69 |nteger;.|/* compi|
|00000310| 6c 65 72 20 32 2d 62 79 | 74 65 20 69 6e 74 65 67 |ler 2-by|te integ|
|00000320| 65 72 20 74 79 70 65 20 | 2a 2f 0d 74 79 70 65 64 |er type |*/.typed|
|00000330| 65 66 09 6c 6f 6e 67 09 | 4c 6f 6e 67 69 6e 74 3b |ef.long.|Longint;|
|00000340| 09 2f 2a 20 63 6f 6d 70 | 69 6c 65 72 20 34 2d 62 |./* comp|iler 4-b|
|00000350| 79 74 65 20 69 6e 74 65 | 67 65 72 20 74 79 70 65 |yte inte|ger type|
|00000360| 20 2a 2f 0d 0d 0d 23 20 | 64 65 66 69 6e 65 09 6d | */...# |define.m|
|00000370| 61 78 42 75 74 74 6f 6e | 09 31 34 0d 0d 0d 23 20 |axButton|.14...# |
|00000380| 64 65 66 69 6e 65 09 68 | 65 6c 70 54 65 78 74 52 |define.h|elpTextR|
|00000390| 65 73 09 09 31 30 30 30 | 09 2f 2a 20 68 65 6c 70 |es..1000|./* help|
|000003a0| 20 74 65 78 74 20 72 65 | 73 6f 75 72 63 65 20 6e | text re|source n|
|000003b0| 75 6d 62 65 72 20 2a 2f | 0d 23 20 64 65 66 69 6e |umber */|.# defin|
|000003c0| 65 09 61 62 6f 75 74 41 | 6c 72 74 52 65 73 09 31 |e.aboutA|lrtRes.1|
|000003d0| 30 30 30 09 2f 2a 20 41 | 62 6f 75 74 2e 2e 2e 20 |000./* A|bout... |
|000003e0| 61 6c 65 72 74 20 72 65 | 73 6f 75 72 63 65 20 6e |alert re|source n|
|000003f0| 75 6d 62 65 72 20 2a 2f | 0d 0d 0d 74 79 70 65 64 |umber */|...typed|
|00000400| 65 66 20 65 6e 75 6d 09 | 09 09 09 09 2f 2a 20 4d |ef enum.|..../* M|
|00000410| 65 6e 75 20 72 65 73 6f | 75 72 63 65 20 6e 75 6d |enu reso|urce num|
|00000420| 62 65 72 73 20 2a 2f 0d | 7b 0d 09 66 69 6c 65 4d |bers */.|{..fileM|
|00000430| 65 6e 75 52 65 73 20 3d | 20 31 30 30 30 2c 0d 09 |enuRes =| 1000,..|
|00000440| 65 64 69 74 4d 65 6e 75 | 52 65 73 2c 0d 09 6c 6f |editMenu|Res,..lo|
|00000450| 67 4d 65 6e 75 52 65 73 | 0d 7d 3b 0d 0d 0d 74 79 |gMenuRes|.};...ty|
|00000460| 70 65 64 65 66 20 65 6e | 75 6d 09 09 09 09 09 2f |pedef en|um...../|
|00000470| 2a 20 57 69 6e 64 6f 77 | 20 72 65 73 6f 75 72 63 |* Window| resourc|
|00000480| 65 20 6e 75 6d 62 65 72 | 73 20 2a 2f 0d 7b 0d 09 |e number|s */.{..|
|00000490| 6c 6f 67 57 69 6e 64 52 | 65 73 20 3d 20 31 30 30 |logWindR|es = 100|
|000004a0| 30 2c 0d 09 68 65 6c 70 | 57 69 6e 64 52 65 73 2c |0,..help|WindRes,|
|000004b0| 0d 09 73 65 6c 65 63 74 | 57 69 6e 64 52 65 73 0d |..select|WindRes.|
|000004c0| 7d 3b 0d 0d 0d 74 79 70 | 65 64 65 66 20 65 6e 75 |};...typ|edef enu|
|000004d0| 6d 09 09 09 2f 2a 20 46 | 69 6c 65 20 6d 65 6e 75 |m.../* F|ile menu|
|000004e0| 20 69 74 65 6d 20 6e 75 | 6d 62 65 72 73 20 2a 2f | item nu|mbers */|
|000004f0| 0d 7b 0d 09 73 68 6f 77 | 4c 6f 67 20 3d 20 31 2c |.{..show|Log = 1,|
|00000500| 09 2f 2a 20 6d 61 6b 65 | 20 77 69 6e 64 6f 77 73 |./* make| windows|
|00000510| 20 76 69 73 69 62 6c 65 | 2f 62 72 69 6e 67 20 74 | visible|/bring t|
|00000520| 6f 20 66 72 6f 6e 74 20 | 2a 2f 0d 09 73 68 6f 77 |o front |*/..show|
|00000530| 48 65 6c 70 2c 0d 09 73 | 68 6f 77 53 65 6c 65 63 |Help,..s|howSelec|
|00000540| 74 2c 0d 09 2f 2a 20 2d | 2d 2d 20 2a 2f 0d 09 71 |t,../* -|-- */..q|
|00000550| 75 69 74 20 3d 20 35 0d | 7d 3b 0d 0d 0d 74 79 70 |uit = 5.|};...typ|
|00000560| 65 64 65 66 20 65 6e 75 | 6d 09 09 09 09 2f 2a 20 |edef enu|m..../* |
|00000570| 45 64 69 74 20 6d 65 6e | 75 20 69 74 65 6d 20 6e |Edit men|u item n|
|00000580| 75 6d 62 65 72 73 20 2a | 2f 0d 7b 0d 09 75 6e 64 |umbers *|/.{..und|
|00000590| 6f 20 3d 20 31 2c 0d 09 | 2f 2a 20 2d 2d 2d 20 2a |o = 1,..|/* --- *|
|000005a0| 2f 0d 09 63 75 74 20 3d | 20 33 2c 0d 09 63 6f 70 |/..cut =| 3,..cop|
|000005b0| 79 2c 0d 09 70 61 73 74 | 65 2c 0d 09 63 6c 65 61 |y,..past|e,..clea|
|000005c0| 72 0d 7d 3b 0d 0d 0d 74 | 79 70 65 64 65 66 20 65 |r.};...t|ypedef e|
|000005d0| 6e 75 6d 09 09 09 09 2f | 2a 20 4c 6f 67 20 6d 65 |num..../|* Log me|
|000005e0| 6e 75 20 69 74 65 6d 20 | 6e 75 6d 62 65 72 73 20 |nu item |numbers |
|000005f0| 2a 2f 0d 7b 0d 09 6c 6f | 67 45 76 65 6e 74 73 20 |*/.{..lo|gEvents |
|00000600| 3d 20 31 2c 09 09 2f 2a | 20 77 68 65 74 68 65 72 |= 1,../*| whether|
|00000610| 20 65 76 65 6e 74 73 20 | 61 72 65 20 6c 6f 67 67 | events |are logg|
|00000620| 65 64 20 2a 2f 0d 09 65 | 78 63 6c 75 64 65 4c 57 |ed */..e|xcludeLW|
|00000630| 69 6e 64 2c 0d 09 2f 2a | 20 2d 2d 2d 20 2a 2f 0d |ind,../*| --- */.|
|00000640| 09 66 6c 75 73 68 4c 6f | 67 20 3d 20 34 2c 09 09 |.flushLo|g = 4,..|
|00000650| 2f 2a 20 66 6c 75 73 68 | 20 6c 6f 67 20 6f 75 74 |/* flush| log out|
|00000660| 70 75 74 20 2a 2f 0d 09 | 2f 2a 20 2d 2d 2d 20 2a |put */..|/* --- *|
|00000670| 2f 0d 09 77 72 61 70 53 | 74 79 6c 65 20 3d 20 36 |/..wrapS|tyle = 6|
|00000680| 2c 09 09 2f 2a 20 77 6f | 72 64 20 77 72 61 70 20 |,../* wo|rd wrap |
|00000690| 6f 72 20 6e 6f 74 20 2a | 2f 0d 09 2f 2a 20 2d 2d |or not *|/../* --|
|000006a0| 2d 20 2a 2f 0d 09 6c 65 | 66 74 4a 75 73 74 20 3d |- */..le|ftJust =|
|000006b0| 20 38 2c 09 09 2f 2a 20 | 6a 75 73 74 69 66 69 63 | 8,../* |justific|
|000006c0| 61 74 69 6f 6e 20 2a 2f | 0d 09 63 65 6e 74 65 72 |ation */|..center|
|000006d0| 4a 75 73 74 2c 0d 09 72 | 69 67 68 74 4a 75 73 74 |Just,..r|ightJust|
|000006e0| 2c 0d 09 2f 2a 20 2d 2d | 2d 20 2a 2f 0d 09 73 6d |,../* --|- */..sm|
|000006f0| 61 6c 6c 20 3d 20 31 32 | 2c 09 09 09 2f 2a 20 74 |all = 12|,.../* t|
|00000700| 65 78 74 20 73 69 7a 65 | 20 2a 2f 0d 09 6d 65 64 |ext size| */..med|
|00000710| 69 75 6d 2c 0d 09 6c 61 | 72 67 65 2c 0d 09 2f 2a |ium,..la|rge,../*|
|00000720| 20 2d 2d 2d 20 2a 2f 0d | 09 74 6f 70 20 3d 20 31 | --- */.|.top = 1|
|00000730| 36 2c 09 09 09 2f 2a 20 | 73 63 72 6f 6c 6c 20 68 |6,.../* |scroll h|
|00000740| 6f 6d 65 20 2a 2f 0d 09 | 62 6f 74 74 6f 6d 09 09 |ome */..|bottom..|
|00000750| 09 09 2f 2a 20 73 63 72 | 6f 6c 6c 20 74 6f 20 62 |../* scr|oll to b|
|00000760| 6f 74 74 6f 6d 20 2a 2f | 0d 7d 3b 0d 0d 0d 74 79 |ottom */|.};...ty|
|00000770| 70 65 64 65 66 20 73 74 | 72 75 63 74 20 43 74 72 |pedef st|ruct Ctr|
|00000780| 6c 49 6e 66 6f 0d 7b 0d | 09 50 6f 69 6e 74 09 09 |lInfo.{.|.Point..|
|00000790| 09 6c 6f 63 3b 09 09 2f | 2a 20 75 70 70 65 72 20 |.loc;../|* upper |
|000007a0| 6c 65 66 74 20 6f 66 20 | 63 6f 6e 74 72 6f 6c 20 |left of |control |
|000007b0| 2a 2f 0d 09 53 74 72 32 | 35 35 09 09 09 74 69 74 |*/..Str2|55...tit|
|000007c0| 6c 65 3b 09 09 2f 2a 20 | 63 6f 6e 74 72 6f 6c 20 |le;../* |control |
|000007d0| 74 69 74 6c 65 20 2a 2f | 0d 09 42 6f 6f 6c 65 61 |title */|..Boolea|
|000007e0| 6e 09 09 09 2a 66 6c 61 | 67 41 64 64 72 3b 09 2f |n...*fla|gAddr;./|
|000007f0| 2a 20 61 73 73 6f 63 69 | 61 74 65 64 20 62 6f 6f |* associ|ated boo|
|00000800| 6c 65 61 6e 20 2a 2f 0d | 09 43 6f 6e 74 72 6f 6c |lean */.|.Control|
|00000810| 48 61 6e 64 6c 65 09 63 | 74 72 6c 3b 09 09 2f 2a |Handle.c|trl;../*|
|00000820| 20 61 73 73 6f 63 69 61 | 74 65 64 20 63 6f 6e 74 | associa|ted cont|
|00000830| 72 6f 6c 20 2a 2f 0d 09 | 73 74 72 75 63 74 20 43 |rol */..|struct C|
|00000840| 74 72 6c 49 6e 66 6f 09 | 2a 73 75 62 49 6e 66 6f |trlInfo.|*subInfo|
|00000850| 3b 09 2f 2a 20 73 75 62 | 73 69 64 69 61 72 79 20 |;./* sub|sidiary |
|00000860| 63 6f 6e 74 72 6f 6c 20 | 2a 2f 0d 0d 7d 20 43 74 |control |*/..} Ct|
|00000870| 72 6c 49 6e 66 6f 3b 0d | 0d 0d 57 69 6e 64 6f 77 |rlInfo;.|..Window|
|00000880| 50 74 72 09 73 65 6c 65 | 63 74 57 69 6e 64 3b 09 |Ptr.sele|ctWind;.|
|00000890| 09 09 2f 2a 20 65 76 65 | 6e 74 20 73 65 6c 65 63 |../* eve|nt selec|
|000008a0| 74 69 6f 6e 20 77 69 6e | 64 6f 77 20 2a 2f 0d 57 |tion win|dow */.W|
|000008b0| 69 6e 64 6f 77 50 74 72 | 09 68 65 6c 70 57 69 6e |indowPtr|.helpWin|
|000008c0| 64 3b 09 09 09 2f 2a 20 | 68 65 6c 70 20 74 65 78 |d;.../* |help tex|
|000008d0| 74 20 77 69 6e 64 6f 77 | 20 2a 2f 0d 57 69 6e 64 |t window| */.Wind|
|000008e0| 6f 77 50 74 72 09 6c 6f | 67 57 69 6e 64 3b 09 09 |owPtr.lo|gWind;..|
|000008f0| 09 2f 2a 20 6c 6f 67 20 | 6f 75 74 70 75 74 20 77 |./* log |output w|
|00000900| 69 6e 64 6f 77 20 2a 2f | 0d 4d 65 6e 75 48 61 6e |indow */|.MenuHan|
|00000910| 64 6c 65 09 66 69 6c 65 | 4d 65 6e 75 3b 0d 4d 65 |dle.file|Menu;.Me|
|00000920| 6e 75 48 61 6e 64 6c 65 | 09 65 64 69 74 4d 65 6e |nuHandle|.editMen|
|00000930| 75 3b 0d 4d 65 6e 75 48 | 61 6e 64 6c 65 09 6c 6f |u;.MenuH|andle.lo|
|00000940| 67 4d 65 6e 75 3b 0d 42 | 6f 6f 6c 65 61 6e 09 09 |gMenu;.B|oolean..|
|00000950| 72 65 70 6f 72 74 45 76 | 65 6e 74 73 3b 09 09 2f |reportEv|ents;../|
|00000960| 2a 20 72 65 70 6f 72 74 | 20 65 76 65 6e 74 73 20 |* report| events |
|00000970| 6f 72 20 6e 6f 74 20 2a | 2f 0d 42 6f 6f 6c 65 61 |or not *|/.Boolea|
|00000980| 6e 09 09 65 78 63 6c 75 | 64 65 4c 6f 67 3b 09 09 |n..exclu|deLog;..|
|00000990| 09 2f 2a 20 65 78 63 6c | 75 64 65 20 6c 6f 67 20 |./* excl|ude log |
|000009a0| 77 69 6e 64 6f 77 20 65 | 76 65 6e 74 73 20 6f 72 |window e|vents or|
|000009b0| 20 6e 6f 74 20 2a 2f 0d | 49 6e 74 65 67 65 72 09 | not */.|Integer.|
|000009c0| 09 6c 6f 67 46 6f 6e 74 | 3b 0d 49 6e 74 65 67 65 |.logFont|;.Intege|
|000009d0| 72 09 09 6c 6f 67 53 69 | 7a 65 3b 0d 49 6e 74 65 |r..logSi|ze;.Inte|
|000009e0| 67 65 72 09 09 6c 6f 67 | 57 72 61 70 3b 0d 49 6e |ger..log|Wrap;.In|
|000009f0| 74 65 67 65 72 09 09 6c | 6f 67 4a 75 73 74 3b 0d |teger..l|ogJust;.|
|00000a00| 0d 0d 42 6f 6f 6c 65 61 | 6e 09 09 09 09 09 09 09 |..Boolea|n.......|
|00000a10| 2f 2a 20 65 76 65 6e 74 | 20 74 79 70 65 20 73 65 |/* event| type se|
|00000a20| 6c 65 63 74 69 6f 6e 20 | 66 6c 61 67 73 20 2a 2f |lection |flags */|
|00000a30| 0d 09 09 72 4d 6f 75 73 | 65 44 6f 77 6e 20 3d 20 |...rMous|eDown = |
|00000a40| 74 72 75 65 2c 0d 09 09 | 09 72 4d 6f 75 73 65 4d |true,...|.rMouseM|
|00000a50| 6f 64 73 20 3d 20 66 61 | 6c 73 65 2c 0d 09 09 09 |ods = fa|lse,....|
|00000a60| 72 4d 6f 75 73 65 57 69 | 6e 64 20 3d 20 74 72 75 |rMouseWi|nd = tru|
|00000a70| 65 2c 0d 09 09 09 72 4d | 6f 75 73 65 4c 6f 63 20 |e,....rM|ouseLoc |
|00000a80| 3d 20 66 61 6c 73 65 2c | 0d 09 09 09 72 4d 6f 75 |= false,|....rMou|
|00000a90| 73 65 50 61 72 74 20 3d | 20 74 72 75 65 2c 0d 09 |sePart =| true,..|
|00000aa0| 09 09 72 4d 6f 75 73 65 | 53 79 73 20 3d 20 66 61 |..rMouse|Sys = fa|
|00000ab0| 6c 73 65 2c 0d 09 09 72 | 4d 6f 75 73 65 55 70 20 |lse,...r|MouseUp |
|00000ac0| 3d 20 66 61 6c 73 65 2c | 0d 09 09 72 4b 65 79 44 |= false,|...rKeyD|
|00000ad0| 6f 77 6e 20 3d 20 74 72 | 75 65 2c 0d 09 09 09 72 |own = tr|ue,....r|
|00000ae0| 4b 44 4d 6f 64 73 20 3d | 20 66 61 6c 73 65 2c 0d |KDMods =| false,.|
|00000af0| 09 09 72 41 75 74 6f 4b | 65 79 20 3d 20 74 72 75 |..rAutoK|ey = tru|
|00000b00| 65 2c 0d 09 09 09 72 41 | 4b 4d 6f 64 73 20 3d 20 |e,....rA|KMods = |
|00000b10| 66 61 6c 73 65 2c 0d 09 | 09 72 55 70 64 61 74 65 |false,..|.rUpdate|
|00000b20| 20 3d 20 74 72 75 65 2c | 0d 09 09 72 41 63 74 69 | = true,|...rActi|
|00000b30| 76 61 74 65 20 3d 20 74 | 72 75 65 2c 0d 09 09 72 |vate = t|rue,...r|
|00000b40| 44 69 73 6b 20 3d 20 74 | 72 75 65 3b 0d 0d 0d 2f |Disk = t|rue;.../|
|00000b50| 2a 0d 09 43 6f 6e 74 72 | 6f 6c 20 69 6e 66 6f 72 |*..Contr|ol infor|
|00000b60| 6d 61 74 69 6f 6e 2e 20 | 20 54 68 65 20 6c 61 73 |mation. | The las|
|00000b70| 74 20 66 69 65 6c 64 20 | 69 73 20 75 73 65 64 20 |t field |is used |
|00000b80| 74 6f 20 74 65 6c 6c 20 | 77 68 69 63 68 20 63 6f |to tell |which co|
|00000b90| 6e 74 72 6f 6c 73 0d 09 | 61 72 65 20 22 6f 77 6e |ntrols..|are "own|
|00000ba0| 65 64 22 20 62 79 20 61 | 6e 6f 74 68 65 72 2e 20 |ed" by a|nother. |
|00000bb0| 20 57 68 65 6e 20 74 68 | 65 20 6f 77 6e 65 72 20 | When th|e owner |
|00000bc0| 69 73 20 75 6e 63 68 65 | 63 6b 65 64 2c 20 61 6c |is unche|cked, al|
|00000bd0| 6c 20 74 68 65 20 6f 77 | 6e 65 64 0d 09 63 6f 6e |l the ow|ned..con|
|00000be0| 74 72 6f 6c 73 20 67 6f | 20 64 69 6d 2e 0d 2a 2f |trols go| dim..*/|
|00000bf0| 0d 0d 43 74 72 6c 49 6e | 66 6f 09 63 74 72 6c 49 |..CtrlIn|fo.ctrlI|
|00000c00| 6e 66 6f 20 5b 6d 61 78 | 42 75 74 74 6f 6e 5d 20 |nfo [max|Button] |
|00000c10| 3d 0d 7b 0d 09 7b 20 7b | 20 35 2c 20 31 30 7d 2c |=.{..{ {| 5, 10},|
|00000c20| 20 22 5c 70 4d 6f 75 73 | 65 20 44 6f 77 6e 22 2c | "\pMous|e Down",|
|00000c30| 20 26 72 4d 6f 75 73 65 | 44 6f 77 6e 2c 20 6e 69 | &rMouse|Down, ni|
|00000c40| 6c 2c 20 6e 69 6c 20 7d | 2c 0d 09 7b 20 7b 20 32 |l, nil }|,..{ { 2|
|00000c50| 35 2c 20 33 30 7d 2c 20 | 22 5c 70 4d 6f 64 69 66 |5, 30}, |"\pModif|
|00000c60| 69 65 72 73 22 2c 20 26 | 72 4d 6f 75 73 65 4d 6f |iers", &|rMouseMo|
|00000c70| 64 73 2c 20 6e 69 6c 2c | 20 26 63 74 72 6c 49 6e |ds, nil,| &ctrlIn|
|00000c80| 66 6f 5b 30 5d 20 7d 2c | 0d 09 7b 20 7b 20 34 35 |fo[0] },|..{ { 45|
|00000c90| 2c 20 33 30 7d 2c 20 22 | 5c 70 57 69 6e 64 6f 77 |, 30}, "|\pWindow|
|00000ca0| 22 2c 20 26 72 4d 6f 75 | 73 65 57 69 6e 64 2c 20 |", &rMou|seWind, |
|00000cb0| 6e 69 6c 2c 20 26 63 74 | 72 6c 49 6e 66 6f 5b 30 |nil, &ct|rlInfo[0|
|00000cc0| 5d 20 7d 2c 0d 09 7b 20 | 7b 20 36 35 2c 20 33 30 |] },..{ |{ 65, 30|
|00000cd0| 7d 2c 20 22 5c 70 4c 6f | 63 61 74 69 6f 6e 22 2c |}, "\pLo|cation",|
|00000ce0| 20 26 72 4d 6f 75 73 65 | 4c 6f 63 2c 20 6e 69 6c | &rMouse|Loc, nil|
|00000cf0| 2c 20 26 63 74 72 6c 49 | 6e 66 6f 5b 30 5d 20 7d |, &ctrlI|nfo[0] }|
|00000d00| 2c 0d 09 7b 20 7b 20 38 | 35 2c 20 33 30 7d 2c 20 |,..{ { 8|5, 30}, |
|00000d10| 22 5c 70 50 61 72 74 20 | 43 6f 64 65 22 2c 20 26 |"\pPart |Code", &|
|00000d20| 72 4d 6f 75 73 65 50 61 | 72 74 2c 20 6e 69 6c 2c |rMousePa|rt, nil,|
|00000d30| 20 26 63 74 72 6c 49 6e | 66 6f 5b 30 5d 20 7d 2c | &ctrlIn|fo[0] },|
|00000d40| 0d 09 7b 20 7b 20 31 30 | 35 2c 20 33 30 7d 2c 20 |..{ { 10|5, 30}, |
|00000d50| 22 5c 70 53 79 73 74 65 | 6d 20 43 6c 69 63 6b 73 |"\pSyste|m Clicks|
|00000d60| 22 2c 20 26 72 4d 6f 75 | 73 65 53 79 73 2c 20 6e |", &rMou|seSys, n|
|00000d70| 69 6c 2c 20 26 63 74 72 | 6c 49 6e 66 6f 5b 30 5d |il, &ctr|lInfo[0]|
|00000d80| 20 7d 2c 0d 09 7b 20 7b | 20 31 32 35 2c 20 31 30 | },..{ {| 125, 10|
|00000d90| 7d 2c 20 22 5c 70 4d 6f | 75 73 65 20 55 70 22 2c |}, "\pMo|use Up",|
|00000da0| 20 26 72 4d 6f 75 73 65 | 55 70 2c 20 6e 69 6c 2c | &rMouse|Up, nil,|
|00000db0| 20 6e 69 6c 20 7d 2c 0d | 09 7b 20 7b 20 35 2c 20 | nil },.|.{ { 5, |
|00000dc0| 31 36 30 7d 2c 20 22 5c | 70 4b 65 79 20 44 6f 77 |160}, "\|pKey Dow|
|00000dd0| 6e 22 2c 20 26 72 4b 65 | 79 44 6f 77 6e 2c 20 6e |n", &rKe|yDown, n|
|00000de0| 69 6c 2c 20 6e 69 6c 20 | 7d 2c 0d 09 7b 20 7b 20 |il, nil |},..{ { |
|00000df0| 32 35 2c 20 31 38 30 7d | 2c 20 22 5c 70 4d 6f 64 |25, 180}|, "\pMod|
|00000e00| 69 66 69 65 72 73 22 2c | 20 26 72 4b 44 4d 6f 64 |ifiers",| &rKDMod|
|00000e10| 73 2c 20 6e 69 6c 2c 20 | 26 63 74 72 6c 49 6e 66 |s, nil, |&ctrlInf|
|00000e20| 6f 5b 37 5d 20 7d 2c 0d | 09 7b 20 7b 20 34 35 2c |o[7] },.|.{ { 45,|
|00000e30| 20 31 36 30 7d 2c 20 22 | 5c 70 41 75 74 6f 4b 65 | 160}, "|\pAutoKe|
|00000e40| 79 22 2c 20 26 72 41 75 | 74 6f 4b 65 79 2c 20 6e |y", &rAu|toKey, n|
|00000e50| 69 6c 2c 20 6e 69 6c 20 | 7d 2c 0d 09 7b 20 7b 20 |il, nil |},..{ { |
|00000e60| 36 35 2c 20 31 38 30 7d | 2c 20 22 5c 70 4d 6f 64 |65, 180}|, "\pMod|
|00000e70| 69 66 69 65 72 73 22 2c | 20 26 72 41 4b 4d 6f 64 |ifiers",| &rAKMod|
|00000e80| 73 2c 20 6e 69 6c 2c 20 | 26 63 74 72 6c 49 6e 66 |s, nil, |&ctrlInf|
|00000e90| 6f 5b 39 5d 20 7d 2c 0d | 09 7b 20 7b 20 38 35 2c |o[9] },.|.{ { 85,|
|00000ea0| 20 31 36 30 7d 2c 20 22 | 5c 70 55 70 64 61 74 65 | 160}, "|\pUpdate|
|00000eb0| 22 2c 20 26 72 55 70 64 | 61 74 65 2c 20 6e 69 6c |", &rUpd|ate, nil|
|00000ec0| 2c 20 6e 69 6c 20 7d 2c | 0d 09 7b 20 7b 20 31 30 |, nil },|..{ { 10|
|00000ed0| 35 2c 20 31 36 30 7d 2c | 20 22 5c 70 41 63 74 69 |5, 160},| "\pActi|
|00000ee0| 76 61 74 65 22 2c 20 26 | 72 41 63 74 69 76 61 74 |vate", &|rActivat|
|00000ef0| 65 2c 20 6e 69 6c 2c 20 | 6e 69 6c 20 7d 2c 0d 09 |e, nil, |nil },..|
|00000f00| 7b 20 7b 20 31 32 35 2c | 20 31 36 30 7d 2c 20 22 |{ { 125,| 160}, "|
|00000f10| 5c 70 44 69 73 6b 22 2c | 20 26 72 44 69 73 6b 2c |\pDisk",| &rDisk,|
|00000f20| 20 6e 69 6c 2c 20 6e 69 | 6c 20 7d 0d 7d 3b 0d 0d | nil, ni|l }.};..|
|00000f30| 2f 2a 09 57 69 6e 64 6f | 77 20 74 68 61 74 20 77 |/*.Windo|w that w|
|00000f40| 61 73 20 69 6e 20 66 72 | 6f 6e 74 20 6c 61 73 74 |as in fr|ont last|
|00000f50| 20 74 69 6d 65 20 63 68 | 65 63 6b 65 64 09 2a 2f | time ch|ecked.*/|
|00000f60| 0d 0d 57 69 6e 64 6f 77 | 50 74 72 09 6c 61 73 74 |..Window|Ptr.last|
|00000f70| 46 72 6f 6e 74 20 3d 20 | 6e 69 6c 3b 0d 0d 0d 2f |Front = |nil;.../|
|00000f80| 2a 0d 09 50 72 69 6e 74 | 20 69 6e 66 6f 72 6d 61 |*..Print| informa|
|00000f90| 74 69 6f 6e 20 61 62 6f | 75 74 20 61 20 77 69 6e |tion abo|ut a win|
|00000fa0| 64 6f 77 2e 20 20 49 66 | 20 69 74 27 73 20 61 20 |dow. If| it's a |
|00000fb0| 77 69 6e 64 6f 77 20 77 | 69 74 68 20 61 20 74 69 |window w|ith a ti|
|00000fc0| 74 6c 65 2c 0d 09 70 72 | 69 6e 74 20 74 68 65 20 |tle,..pr|int the |
|00000fd0| 74 69 74 6c 65 2e 20 20 | 50 72 69 6e 74 20 77 68 |title. |Print wh|
|00000fe0| 65 74 68 65 72 20 69 74 | 27 73 20 61 20 64 65 73 |ether it|'s a des|
|00000ff0| 6b 20 61 63 63 65 73 73 | 6f 72 79 20 77 69 6e 64 |k access|ory wind|
|00001000| 6f 77 2e 0d 2a 2f 0d 0d | 57 69 6e 64 6f 77 49 6e |ow..*/..|WindowIn|
|00001010| 66 6f 20 28 74 68 65 57 | 69 6e 64 29 0d 57 69 6e |fo (theW|ind).Win|
|00001020| 64 6f 77 50 65 65 6b 09 | 74 68 65 57 69 6e 64 3b |dowPeek.|theWind;|
|00001030| 0d 7b 0d 53 74 72 32 35 | 35 09 74 69 74 6c 65 3b |.{.Str25|5.title;|
|00001040| 0d 0d 09 47 65 74 57 54 | 69 74 6c 65 20 28 74 68 |...GetWT|itle (th|
|00001050| 65 57 69 6e 64 2c 20 74 | 69 74 6c 65 29 3b 0d 09 |eWind, t|itle);..|
|00001060| 69 66 20 28 74 69 74 6c | 65 5b 30 5d 20 21 3d 20 |if (titl|e[0] != |
|00001070| 30 29 09 09 09 2f 2a 20 | 77 69 6e 64 6f 77 20 68 |0).../* |window h|
|00001080| 61 73 20 74 69 74 6c 65 | 20 2a 2f 0d 09 7b 0d 09 |as title| */..{..|
|00001090| 09 44 69 73 70 6c 61 79 | 43 68 61 72 20 28 27 20 |.Display|Char (' |
|000010a0| 27 29 3b 0d 09 09 44 69 | 73 70 6c 61 79 53 74 72 |');...Di|splayStr|
|000010b0| 69 6e 67 20 28 74 69 74 | 6c 65 29 3b 0d 09 7d 0d |ing (tit|le);..}.|
|000010c0| 0d 09 69 66 20 28 74 68 | 65 57 69 6e 64 2d 3e 77 |..if (th|eWind->w|
|000010d0| 69 6e 64 6f 77 4b 69 6e | 64 20 3c 20 30 29 0d 09 |indowKin|d < 0)..|
|000010e0| 09 44 69 73 70 6c 61 79 | 53 74 72 69 6e 67 20 28 |.Display|String (|
|000010f0| 22 5c 70 20 28 44 41 29 | 22 29 3b 0d 7d 0d 0d 0d |"\p (DA)|");.}...|
|00001100| 4d 6f 64 69 66 69 65 72 | 73 20 28 6d 6f 64 73 29 |Modifier|s (mods)|
|00001110| 0d 49 6e 74 65 67 65 72 | 09 6d 6f 64 73 3b 0d 7b |.Integer|.mods;.{|
|00001120| 0d 09 44 69 73 70 6c 61 | 79 53 74 72 69 6e 67 20 |..Displa|yString |
|00001130| 28 22 5c 70 20 6d 6f 64 | 73 20 28 30 78 22 29 3b |("\p mod|s (0x");|
|00001140| 0d 09 44 69 73 70 6c 61 | 79 48 65 78 49 6e 74 20 |..Displa|yHexInt |
|00001150| 28 6d 6f 64 73 29 3b 0d | 09 44 69 73 70 6c 61 79 |(mods);.|.Display|
|00001160| 43 68 61 72 20 28 27 29 | 27 29 3b 0d 7d 0d 0d 0d |Char (')|');.}...|
|00001170| 4d 6f 75 73 65 4c 6f 63 | 20 28 74 68 65 50 74 2c |MouseLoc| (thePt,|
|00001180| 20 74 68 65 50 6f 72 74 | 29 0d 50 6f 69 6e 74 09 | thePort|).Point.|
|00001190| 74 68 65 50 74 3b 0d 47 | 72 61 66 50 74 72 09 74 |thePt;.G|rafPtr.t|
|000011a0| 68 65 50 6f 72 74 3b 0d | 7b 0d 47 72 61 66 50 74 |hePort;.|{.GrafPt|
|000011b0| 72 09 73 61 76 65 50 6f | 72 74 3b 0d 0d 09 47 65 |r.savePo|rt;...Ge|
|000011c0| 74 50 6f 72 74 20 28 26 | 73 61 76 65 50 6f 72 74 |tPort (&|savePort|
|000011d0| 29 3b 0d 09 53 65 74 50 | 6f 72 74 20 28 74 68 65 |);..SetP|ort (the|
|000011e0| 50 6f 72 74 29 3b 0d 09 | 47 6c 6f 62 61 6c 54 6f |Port);..|GlobalTo|
|000011f0| 4c 6f 63 61 6c 20 28 26 | 74 68 65 50 74 29 3b 0d |Local (&|thePt);.|
|00001200| 09 53 65 74 50 6f 72 74 | 20 28 73 61 76 65 50 6f |.SetPort| (savePo|
|00001210| 72 74 29 3b 0d 09 69 66 | 20 28 72 4d 6f 75 73 65 |rt);..if| (rMouse|
|00001220| 4c 6f 63 29 0d 09 7b 0d | 09 09 44 69 73 70 6c 61 |Loc)..{.|..Displa|
|00001230| 79 53 74 72 69 6e 67 20 | 28 22 5c 70 20 6c 6f 63 |yString |("\p loc|
|00001240| 20 28 22 29 3b 0d 09 09 | 44 69 73 70 6c 61 79 49 | (");...|DisplayI|
|00001250| 6e 74 20 28 74 68 65 50 | 74 2e 68 29 3b 0d 09 09 |nt (theP|t.h);...|
|00001260| 44 69 73 70 6c 61 79 53 | 74 72 69 6e 67 20 28 22 |DisplayS|tring ("|
|00001270| 5c 70 2c 20 22 29 3b 0d | 09 09 44 69 73 70 6c 61 |\p, ");.|..Displa|
|00001280| 79 49 6e 74 20 28 74 68 | 65 50 74 2e 76 29 3b 0d |yInt (th|ePt.v);.|
|00001290| 09 09 44 69 73 70 6c 61 | 79 43 68 61 72 20 28 27 |..Displa|yChar ('|
|000012a0| 29 27 29 3b 0d 09 7d 0d | 7d 0d 0d 0d 2f 2a 0d 09 |)');..}.|}.../*..|
|000012b0| 4d 6f 75 73 65 20 63 6c | 69 63 6b 2e 20 20 47 65 |Mouse cl|ick. Ge|
|000012c0| 74 20 74 68 65 20 77 69 | 6e 64 6f 77 20 74 68 61 |t the wi|ndow tha|
|000012d0| 74 20 74 68 65 20 63 6c | 69 63 6b 20 6f 63 63 75 |t the cl|ick occu|
|000012e0| 72 72 65 64 20 69 6e 2c | 20 61 6e 64 20 74 68 65 |rred in,| and the|
|000012f0| 0d 09 70 61 72 74 20 6f | 66 20 74 68 65 20 77 69 |..part o|f the wi|
|00001300| 6e 64 6f 77 2e 0d 0d 09 | 4d 61 6b 65 20 73 75 72 |ndow....|Make sur|
|00001310| 65 20 74 6f 20 67 65 74 | 20 61 6c 6c 20 74 68 65 |e to get| all the|
|00001320| 20 70 61 72 74 20 63 6f | 64 65 73 21 20 20 28 69 | part co|des! (i|
|00001330| 6e 63 6c 2e 20 7a 6f 6f | 6d 20 62 6f 78 20 73 74 |ncl. zoo|m box st|
|00001340| 75 66 66 29 0d 2a 2f 0d | 0d 52 65 70 6f 72 74 4d |uff).*/.|.ReportM|
|00001350| 6f 75 73 65 20 28 74 68 | 65 45 76 65 6e 74 29 0d |ouse (th|eEvent).|
|00001360| 45 76 65 6e 74 52 65 63 | 6f 72 64 09 2a 74 68 65 |EventRec|ord.*the|
|00001370| 45 76 65 6e 74 3b 0d 7b | 0d 50 6f 69 6e 74 09 65 |Event;.{|.Point.e|
|00001380| 76 74 50 74 3b 0d 49 6e | 74 65 67 65 72 09 65 76 |vtPt;.In|teger.ev|
|00001390| 74 50 61 72 74 3b 0d 47 | 72 61 66 50 74 72 09 65 |tPart;.G|rafPtr.e|
|000013a0| 76 74 50 6f 72 74 3b 0d | 0d 09 65 76 74 50 74 20 |vtPort;.|..evtPt |
|000013b0| 3d 20 74 68 65 45 76 65 | 6e 74 2d 3e 77 68 65 72 |= theEve|nt->wher|
|000013c0| 65 3b 0d 09 65 76 74 50 | 61 72 74 20 3d 20 46 69 |e;..evtP|art = Fi|
|000013d0| 6e 64 57 69 6e 64 6f 77 | 20 28 65 76 74 50 74 2c |ndWindow| (evtPt,|
|000013e0| 20 26 65 76 74 50 6f 72 | 74 29 3b 0d 09 69 66 20 | &evtPor|t);..if |
|000013f0| 28 65 78 63 6c 75 64 65 | 4c 6f 67 20 26 26 20 65 |(exclude|Log && e|
|00001400| 76 74 50 6f 72 74 20 3d | 3d 20 6c 6f 67 57 69 6e |vtPort =|= logWin|
|00001410| 64 29 0d 09 09 72 65 74 | 75 72 6e 3b 0d 09 44 69 |d)...ret|urn;..Di|
|00001420| 73 70 6c 61 79 53 74 72 | 69 6e 67 20 28 22 5c 70 |splayStr|ing ("\p|
|00001430| 4d 6f 75 73 65 20 63 6c | 69 63 6b 22 29 3b 0d 0d |Mouse cl|ick");..|
|00001440| 09 73 77 69 74 63 68 20 | 28 65 76 74 50 61 72 74 |.switch |(evtPart|
|00001450| 29 0d 09 7b 0d 0d 2f 2a | 0d 09 43 6c 69 63 6b 20 |)..{../*|..Click |
|00001460| 69 6e 20 61 20 64 65 73 | 6b 20 61 63 63 65 73 73 |in a des|k access|
|00001470| 6f 72 79 20 77 69 6e 64 | 6f 77 2e 0d 2a 2f 0d 09 |ory wind|ow..*/..|
|00001480| 09 63 61 73 65 20 69 6e | 53 79 73 57 69 6e 64 6f |.case in|SysWindo|
|00001490| 77 3a 0d 09 09 09 69 66 | 20 28 72 4d 6f 75 73 65 |w:....if| (rMouse|
|000014a0| 53 79 73 29 0d 09 09 09 | 7b 0d 09 09 09 09 69 66 |Sys)....|{.....if|
|000014b0| 20 28 72 4d 6f 75 73 65 | 50 61 72 74 29 0d 09 09 | (rMouse|Part)...|
|000014c0| 09 09 09 44 69 73 70 6c | 61 79 53 74 72 69 6e 67 |...Displ|ayString|
|000014d0| 20 28 22 5c 70 20 69 6e | 20 73 79 73 74 65 6d 20 | ("\p in| system |
|000014e0| 77 69 6e 64 6f 77 3a 22 | 29 3b 0d 09 09 09 09 69 |window:"|);.....i|
|000014f0| 66 20 28 72 4d 6f 75 73 | 65 57 69 6e 64 29 0d 09 |f (rMous|eWind)..|
|00001500| 09 09 09 09 57 69 6e 64 | 6f 77 49 6e 66 6f 20 28 |....Wind|owInfo (|
|00001510| 65 76 74 50 6f 72 74 29 | 3b 0d 09 09 09 09 4d 6f |evtPort)|;.....Mo|
|00001520| 75 73 65 4c 6f 63 20 28 | 65 76 74 50 74 2c 20 65 |useLoc (|evtPt, e|
|00001530| 76 74 50 6f 72 74 29 3b | 0d 09 09 09 7d 0d 09 09 |vtPort);|....}...|
|00001540| 09 62 72 65 61 6b 3b 0d | 0d 2f 2a 0d 09 43 6c 69 |.break;.|./*..Cli|
|00001550| 63 6b 20 69 6e 20 64 65 | 73 6b 20 74 6f 70 2e 0d |ck in de|sk top..|
|00001560| 2a 2f 0d 09 09 63 61 73 | 65 20 69 6e 44 65 73 6b |*/...cas|e inDesk|
|00001570| 3a 0d 09 09 09 69 66 20 | 28 72 4d 6f 75 73 65 50 |:....if |(rMouseP|
|00001580| 61 72 74 29 0d 09 09 09 | 09 44 69 73 70 6c 61 79 |art)....|.Display|
|00001590| 53 74 72 69 6e 67 20 28 | 22 5c 70 20 69 6e 20 64 |String (|"\p in d|
|000015a0| 65 73 6b 74 6f 70 22 29 | 3b 0d 09 09 09 62 72 65 |esktop")|;....bre|
|000015b0| 61 6b 3b 0d 0d 2f 2a 0d | 09 43 6c 69 63 6b 20 69 |ak;../*.|.Click i|
|000015c0| 6e 20 6d 65 6e 75 20 62 | 61 72 2e 0d 2a 2f 0d 09 |n menu b|ar..*/..|
|000015d0| 09 63 61 73 65 20 69 6e | 4d 65 6e 75 42 61 72 3a |.case in|MenuBar:|
|000015e0| 0d 09 09 09 69 66 20 28 | 72 4d 6f 75 73 65 50 61 |....if (|rMousePa|
|000015f0| 72 74 29 0d 09 09 09 09 | 44 69 73 70 6c 61 79 53 |rt).....|DisplayS|
|00001600| 74 72 69 6e 67 20 28 22 | 5c 70 20 69 6e 20 6d 65 |tring ("|\p in me|
|00001610| 6e 75 20 62 61 72 22 29 | 3b 0d 09 09 09 62 72 65 |nu bar")|;....bre|
|00001620| 61 6b 3b 0d 0d 2f 2a 0d | 09 43 6c 69 63 6b 20 69 |ak;../*.|.Click i|
|00001630| 6e 20 67 72 6f 77 20 62 | 6f 78 2e 0d 2a 2f 0d 09 |n grow b|ox..*/..|
|00001640| 09 63 61 73 65 20 69 6e | 47 72 6f 77 3a 0d 09 09 |.case in|Grow:...|
|00001650| 09 69 66 20 28 72 4d 6f | 75 73 65 50 61 72 74 29 |.if (rMo|usePart)|
|00001660| 0d 09 09 09 09 44 69 73 | 70 6c 61 79 53 74 72 69 |.....Dis|playStri|
|00001670| 6e 67 20 28 22 5c 70 20 | 69 6e 20 67 72 6f 77 20 |ng ("\p |in grow |
|00001680| 72 65 67 69 6f 6e 3a 22 | 29 3b 0d 09 09 09 69 66 |region:"|);....if|
|00001690| 20 28 72 4d 6f 75 73 65 | 57 69 6e 64 29 0d 09 09 | (rMouse|Wind)...|
|000016a0| 09 09 57 69 6e 64 6f 77 | 49 6e 66 6f 20 28 65 76 |..Window|Info (ev|
|000016b0| 74 50 6f 72 74 29 3b 0d | 09 09 09 4d 6f 75 73 65 |tPort);.|...Mouse|
|000016c0| 4c 6f 63 20 28 65 76 74 | 50 74 2c 20 65 76 74 50 |Loc (evt|Pt, evtP|
|000016d0| 6f 72 74 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |ort);...|.break;.|
|000016e0| 0d 2f 2a 0d 09 43 6c 69 | 63 6b 20 69 6e 20 74 69 |./*..Cli|ck in ti|
|000016f0| 74 6c 65 20 62 61 72 2e | 0d 2a 2f 0d 09 09 63 61 |tle bar.|.*/...ca|
|00001700| 73 65 20 69 6e 44 72 61 | 67 3a 0d 09 09 09 69 66 |se inDra|g:....if|
|00001710| 20 28 72 4d 6f 75 73 65 | 50 61 72 74 29 0d 09 09 | (rMouse|Part)...|
|00001720| 09 09 44 69 73 70 6c 61 | 79 53 74 72 69 6e 67 20 |..Displa|yString |
|00001730| 28 22 5c 70 20 69 6e 20 | 64 72 61 67 20 72 65 67 |("\p in |drag reg|
|00001740| 69 6f 6e 3a 22 29 3b 0d | 09 09 09 69 66 20 28 72 |ion:");.|...if (r|
|00001750| 4d 6f 75 73 65 57 69 6e | 64 29 0d 09 09 09 09 57 |MouseWin|d).....W|
|00001760| 69 6e 64 6f 77 49 6e 66 | 6f 20 28 65 76 74 50 6f |indowInf|o (evtPo|
|00001770| 72 74 29 3b 0d 09 09 09 | 62 72 65 61 6b 3b 0d 0d |rt);....|break;..|
|00001780| 2f 2a 0d 09 43 6c 69 63 | 6b 20 69 6e 20 63 6c 6f |/*..Clic|k in clo|
|00001790| 73 65 20 62 6f 78 2e 0d | 2a 2f 0d 09 09 63 61 73 |se box..|*/...cas|
|000017a0| 65 20 69 6e 47 6f 41 77 | 61 79 3a 0d 09 09 09 69 |e inGoAw|ay:....i|
|000017b0| 66 20 28 72 4d 6f 75 73 | 65 50 61 72 74 29 0d 09 |f (rMous|ePart)..|
|000017c0| 09 09 09 44 69 73 70 6c | 61 79 53 74 72 69 6e 67 |...Displ|ayString|
|000017d0| 20 28 22 5c 70 20 69 6e | 20 63 6c 6f 73 65 20 62 | ("\p in| close b|
|000017e0| 6f 78 3a 22 29 3b 0d 09 | 09 09 69 66 20 28 72 4d |ox:");..|..if (rM|
|000017f0| 6f 75 73 65 57 69 6e 64 | 29 0d 09 09 09 09 57 69 |ouseWind|).....Wi|
|00001800| 6e 64 6f 77 49 6e 66 6f | 20 28 65 76 74 50 6f 72 |ndowInfo| (evtPor|
|00001810| 74 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 0d 2f |t);....b|reak;../|
|00001820| 2a 0d 09 43 6c 69 63 6b | 20 69 6e 20 7a 6f 6f 6d |*..Click| in zoom|
|00001830| 2d 69 6e 20 62 6f 78 2e | 0d 2a 2f 0d 09 09 63 61 |-in box.|.*/...ca|
|00001840| 73 65 20 69 6e 5a 6f 6f | 6d 49 6e 3a 0d 09 09 09 |se inZoo|mIn:....|
|00001850| 69 66 20 28 72 4d 6f 75 | 73 65 50 61 72 74 29 0d |if (rMou|sePart).|
|00001860| 09 09 09 09 44 69 73 70 | 6c 61 79 53 74 72 69 6e |....Disp|layStrin|
|00001870| 67 20 28 22 5c 70 20 69 | 6e 20 7a 6f 6f 6d 2d 69 |g ("\p i|n zoom-i|
|00001880| 6e 20 62 6f 78 3a 22 29 | 3b 0d 09 09 09 69 66 20 |n box:")|;....if |
|00001890| 28 72 4d 6f 75 73 65 57 | 69 6e 64 29 0d 09 09 09 |(rMouseW|ind)....|
|000018a0| 09 57 69 6e 64 6f 77 49 | 6e 66 6f 20 28 65 76 74 |.WindowI|nfo (evt|
|000018b0| 50 6f 72 74 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |Port);..|..break;|
|000018c0| 0d 0d 2f 2a 0d 09 43 6c | 69 63 6b 20 69 6e 20 7a |../*..Cl|ick in z|
|000018d0| 6f 6f 6d 2d 6f 75 74 20 | 62 6f 78 2e 0d 2a 2f 0d |oom-out |box..*/.|
|000018e0| 09 09 63 61 73 65 20 69 | 6e 5a 6f 6f 6d 4f 75 74 |..case i|nZoomOut|
|000018f0| 3a 0d 09 09 09 69 66 20 | 28 72 4d 6f 75 73 65 50 |:....if |(rMouseP|
|00001900| 61 72 74 29 0d 09 09 09 | 09 44 69 73 70 6c 61 79 |art)....|.Display|
|00001910| 53 74 72 69 6e 67 20 28 | 22 5c 70 20 69 6e 20 7a |String (|"\p in z|
|00001920| 6f 6f 6d 2d 6f 75 74 20 | 62 6f 78 3a 22 29 3b 0d |oom-out |box:");.|
|00001930| 09 09 09 69 66 20 28 72 | 4d 6f 75 73 65 57 69 6e |...if (r|MouseWin|
|00001940| 64 29 0d 09 09 09 09 57 | 69 6e 64 6f 77 49 6e 66 |d).....W|indowInf|
|00001950| 6f 20 28 65 76 74 50 6f | 72 74 29 3b 0d 09 09 09 |o (evtPo|rt);....|
|00001960| 62 72 65 61 6b 3b 0d 0d | 2f 2a 0d 09 43 6c 69 63 |break;..|/*..Clic|
|00001970| 6b 20 69 6e 20 63 6f 6e | 74 65 6e 74 20 72 65 67 |k in con|tent reg|
|00001980| 69 6f 6e 2e 0d 0d 09 28 | 73 6f 6d 65 20 64 61 79 |ion....(|some day|
|00001990| 20 2d 20 63 68 65 63 6b | 20 69 66 20 69 6e 20 63 | - check| if in c|
|000019a0| 6f 6e 74 72 6f 6c 2c 20 | 61 6e 64 20 69 66 20 73 |ontrol, |and if s|
|000019b0| 6f 2c 20 70 72 69 6e 74 | 20 63 6f 6e 74 72 6f 6c |o, print| control|
|000019c0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 29 0d 2a 2f | informa|tion).*/|
|000019d0| 0d 09 09 63 61 73 65 20 | 69 6e 43 6f 6e 74 65 6e |...case |inConten|
|000019e0| 74 3a 0d 09 09 09 69 66 | 20 28 72 4d 6f 75 73 65 |t:....if| (rMouse|
|000019f0| 50 61 72 74 29 0d 09 09 | 09 09 44 69 73 70 6c 61 |Part)...|..Displa|
|00001a00| 79 53 74 72 69 6e 67 20 | 28 22 5c 70 20 69 6e 20 |yString |("\p in |
|00001a10| 63 6f 6e 74 65 6e 74 20 | 72 65 67 69 6f 6e 3a 22 |content |region:"|
|00001a20| 29 3b 0d 09 09 09 69 66 | 20 28 72 4d 6f 75 73 65 |);....if| (rMouse|
|00001a30| 57 69 6e 64 29 0d 09 09 | 09 09 57 69 6e 64 6f 77 |Wind)...|..Window|
|00001a40| 49 6e 66 6f 20 28 65 76 | 74 50 6f 72 74 29 3b 0d |Info (ev|tPort);.|
|00001a50| 09 09 09 4d 6f 75 73 65 | 4c 6f 63 20 28 65 76 74 |...Mouse|Loc (evt|
|00001a60| 50 74 2c 20 65 76 74 50 | 6f 72 74 29 3b 0d 09 09 |Pt, evtP|ort);...|
|00001a70| 09 62 72 65 61 6b 3b 0d | 0d 09 7d 0d 09 69 66 20 |.break;.|..}..if |
|00001a80| 28 72 4d 6f 75 73 65 4d | 6f 64 73 29 0d 09 09 4d |(rMouseM|ods)...M|
|00001a90| 6f 64 69 66 69 65 72 73 | 20 28 74 68 65 45 76 65 |odifiers| (theEve|
|00001aa0| 6e 74 2d 3e 6d 6f 64 69 | 66 69 65 72 73 29 3b 0d |nt->modi|fiers);.|
|00001ab0| 09 44 69 73 70 6c 61 79 | 4c 6e 20 28 29 3b 0d 7d |.Display|Ln ();.}|
|00001ac0| 0d 0d 0d 52 65 70 6f 72 | 74 4b 65 79 20 28 77 68 |...Repor|tKey (wh|
|00001ad0| 61 74 2c 20 63 2c 20 6d | 6f 64 73 2c 20 6d 6f 64 |at, c, m|ods, mod|
|00001ae0| 46 6c 61 67 29 0d 49 6e | 74 65 67 65 72 09 77 68 |Flag).In|teger.wh|
|00001af0| 61 74 3b 0d 63 68 61 72 | 09 63 3b 0d 49 6e 74 65 |at;.char|.c;.Inte|
|00001b00| 67 65 72 09 6d 6f 64 73 | 3b 0d 42 6f 6f 6c 65 61 |ger.mods|;.Boolea|
|00001b10| 6e 09 6d 6f 64 46 6c 61 | 67 3b 0d 7b 0d 09 69 66 |n.modFla|g;.{..if|
|00001b20| 20 28 77 68 61 74 20 3d | 3d 20 6b 65 79 44 6f 77 | (what =|= keyDow|
|00001b30| 6e 29 0d 09 09 44 69 73 | 70 6c 61 79 53 74 72 69 |n)...Dis|playStri|
|00001b40| 6e 67 20 28 22 5c 70 4b | 65 79 20 64 6f 77 6e 3a |ng ("\pK|ey down:|
|00001b50| 20 63 68 61 72 20 27 22 | 29 3b 0d 09 65 6c 73 65 | char '"|);..else|
|00001b60| 0d 09 09 44 69 73 70 6c | 61 79 53 74 72 69 6e 67 |...Displ|ayString|
|00001b70| 20 28 22 5c 70 41 75 74 | 6f 6b 65 79 3a 20 63 68 | ("\pAut|okey: ch|
|00001b80| 61 72 20 27 22 29 3b 0d | 09 44 69 73 70 6c 61 79 |ar '");.|.Display|
|00001b90| 43 68 61 72 20 28 63 29 | 3b 0d 09 44 69 73 70 6c |Char (c)|;..Displ|
|00001ba0| 61 79 53 74 72 69 6e 67 | 20 28 22 5c 70 27 20 22 |ayString| ("\p' "|
|00001bb0| 29 3b 0d 09 69 66 20 28 | 6d 6f 64 46 6c 61 67 29 |);..if (|modFlag)|
|00001bc0| 0d 09 09 4d 6f 64 69 66 | 69 65 72 73 20 28 6d 6f |...Modif|iers (mo|
|00001bd0| 64 73 29 3b 0d 09 44 69 | 73 70 6c 61 79 4c 6e 20 |ds);..Di|splayLn |
|00001be0| 28 29 3b 0d 7d 0d 0d 0d | 52 65 70 6f 72 74 41 63 |();.}...|ReportAc|
|00001bf0| 74 69 76 61 74 65 20 28 | 74 68 65 57 69 6e 64 2c |tivate (|theWind,|
|00001c00| 20 6d 6f 64 73 29 0d 57 | 69 6e 64 6f 77 50 74 72 | mods).W|indowPtr|
|00001c10| 09 74 68 65 57 69 6e 64 | 3b 0d 49 6e 74 65 67 65 |.theWind|;.Intege|
|00001c20| 72 09 09 6d 6f 64 73 3b | 0d 7b 0d 09 69 66 20 28 |r..mods;|.{..if (|
|00001c30| 28 6d 6f 64 73 20 26 20 | 61 63 74 69 76 65 46 6c |(mods & |activeFl|
|00001c40| 61 67 29 20 21 3d 20 30 | 29 0d 09 09 44 69 73 70 |ag) != 0|)...Disp|
|00001c50| 6c 61 79 53 74 72 69 6e | 67 20 28 22 5c 70 41 63 |layStrin|g ("\pAc|
|00001c60| 74 69 76 61 74 65 3a 22 | 29 3b 0d 09 65 6c 73 65 |tivate:"|);..else|
|00001c70| 0d 09 09 44 69 73 70 6c | 61 79 53 74 72 69 6e 67 |...Displ|ayString|
|00001c80| 20 28 22 5c 70 44 65 61 | 63 74 69 76 61 74 65 3a | ("\pDea|ctivate:|
|00001c90| 22 29 3b 0d 09 57 69 6e | 64 6f 77 49 6e 66 6f 20 |");..Win|dowInfo |
|00001ca0| 28 74 68 65 57 69 6e 64 | 29 3b 0d 09 44 69 73 70 |(theWind|);..Disp|
|00001cb0| 6c 61 79 4c 6e 20 28 29 | 3b 0d 7d 0d 0d 0d 52 65 |layLn ()|;.}...Re|
|00001cc0| 70 6f 72 74 55 70 64 61 | 74 65 20 28 74 68 65 57 |portUpda|te (theW|
|00001cd0| 69 6e 64 29 0d 57 69 6e | 64 6f 77 50 74 72 09 74 |ind).Win|dowPtr.t|
|00001ce0| 68 65 57 69 6e 64 3b 0d | 7b 0d 09 44 69 73 70 6c |heWind;.|{..Displ|
|00001cf0| 61 79 53 74 72 69 6e 67 | 20 28 22 5c 70 55 70 64 |ayString| ("\pUpd|
|00001d00| 61 74 65 3a 22 29 3b 0d | 09 57 69 6e 64 6f 77 49 |ate:");.|.WindowI|
|00001d10| 6e 66 6f 20 28 74 68 65 | 57 69 6e 64 29 3b 0d 09 |nfo (the|Wind);..|
|00001d20| 44 69 73 70 6c 61 79 4c | 6e 20 28 29 3b 0d 7d 0d |DisplayL|n ();.}.|
|00001d30| 0d 0d 2f 2a 0d 09 47 65 | 6e 65 72 61 6c 20 65 76 |../*..Ge|neral ev|
|00001d40| 65 6e 74 20 6c 6f 67 67 | 65 72 0d 2a 2f 0d 0d 4c |ent logg|er.*/..L|
|00001d50| 6f 67 45 76 65 6e 74 20 | 28 74 68 65 45 76 74 29 |ogEvent |(theEvt)|
|00001d60| 0d 45 76 65 6e 74 52 65 | 63 6f 72 64 09 2a 74 68 |.EventRe|cord.*th|
|00001d70| 65 45 76 74 3b 0d 0d 7b | 0d 72 65 67 69 73 74 65 |eEvt;..{|.registe|
|00001d80| 72 20 45 76 65 6e 74 52 | 65 63 6f 72 64 09 2a 74 |r EventR|ecord.*t|
|00001d90| 68 65 45 76 65 6e 74 3b | 0d 50 6f 69 6e 74 09 09 |heEvent;|.Point..|
|00001da0| 09 09 09 65 76 74 50 74 | 3b 0d 47 72 61 66 50 74 |...evtPt|;.GrafPt|
|00001db0| 72 09 09 09 09 09 74 6d | 70 50 6f 72 74 3b 0d 72 |r.....tm|pPort;.r|
|00001dc0| 65 67 69 73 74 65 72 20 | 49 6e 74 65 67 65 72 09 |egister |Integer.|
|00001dd0| 09 65 76 74 50 61 72 74 | 3b 0d 72 65 67 69 73 74 |.evtPart|;.regist|
|00001de0| 65 72 20 63 68 61 72 09 | 09 09 65 76 74 43 68 61 |er char.|..evtCha|
|00001df0| 72 3b 0d 72 65 67 69 73 | 74 65 72 20 49 6e 74 65 |r;.regis|ter Inte|
|00001e00| 67 65 72 09 09 65 76 74 | 4d 6f 64 73 3b 0d 52 65 |ger..evt|Mods;.Re|
|00001e10| 63 74 09 09 09 09 09 72 | 3b 0d 0d 09 69 66 20 28 |ct.....r|;...if (|
|00001e20| 72 65 70 6f 72 74 45 76 | 65 6e 74 73 20 3d 3d 20 |reportEv|ents == |
|00001e30| 66 61 6c 73 65 29 0d 09 | 09 72 65 74 75 72 6e 20 |false)..|.return |
|00001e40| 28 66 61 6c 73 65 29 3b | 09 09 09 2f 2a 20 64 6f |(false);|.../* do|
|00001e50| 6e 27 74 20 64 6f 20 61 | 6e 79 74 68 69 6e 67 20 |n't do a|nything |
|00001e60| 2a 2f 0d 09 74 68 65 45 | 76 65 6e 74 20 3d 20 74 |*/..theE|vent = t|
|00001e70| 68 65 45 76 74 3b 0d 09 | 65 76 74 50 74 20 3d 20 |heEvt;..|evtPt = |
|00001e80| 74 68 65 45 76 65 6e 74 | 2d 3e 77 68 65 72 65 3b |theEvent|->where;|
|00001e90| 0d 09 73 77 69 74 63 68 | 20 28 74 68 65 45 76 65 |..switch| (theEve|
|00001ea0| 6e 74 2d 3e 77 68 61 74 | 29 0d 09 7b 0d 0d 2f 2a |nt->what|)..{../*|
|00001eb0| 0d 09 4d 6f 75 73 65 20 | 63 6c 69 63 6b 2e 0d 2a |..Mouse |click..*|
|00001ec0| 2f 0d 09 09 63 61 73 65 | 20 6d 6f 75 73 65 44 6f |/...case| mouseDo|
|00001ed0| 77 6e 3a 0d 09 09 09 69 | 66 20 28 72 4d 6f 75 73 |wn:....i|f (rMous|
|00001ee0| 65 44 6f 77 6e 29 0d 09 | 09 09 09 52 65 70 6f 72 |eDown)..|...Repor|
|00001ef0| 74 4d 6f 75 73 65 20 28 | 74 68 65 45 76 65 6e 74 |tMouse (|theEvent|
|00001f00| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 0d 09 09 |);....br|eak;....|
|00001f10| 63 61 73 65 20 6d 6f 75 | 73 65 55 70 3a 0d 09 09 |case mou|seUp:...|
|00001f20| 09 69 66 20 28 72 4d 6f | 75 73 65 55 70 29 0d 09 |.if (rMo|useUp)..|
|00001f30| 09 09 09 44 69 73 70 6c | 61 79 53 74 72 69 6e 67 |...Displ|ayString|
|00001f40| 20 28 22 5c 70 4d 6f 75 | 73 65 20 75 70 5c 72 22 | ("\pMou|se up\r"|
|00001f50| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 0d 2f 2a |);....br|eak;../*|
|00001f60| 0d 09 4b 65 79 20 65 76 | 65 6e 74 2e 0d 2a 2f 0d |..Key ev|ent..*/.|
|00001f70| 09 09 63 61 73 65 20 6b | 65 79 44 6f 77 6e 3a 0d |..case k|eyDown:.|
|00001f80| 09 09 09 69 66 20 28 65 | 78 63 6c 75 64 65 4c 6f |...if (e|xcludeLo|
|00001f90| 67 20 26 26 20 46 72 6f | 6e 74 57 69 6e 64 6f 77 |g && Fro|ntWindow|
|00001fa0| 20 28 29 20 3d 3d 20 6c | 6f 67 57 69 6e 64 29 0d | () == l|ogWind).|
|00001fb0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 69 66 |....brea|k;....if|
|00001fc0| 20 28 72 4b 65 79 44 6f | 77 6e 29 0d 09 09 09 7b | (rKeyDo|wn)....{|
|00001fd0| 0d 09 09 09 09 65 76 74 | 43 68 61 72 20 3d 20 74 |.....evt|Char = t|
|00001fe0| 68 65 45 76 65 6e 74 2d | 3e 6d 65 73 73 61 67 65 |heEvent-|>message|
|00001ff0| 20 26 20 63 68 61 72 43 | 6f 64 65 4d 61 73 6b 3b | & charC|odeMask;|
|00002000| 0d 09 09 09 09 65 76 74 | 4d 6f 64 73 20 3d 20 74 |.....evt|Mods = t|
|00002010| 68 65 45 76 65 6e 74 2d | 3e 6d 6f 64 69 66 69 65 |heEvent-|>modifie|
|00002020| 72 73 3b 0d 09 09 09 09 | 52 65 70 6f 72 74 4b 65 |rs;.....|ReportKe|
|00002030| 79 20 28 6b 65 79 44 6f | 77 6e 2c 20 65 76 74 43 |y (keyDo|wn, evtC|
|00002040| 68 61 72 2c 20 65 76 74 | 4d 6f 64 73 2c 20 72 4b |har, evt|Mods, rK|
|00002050| 44 4d 6f 64 73 29 3b 0d | 09 09 09 7d 0d 09 09 09 |DMods);.|...}....|
|00002060| 62 72 65 61 6b 3b 0d 0d | 09 09 63 61 73 65 20 61 |break;..|..case a|
|00002070| 75 74 6f 4b 65 79 3a 0d | 09 09 09 69 66 20 28 65 |utoKey:.|...if (e|
|00002080| 78 63 6c 75 64 65 4c 6f | 67 20 26 26 20 46 72 6f |xcludeLo|g && Fro|
|00002090| 6e 74 57 69 6e 64 6f 77 | 20 28 29 20 3d 3d 20 6c |ntWindow| () == l|
|000020a0| 6f 67 57 69 6e 64 29 0d | 09 09 09 09 62 72 65 61 |ogWind).|....brea|
|000020b0| 6b 3b 0d 09 09 09 69 66 | 20 28 72 4b 65 79 44 6f |k;....if| (rKeyDo|
|000020c0| 77 6e 29 0d 09 09 09 7b | 0d 09 09 09 09 65 76 74 |wn)....{|.....evt|
|000020d0| 43 68 61 72 20 3d 20 74 | 68 65 45 76 65 6e 74 2d |Char = t|heEvent-|
|000020e0| 3e 6d 65 73 73 61 67 65 | 20 26 20 63 68 61 72 43 |>message| & charC|
|000020f0| 6f 64 65 4d 61 73 6b 3b | 0d 09 09 09 09 65 76 74 |odeMask;|.....evt|
|00002100| 4d 6f 64 73 20 3d 20 74 | 68 65 45 76 65 6e 74 2d |Mods = t|heEvent-|
|00002110| 3e 6d 6f 64 69 66 69 65 | 72 73 3b 0d 09 09 09 09 |>modifie|rs;.....|
|00002120| 52 65 70 6f 72 74 4b 65 | 79 20 28 61 75 74 6f 4b |ReportKe|y (autoK|
|00002130| 65 79 2c 20 65 76 74 43 | 68 61 72 2c 20 65 76 74 |ey, evtC|har, evt|
|00002140| 4d 6f 64 73 2c 20 72 41 | 4b 4d 6f 64 73 29 3b 0d |Mods, rA|KMods);.|
|00002150| 09 09 09 7d 0d 09 09 09 | 62 72 65 61 6b 3b 0d 0d |...}....|break;..|
|00002160| 2f 2a 0d 09 55 70 64 61 | 74 65 20 61 20 77 69 6e |/*..Upda|te a win|
|00002170| 64 6f 77 2e 20 20 49 66 | 20 69 74 27 73 20 61 6e |dow. If| it's an|
|00002180| 20 75 70 64 61 74 65 20 | 66 6f 72 20 74 68 65 20 | update |for the |
|00002190| 6c 6f 67 20 77 69 6e 64 | 6f 77 2c 20 69 6e 76 61 |log wind|ow, inva|
|000021a0| 6c 69 64 61 74 65 0d 09 | 69 74 2c 20 62 65 63 61 |lidate..|it, beca|
|000021b0| 75 73 65 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |use the |message |
|000021c0| 69 73 20 77 72 69 74 74 | 65 6e 20 61 6e 64 20 77 |is writt|en and w|
|000021d0| 69 6c 6c 20 63 61 75 73 | 65 20 61 20 73 63 72 6f |ill caus|e a scro|
|000021e0| 6c 6c 20 42 45 46 4f 52 | 45 0d 09 74 68 65 20 77 |ll BEFOR|E..the w|
|000021f0| 69 6e 64 6f 77 20 61 63 | 74 75 61 6c 6c 79 20 67 |indow ac|tually g|
|00002200| 65 74 73 20 75 70 64 61 | 74 65 64 2e 20 20 54 68 |ets upda|ted. Th|
|00002210| 69 73 20 6d 65 61 6e 73 | 20 74 68 61 74 20 70 61 |is means| that pa|
|00002220| 72 74 20 6f 66 20 77 68 | 61 74 0d 09 6e 65 65 64 |rt of wh|at..need|
|00002230| 73 20 72 65 64 72 61 77 | 69 6e 67 20 77 69 6c 6c |s redraw|ing will|
|00002240| 20 62 65 20 73 63 72 6f | 6c 6c 65 64 20 6f 75 74 | be scro|lled out|
|00002250| 20 6f 66 20 74 68 65 20 | 75 70 64 61 74 65 20 72 | of the |update r|
|00002260| 65 67 69 6f 6e 20 61 6e | 64 20 77 6f 6e 27 74 0d |egion an|d won't.|
|00002270| 09 62 65 20 72 65 64 72 | 61 77 6e 20 70 72 6f 70 |.be redr|awn prop|
|00002280| 65 72 6c 79 2e 20 20 49 | 6e 76 61 6c 69 64 61 74 |erly. I|nvalidat|
|00002290| 69 6e 67 20 74 68 65 20 | 65 6e 74 69 72 65 20 70 |ing the |entire p|
|000022a0| 6f 72 74 20 69 73 20 77 | 61 73 74 65 66 75 6c 20 |ort is w|asteful |
|000022b0| 62 75 74 0d 09 6d 61 6b | 65 73 20 73 75 72 65 20 |but..mak|es sure |
|000022c0| 74 68 65 20 77 68 6f 6c | 65 20 77 69 6e 64 6f 77 |the whol|e window|
|000022d0| 20 63 61 6e 20 62 65 20 | 64 72 61 77 6e 20 70 72 | can be |drawn pr|
|000022e0| 6f 70 65 72 6c 79 2e 0d | 2a 2f 0d 09 09 63 61 73 |operly..|*/...cas|
|000022f0| 65 20 75 70 64 61 74 65 | 45 76 74 3a 0d 09 09 09 |e update|Evt:....|
|00002300| 69 66 20 28 28 57 69 6e | 64 6f 77 50 74 72 29 20 |if ((Win|dowPtr) |
|00002310| 74 68 65 45 76 65 6e 74 | 2d 3e 6d 65 73 73 61 67 |theEvent|->messag|
|00002320| 65 20 3d 3d 20 6c 6f 67 | 57 69 6e 64 29 0d 09 09 |e == log|Wind)...|
|00002330| 09 7b 0d 09 09 09 09 47 | 65 74 50 6f 72 74 20 28 |.{.....G|etPort (|
|00002340| 26 74 6d 70 50 6f 72 74 | 29 3b 0d 09 09 09 09 53 |&tmpPort|);.....S|
|00002350| 65 74 50 6f 72 74 20 28 | 6c 6f 67 57 69 6e 64 29 |etPort (|logWind)|
|00002360| 3b 0d 09 09 09 09 49 6e | 76 61 6c 52 65 63 74 20 |;.....In|valRect |
|00002370| 28 26 6c 6f 67 57 69 6e | 64 2d 3e 70 6f 72 74 52 |(&logWin|d->portR|
|00002380| 65 63 74 29 3b 0d 09 09 | 09 09 53 65 74 50 6f 72 |ect);...|..SetPor|
|00002390| 74 20 28 74 6d 70 50 6f | 72 74 29 3b 0d 09 09 09 |t (tmpPo|rt);....|
|000023a0| 7d 0d 09 09 09 69 66 20 | 28 65 78 63 6c 75 64 65 |}....if |(exclude|
|000023b0| 4c 6f 67 20 26 26 20 28 | 57 69 6e 64 6f 77 50 74 |Log && (|WindowPt|
|000023c0| 72 29 20 74 68 65 45 76 | 65 6e 74 2d 3e 6d 65 73 |r) theEv|ent->mes|
|000023d0| 73 61 67 65 20 3d 3d 20 | 6c 6f 67 57 69 6e 64 29 |sage == |logWind)|
|000023e0| 0d 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 69 |.....bre|ak;....i|
|000023f0| 66 20 28 72 55 70 64 61 | 74 65 29 0d 09 09 09 09 |f (rUpda|te).....|
|00002400| 52 65 70 6f 72 74 55 70 | 64 61 74 65 20 28 74 68 |ReportUp|date (th|
|00002410| 65 45 76 65 6e 74 2d 3e | 6d 65 73 73 61 67 65 29 |eEvent->|message)|
|00002420| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 0d 2f 2a 0d |;....bre|ak;../*.|
|00002430| 09 41 63 74 69 76 61 74 | 65 20 6f 72 20 64 65 61 |.Activat|e or dea|
|00002440| 63 74 69 76 61 74 65 20 | 61 20 77 69 6e 64 6f 77 |ctivate |a window|
|00002450| 2e 0d 2a 2f 0d 09 09 63 | 61 73 65 20 61 63 74 69 |..*/...c|ase acti|
|00002460| 76 61 74 65 45 76 74 3a | 0d 09 09 09 69 66 20 28 |vateEvt:|....if (|
|00002470| 65 78 63 6c 75 64 65 4c | 6f 67 20 26 26 20 28 57 |excludeL|og && (W|
|00002480| 69 6e 64 6f 77 50 74 72 | 29 20 74 68 65 45 76 65 |indowPtr|) theEve|
|00002490| 6e 74 2d 3e 6d 65 73 73 | 61 67 65 20 3d 3d 20 6c |nt->mess|age == l|
|000024a0| 6f 67 57 69 6e 64 29 0d | 09 09 09 09 62 72 65 61 |ogWind).|....brea|
|000024b0| 6b 3b 0d 09 09 09 69 66 | 20 28 72 41 63 74 69 76 |k;....if| (rActiv|
|000024c0| 61 74 65 29 0d 09 09 09 | 09 52 65 70 6f 72 74 41 |ate)....|.ReportA|
|000024d0| 63 74 69 76 61 74 65 20 | 28 74 68 65 45 76 65 6e |ctivate |(theEven|
|000024e0| 74 2d 3e 6d 65 73 73 61 | 67 65 2c 20 74 68 65 45 |t->messa|ge, theE|
|000024f0| 76 65 6e 74 2d 3e 6d 6f | 64 69 66 69 65 72 73 29 |vent->mo|difiers)|
|00002500| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 0d 2f 2a 0d |;....bre|ak;../*.|
|00002510| 09 68 61 6e 64 6c 65 20 | 69 6e 73 65 72 74 73 20 |.handle |inserts |
|00002520| 6f 66 20 75 6e 69 6e 69 | 74 69 61 6c 69 7a 65 64 |of unini|tialized|
|00002530| 20 64 69 73 6b 73 0d 2a | 2f 0d 09 09 63 61 73 65 | disks.*|/...case|
|00002540| 20 64 69 73 6b 45 76 74 | 3a 0d 09 09 09 69 66 20 | diskEvt|:....if |
|00002550| 28 72 44 69 73 6b 29 0d | 09 09 09 7b 0d 09 09 09 |(rDisk).|...{....|
|00002560| 09 44 69 73 70 6c 61 79 | 53 74 72 69 6e 67 20 28 |.Display|String (|
|00002570| 22 5c 70 44 69 73 6b 20 | 69 6e 73 65 72 74 69 6f |"\pDisk |insertio|
|00002580| 6e 22 29 3b 0d 09 09 09 | 09 69 66 20 28 48 69 57 |n");....|.if (HiW|
|00002590| 6f 72 64 20 28 74 68 65 | 45 76 65 6e 74 2d 3e 6d |ord (the|Event->m|
|000025a0| 65 73 73 61 67 65 29 20 | 21 3d 20 6e 6f 45 72 72 |essage) |!= noErr|
|000025b0| 29 0d 09 09 09 09 7b 0d | 09 09 09 09 09 44 69 73 |).....{.|.....Dis|
|000025c0| 70 6c 61 79 53 74 72 69 | 6e 67 20 28 22 5c 70 20 |playStri|ng ("\p |
|000025d0| 28 6e 65 65 64 73 20 69 | 6e 69 74 69 61 6c 69 7a |(needs i|nitializ|
|000025e0| 69 6e 67 29 22 29 3b 0d | 09 09 09 09 7d 0d 09 09 |ing)");.|....}...|
|000025f0| 09 09 44 69 73 70 6c 61 | 79 4c 6e 20 28 29 3b 0d |..Displa|yLn ();.|
|00002600| 09 09 09 7d 0d 09 09 09 | 62 72 65 61 6b 3b 0d 0d |...}....|break;..|
|00002610| 09 7d 0d 09 72 65 74 75 | 72 6e 20 28 66 61 6c 73 |.}..retu|rn (fals|
|00002620| 65 29 3b 09 09 2f 2a 20 | 6e 65 76 65 72 20 74 65 |e);../* |never te|
|00002630| 6c 6c 20 54 72 61 6e 73 | 53 6b 65 6c 20 74 68 65 |ll Trans|Skel the|
|00002640| 20 65 76 65 6e 74 20 77 | 61 73 20 68 61 6e 64 6c | event w|as handl|
|00002650| 65 64 20 2a 2f 0d 7d 0d | 0d 0d 2f 2a 0d 09 42 61 |ed */.}.|../*..Ba|
|00002660| 63 6b 67 72 6f 75 6e 64 | 20 70 72 6f 63 65 64 75 |ckground| procedu|
|00002670| 72 65 2e 20 20 43 68 65 | 63 6b 20 66 72 6f 6e 74 |re. Che|ck front|
|00002680| 20 77 69 6e 64 6f 77 2c | 20 72 65 73 65 74 20 65 | window,| reset e|
|00002690| 64 69 74 20 6d 65 6e 75 | 20 69 66 20 77 69 6e 64 |dit menu| if wind|
|000026a0| 6f 77 0d 09 63 68 61 6e | 67 65 73 20 66 72 6f 6d |ow..chan|ges from|
|000026b0| 20 61 6e 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 | an appl|ication |
|000026c0| 77 69 6e 64 6f 77 20 74 | 6f 20 61 20 6e 6f 6e 2d |window t|o a non-|
|000026d0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 77 69 6e 64 |applicat|ion wind|
|000026e0| 6f 77 2e 0d 09 44 69 73 | 61 62 6c 65 20 74 68 65 |ow...Dis|able the|
|000026f0| 20 45 64 69 74 20 6d 65 | 6e 75 20 77 68 65 6e 65 | Edit me|nu whene|
|00002700| 76 65 72 20 61 6e 20 61 | 70 70 6c 69 63 61 74 69 |ver an a|pplicati|
|00002710| 6f 6e 20 77 69 6e 64 6f | 77 20 69 73 20 61 63 74 |on windo|w is act|
|00002720| 69 76 65 2c 0d 09 65 6e | 61 62 6c 65 20 69 74 20 |ive,..en|able it |
|00002730| 6f 74 68 65 72 77 69 73 | 65 2e 0d 09 41 6c 73 6f |otherwis|e...Also|
|00002740| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 65 76 65 72 | called |whenever|
|00002750| 20 69 74 20 69 73 20 6b | 6e 6f 77 6e 20 74 68 61 | it is k|nown tha|
|00002760| 74 20 74 68 65 20 61 63 | 74 69 76 65 20 77 69 6e |t the ac|tive win|
|00002770| 64 6f 77 20 68 61 73 20 | 63 68 61 6e 67 65 64 2e |dow has |changed.|
|00002780| 0d 2a 2f 0d 0d 43 68 65 | 63 6b 46 72 6f 6e 74 20 |.*/..Che|ckFront |
|00002790| 28 29 0d 7b 0d 57 69 6e | 64 6f 77 50 74 72 09 63 |().{.Win|dowPtr.c|
|000027a0| 75 72 57 69 6e 64 3b 0d | 49 6e 74 65 67 65 72 09 |urWind;.|Integer.|
|000027b0| 09 74 68 65 4b 69 6e 64 | 3b 0d 42 6f 6f 6c 65 61 |.theKind|;.Boolea|
|000027c0| 6e 09 09 6c 61 73 74 49 | 73 41 70 70 20 3d 20 66 |n..lastI|sApp = f|
|000027d0| 61 6c 73 65 2c 0d 09 09 | 09 63 75 72 49 73 41 70 |alse,...|.curIsAp|
|000027e0| 70 20 3d 20 66 61 6c 73 | 65 3b 0d 0d 09 63 75 72 |p = fals|e;...cur|
|000027f0| 57 69 6e 64 20 3d 20 46 | 72 6f 6e 74 57 69 6e 64 |Wind = F|rontWind|
|00002800| 6f 77 20 28 29 3b 0d 09 | 69 66 20 28 49 73 44 57 |ow ();..|if (IsDW|
|00002810| 69 6e 64 6f 77 20 28 6c | 61 73 74 46 72 6f 6e 74 |indow (l|astFront|
|00002820| 29 20 7c 7c 20 6c 61 73 | 74 46 72 6f 6e 74 20 3d |) || las|tFront =|
|00002830| 3d 20 73 65 6c 65 63 74 | 57 69 6e 64 29 0d 09 09 |= select|Wind)...|
|00002840| 6c 61 73 74 49 73 41 70 | 70 20 3d 20 74 72 75 65 |lastIsAp|p = true|
|00002850| 3b 0d 09 69 66 20 28 49 | 73 44 57 69 6e 64 6f 77 |;..if (I|sDWindow|
|00002860| 20 28 63 75 72 57 69 6e | 64 29 20 7c 7c 20 63 75 | (curWin|d) || cu|
|00002870| 72 57 69 6e 64 20 3d 3d | 20 73 65 6c 65 63 74 57 |rWind ==| selectW|
|00002880| 69 6e 64 29 0d 09 09 63 | 75 72 49 73 41 70 70 20 |ind)...c|urIsApp |
|00002890| 3d 20 74 72 75 65 3b 0d | 09 69 66 20 28 6c 61 73 |= true;.|.if (las|
|000028a0| 74 46 72 6f 6e 74 20 21 | 3d 20 63 75 72 57 69 6e |tFront !|= curWin|
|000028b0| 64 29 0d 09 7b 0d 09 09 | 69 66 20 28 49 73 44 57 |d)..{...|if (IsDW|
|000028c0| 69 6e 64 6f 77 20 28 6c | 61 73 74 46 72 6f 6e 74 |indow (l|astFront|
|000028d0| 29 20 7c 7c 20 6c 61 73 | 74 46 72 6f 6e 74 20 3d |) || las|tFront =|
|000028e0| 3d 20 73 65 6c 65 63 74 | 57 69 6e 64 29 0d 09 09 |= select|Wind)...|
|000028f0| 09 6c 61 73 74 49 73 41 | 70 70 20 3d 20 74 72 75 |.lastIsA|pp = tru|
|00002900| 65 3b 0d 09 09 69 66 20 | 28 49 73 44 57 69 6e 64 |e;...if |(IsDWind|
|00002910| 6f 77 20 28 63 75 72 57 | 69 6e 64 29 20 7c 7c 20 |ow (curW|ind) || |
|00002920| 63 75 72 57 69 6e 64 20 | 3d 3d 20 73 65 6c 65 63 |curWind |== selec|
|00002930| 74 57 69 6e 64 29 0d 09 | 09 09 63 75 72 49 73 41 |tWind)..|..curIsA|
|00002940| 70 70 20 3d 20 74 72 75 | 65 3b 0d 09 09 69 66 20 |pp = tru|e;...if |
|00002950| 28 6c 61 73 74 49 73 41 | 70 70 20 21 3d 20 63 75 |(lastIsA|pp != cu|
|00002960| 72 49 73 41 70 70 29 0d | 09 09 7b 0d 09 09 09 74 |rIsApp).|..{....t|
|00002970| 68 65 4b 69 6e 64 20 3d | 20 30 3b 0d 09 09 09 69 |heKind =| 0;....i|
|00002980| 66 20 28 63 75 72 57 69 | 6e 64 20 21 3d 20 6e 69 |f (curWi|nd != ni|
|00002990| 6c 29 0d 09 09 09 09 74 | 68 65 4b 69 6e 64 20 3d |l).....t|heKind =|
|000029a0| 20 28 28 57 69 6e 64 6f | 77 50 65 65 6b 29 20 63 | ((Windo|wPeek) c|
|000029b0| 75 72 57 69 6e 64 29 2d | 3e 77 69 6e 64 6f 77 4b |urWind)-|>windowK|
|000029c0| 69 6e 64 3b 0d 09 09 09 | 69 66 20 28 63 75 72 57 |ind;....|if (curW|
|000029d0| 69 6e 64 20 3d 3d 20 6e | 69 6c 20 7c 7c 20 74 68 |ind == n|il || th|
|000029e0| 65 4b 69 6e 64 20 3c 20 | 30 29 09 2f 2a 20 6e 6f |eKind < |0)./* no|
|000029f0| 20 77 69 6e 64 6f 77 20 | 6f 72 20 44 41 20 69 6e | window |or DA in|
|00002a00| 20 66 72 6f 6e 74 20 2a | 2f 0d 09 09 09 09 45 6e | front *|/.....En|
|00002a10| 61 62 6c 65 49 74 65 6d | 20 28 65 64 69 74 4d 65 |ableItem| (editMe|
|00002a20| 6e 75 2c 20 30 29 3b 0d | 09 09 09 65 6c 73 65 0d |nu, 0);.|...else.|
|00002a30| 09 09 09 09 44 69 73 61 | 62 6c 65 49 74 65 6d 20 |....Disa|bleItem |
|00002a40| 28 65 64 69 74 4d 65 6e | 75 2c 20 30 29 3b 0d 09 |(editMen|u, 0);..|
|00002a50| 09 09 44 72 61 77 4d 65 | 6e 75 42 61 72 20 28 29 |..DrawMe|nuBar ()|
|00002a60| 3b 0d 09 09 7d 0d 09 09 | 6c 61 73 74 46 72 6f 6e |;...}...|lastFron|
|00002a70| 74 20 3d 20 63 75 72 57 | 69 6e 64 3b 0d 09 7d 0d |t = curW|ind;..}.|
|00002a80| 7d 0d 0d 0d 2f 2a 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.../* -|--------|
|00002a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ac0| 2d 2d 2d 20 2a 2f 0d 2f | 2a 09 09 09 45 76 65 6e |--- */./|*...Even|
|00002ad0| 74 20 53 65 6c 65 63 74 | 69 6f 6e 20 57 69 6e 64 |t Select|ion Wind|
|00002ae0| 6f 77 20 48 61 6e 64 6c | 65 72 20 52 6f 75 74 69 |ow Handl|er Routi|
|00002af0| 6e 65 73 09 09 09 09 2a | 2f 0d 2f 2a 20 2d 2d 2d |nes....*|/./* ---|
|00002b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 2a 2f 0d 0d 0d 2f |--------|- */.../|
|00002b40| 2a 0d 09 41 63 74 69 76 | 61 74 65 20 65 76 65 6e |*..Activ|ate even|
|00002b50| 74 20 70 72 6f 63 65 64 | 75 72 65 20 66 6f 72 20 |t proced|ure for |
|00002b60| 62 6f 74 68 20 64 69 73 | 70 6c 61 79 20 77 69 6e |both dis|play win|
|00002b70| 64 6f 77 73 20 61 6e 64 | 20 74 68 65 20 63 68 65 |dows and| the che|
|00002b80| 63 6b 62 6f 78 0d 09 77 | 69 6e 64 6f 77 2e 0d 2a |ckbox..w|indow..*|
|00002b90| 2f 0d 0d 41 63 74 69 76 | 61 74 65 20 28 61 63 74 |/..Activ|ate (act|
|00002ba0| 69 76 65 29 0d 42 6f 6f | 6c 65 61 6e 09 61 63 74 |ive).Boo|lean.act|
|00002bb0| 69 76 65 3b 0d 7b 0d 09 | 43 68 65 63 6b 46 72 6f |ive;.{..|CheckFro|
|00002bc0| 6e 74 20 28 29 3b 0d 7d | 0d 0d 2f 2a 0d 09 55 70 |nt ();.}|../*..Up|
|00002bd0| 64 61 74 65 20 77 69 6e | 64 6f 77 2e 20 20 54 68 |date win|dow. Th|
|00002be0| 69 73 20 69 73 20 65 61 | 73 79 2c 20 6a 75 73 74 |is is ea|sy, just|
|00002bf0| 20 64 72 61 77 20 74 68 | 65 20 63 6f 6e 74 72 6f | draw th|e contro|
|00002c00| 6c 73 2e 0d 2a 2f 0d 0d | 55 70 64 61 74 65 20 28 |ls..*/..|Update (|
|00002c10| 72 65 73 69 7a 65 64 29 | 0d 42 6f 6f 6c 65 61 6e |resized)|.Boolean|
|00002c20| 09 72 65 73 69 7a 65 64 | 3b 09 09 09 2f 2a 20 69 |.resized|;.../* i|
|00002c30| 67 6e 6f 72 65 64 20 2a | 2f 0d 7b 0d 09 44 72 61 |gnored *|/.{..Dra|
|00002c40| 77 43 6f 6e 74 72 6f 6c | 73 20 28 73 65 6c 65 63 |wControl|s (selec|
|00002c50| 74 57 69 6e 64 29 3b 0d | 7d 0d 0d 0d 2f 2a 0d 09 |tWind);.|}.../*..|
|00002c60| 48 61 6e 64 6c 65 20 68 | 69 74 73 20 69 6e 20 63 |Handle h|its in c|
|00002c70| 68 65 63 6b 20 62 6f 78 | 65 73 20 6f 66 20 73 65 |heck box|es of se|
|00002c80| 6c 65 63 74 69 6f 6e 20 | 77 69 6e 64 6f 77 3a 0d |lection |window:.|
|00002c90| 09 54 6f 67 67 6c 65 20 | 63 68 65 63 6b 20 62 6f |.Toggle |check bo|
|00002ca0| 78 2c 20 73 79 6e 63 20 | 74 68 65 20 61 73 73 6f |x, sync |the asso|
|00002cb0| 63 69 61 74 65 64 20 66 | 6c 61 67 2c 20 61 6e 64 |ciated f|lag, and|
|00002cc0| 20 65 6e 61 62 6c 65 20 | 6f 72 20 64 69 73 61 62 | enable |or disab|
|00002cd0| 6c 65 0d 09 61 6e 79 20 | 73 75 62 73 69 64 69 61 |le..any |subsidia|
|00002ce0| 72 79 20 63 68 65 63 6b | 20 62 6f 78 65 73 20 61 |ry check| boxes a|
|00002cf0| 63 63 6f 72 64 69 6e 67 | 6c 79 2e 20 20 28 53 75 |ccording|ly. (Su|
|00002d00| 62 73 69 64 69 61 72 69 | 65 73 20 68 61 76 65 0d |bsidiari|es have.|
|00002d10| 09 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 69 6e 20 |.informa|tion in |
|00002d20| 74 68 65 20 63 6f 6e 74 | 72 6f 6c 20 73 74 72 75 |the cont|rol stru|
|00002d30| 63 74 75 72 65 20 74 68 | 61 74 20 70 6f 69 6e 74 |cture th|at point|
|00002d40| 73 20 62 61 63 6b 20 74 | 6f 20 74 68 65 20 6f 77 |s back t|o the ow|
|00002d50| 6e 65 72 0d 09 63 68 65 | 63 6b 20 62 6f 78 2e 29 |ner..che|ck box.)|
|00002d60| 0d 0d 2a 2f 0d 0d 4d 6f | 75 73 65 20 28 74 68 65 |..*/..Mo|use (the|
|00002d70| 50 74 2c 20 74 2c 20 6d | 6f 64 73 29 0d 50 6f 69 |Pt, t, m|ods).Poi|
|00002d80| 6e 74 09 74 68 65 50 74 | 3b 0d 4c 6f 6e 67 69 6e |nt.thePt|;.Longin|
|00002d90| 74 09 74 3b 0d 49 6e 74 | 65 67 65 72 09 6d 6f 64 |t.t;.Int|eger.mod|
|00002da0| 73 3b 0d 7b 0d 43 6f 6e | 74 72 6f 6c 48 61 6e 64 |s;.{.Con|trolHand|
|00002db0| 6c 65 09 63 74 6c 3b 0d | 43 74 72 6c 49 6e 66 6f |le.ctl;.|CtrlInfo|
|00002dc0| 09 09 2a 63 69 3b 0d 42 | 6f 6f 6c 65 61 6e 09 09 |..*ci;.B|oolean..|
|00002dd0| 09 76 61 6c 3b 0d 49 6e | 74 65 67 65 72 09 09 09 |.val;.In|teger...|
|00002de0| 69 3b 0d 0d 09 69 66 20 | 28 46 69 6e 64 43 6f 6e |i;...if |(FindCon|
|00002df0| 74 72 6f 6c 20 28 74 68 | 65 50 74 2c 20 73 65 6c |trol (th|ePt, sel|
|00002e00| 65 63 74 57 69 6e 64 2c | 20 26 63 74 6c 29 29 0d |ectWind,| &ctl)).|
|00002e10| 09 7b 0d 09 09 69 66 20 | 28 54 72 61 63 6b 43 6f |.{...if |(TrackCo|
|00002e20| 6e 74 72 6f 6c 20 28 63 | 74 6c 2c 20 74 68 65 50 |ntrol (c|tl, theP|
|00002e30| 74 2c 20 6e 69 6c 29 29 | 0d 09 09 7b 0d 09 09 09 |t, nil))|...{....|
|00002e40| 63 69 20 3d 20 28 43 74 | 72 6c 49 6e 66 6f 20 2a |ci = (Ct|rlInfo *|
|00002e50| 29 20 47 65 74 43 52 65 | 66 43 6f 6e 20 28 63 74 |) GetCRe|fCon (ct|
|00002e60| 6c 29 3b 0d 09 09 09 76 | 61 6c 20 3d 20 21 47 65 |l);....v|al = !Ge|
|00002e70| 74 43 74 6c 56 61 6c 75 | 65 20 28 63 74 6c 29 3b |tCtlValu|e (ctl);|
|00002e80| 0d 09 09 09 2a 28 63 69 | 2d 3e 66 6c 61 67 41 64 |....*(ci|->flagAd|
|00002e90| 64 72 29 20 3d 20 76 61 | 6c 3b 0d 09 09 09 53 65 |dr) = va|l;....Se|
|00002ea0| 74 43 74 6c 56 61 6c 75 | 65 20 28 63 74 6c 2c 20 |tCtlValu|e (ctl, |
|00002eb0| 76 61 6c 29 3b 0d 09 09 | 0d 09 09 09 2f 2a 20 65 |val);...|..../* e|
|00002ec0| 6e 61 62 6c 65 2f 64 69 | 73 61 62 6c 65 20 61 6e |nable/di|sable an|
|00002ed0| 79 20 73 75 62 73 69 64 | 69 61 72 69 65 73 20 2a |y subsid|iaries *|
|00002ee0| 2f 0d 09 09 0d 09 09 09 | 66 6f 72 20 28 69 20 3d |/.......|for (i =|
|00002ef0| 20 30 3b 20 69 20 3c 20 | 6d 61 78 42 75 74 74 6f | 0; i < |maxButto|
|00002f00| 6e 3b 20 2b 2b 69 29 0d | 09 09 09 7b 0d 09 09 09 |n; ++i).|...{....|
|00002f10| 09 69 66 20 28 63 74 72 | 6c 49 6e 66 6f 5b 69 5d |.if (ctr|lInfo[i]|
|00002f20| 2e 73 75 62 49 6e 66 6f | 2d 3e 63 74 72 6c 20 3d |.subInfo|->ctrl =|
|00002f30| 3d 20 63 69 2d 3e 63 74 | 72 6c 29 0d 09 09 09 09 |= ci->ct|rl).....|
|00002f40| 09 48 69 6c 69 74 65 43 | 6f 6e 74 72 6f 6c 20 28 |.HiliteC|ontrol (|
|00002f50| 63 74 72 6c 49 6e 66 6f | 5b 69 5d 2e 63 74 72 6c |ctrlInfo|[i].ctrl|
|00002f60| 2c 20 76 61 6c 20 3f 20 | 30 20 3a 20 32 35 35 29 |, val ? |0 : 255)|
|00002f70| 3b 0d 09 09 09 7d 0d 09 | 09 7d 0d 09 7d 0d 7d 0d |;....}..|.}..}.}.|
|00002f80| 0d 0d 2f 2a 0d 09 46 69 | 6c 65 20 6d 65 6e 75 20 |../*..Fi|le menu |
|00002f90| 68 61 6e 64 6c 65 72 0d | 2a 2f 0d 0d 44 6f 46 69 |handler.|*/..DoFi|
|00002fa0| 6c 65 4d 65 6e 75 20 28 | 69 74 65 6d 29 0d 49 6e |leMenu (|item).In|
|00002fb0| 74 65 67 65 72 09 69 74 | 65 6d 3b 0d 7b 0d 09 73 |teger.it|em;.{..s|
|00002fc0| 77 69 74 63 68 20 28 69 | 74 65 6d 29 0d 09 7b 0d |witch (i|tem)..{.|
|00002fd0| 09 09 63 61 73 65 20 73 | 68 6f 77 48 65 6c 70 3a |..case s|howHelp:|
|00002fe0| 0d 09 09 09 53 65 6c 65 | 63 74 57 69 6e 64 6f 77 |....Sele|ctWindow|
|00002ff0| 20 28 68 65 6c 70 57 69 | 6e 64 29 3b 0d 09 09 09 | (helpWi|nd);....|
|00003000| 53 68 6f 77 57 69 6e 64 | 6f 77 20 28 68 65 6c 70 |ShowWind|ow (help|
|00003010| 57 69 6e 64 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |Wind);..|..break;|
|00003020| 0d 09 09 0d 09 09 63 61 | 73 65 20 73 68 6f 77 53 |......ca|se showS|
|00003030| 65 6c 65 63 74 3a 0d 09 | 09 09 53 65 6c 65 63 74 |elect:..|..Select|
|00003040| 57 69 6e 64 6f 77 20 28 | 73 65 6c 65 63 74 57 69 |Window (|selectWi|
|00003050| 6e 64 29 3b 0d 09 09 09 | 53 68 6f 77 57 69 6e 64 |nd);....|ShowWind|
|00003060| 6f 77 20 28 73 65 6c 65 | 63 74 57 69 6e 64 29 3b |ow (sele|ctWind);|
|00003070| 0d 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 0d 09 09 |....brea|k;......|
|00003080| 63 61 73 65 20 73 68 6f | 77 4c 6f 67 3a 0d 09 09 |case sho|wLog:...|
|00003090| 09 53 65 6c 65 63 74 57 | 69 6e 64 6f 77 20 28 6c |.SelectW|indow (l|
|000030a0| 6f 67 57 69 6e 64 29 3b | 0d 09 09 09 53 68 6f 77 |ogWind);|....Show|
|000030b0| 57 69 6e 64 6f 77 20 28 | 6c 6f 67 57 69 6e 64 29 |Window (|logWind)|
|000030c0| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 0d 09 |;....bre|ak;.....|
|000030d0| 09 63 61 73 65 20 71 75 | 69 74 3a 0d 09 09 09 53 |.case qu|it:....S|
|000030e0| 6b 65 6c 57 68 6f 61 20 | 28 29 3b 0d 09 09 09 62 |kelWhoa |();....b|
|000030f0| 72 65 61 6b 3b 0d 0d 09 | 7d 0d 7d 0d 0d 2f 2a 0d |reak;...|}.}../*.|
|00003100| 09 50 75 74 20 74 68 65 | 20 72 69 67 68 74 20 63 |.Put the| right c|
|00003110| 68 65 63 6b 20 6d 61 72 | 6b 73 20 69 6e 20 74 68 |heck mar|ks in th|
|00003120| 65 20 4c 6f 67 20 6d 65 | 6e 75 0d 2a 2f 0d 0d 53 |e Log me|nu.*/..S|
|00003130| 65 74 4c 6f 67 4d 65 6e | 75 20 28 29 0d 7b 0d 09 |etLogMen|u ().{..|
|00003140| 43 68 65 63 6b 49 74 65 | 6d 20 28 6c 6f 67 4d 65 |CheckIte|m (logMe|
|00003150| 6e 75 2c 20 6c 6f 67 45 | 76 65 6e 74 73 2c 20 72 |nu, logE|vents, r|
|00003160| 65 70 6f 72 74 45 76 65 | 6e 74 73 29 3b 0d 09 43 |eportEve|nts);..C|
|00003170| 68 65 63 6b 49 74 65 6d | 20 28 6c 6f 67 4d 65 6e |heckItem| (logMen|
|00003180| 75 2c 20 65 78 63 6c 75 | 64 65 4c 57 69 6e 64 2c |u, exclu|deLWind,|
|00003190| 20 65 78 63 6c 75 64 65 | 4c 6f 67 29 3b 0d 09 43 | exclude|Log);..C|
|000031a0| 68 65 63 6b 49 74 65 6d | 20 28 6c 6f 67 4d 65 6e |heckItem| (logMen|
|000031b0| 75 2c 20 77 72 61 70 53 | 74 79 6c 65 2c 20 6c 6f |u, wrapS|tyle, lo|
|000031c0| 67 57 72 61 70 20 3e 3d | 20 30 29 3b 0d 09 43 68 |gWrap >=| 0);..Ch|
|000031d0| 65 63 6b 49 74 65 6d 20 | 28 6c 6f 67 4d 65 6e 75 |eckItem |(logMenu|
|000031e0| 2c 20 6c 65 66 74 4a 75 | 73 74 2c 20 6c 6f 67 4a |, leftJu|st, logJ|
|000031f0| 75 73 74 20 3d 3d 20 74 | 65 4a 75 73 74 4c 65 66 |ust == t|eJustLef|
|00003200| 74 29 3b 0d 09 43 68 65 | 63 6b 49 74 65 6d 20 28 |t);..Che|ckItem (|
|00003210| 6c 6f 67 4d 65 6e 75 2c | 20 63 65 6e 74 65 72 4a |logMenu,| centerJ|
|00003220| 75 73 74 2c 20 6c 6f 67 | 4a 75 73 74 20 3d 3d 20 |ust, log|Just == |
|00003230| 74 65 4a 75 73 74 43 65 | 6e 74 65 72 29 3b 0d 09 |teJustCe|nter);..|
|00003240| 43 68 65 63 6b 49 74 65 | 6d 20 28 6c 6f 67 4d 65 |CheckIte|m (logMe|
|00003250| 6e 75 2c 20 72 69 67 68 | 74 4a 75 73 74 2c 20 6c |nu, righ|tJust, l|
|00003260| 6f 67 4a 75 73 74 20 3d | 3d 20 74 65 4a 75 73 74 |ogJust =|= teJust|
|00003270| 52 69 67 68 74 29 3b 0d | 09 43 68 65 63 6b 49 74 |Right);.|.CheckIt|
|00003280| 65 6d 20 28 6c 6f 67 4d | 65 6e 75 2c 20 73 6d 61 |em (logM|enu, sma|
|00003290| 6c 6c 2c 20 6c 6f 67 53 | 69 7a 65 20 3d 3d 20 39 |ll, logS|ize == 9|
|000032a0| 29 3b 0d 09 43 68 65 63 | 6b 49 74 65 6d 20 28 6c |);..Chec|kItem (l|
|000032b0| 6f 67 4d 65 6e 75 2c 20 | 6d 65 64 69 75 6d 2c 20 |ogMenu, |medium, |
|000032c0| 6c 6f 67 53 69 7a 65 20 | 3d 3d 20 31 32 29 3b 0d |logSize |== 12);.|
|000032d0| 09 43 68 65 63 6b 49 74 | 65 6d 20 28 6c 6f 67 4d |.CheckIt|em (logM|
|000032e0| 65 6e 75 2c 20 6c 61 72 | 67 65 2c 20 6c 6f 67 53 |enu, lar|ge, logS|
|000032f0| 69 7a 65 20 3d 3d 20 32 | 34 29 3b 0d 7d 0d 0d 0d |ize == 2|4);.}...|
|00003300| 2f 2a 0d 09 53 65 74 20 | 64 69 73 70 6c 61 79 20 |/*..Set |display |
|00003310| 73 74 79 6c 65 20 6f 66 | 20 6c 6f 67 20 77 69 6e |style of| log win|
|00003320| 64 6f 77 0d 2a 2f 0d 0d | 53 65 74 53 74 79 6c 65 |dow.*/..|SetStyle|
|00003330| 20 28 29 0d 7b 0d 09 53 | 65 74 44 57 69 6e 64 6f | ().{..S|etDWindo|
|00003340| 77 53 74 79 6c 65 20 28 | 6c 6f 67 57 69 6e 64 2c |wStyle (|logWind,|
|00003350| 20 6c 6f 67 46 6f 6e 74 | 2c 20 6c 6f 67 53 69 7a | logFont|, logSiz|
|00003360| 65 2c 20 6c 6f 67 57 72 | 61 70 2c 20 6c 6f 67 4a |e, logWr|ap, logJ|
|00003370| 75 73 74 29 3b 0d 09 53 | 65 74 4c 6f 67 4d 65 6e |ust);..S|etLogMen|
|00003380| 75 20 28 29 3b 0d 7d 0d | 0d 0d 2f 2a 0d 09 4c 6f |u ();.}.|../*..Lo|
|00003390| 67 20 6d 65 6e 75 20 68 | 61 6e 64 6c 65 72 0d 2a |g menu h|andler.*|
|000033a0| 2f 0d 0d 44 6f 4c 6f 67 | 4d 65 6e 75 20 28 69 74 |/..DoLog|Menu (it|
|000033b0| 65 6d 29 0d 49 6e 74 65 | 67 65 72 09 69 74 65 6d |em).Inte|ger.item|
|000033c0| 3b 0d 7b 0d 09 73 77 69 | 74 63 68 20 28 69 74 65 |;.{..swi|tch (ite|
|000033d0| 6d 29 0d 09 7b 0d 09 09 | 63 61 73 65 20 6c 6f 67 |m)..{...|case log|
|000033e0| 45 76 65 6e 74 73 3a 0d | 09 09 09 72 65 70 6f 72 |Events:.|...repor|
|000033f0| 74 45 76 65 6e 74 73 20 | 3d 20 21 72 65 70 6f 72 |tEvents |= !repor|
|00003400| 74 45 76 65 6e 74 73 3b | 0d 09 09 09 53 65 74 4c |tEvents;|....SetL|
|00003410| 6f 67 4d 65 6e 75 20 28 | 29 3b 0d 09 09 09 62 72 |ogMenu (|);....br|
|00003420| 65 61 6b 3b 0d 0d 09 09 | 63 61 73 65 20 65 78 63 |eak;....|case exc|
|00003430| 6c 75 64 65 4c 57 69 6e | 64 3a 0d 09 09 09 65 78 |ludeLWin|d:....ex|
|00003440| 63 6c 75 64 65 4c 6f 67 | 20 3d 20 21 65 78 63 6c |cludeLog| = !excl|
|00003450| 75 64 65 4c 6f 67 3b 0d | 09 09 09 53 65 74 4c 6f |udeLog;.|...SetLo|
|00003460| 67 4d 65 6e 75 20 28 29 | 3b 0d 09 09 09 62 72 65 |gMenu ()|;....bre|
|00003470| 61 6b 3b 0d 0d 09 09 63 | 61 73 65 20 66 6c 75 73 |ak;....c|ase flus|
|00003480| 68 4c 6f 67 3a 0d 09 09 | 09 46 6c 75 73 68 44 57 |hLog:...|.FlushDW|
|00003490| 69 6e 64 6f 77 20 28 6c | 6f 67 57 69 6e 64 2c 20 |indow (l|ogWind, |
|000034a0| 33 32 37 36 37 4c 29 3b | 0d 09 09 09 62 72 65 61 |32767L);|....brea|
|000034b0| 6b 3b 0d 09 09 0d 09 09 | 63 61 73 65 20 77 72 61 |k;......|case wra|
|000034c0| 70 53 74 79 6c 65 3a 0d | 09 09 09 6c 6f 67 57 72 |pStyle:.|...logWr|
|000034d0| 61 70 20 3d 20 28 6c 6f | 67 57 72 61 70 20 3e 3d |ap = (lo|gWrap >=|
|000034e0| 20 30 20 3f 20 2d 31 20 | 3a 20 30 29 3b 0d 09 09 | 0 ? -1 |: 0);...|
|000034f0| 09 53 65 74 53 74 79 6c | 65 20 28 29 3b 0d 09 09 |.SetStyl|e ();...|
|00003500| 09 62 72 65 61 6b 3b 0d | 0d 09 09 63 61 73 65 20 |.break;.|...case |
|00003510| 6c 65 66 74 4a 75 73 74 | 3a 0d 09 09 09 6c 6f 67 |leftJust|:....log|
|00003520| 4a 75 73 74 20 3d 20 74 | 65 4a 75 73 74 4c 65 66 |Just = t|eJustLef|
|00003530| 74 3b 0d 09 09 09 53 65 | 74 53 74 79 6c 65 20 28 |t;....Se|tStyle (|
|00003540| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 0d 09 09 |);....br|eak;....|
|00003550| 63 61 73 65 20 63 65 6e | 74 65 72 4a 75 73 74 3a |case cen|terJust:|
|00003560| 0d 09 09 09 6c 6f 67 4a | 75 73 74 20 3d 20 74 65 |....logJ|ust = te|
|00003570| 4a 75 73 74 43 65 6e 74 | 65 72 3b 0d 09 09 09 53 |JustCent|er;....S|
|00003580| 65 74 53 74 79 6c 65 20 | 28 29 3b 0d 09 09 09 62 |etStyle |();....b|
|00003590| 72 65 61 6b 3b 0d 0d 09 | 09 63 61 73 65 20 72 69 |reak;...|.case ri|
|000035a0| 67 68 74 4a 75 73 74 3a | 0d 09 09 09 6c 6f 67 4a |ghtJust:|....logJ|
|000035b0| 75 73 74 20 3d 20 74 65 | 4a 75 73 74 52 69 67 68 |ust = te|JustRigh|
|000035c0| 74 3b 0d 09 09 09 53 65 | 74 53 74 79 6c 65 20 28 |t;....Se|tStyle (|
|000035d0| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 0d 09 09 |);....br|eak;....|
|000035e0| 63 61 73 65 20 73 6d 61 | 6c 6c 3a 0d 09 09 09 6c |case sma|ll:....l|
|000035f0| 6f 67 46 6f 6e 74 20 3d | 20 6d 6f 6e 61 63 6f 3b |ogFont =| monaco;|
|00003600| 0d 09 09 09 6c 6f 67 53 | 69 7a 65 20 3d 20 39 3b |....logS|ize = 9;|
|00003610| 0d 09 09 09 53 65 74 53 | 74 79 6c 65 20 28 29 3b |....SetS|tyle ();|
|00003620| 0d 09 09 09 62 72 65 61 | 6b 3b 0d 0d 09 09 63 61 |....brea|k;....ca|
|00003630| 73 65 20 6d 65 64 69 75 | 6d 3a 0d 09 09 09 6c 6f |se mediu|m:....lo|
|00003640| 67 46 6f 6e 74 20 3d 20 | 73 79 73 74 65 6d 46 6f |gFont = |systemFo|
|00003650| 6e 74 3b 0d 09 09 09 6c | 6f 67 53 69 7a 65 20 3d |nt;....l|ogSize =|
|00003660| 20 31 32 3b 0d 09 09 09 | 53 65 74 53 74 79 6c 65 | 12;....|SetStyle|
|00003670| 20 28 29 3b 0d 09 09 09 | 62 72 65 61 6b 3b 0d 0d | ();....|break;..|
|00003680| 09 09 63 61 73 65 20 6c | 61 72 67 65 3a 0d 09 09 |..case l|arge:...|
|00003690| 09 6c 6f 67 46 6f 6e 74 | 20 3d 20 67 65 6e 65 76 |.logFont| = genev|
|000036a0| 61 3b 0d 09 09 09 6c 6f | 67 53 69 7a 65 20 3d 20 |a;....lo|gSize = |
|000036b0| 32 34 3b 0d 09 09 09 53 | 65 74 53 74 79 6c 65 20 |24;....S|etStyle |
|000036c0| 28 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 0d 09 |();....b|reak;...|
|000036d0| 09 63 61 73 65 20 74 6f | 70 3a 0d 09 09 09 53 65 |.case to|p:....Se|
|000036e0| 74 44 57 69 6e 64 6f 77 | 50 6f 73 20 28 6c 6f 67 |tDWindow|Pos (log|
|000036f0| 57 69 6e 64 2c 20 30 29 | 3b 0d 09 09 09 62 72 65 |Wind, 0)|;....bre|
|00003700| 61 6b 3b 0d 0d 09 09 63 | 61 73 65 20 62 6f 74 74 |ak;....c|ase bott|
|00003710| 6f 6d 3a 0d 09 09 09 53 | 65 74 44 57 69 6e 64 6f |om:....S|etDWindo|
|00003720| 77 50 6f 73 20 28 6c 6f | 67 57 69 6e 64 2c 20 33 |wPos (lo|gWind, 3|
|00003730| 32 37 36 37 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |2767);..|..break;|
|00003740| 0d 09 7d 0d 7d 0d 0d 0d | 2f 2a 0d 09 48 61 6e 64 |..}.}...|/*..Hand|
|00003750| 6c 65 20 73 65 6c 65 63 | 74 69 6f 6e 20 6f 66 20 |le selec|tion of |
|00003760| 41 62 6f 75 74 c9 20 69 | 74 65 6d 20 66 72 6f 6d |About. i|tem from|
|00003770| 20 41 70 70 6c 65 20 6d | 65 6e 75 0d 2a 2f 0d 0d | Apple m|enu.*/..|
|00003780| 44 6f 41 62 6f 75 74 20 | 28 29 0d 7b 0d 09 28 76 |DoAbout |().{..(v|
|00003790| 6f 69 64 29 20 41 6c 65 | 72 74 20 28 61 62 6f 75 |oid) Ale|rt (abou|
|000037a0| 74 41 6c 72 74 52 65 73 | 2c 20 6e 69 6c 29 3b 0d |tAlrtRes|, nil);.|
|000037b0| 7d 0d 0d 0d 2f 2a 0d 09 | 44 69 73 70 6f 73 65 20 |}.../*..|Dispose |
|000037c0| 6f 66 20 65 76 65 6e 74 | 20 73 65 6c 65 63 74 69 |of event| selecti|
|000037d0| 6f 6e 20 77 69 6e 64 6f | 77 20 28 61 6e 64 20 63 |on windo|w (and c|
|000037e0| 6f 6e 74 72 6f 6c 73 29 | 0d 2a 2f 0d 0d 57 43 6c |ontrols)|.*/..WCl|
|000037f0| 6f 62 62 65 72 20 28 29 | 0d 7b 0d 09 44 69 73 70 |obber ()|.{..Disp|
|00003800| 6f 73 65 57 69 6e 64 6f | 77 20 28 73 65 6c 65 63 |oseWindo|w (selec|
|00003810| 74 57 69 6e 64 29 3b 0d | 7d 0d 0d 0d 0d 2f 2a 0d |tWind);.|}..../*.|
|00003820| 09 43 72 65 61 74 65 20 | 63 6f 6e 74 72 6f 6c 73 |.Create |controls|
|00003830| 0d 2a 2f 0d 0d 4d 61 6b | 65 43 6f 6e 74 72 6f 6c |.*/..Mak|eControl|
|00003840| 73 20 28 74 68 65 57 69 | 6e 64 29 0d 57 69 6e 64 |s (theWi|nd).Wind|
|00003850| 6f 77 50 74 72 09 74 68 | 65 57 69 6e 64 3b 0d 7b |owPtr.th|eWind;.{|
|00003860| 0d 49 6e 74 65 67 65 72 | 09 09 69 3b 0d 43 74 72 |.Integer|..i;.Ctr|
|00003870| 6c 49 6e 66 6f 09 2a 63 | 69 3b 0d 52 65 63 74 09 |lInfo.*c|i;.Rect.|
|00003880| 09 72 3b 0d 0d 09 66 6f | 72 20 28 69 20 3d 20 30 |.r;...fo|r (i = 0|
|00003890| 3b 20 69 20 3c 20 6d 61 | 78 42 75 74 74 6f 6e 3b |; i < ma|xButton;|
|000038a0| 20 2b 2b 69 29 0d 09 7b | 0d 09 09 63 69 20 3d 20 | ++i)..{|...ci = |
|000038b0| 26 63 74 72 6c 49 6e 66 | 6f 5b 69 5d 3b 0d 09 09 |&ctrlInf|o[i];...|
|000038c0| 53 65 74 52 65 63 74 20 | 28 26 72 2c 20 63 69 2d |SetRect |(&r, ci-|
|000038d0| 3e 6c 6f 63 2e 68 2c 20 | 63 69 2d 3e 6c 6f 63 2e |>loc.h, |ci->loc.|
|000038e0| 76 2c 0d 09 09 09 09 09 | 63 69 2d 3e 6c 6f 63 2e |v,......|ci->loc.|
|000038f0| 68 20 2b 20 53 74 72 69 | 6e 67 57 69 64 74 68 20 |h + Stri|ngWidth |
|00003900| 28 63 69 2d 3e 74 69 74 | 6c 65 29 20 2b 20 33 30 |(ci->tit|le) + 30|
|00003910| 2c 0d 09 09 09 09 09 63 | 69 2d 3e 6c 6f 63 2e 76 |,......c|i->loc.v|
|00003920| 20 2b 20 32 30 29 3b 0d | 09 09 63 69 2d 3e 63 74 | + 20);.|..ci->ct|
|00003930| 72 6c 20 3d 20 4e 65 77 | 43 6f 6e 74 72 6f 6c 20 |rl = New|Control |
|00003940| 28 74 68 65 57 69 6e 64 | 2c 20 26 72 2c 20 63 69 |(theWind|, &r, ci|
|00003950| 2d 3e 74 69 74 6c 65 2c | 20 74 72 75 65 2c 0d 09 |->title,| true,..|
|00003960| 09 09 09 09 09 09 2a 28 | 63 69 2d 3e 66 6c 61 67 |......*(|ci->flag|
|00003970| 41 64 64 72 29 2c 20 30 | 2c 20 31 2c 0d 09 09 09 |Addr), 0|, 1,....|
|00003980| 09 09 09 09 63 68 65 63 | 6b 42 6f 78 50 72 6f 63 |....chec|kBoxProc|
|00003990| 2c 20 63 69 29 3b 0d 09 | 7d 0d 09 56 61 6c 69 64 |, ci);..|}..Valid|
|000039a0| 52 65 63 74 20 28 26 74 | 68 65 57 69 6e 64 2d 3e |Rect (&t|heWind->|
|000039b0| 70 6f 72 74 52 65 63 74 | 29 3b 0d 7d 0d 0d 0d 6d |portRect|);.}...m|
|000039c0| 61 69 6e 20 28 29 0d 7b | 0d 48 61 6e 64 6c 65 09 |ain ().{|.Handle.|
|000039d0| 68 3b 0d 0d 09 53 6b 65 | 6c 49 6e 69 74 20 28 36 |h;...Ske|lInit (6|
|000039e0| 2c 20 6e 69 6c 29 3b 0d | 09 53 6b 65 6c 41 70 70 |, nil);.|.SkelApp|
|000039f0| 6c 65 20 28 22 5c 70 41 | 62 6f 75 74 20 45 76 65 |le ("\pA|bout Eve|
|00003a00| 6e 74 4c 6f 67 c9 22 2c | 20 44 6f 41 62 6f 75 74 |ntLog.",| DoAbout|
|00003a10| 29 3b 0d 0d 09 66 69 6c | 65 4d 65 6e 75 20 3d 20 |);...fil|eMenu = |
|00003a20| 47 65 74 4d 65 6e 75 20 | 28 66 69 6c 65 4d 65 6e |GetMenu |(fileMen|
|00003a30| 75 52 65 73 29 3b 0d 09 | 28 76 6f 69 64 29 20 53 |uRes);..|(void) S|
|00003a40| 6b 65 6c 4d 65 6e 75 20 | 28 66 69 6c 65 4d 65 6e |kelMenu |(fileMen|
|00003a50| 75 2c 20 44 6f 46 69 6c | 65 4d 65 6e 75 2c 20 6e |u, DoFil|eMenu, n|
|00003a60| 69 6c 2c 20 66 61 6c 73 | 65 29 3b 0d 0d 09 65 64 |il, fals|e);...ed|
|00003a70| 69 74 4d 65 6e 75 20 3d | 20 47 65 74 4d 65 6e 75 |itMenu =| GetMenu|
|00003a80| 20 28 65 64 69 74 4d 65 | 6e 75 52 65 73 29 3b 0d | (editMe|nuRes);.|
|00003a90| 09 44 69 73 61 62 6c 65 | 49 74 65 6d 20 28 65 64 |.Disable|Item (ed|
|00003aa0| 69 74 4d 65 6e 75 2c 20 | 30 29 3b 0d 09 28 76 6f |itMenu, |0);..(vo|
|00003ab0| 69 64 29 20 53 6b 65 6c | 4d 65 6e 75 20 28 65 64 |id) Skel|Menu (ed|
|00003ac0| 69 74 4d 65 6e 75 2c 20 | 6e 69 6c 2c 20 6e 69 6c |itMenu, |nil, nil|
|00003ad0| 2c 20 66 61 6c 73 65 29 | 3b 0d 0d 09 6c 6f 67 4d |, false)|;...logM|
|00003ae0| 65 6e 75 20 3d 20 47 65 | 74 4d 65 6e 75 20 28 6c |enu = Ge|tMenu (l|
|00003af0| 6f 67 4d 65 6e 75 52 65 | 73 29 3b 0d 09 28 76 6f |ogMenuRe|s);..(vo|
|00003b00| 69 64 29 20 53 6b 65 6c | 4d 65 6e 75 20 28 6c 6f |id) Skel|Menu (lo|
|00003b10| 67 4d 65 6e 75 2c 20 44 | 6f 4c 6f 67 4d 65 6e 75 |gMenu, D|oLogMenu|
|00003b20| 2c 20 6e 69 6c 2c 20 74 | 72 75 65 29 3b 0d 0d 2f |, nil, t|rue);../|
|00003b30| 2a 0d 09 43 72 65 61 74 | 65 20 77 69 6e 64 6f 77 |*..Creat|e window|
|00003b40| 73 20 61 6e 64 20 69 6e | 73 74 61 6c 6c 20 68 61 |s and in|stall ha|
|00003b50| 6e 64 6c 65 72 73 2e 0d | 2a 2f 0d 0d 09 53 65 74 |ndlers..|*/...Set|
|00003b60| 44 57 69 6e 64 6f 77 4e | 6f 74 69 66 79 20 28 6e |DWindowN|otify (n|
|00003b70| 69 6c 2c 20 41 63 74 69 | 76 61 74 65 29 3b 0d 0d |il, Acti|vate);..|
|00003b80| 09 68 65 6c 70 57 69 6e | 64 20 3d 20 47 65 74 4e |.helpWin|d = GetN|
|00003b90| 65 77 44 57 69 6e 64 6f | 77 20 28 68 65 6c 70 57 |ewDWindo|w (helpW|
|00003ba0| 69 6e 64 52 65 73 2c 20 | 2d 31 4c 29 3b 0d 09 53 |indRes, |-1L);..S|
|00003bb0| 65 74 44 57 69 6e 64 6f | 77 53 74 79 6c 65 20 28 |etDWindo|wStyle (|
|00003bc0| 68 65 6c 70 57 69 6e 64 | 2c 20 30 2c 20 30 2c 20 |helpWind|, 0, 0, |
|00003bd0| 30 2c 20 74 65 4a 75 73 | 74 4c 65 66 74 29 3b 0d |0, teJus|tLeft);.|
|00003be0| 0d 09 68 20 3d 20 47 65 | 74 52 65 73 6f 75 72 63 |..h = Ge|tResourc|
|00003bf0| 65 20 28 27 54 45 58 54 | 27 2c 20 68 65 6c 70 54 |e ('TEXT|', helpT|
|00003c00| 65 78 74 52 65 73 29 3b | 09 2f 2a 20 72 65 61 64 |extRes);|./* read|
|00003c10| 20 68 65 6c 70 20 74 65 | 78 74 20 2a 2f 0d 09 48 | help te|xt */..H|
|00003c20| 4c 6f 63 6b 20 28 68 29 | 3b 09 09 09 09 09 09 2f |Lock (h)|;....../|
|00003c30| 2a 20 6c 6f 63 6b 20 69 | 74 20 61 6e 64 20 77 72 |* lock i|t and wr|
|00003c40| 69 74 65 20 74 6f 20 77 | 69 6e 64 6f 77 20 2a 2f |ite to w|indow */|
|00003c50| 0d 09 44 69 73 70 6c 61 | 79 54 65 78 74 20 28 2a |..Displa|yText (*|
|00003c60| 68 2c 20 47 65 74 48 61 | 6e 64 6c 65 53 69 7a 65 |h, GetHa|ndleSize|
|00003c70| 20 28 68 29 29 3b 0d 09 | 48 55 6e 6c 6f 63 6b 20 | (h));..|HUnlock |
|00003c80| 28 68 29 3b 0d 09 52 65 | 6c 65 61 73 65 52 65 73 |(h);..Re|leaseRes|
|00003c90| 6f 75 72 63 65 20 28 68 | 29 3b 09 09 09 2f 2a 20 |ource (h|);.../* |
|00003ca0| 64 6f 6e 65 20 77 69 74 | 68 20 69 74 2c 20 73 6f |done wit|h it, so|
|00003cb0| 20 67 6f 6f 64 62 79 65 | 20 2a 2f 0d 09 53 65 74 | goodbye| */..Set|
|00003cc0| 44 57 69 6e 64 6f 77 50 | 6f 73 20 28 68 65 6c 70 |DWindowP|os (help|
|00003cd0| 57 69 6e 64 2c 20 30 29 | 3b 09 2f 2a 20 73 63 72 |Wind, 0)|;./* scr|
|00003ce0| 6f 6c 6c 20 62 61 63 6b | 20 74 6f 20 74 6f 70 20 |oll back| to top |
|00003cf0| 2a 2f 0d 09 53 68 6f 77 | 57 69 6e 64 6f 77 20 28 |*/..Show|Window (|
|00003d00| 68 65 6c 70 57 69 6e 64 | 29 3b 0d 0d 09 6c 6f 67 |helpWind|);...log|
|00003d10| 57 69 6e 64 20 3d 20 47 | 65 74 4e 65 77 44 57 69 |Wind = G|etNewDWi|
|00003d20| 6e 64 6f 77 20 28 6c 6f | 67 57 69 6e 64 52 65 73 |ndow (lo|gWindRes|
|00003d30| 2c 20 2d 31 4c 29 3b 0d | 0d 09 53 6b 65 6c 45 76 |, -1L);.|..SkelEv|
|00003d40| 65 6e 74 48 6f 6f 6b 20 | 28 4c 6f 67 45 76 65 6e |entHook |(LogEven|
|00003d50| 74 29 3b 0d 09 72 65 70 | 6f 72 74 45 76 65 6e 74 |t);..rep|ortEvent|
|00003d60| 73 20 3d 20 74 72 75 65 | 3b 0d 09 65 78 63 6c 75 |s = true|;..exclu|
|00003d70| 64 65 4c 6f 67 20 3d 20 | 66 61 6c 73 65 3b 0d 0d |deLog = |false;..|
|00003d80| 09 6c 6f 67 46 6f 6e 74 | 20 3d 20 6d 6f 6e 61 63 |.logFont| = monac|
|00003d90| 6f 3b 0d 09 6c 6f 67 53 | 69 7a 65 20 3d 20 39 3b |o;..logS|ize = 9;|
|00003da0| 0d 09 6c 6f 67 57 72 61 | 70 20 3d 20 30 3b 0d 09 |..logWra|p = 0;..|
|00003db0| 6c 6f 67 4a 75 73 74 20 | 3d 20 74 65 4a 75 73 74 |logJust |= teJust|
|00003dc0| 4c 65 66 74 3b 0d 09 53 | 65 74 53 74 79 6c 65 20 |Left;..S|etStyle |
|00003dd0| 28 29 3b 0d 09 53 68 6f | 77 57 69 6e 64 6f 77 20 |();..Sho|wWindow |
|00003de0| 28 6c 6f 67 57 69 6e 64 | 29 3b 0d 0d 09 73 65 6c |(logWind|);...sel|
|00003df0| 65 63 74 57 69 6e 64 20 | 3d 20 47 65 74 4e 65 77 |ectWind |= GetNew|
|00003e00| 57 69 6e 64 6f 77 20 28 | 73 65 6c 65 63 74 57 69 |Window (|selectWi|
|00003e10| 6e 64 52 65 73 2c 20 6e | 69 6c 2c 20 2d 31 4c 29 |ndRes, n|il, -1L)|
|00003e20| 3b 0d 0d 09 28 76 6f 69 | 64 29 20 53 6b 65 6c 57 |;...(voi|d) SkelW|
|00003e30| 69 6e 64 6f 77 20 28 73 | 65 6c 65 63 74 57 69 6e |indow (s|electWin|
|00003e40| 64 2c 09 2f 2a 20 74 68 | 65 20 77 69 6e 64 6f 77 |d,./* th|e window|
|00003e50| 20 2a 2f 0d 09 09 09 09 | 4d 6f 75 73 65 2c 09 09 | */.....|Mouse,..|
|00003e60| 2f 2a 20 6d 6f 75 73 65 | 20 63 6c 69 63 6b 20 68 |/* mouse| click h|
|00003e70| 61 6e 64 6c 65 72 20 2a | 2f 0d 09 09 09 09 6e 69 |andler *|/.....ni|
|00003e80| 6c 2c 09 09 2f 2a 20 6b | 65 79 20 63 6c 69 63 6b |l,../* k|ey click|
|00003e90| 73 20 61 72 65 20 69 67 | 6e 6f 72 65 64 20 2a 2f |s are ig|nored */|
|00003ea0| 0d 09 09 09 09 55 70 64 | 61 74 65 2c 09 09 2f 2a |.....Upd|ate,../*|
|00003eb0| 20 77 69 6e 64 6f 77 20 | 75 70 64 61 74 69 6e 67 | window |updating|
|00003ec0| 20 70 72 6f 63 65 64 75 | 72 65 20 2a 2f 0d 09 09 | procedu|re */...|
|00003ed0| 09 09 41 63 74 69 76 61 | 74 65 2c 09 2f 2a 20 77 |..Activa|te,./* w|
|00003ee0| 69 6e 64 6f 77 20 61 63 | 74 69 76 61 74 65 2f 64 |indow ac|tivate/d|
|00003ef0| 65 61 63 74 69 76 61 74 | 65 20 70 72 6f 63 65 64 |eactivat|e proced|
|00003f00| 75 72 65 20 2a 2f 0d 09 | 09 09 09 6e 69 6c 2c 09 |ure */..|...nil,.|
|00003f10| 09 2f 2a 20 68 69 64 65 | 20 77 69 6e 64 6f 77 20 |./* hide| window |
|00003f20| 2a 2f 0d 09 09 09 09 57 | 43 6c 6f 62 62 65 72 2c |*/.....W|Clobber,|
|00003f30| 09 2f 2a 20 77 69 6e 64 | 6f 77 20 64 69 73 70 6f |./* wind|ow dispo|
|00003f40| 73 61 6c 20 70 72 6f 63 | 65 64 75 72 65 20 2a 2f |sal proc|edure */|
|00003f50| 0d 09 09 09 09 6e 69 6c | 2c 09 09 2f 2a 20 69 64 |.....nil|,../* id|
|00003f60| 6c 65 20 70 72 6f 63 20 | 2a 2f 0d 09 09 09 09 74 |le proc |*/.....t|
|00003f70| 72 75 65 29 3b 09 09 2f | 2a 20 69 72 72 65 6c 65 |rue);../|* irrele|
|00003f80| 76 61 6e 74 20 2a 2f 0d | 0d 09 4d 61 6b 65 43 6f |vant */.|..MakeCo|
|00003f90| 6e 74 72 6f 6c 73 20 28 | 73 65 6c 65 63 74 57 69 |ntrols (|selectWi|
|00003fa0| 6e 64 29 3b 0d 0d 2f 2a | 0d 09 50 72 6f 63 65 73 |nd);../*|..Proces|
|00003fb0| 73 20 65 76 65 6e 74 73 | 20 75 6e 74 69 6c 20 75 |s events| until u|
|00003fc0| 73 65 72 20 71 75 69 74 | 73 2c 0d 09 74 68 65 6e |ser quit|s,..then|
|00003fd0| 20 63 6c 65 61 6e 20 75 | 70 20 61 6e 64 20 65 78 | clean u|p and ex|
|00003fe0| 69 74 0d 2a 2f 0d 0d 09 | 43 68 65 63 6b 46 72 6f |it.*/...|CheckFro|
|00003ff0| 6e 74 20 28 29 3b 0d 09 | 53 6b 65 6c 42 61 63 6b |nt ();..|SkelBack|
|00004000| 67 72 6f 75 6e 64 20 28 | 43 68 65 63 6b 46 72 6f |ground (|CheckFro|
|00004010| 6e 74 29 3b 0d 09 53 6b | 65 6c 4d 61 69 6e 20 28 |nt);..Sk|elMain (|
|00004020| 29 3b 0d 09 53 6b 65 6c | 43 6c 6f 62 62 65 72 20 |);..Skel|Clobber |
|00004030| 28 29 3b 0d 7d 0d 00 00 | 00 00 00 00 00 00 00 00 |();.}...|........|
|00004040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
