home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1989-09-14 | 29.0 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, Thu Oct 15 16:13:44 1987, modified Sat Feb 25 07:28:46 1989, creator Think C, type ASCII, 29540 bytes "printf-2-w.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 0c 70 72 69 6e 74 66 | 2d 32 2d 77 2e 63 00 00 |..printf|-2-w.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 73 64 00 | 00 00 00 9d 9a dc f8 a0 |.....sd.|........|
|00000060| 2c 4c 7e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |,L~.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2f 2a 0d 09 70 72 69 6e | 74 66 20 72 6f 75 74 69 |/*..prin|tf routi|
|00000090| 6e 65 73 20 66 6f 72 20 | 4c 69 67 68 74 73 70 65 |nes for |Lightspe|
|000000a0| 65 64 43 0d 0d 09 28 43 | 29 20 43 6f 70 79 72 69 |edC...(C|) Copyri|
|000000b0| 67 68 74 20 31 39 38 36 | 2e 20 54 48 49 4e 4b 20 |ght 1986|. THINK |
|000000c0| 54 65 63 68 6e 6f 6c 6f | 67 69 65 73 2c 20 49 6e |Technolo|gies, In|
|000000d0| 63 2e 20 20 41 6c 6c 20 | 72 69 67 68 74 73 20 72 |c. All |rights r|
|000000e0| 65 73 65 72 76 65 64 2e | 0d 09 0d 09 4e 4f 54 45 |eserved.|....NOTE|
|000000f0| 3a 20 50 72 6f 70 6f 72 | 74 69 6f 6e 61 6c 20 66 |: Propor|tional f|
|00000100| 6f 6e 74 73 20 63 61 6e | 20 62 65 20 75 73 65 64 |onts can| be used|
|00000110| 2c 20 62 75 74 20 6c 69 | 6e 65 73 20 77 69 6c 6c |, but li|nes will|
|00000120| 20 77 72 61 70 20 61 73 | 20 69 66 20 74 68 65 79 | wrap as| if they|
|00000130| 0d 09 09 09 61 72 65 20 | 6d 6f 6e 6f 73 70 61 63 |....are |monospac|
|00000140| 65 64 2e 20 20 49 6e 20 | 74 68 69 73 20 76 65 72 |ed. In |this ver|
|00000150| 73 69 6f 6e 2c 20 73 69 | 6e 63 65 20 65 61 63 68 |sion, si|nce each|
|00000160| 20 6c 69 6e 65 20 69 73 | 20 64 72 61 77 6e 20 77 | line is| drawn w|
|00000170| 69 74 68 0d 09 09 09 44 | 72 61 77 43 68 61 72 20 |ith....D|rawChar |
|00000180| 6f 72 20 44 72 61 77 54 | 65 78 74 20 77 69 74 68 |or DrawT|ext with|
|00000190| 6f 75 74 20 72 65 70 6f | 73 69 74 69 6f 6e 69 6e |out repo|sitionin|
|000001a0| 67 2c 20 69 74 20 77 69 | 6c 6c 20 6c 6f 6f 6b 20 |g, it wi|ll look |
|000001b0| 62 65 74 74 65 72 0d 09 | 09 09 74 68 61 6e 20 74 |better..|..than t|
|000001c0| 68 65 20 6f 6c 64 20 6d | 6f 6e 6f 73 70 61 63 65 |he old m|onospace|
|000001d0| 64 20 72 65 70 6f 73 69 | 74 69 6f 6e 69 6e 67 20 |d reposi|tioning |
|000001e0| 76 65 72 73 69 6f 6e 20 | 6f 66 20 70 75 74 63 68 |version |of putch|
|000001f0| 2e 0d 2a 2f 0d 0d 2f 2a | 20 49 66 20 79 6f 75 20 |..*/../*| If you |
|00000200| 68 61 76 65 20 61 20 6e | 6f 6e 2d 4d 61 63 20 73 |have a n|on-Mac s|
|00000210| 63 72 65 65 6e 20 6c 69 | 6b 65 20 61 20 52 61 64 |creen li|ke a Rad|
|00000220| 69 75 73 20 6f 72 20 45 | 2d 4d 61 63 68 69 6e 65 |ius or E|-Machine|
|00000230| 73 2c 20 65 74 63 2e 20 | 20 73 74 64 69 6f 0d 09 |s, etc. | stdio..|
|00000240| 6d 61 79 20 6e 6f 74 20 | 6f 70 65 72 61 74 65 20 |may not |operate |
|00000250| 63 6f 72 72 65 63 74 6c | 79 20 73 69 6e 63 65 20 |correctl|y since |
|00000260| 69 74 20 6e 6f 72 6d 61 | 6c 6c 79 20 64 69 72 65 |it norma|lly dire|
|00000270| 63 74 6c 79 20 6d 6f 76 | 65 73 20 74 68 65 20 67 |ctly mov|es the g|
|00000280| 72 61 70 68 69 63 73 0d | 09 70 65 6e 20 74 6f 20 |raphics.|.pen to |
|00000290| 61 63 68 69 65 76 65 20 | 72 65 61 73 6f 6e 61 62 |achieve |reasonab|
|000002a0| 6c 65 20 73 70 65 65 64 | 73 20 69 6e 20 64 72 61 |le speed|s in dra|
|000002b0| 77 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 73 2e |wing cha|racters.|
|000002c0| 20 20 42 79 20 64 65 66 | 69 6e 69 6e 67 0d 09 5f | By def|ining.._|
|000002d0| 4e 6f 6e 4d 61 63 53 63 | 72 65 65 6e 5f 20 79 6f |NonMacSc|reen_ yo|
|000002e0| 75 20 63 61 6e 20 63 6f | 6e 76 65 72 74 20 61 6c |u can co|nvert al|
|000002f0| 6c 20 6f 66 20 74 68 65 | 20 73 70 65 63 69 61 6c |l of the| special|
|00000300| 69 7a 65 64 20 63 6f 64 | 65 20 69 6e 74 6f 20 74 |ized cod|e into t|
|00000310| 68 65 0d 09 73 74 61 6e | 64 61 72 64 20 4d 61 63 |he..stan|dard Mac|
|00000320| 69 6e 74 6f 73 68 20 54 | 6f 6f 6c 62 6f 78 20 74 |intosh T|oolbox t|
|00000330| 72 61 70 73 20 73 6f 20 | 69 74 20 77 69 6c 6c 20 |raps so |it will |
|00000340| 77 6f 72 6b 20 63 6f 72 | 72 65 63 74 6c 79 20 2a |work cor|rectly *|
|00000350| 2f 0d 09 0d 2f 2a 20 23 | 64 65 66 69 6e 65 20 5f |/.../* #|define _|
|00000360| 4e 6f 6e 4d 61 63 53 63 | 72 65 65 6e 5f 20 2a 2f |NonMacSc|reen_ */|
|00000370| 0d 0d 23 64 65 66 69 6e | 65 20 5f 48 41 4c 46 57 |..#defin|e _HALFW|
|00000380| 49 4e 44 4f 57 5f 0d 0d | 23 69 66 6e 64 65 66 20 |INDOW_..|#ifndef |
|00000390| 5f 73 74 64 69 6f 68 5f | 0d 23 69 6e 63 6c 75 64 |_stdioh_|.#includ|
|000003a0| 65 20 22 73 74 64 69 6f | 2e 68 22 0d 23 65 6e 64 |e "stdio|.h".#end|
|000003b0| 69 66 0d 0d 23 69 66 6e | 64 65 66 09 5f 51 75 69 |if..#ifn|def._Qui|
|000003c0| 63 6b 44 72 61 77 5f 0d | 23 69 6e 63 6c 75 64 65 |ckDraw_.|#include|
|000003d0| 20 22 51 75 69 63 6b 44 | 72 61 77 2e 68 22 0d 23 | "QuickD|raw.h".#|
|000003e0| 65 6e 64 69 66 0d 0d 23 | 69 66 6e 64 65 66 09 5f |endif..#|ifndef._|
|000003f0| 46 6f 6e 74 4d 67 72 5f | 0d 23 69 6e 63 6c 75 64 |FontMgr_|.#includ|
|00000400| 65 20 22 46 6f 6e 74 4d | 67 72 2e 68 22 0d 23 65 |e "FontM|gr.h".#e|
|00000410| 6e 64 69 66 0d 0d 23 69 | 66 6e 64 65 66 09 5f 4d |ndif..#i|fndef._M|
|00000420| 65 6e 75 4d 67 72 5f 0d | 23 69 6e 63 6c 75 64 65 |enuMgr_.|#include|
|00000430| 20 22 4d 65 6e 75 4d 67 | 72 2e 68 22 0d 23 65 6e | "MenuMg|r.h".#en|
|00000440| 64 69 66 0d 0d 23 69 66 | 6e 64 65 66 09 5f 54 6f |dif..#if|ndef._To|
|00000450| 6f 6c 62 6f 78 55 74 69 | 6c 5f 0d 23 69 6e 63 6c |olboxUti|l_.#incl|
|00000460| 75 64 65 20 22 54 6f 6f | 6c 62 6f 78 55 74 69 6c |ude "Too|lboxUtil|
|00000470| 2e 68 22 0d 23 65 6e 64 | 69 66 0d 0d 23 69 66 6e |.h".#end|if..#ifn|
|00000480| 64 65 66 20 5f 66 6f 70 | 65 6e 77 68 5f 0d 23 69 |def _fop|enwh_.#i|
|00000490| 6e 63 6c 75 64 65 20 22 | 66 6f 70 65 6e 77 2e 68 |nclude "|fopenw.h|
|000004a0| 22 0d 23 65 6e 64 69 66 | 0d 0d 63 68 61 72 20 2a |".#endif|..char *|
|000004b0| 43 74 6f 50 73 74 72 28 | 29 3b 0d 63 68 61 72 20 |CtoPstr(|);.char |
|000004c0| 2a 50 74 6f 43 73 74 72 | 28 29 3b 0d 63 68 61 72 |*PtoCstr|();.char|
|000004d0| 20 2a 73 74 64 5f 76 65 | 72 28 29 3b 0d 76 6f 69 | *std_ve|r();.voi|
|000004e0| 64 20 64 72 61 77 63 75 | 72 73 6f 72 28 29 3b 0d |d drawcu|rsor();.|
|000004f0| 76 6f 69 64 20 53 74 64 | 5f 75 70 64 61 74 65 77 |void Std|_updatew|
|00000500| 69 6e 64 6f 77 28 29 3b | 0d 0d 2f 2a 20 73 63 72 |indow();|../* scr|
|00000510| 65 65 6e 20 64 69 73 70 | 6c 61 79 20 67 6c 6f 62 |een disp|lay glob|
|00000520| 61 6c 73 20 2a 2f 0d 0d | 73 74 61 74 69 63 20 57 |als */..|static W|
|00000530| 69 6e 64 6f 77 50 74 72 | 20 43 75 72 72 65 6e 74 |indowPtr| Current|
|00000540| 73 77 72 70 20 3d 20 30 | 3b 0d 73 74 61 74 69 63 |swrp = 0|;.static|
|00000550| 20 46 49 4c 45 20 2a 43 | 75 72 72 65 6e 74 57 69 | FILE *C|urrentWi|
|00000560| 6e 64 6f 77 20 3d 20 30 | 3b 0d 73 74 61 74 69 63 |ndow = 0|;.static|
|00000570| 20 57 69 6e 64 6f 77 50 | 74 72 20 5f 65 78 69 74 | WindowP|tr _exit|
|00000580| 5f 77 70 20 3d 20 30 3b | 09 2f 2a 20 66 6f 72 20 |_wp = 0;|./* for |
|00000590| 73 70 65 63 69 61 6c 20 | 65 78 69 74 20 77 69 6e |special |exit win|
|000005a0| 64 6f 77 20 68 61 6e 64 | 6c 69 6e 67 20 2a 2f 0d |dow hand|ling */.|
|000005b0| 73 74 61 74 69 63 20 57 | 69 6e 64 6f 77 50 74 72 |static W|indowPtr|
|000005c0| 20 5f 63 6f 6e 73 6f 6c | 65 5f 77 70 20 3d 20 30 | _consol|e_wp = 0|
|000005d0| 3b 0d 0d 2f 2a 20 64 65 | 66 61 75 6c 74 20 66 6f |;../* de|fault fo|
|000005e0| 6e 74 20 69 6e 66 6f 20 | 2a 2f 0d 0d 73 74 61 74 |nt info |*/..stat|
|000005f0| 69 63 20 47 72 61 66 50 | 6f 72 74 20 64 75 6d 6d |ic GrafP|ort dumm|
|00000600| 79 50 6f 72 74 3b 0d 73 | 74 61 74 69 63 20 46 6f |yPort;.s|tatic Fo|
|00000610| 6e 74 49 6e 66 6f 20 5f | 73 66 3b 09 09 09 09 2f |ntInfo _|sf;..../|
|00000620| 2a 20 68 6f 6c 64 73 20 | 74 68 65 20 69 6e 66 6f |* holds |the info|
|00000630| 20 61 62 6f 75 74 20 74 | 68 65 20 66 6f 6e 74 20 | about t|he font |
|00000640| 2a 2f 0d 73 74 61 74 69 | 63 20 69 6e 74 09 5f 66 |*/.stati|c int._f|
|00000650| 6f 6e 74 20 3d 20 6d 6f | 6e 61 63 6f 2c 0d 09 09 |ont = mo|naco,...|
|00000660| 09 5f 73 69 7a 65 20 3d | 20 39 2c 0d 09 09 09 5f |._size =| 9,...._|
|00000670| 66 61 63 65 20 3d 20 30 | 2c 0d 09 09 09 5f 6d 6f |face = 0|,...._mo|
|00000680| 64 65 20 3d 20 73 72 63 | 4f 72 3b 09 09 09 2f 2a |de = src|Or;.../*|
|00000690| 20 73 74 75 66 66 20 66 | 6f 72 20 53 74 64 69 6f | stuff f|or Stdio|
|000006a0| 5f 43 6f 6e 66 69 67 20 | 2a 2f 0d 0d 73 74 61 74 |_Config |*/..stat|
|000006b0| 69 63 20 52 67 6e 48 61 | 6e 64 6c 65 20 65 6d 70 |ic RgnHa|ndle emp|
|000006c0| 74 79 72 67 6e 3b 09 09 | 09 2f 2a 20 75 73 65 64 |tyrgn;..|./* used|
|000006d0| 20 66 6f 72 20 73 63 72 | 6f 6c 6c 69 6e 67 20 2a | for scr|olling *|
|000006e0| 2f 0d 73 74 61 74 69 63 | 20 52 65 63 74 20 62 6f |/.static| Rect bo|
|000006f0| 75 6e 64 73 3b 0d 0d 42 | 6f 6f 6c 65 61 6e 20 5f |unds;..B|oolean _|
|00000700| 69 6e 69 74 65 64 20 3d | 20 66 61 6c 73 65 3b 09 |inited =| false;.|
|00000710| 09 09 2f 2a 20 77 68 65 | 74 68 65 72 20 4d 61 63 |../* whe|ther Mac|
|00000720| 20 69 73 20 69 6e 69 74 | 65 64 20 79 65 74 20 2a | is init|ed yet *|
|00000730| 2f 0d 73 74 61 74 69 63 | 20 42 6f 6f 6c 65 61 6e |/.static| Boolean|
|00000740| 20 5f 73 63 72 65 65 6e | 20 3d 20 66 61 6c 73 65 | _screen| = false|
|00000750| 3b 09 09 2f 2a 20 77 68 | 65 74 68 65 72 20 73 63 |;../* wh|ether sc|
|00000760| 72 65 65 6e 20 69 73 20 | 69 6e 69 74 65 64 20 2a |reen is |inited *|
|00000770| 2f 0d 73 74 61 74 69 63 | 20 42 6f 6f 6c 65 61 6e |/.static| Boolean|
|00000780| 20 5f 63 6c 69 63 6b 5f | 6f 6e 20 3d 20 74 72 75 | _click_|on = tru|
|00000790| 65 3b 09 2f 2a 20 77 61 | 69 74 20 61 74 20 65 78 |e;./* wa|it at ex|
|000007a0| 69 74 20 66 72 6f 6d 20 | 70 72 6f 67 72 61 6d 20 |it from |program |
|000007b0| 2a 2f 0d 73 74 61 74 69 | 63 20 42 6f 6f 6c 65 61 |*/.stati|c Boolea|
|000007c0| 6e 20 5f 6f 75 72 5f 6d | 65 6e 75 73 20 3d 20 66 |n _our_m|enus = f|
|000007d0| 61 6c 73 65 3b 09 2f 2a | 20 66 6c 61 67 20 74 6f |alse;./*| flag to|
|000007e0| 20 69 6e 64 69 63 61 74 | 65 20 69 66 20 6f 75 72 | indicat|e if our|
|000007f0| 20 6d 65 6e 75 73 20 2a | 2f 0d 73 74 61 74 69 63 | menus *|/.static|
|00000800| 20 69 6e 74 20 64 65 73 | 6b 61 63 63 5f 63 6f 75 | int des|kacc_cou|
|00000810| 6e 74 20 3d 20 30 3b 09 | 09 2f 2a 20 23 20 64 65 |nt = 0;.|./* # de|
|00000820| 73 6b 20 61 63 63 65 73 | 73 6f 72 69 65 73 20 6f |sk acces|sories o|
|00000830| 70 65 6e 20 2a 2f 0d 0d | 42 6f 6f 6c 65 61 6e 20 |pen */..|Boolean |
|00000840| 5f 65 63 68 6f 20 3d 20 | 74 72 75 65 3b 09 09 09 |_echo = |true;...|
|00000850| 09 2f 2a 20 67 6c 6f 62 | 61 6c 20 45 63 68 6f 20 |./* glob|al Echo |
|00000860| 73 74 61 74 75 73 20 66 | 6f 72 20 6b 65 79 62 6f |status f|or keybo|
|00000870| 61 72 64 20 69 6e 70 75 | 74 20 2a 2f 0d 65 78 74 |ard inpu|t */.ext|
|00000880| 65 72 6e 20 76 6f 69 64 | 20 28 2a 5f 65 63 68 6f |ern void| (*_echo|
|00000890| 5f 74 6f 5f 70 72 69 6e | 74 65 72 5f 29 28 29 3b |_to_prin|ter_)();|
|000008a0| 09 2f 2a 20 67 6c 6f 62 | 61 6c 20 45 63 68 6f 20 |./* glob|al Echo |
|000008b0| 63 61 6c 6c 20 76 61 72 | 69 61 62 6c 65 20 66 6f |call var|iable fo|
|000008c0| 72 20 70 72 69 6e 74 65 | 72 20 2a 2f 0d 0d 0d 23 |r printe|r */...#|
|000008d0| 64 65 66 69 6e 65 20 6d | 6f 76 65 63 75 72 73 6f |define m|ovecurso|
|000008e0| 72 28 73 77 72 70 2c 20 | 78 2c 20 79 29 5c 0d 4d |r(swrp, |x, y)\.M|
|000008f0| 6f 76 65 54 6f 28 20 5f | 4c 45 46 54 45 44 47 45 |oveTo( _|LEFTEDGE|
|00000900| 20 2b 20 28 78 29 20 2a | 20 73 77 72 70 2d 3e 63 | + (x) *| swrp->c|
|00000910| 68 61 72 77 69 64 74 68 | 2c 5c 0d 09 5f 54 4f 50 |harwidth|,\.._TOP|
|00000920| 45 44 47 45 20 2b 20 73 | 77 72 70 2d 3e 73 66 2e |EDGE + s|wrp->sf.|
|00000930| 61 73 63 65 6e 74 20 2b | 20 28 28 79 29 2b 73 77 |ascent +| ((y)+sw|
|00000940| 72 70 2d 3e 76 69 73 72 | 6f 77 2d 73 77 72 70 2d |rp->visr|ow-swrp-|
|00000950| 3e 6f 70 74 2e 6d 61 78 | 72 6f 77 29 20 2a 20 73 |>opt.max|row) * s|
|00000960| 77 72 70 2d 3e 63 68 61 | 72 68 65 69 67 68 74 29 |wrp->cha|rheight)|
|00000970| 0d 09 0d 0d 2f 2a 20 44 | 65 74 65 72 6d 69 6e 65 |..../* D|etermine|
|00000980| 20 69 66 20 74 68 69 73 | 20 69 73 20 6f 6e 65 20 | if this| is one |
|00000990| 6f 66 20 74 68 65 20 73 | 74 64 69 6f 20 63 72 65 |of the s|tdio cre|
|000009a0| 61 74 65 64 20 77 69 6e | 64 6f 77 73 20 6f 72 20 |ated win|dows or |
|000009b0| 6e 6f 74 20 2a 2f 0d 0d | 73 74 61 74 69 63 0d 42 |not */..|static.B|
|000009c0| 6f 6f 6c 65 61 6e 20 4f | 75 72 57 69 6e 64 6f 77 |oolean O|urWindow|
|000009d0| 28 77 69 6e 64 6f 77 29 | 0d 72 65 67 69 73 74 65 |(window)|.registe|
|000009e0| 72 20 53 74 64 57 69 6e | 64 6f 77 52 65 63 20 2a |r StdWin|dowRec *|
|000009f0| 77 69 6e 64 6f 77 3b 0d | 7b 0d 09 69 66 20 28 77 |window;.|{..if (w|
|00000a00| 69 6e 64 6f 77 29 0d 09 | 09 69 66 20 28 28 77 69 |indow)..|.if ((wi|
|00000a10| 6e 64 6f 77 20 3d 3d 20 | 28 53 74 64 57 69 6e 64 |ndow == |(StdWind|
|00000a20| 6f 77 52 65 63 20 2a 29 | 5f 65 78 69 74 5f 77 70 |owRec *)|_exit_wp|
|00000a30| 29 20 7c 7c 20 28 77 69 | 6e 64 6f 77 2d 3e 73 69 |) || (wi|ndow->si|
|00000a40| 67 6e 61 74 75 72 65 20 | 3d 3d 20 5f 4f 55 52 53 |gnature |== _OURS|
|00000a50| 49 47 4e 41 54 55 52 45 | 29 29 0d 09 09 09 72 65 |IGNATURE|))....re|
|00000a60| 74 75 72 6e 20 28 74 72 | 75 65 29 3b 0d 09 0d 09 |turn (tr|ue);....|
|00000a70| 72 65 74 75 72 6e 20 28 | 66 61 6c 73 65 29 3b 0d |return (|false);.|
|00000a80| 7d 0d 0d 2f 2a 20 44 69 | 73 70 61 74 63 68 20 76 |}../* Di|spatch v|
|00000a90| 69 61 20 72 65 66 63 6f | 6e 20 66 69 65 6c 64 20 |ia refco|n field |
|00000aa0| 6f 66 20 77 69 6e 64 6f | 77 20 72 65 63 6f 72 64 |of windo|w record|
|00000ab0| 20 66 6f 72 20 77 69 6e | 64 6f 77 20 65 76 65 6e | for win|dow even|
|00000ac0| 74 73 20 2a 2f 0d 0d 73 | 74 61 74 69 63 0d 42 6f |ts */..s|tatic.Bo|
|00000ad0| 6f 6c 65 61 6e 20 57 69 | 6e 64 6f 77 45 76 65 6e |olean Wi|ndowEven|
|00000ae0| 74 28 78 65 76 65 6e 74 | 29 0d 58 45 76 65 6e 74 |t(xevent|).XEvent|
|00000af0| 52 65 63 6f 72 64 20 2a | 78 65 76 65 6e 74 3b 0d |Record *|xevent;.|
|00000b00| 7b 0d 72 65 67 69 73 74 | 65 72 20 57 69 6e 64 6f |{.regist|er Windo|
|00000b10| 77 50 65 65 6b 20 77 70 | 3b 0d 72 65 67 69 73 74 |wPeek wp|;.regist|
|00000b20| 65 72 20 65 76 65 6e 74 | 69 6e 66 6f 20 2a 2a 72 |er event|info **r|
|00000b30| 65 66 63 6f 6e 3b 0d 72 | 65 67 69 73 74 65 72 20 |efcon;.r|egister |
|00000b40| 69 6e 74 20 28 2a 70 72 | 6f 63 29 28 29 3b 0d 09 |int (*pr|oc)();..|
|00000b50| 0d 09 69 66 20 28 21 20 | 4f 75 72 57 69 6e 64 6f |..if (! |OurWindo|
|00000b60| 77 28 77 70 20 3d 20 28 | 57 69 6e 64 6f 77 50 65 |w(wp = (|WindowPe|
|00000b70| 65 6b 29 20 78 65 76 65 | 6e 74 2d 3e 77 69 6e 64 |ek) xeve|nt->wind|
|00000b80| 6f 77 29 29 20 72 65 74 | 75 72 6e 20 28 66 61 6c |ow)) ret|urn (fal|
|00000b90| 73 65 29 3b 0d 0d 09 69 | 66 20 28 77 70 2d 3e 77 |se);...i|f (wp->w|
|00000ba0| 69 6e 64 6f 77 4b 69 6e | 64 20 3e 3d 20 38 20 26 |indowKin|d >= 8 &|
|00000bb0| 26 20 28 72 65 66 63 6f | 6e 20 3d 20 28 65 76 65 |& (refco|n = (eve|
|00000bc0| 6e 74 69 6e 66 6f 2a 2a | 29 20 77 70 2d 3e 72 65 |ntinfo**|) wp->re|
|00000bd0| 66 43 6f 6e 29 0d 09 09 | 09 26 26 09 28 70 72 6f |fCon)...|.&&.(pro|
|00000be0| 63 20 3d 20 28 2a 2a 72 | 65 66 63 6f 6e 29 2e 65 |c = (**r|efcon).e|
|00000bf0| 76 65 6e 74 50 72 6f 63 | 29 29 0d 09 09 72 65 74 |ventProc|))...ret|
|00000c00| 75 72 6e 20 28 28 2a 70 | 72 6f 63 29 28 78 65 76 |urn ((*p|roc)(xev|
|00000c10| 65 6e 74 29 29 3b 0d 09 | 0d 09 72 65 74 75 72 6e |ent));..|..return|
|00000c20| 20 28 66 61 6c 73 65 29 | 3b 0d 7d 0d 0d 2f 2a 20 | (false)|;.}../* |
|00000c30| 49 66 20 77 65 20 73 65 | 74 20 75 70 20 74 68 65 |If we se|t up the|
|00000c40| 20 73 63 72 65 65 6e 2c | 20 77 65 20 73 65 74 20 | screen,| we set |
|00000c50| 75 70 20 61 20 73 69 6d | 70 6c 65 20 6d 65 6e 75 |up a sim|ple menu|
|00000c60| 20 61 73 20 77 65 6c 6c | 0d 09 66 6f 72 20 44 41 | as well|..for DA|
|00000c70| 73 20 61 6e 64 20 73 75 | 63 68 20 2a 2f 0d 0d 73 |s and su|ch */..s|
|00000c80| 74 61 74 69 63 0d 76 6f | 69 64 20 73 65 74 75 70 |tatic.vo|id setup|
|00000c90| 5f 6d 65 6e 75 73 28 29 | 0d 7b 0d 72 65 67 69 73 |_menus()|.{.regis|
|00000ca0| 74 65 72 20 4d 65 6e 75 | 48 61 6e 64 6c 65 20 6d |ter Menu|Handle m|
|00000cb0| 65 6e 75 3b 09 09 2f 2a | 20 68 61 6e 64 6c 65 20 |enu;../*| handle |
|00000cc0| 66 6f 72 20 6f 75 72 20 | 6d 65 6e 75 73 20 2a 2f |for our |menus */|
|00000cd0| 0d 0d 09 49 6e 69 74 4d | 65 6e 75 73 28 29 3b 0d |...InitM|enus();.|
|00000ce0| 09 6d 65 6e 75 20 3d 20 | 4e 65 77 4d 65 6e 75 28 |.menu = |NewMenu(|
|00000cf0| 31 2c 20 22 5c 70 5c 30 | 32 34 22 29 3b 09 2f 2a |1, "\p\0|24");./*|
|00000d00| 20 20 61 70 70 6c 65 20 | 6d 65 6e 75 20 20 2a 2f | apple |menu */|
|00000d10| 0d 09 41 64 64 52 65 73 | 4d 65 6e 75 28 6d 65 6e |..AddRes|Menu(men|
|00000d20| 75 2c 20 27 44 52 56 52 | 27 29 3b 0d 09 49 6e 73 |u, 'DRVR|');..Ins|
|00000d30| 65 72 74 4d 65 6e 75 28 | 6d 65 6e 75 2c 20 30 29 |ertMenu(|menu, 0)|
|00000d40| 3b 0d 09 6d 65 6e 75 20 | 3d 20 4e 65 77 4d 65 6e |;..menu |= NewMen|
|00000d50| 75 28 32 2c 20 22 5c 70 | 46 69 6c 65 22 29 3b 0d |u(2, "\p|File");.|
|00000d60| 09 41 70 70 65 6e 64 4d | 65 6e 75 28 6d 65 6e 75 |.AppendM|enu(menu|
|00000d70| 2c 20 22 5c 70 28 4e 65 | 77 3b 4f 70 65 6e 3b 43 |, "\p(Ne|w;Open;C|
|00000d80| 6c 6f 73 65 3b 28 53 61 | 76 65 3b 28 2d 3b 51 75 |lose;(Sa|ve;(-;Qu|
|00000d90| 69 74 22 29 3b 0d 09 49 | 6e 73 65 72 74 4d 65 6e |it");..I|nsertMen|
|00000da0| 75 28 6d 65 6e 75 2c 20 | 30 29 3b 0d 09 6d 65 6e |u(menu, |0);..men|
|00000db0| 75 20 3d 20 4e 65 77 4d | 65 6e 75 28 33 2c 20 22 |u = NewM|enu(3, "|
|00000dc0| 5c 70 45 64 69 74 22 29 | 3b 0d 23 69 66 64 65 66 |\pEdit")|;.#ifdef|
|00000dd0| 20 5f 53 54 44 5f 50 41 | 53 54 45 5f 0d 09 41 70 | _STD_PA|STE_..Ap|
|00000de0| 70 65 6e 64 4d 65 6e 75 | 28 6d 65 6e 75 2c 20 22 |pendMenu|(menu, "|
|00000df0| 5c 70 28 55 6e 64 6f 3b | 28 2d 3b 28 43 75 74 3b |\p(Undo;|(-;(Cut;|
|00000e00| 28 43 6f 70 79 3b 50 61 | 73 74 65 3b 28 43 6c 65 |(Copy;Pa|ste;(Cle|
|00000e10| 61 72 3b 28 2d 22 29 3b | 0d 23 65 6c 73 65 0d 09 |ar;(-");|.#else..|
|00000e20| 41 70 70 65 6e 64 4d 65 | 6e 75 28 6d 65 6e 75 2c |AppendMe|nu(menu,|
|00000e30| 20 22 5c 70 28 55 6e 64 | 6f 3b 28 2d 3b 28 43 75 | "\p(Und|o;(-;(Cu|
|00000e40| 74 3b 28 43 6f 70 79 3b | 28 50 61 73 74 65 3b 28 |t;(Copy;|(Paste;(|
|00000e50| 43 6c 65 61 72 3b 28 2d | 22 29 3b 0d 23 65 6e 64 |Clear;(-|");.#end|
|00000e60| 69 66 20 5f 53 54 44 5f | 50 41 53 54 45 5f 0d 0d |if _STD_|PASTE_..|
|00000e70| 09 41 70 70 65 6e 64 4d | 65 6e 75 28 6d 65 6e 75 |.AppendM|enu(menu|
|00000e80| 2c 20 43 74 6f 50 73 74 | 72 28 73 74 64 5f 76 65 |, CtoPst|r(std_ve|
|00000e90| 72 28 29 29 29 3b 0d 09 | 50 74 6f 43 73 74 72 28 |r()));..|PtoCstr(|
|00000ea0| 73 74 64 5f 76 65 72 28 | 29 29 3b 0d 09 49 6e 73 |std_ver(|));..Ins|
|00000eb0| 65 72 74 4d 65 6e 75 28 | 6d 65 6e 75 2c 20 30 29 |ertMenu(|menu, 0)|
|00000ec0| 3b 0d 09 44 72 61 77 4d | 65 6e 75 42 61 72 28 29 |;..DrawM|enuBar()|
|00000ed0| 3b 0d 09 0d 09 5f 6f 75 | 72 5f 6d 65 6e 75 73 20 |;...._ou|r_menus |
|00000ee0| 3d 20 74 72 75 65 3b 0d | 7d 0d 0d 73 74 61 74 69 |= true;.|}..stati|
|00000ef0| 63 0d 76 6f 69 64 20 64 | 6f 5f 65 78 69 74 28 29 |c.void d|o_exit()|
|00000f00| 0d 7b 43 75 72 73 6f 72 | 20 77 61 74 63 68 3b 0d |.{Cursor| watch;.|
|00000f10| 0d 09 09 77 61 74 63 68 | 20 3d 20 2a 2a 47 65 74 |...watch| = **Get|
|00000f20| 43 75 72 73 6f 72 28 77 | 61 74 63 68 43 75 72 73 |Cursor(w|atchCurs|
|00000f30| 6f 72 29 3b 0d 09 09 53 | 65 74 43 75 72 73 6f 72 |or);...S|etCursor|
|00000f40| 28 26 77 61 74 63 68 29 | 3b 0d 09 09 5f 63 6c 69 |(&watch)|;..._cli|
|00000f50| 63 6b 5f 6f 6e 20 3d 20 | 66 61 6c 73 65 3b 0d 09 |ck_on = |false;..|
|00000f60| 09 65 78 69 74 28 30 29 | 3b 0d 7d 0d 0d 73 74 61 |.exit(0)|;.}..sta|
|00000f70| 74 69 63 0d 64 6f 4d 65 | 6e 75 28 65 76 65 6e 74 |tic.doMe|nu(event|
|00000f80| 29 0d 72 65 67 69 73 74 | 65 72 20 58 45 76 65 6e |).regist|er XEven|
|00000f90| 74 52 65 63 6f 72 64 20 | 2a 65 76 65 6e 74 3b 0d |tRecord |*event;.|
|00000fa0| 7b 0d 73 68 6f 72 74 20 | 69 74 65 6d 3b 0d 0d 09 |{.short |item;...|
|00000fb0| 69 66 20 28 65 76 65 6e | 74 2d 3e 72 65 63 6f 72 |if (even|t->recor|
|00000fc0| 64 2e 77 68 61 74 20 21 | 3d 20 6d 65 6e 75 45 76 |d.what !|= menuEv|
|00000fd0| 65 6e 74 29 0d 09 09 72 | 65 74 75 72 6e 3b 0d 0d |ent)...r|eturn;..|
|00000fe0| 09 69 74 65 6d 20 3d 20 | 65 76 65 6e 74 2d 3e 72 |.item = |event->r|
|00000ff0| 65 63 6f 72 64 2e 6d 65 | 73 73 61 67 65 3b 0d 09 |ecord.me|ssage;..|
|00001000| 73 77 69 74 63 68 20 28 | 2a 20 28 73 68 6f 72 74 |switch (|* (short|
|00001010| 20 2a 29 20 26 65 76 65 | 6e 74 2d 3e 72 65 63 6f | *) &eve|nt->reco|
|00001020| 72 64 2e 6d 65 73 73 61 | 67 65 29 0d 09 7b 0d 09 |rd.messa|ge)..{..|
|00001030| 63 61 73 65 20 31 3a 0d | 09 09 65 76 65 6e 74 2d |case 1:.|..event-|
|00001040| 3e 72 65 63 6f 72 64 2e | 77 68 61 74 20 3d 20 61 |>record.|what = a|
|00001050| 70 70 6c 65 45 76 65 6e | 74 3b 0d 09 09 48 69 6c |ppleEven|t;...Hil|
|00001060| 69 74 65 4d 65 6e 75 28 | 30 29 3b 0d 09 09 62 72 |iteMenu(|0);...br|
|00001070| 65 61 6b 3b 0d 09 63 61 | 73 65 20 32 3a 0d 09 09 |eak;..ca|se 2:...|
|00001080| 73 77 69 74 63 68 20 28 | 69 74 65 6d 29 0d 09 09 |switch (|item)...|
|00001090| 7b 0d 09 09 63 61 73 65 | 20 32 3a 09 2f 2a 20 4f |{...case| 2:./* O|
|000010a0| 70 65 6e 20 65 6e 74 72 | 79 20 6f 6e 20 66 69 6c |pen entr|y on fil|
|000010b0| 65 20 6d 65 6e 75 20 2a | 2f 0d 09 09 09 65 76 65 |e menu *|/....eve|
|000010c0| 6e 74 2d 3e 72 65 63 6f | 72 64 2e 77 68 61 74 20 |nt->reco|rd.what |
|000010d0| 3d 20 6f 70 65 6e 45 76 | 65 6e 74 3b 0d 09 09 09 |= openEv|ent;....|
|000010e0| 62 72 65 61 6b 3b 0d 09 | 09 09 0d 09 09 63 61 73 |break;..|.....cas|
|000010f0| 65 20 33 3a 09 2f 2a 20 | 43 6c 6f 73 65 20 65 6e |e 3:./* |Close en|
|00001100| 74 72 79 20 6f 6e 20 66 | 69 6c 65 20 6d 65 6e 75 |try on f|ile menu|
|00001110| 20 2a 2f 0d 09 09 09 65 | 76 65 6e 74 2d 3e 72 65 | */....e|vent->re|
|00001120| 63 6f 72 64 2e 77 68 61 | 74 20 3d 20 63 6c 6f 73 |cord.wha|t = clos|
|00001130| 65 45 76 65 6e 74 3b 0d | 09 09 09 62 72 65 61 6b |eEvent;.|...break|
|00001140| 3b 0d 09 09 09 0d 09 09 | 63 61 73 65 20 36 3a 09 |;.......|case 6:.|
|00001150| 2f 2a 20 51 75 69 74 20 | 65 6e 74 72 79 20 6f 6e |/* Quit |entry on|
|00001160| 20 66 69 6c 65 20 6d 65 | 6e 75 20 2a 2f 0d 09 09 | file me|nu */...|
|00001170| 09 64 6f 5f 65 78 69 74 | 28 29 3b 0d 09 09 09 62 |.do_exit|();....b|
|00001180| 72 65 61 6b 3b 0d 09 09 | 7d 0d 09 09 62 72 65 61 |reak;...|}...brea|
|00001190| 6b 3b 0d 09 63 61 73 65 | 20 33 3a 0d 23 69 66 64 |k;..case| 3:.#ifd|
|000011a0| 65 66 20 5f 53 54 44 5f | 50 41 53 54 45 5f 0d 09 |ef _STD_|PASTE_..|
|000011b0| 09 09 69 66 20 28 69 74 | 65 6d 20 3d 3d 20 35 29 |..if (it|em == 5)|
|000011c0| 0d 09 09 09 2f 2a 20 50 | 61 73 74 65 20 65 6e 74 |..../* P|aste ent|
|000011d0| 72 79 20 6f 6e 20 65 64 | 69 74 20 6d 65 6e 75 20 |ry on ed|it menu |
|000011e0| 2a 2f 0d 09 09 09 5f 73 | 74 64 5f 73 65 74 75 70 |*/...._s|td_setup|
|000011f0| 5f 70 61 73 74 65 28 29 | 3b 0d 23 65 6e 64 69 66 |_paste()|;.#endif|
|00001200| 20 5f 53 54 44 5f 50 41 | 53 54 45 5f 0d 0d 09 09 | _STD_PA|STE_....|
|00001210| 48 69 6c 69 74 65 4d 65 | 6e 75 28 30 29 3b 0d 09 |HiliteMe|nu(0);..|
|00001220| 09 65 76 65 6e 74 2d 3e | 72 65 63 6f 72 64 2e 77 |.event->|record.w|
|00001230| 68 61 74 20 3d 20 65 64 | 69 74 45 76 65 6e 74 3b |hat = ed|itEvent;|
|00001240| 0d 09 09 62 72 65 61 6b | 3b 0d 09 7d 0d 7d 0d 0d |...break|;..}.}..|
|00001250| 2f 2a 20 65 6e 61 62 6c | 65 20 65 64 69 74 20 6d |/* enabl|e edit m|
|00001260| 65 6e 75 20 70 69 63 6b | 73 20 66 6f 72 20 75 6e |enu pick|s for un|
|00001270| 64 6f 2c 20 63 75 74 2c | 20 63 6f 70 79 2c 20 70 |do, cut,| copy, p|
|00001280| 61 73 74 65 2c 20 65 74 | 63 2e 20 2a 2f 0d 0d 73 |aste, et|c. */..s|
|00001290| 74 61 74 69 63 0d 76 6f | 69 64 20 65 64 69 74 5f |tatic.vo|id edit_|
|000012a0| 65 6e 61 62 6c 65 28 29 | 0d 7b 72 65 67 69 73 74 |enable()|.{regist|
|000012b0| 65 72 20 4d 65 6e 75 48 | 61 6e 64 6c 65 20 65 64 |er MenuH|andle ed|
|000012c0| 69 74 6d 65 6e 75 3b 0d | 0d 09 69 66 20 28 5f 6f |itmenu;.|..if (_o|
|000012d0| 75 72 5f 6d 65 6e 75 73 | 29 0d 09 7b 0d 09 09 69 |ur_menus|)..{...i|
|000012e0| 66 20 28 65 64 69 74 6d | 65 6e 75 20 3d 20 47 65 |f (editm|enu = Ge|
|000012f0| 74 4d 48 61 6e 64 6c 65 | 28 33 29 29 0d 09 09 7b |tMHandle|(3))...{|
|00001300| 72 65 67 69 73 74 65 72 | 20 69 6e 74 20 69 3b 0d |register| int i;.|
|00001310| 09 09 09 66 6f 72 20 28 | 69 3d 43 6f 75 6e 74 4d |...for (|i=CountM|
|00001320| 49 74 65 6d 73 28 65 64 | 69 74 6d 65 6e 75 29 3b |Items(ed|itmenu);|
|00001330| 20 69 3b 20 69 2d 2d 29 | 0d 09 09 09 09 45 6e 61 | i; i--)|.....Ena|
|00001340| 62 6c 65 49 74 65 6d 28 | 65 64 69 74 6d 65 6e 75 |bleItem(|editmenu|
|00001350| 2c 20 69 29 3b 0d 09 09 | 09 44 69 73 61 62 6c 65 |, i);...|.Disable|
|00001360| 49 74 65 6d 28 65 64 69 | 74 6d 65 6e 75 2c 20 32 |Item(edi|tmenu, 2|
|00001370| 29 3b 09 2f 2a 20 67 72 | 61 79 20 6c 69 6e 65 20 |);./* gr|ay line |
|00001380| 2a 2f 0d 09 09 09 44 69 | 73 61 62 6c 65 49 74 65 |*/....Di|sableIte|
|00001390| 6d 28 65 64 69 74 6d 65 | 6e 75 2c 20 37 29 3b 09 |m(editme|nu, 7);.|
|000013a0| 2f 2a 20 67 72 61 79 20 | 6c 69 6e 65 20 2a 2f 0d |/* gray |line */.|
|000013b0| 09 09 09 44 69 73 61 62 | 6c 65 49 74 65 6d 28 65 |...Disab|leItem(e|
|000013c0| 64 69 74 6d 65 6e 75 2c | 20 38 29 3b 09 2f 2a 20 |ditmenu,| 8);./* |
|000013d0| 4c 69 62 72 61 72 79 20 | 76 65 72 73 69 6f 6e 20 |Library |version |
|000013e0| 2a 2f 0d 09 09 7d 0d 09 | 7d 0d 7d 0d 0d 73 74 61 |*/...}..|}.}..sta|
|000013f0| 74 69 63 0d 76 6f 69 64 | 20 65 64 69 74 5f 64 69 |tic.void| edit_di|
|00001400| 73 61 62 6c 65 28 29 0d | 7b 72 65 67 69 73 74 65 |sable().|{registe|
|00001410| 72 20 4d 65 6e 75 48 61 | 6e 64 6c 65 20 65 64 69 |r MenuHa|ndle edi|
|00001420| 74 6d 65 6e 75 3b 0d 0d | 09 69 66 20 28 5f 6f 75 |tmenu;..|.if (_ou|
|00001430| 72 5f 6d 65 6e 75 73 29 | 0d 09 7b 0d 09 09 69 66 |r_menus)|..{...if|
|00001440| 20 28 65 64 69 74 6d 65 | 6e 75 20 3d 20 47 65 74 | (editme|nu = Get|
|00001450| 4d 48 61 6e 64 6c 65 28 | 33 29 29 0d 09 09 7b 72 |MHandle(|3))...{r|
|00001460| 65 67 69 73 74 65 72 20 | 69 6e 74 20 69 3b 0d 09 |egister |int i;..|
|00001470| 09 09 66 6f 72 20 28 69 | 3d 43 6f 75 6e 74 4d 49 |..for (i|=CountMI|
|00001480| 74 65 6d 73 28 65 64 69 | 74 6d 65 6e 75 29 3b 20 |tems(edi|tmenu); |
|00001490| 69 3b 20 69 2d 2d 29 09 | 0d 09 09 09 09 44 69 73 |i; i--).|.....Dis|
|000014a0| 61 62 6c 65 49 74 65 6d | 28 65 64 69 74 6d 65 6e |ableItem|(editmen|
|000014b0| 75 2c 20 69 29 3b 0d 23 | 69 66 64 65 66 20 5f 53 |u, i);.#|ifdef _S|
|000014c0| 54 44 5f 50 41 53 54 45 | 5f 0d 09 09 09 45 6e 61 |TD_PASTE|_....Ena|
|000014d0| 62 6c 65 49 74 65 6d 28 | 65 64 69 74 6d 65 6e 75 |bleItem(|editmenu|
|000014e0| 2c 20 35 29 3b 09 2f 2a | 20 50 61 73 74 65 20 2a |, 5);./*| Paste *|
|000014f0| 2f 0d 23 65 6e 64 69 66 | 20 5f 53 54 44 5f 50 41 |/.#endif| _STD_PA|
|00001500| 53 54 45 5f 0d 09 09 09 | 45 6e 61 62 6c 65 49 74 |STE_....|EnableIt|
|00001510| 65 6d 28 65 64 69 74 6d | 65 6e 75 2c 20 38 29 3b |em(editm|enu, 8);|
|00001520| 09 2f 2a 20 4c 69 62 72 | 61 72 79 20 76 65 72 73 |./* Libr|ary vers|
|00001530| 69 6f 6e 20 2a 2f 0d 09 | 09 7d 0d 09 7d 0d 7d 0d |ion */..|.}..}.}.|
|00001540| 0d 2f 2a 0d 20 2a 20 20 | 53 74 64 45 76 65 6e 74 |./*. * |StdEvent|
|00001550| 20 2d 20 65 76 65 6e 74 | 20 68 61 6e 64 6c 65 72 | - event| handler|
|00001560| 0d 20 2a 0d 20 2a 2f 0d | 0d 23 6c 69 6e 65 20 30 |. *. */.|.#line 0|
|00001570| 20 53 74 64 45 76 65 6e | 74 0d 42 6f 6f 6c 65 61 | StdEven|t.Boolea|
|00001580| 6e 20 53 74 64 45 76 65 | 6e 74 28 65 76 65 6e 74 |n StdEve|nt(event|
|00001590| 29 0d 72 65 67 69 73 74 | 65 72 20 45 76 65 6e 74 |).regist|er Event|
|000015a0| 52 65 63 6f 72 64 20 2a | 65 76 65 6e 74 3b 0d 7b |Record *|event;.{|
|000015b0| 0d 58 45 76 65 6e 74 52 | 65 63 6f 72 64 20 65 76 |.XEventR|ecord ev|
|000015c0| 3b 0d 72 65 67 69 73 74 | 65 72 20 58 45 76 65 6e |;.regist|er XEven|
|000015d0| 74 52 65 63 6f 72 64 20 | 2a 78 65 76 65 6e 74 20 |tRecord |*xevent |
|000015e0| 3d 20 26 65 76 3b 0d 72 | 65 67 69 73 74 65 72 20 |= &ev;.r|egister |
|000015f0| 73 68 6f 72 74 20 69 74 | 65 6d 2c 20 72 65 66 6e |short it|em, refn|
|00001600| 75 6d 3b 0d 52 65 63 74 | 20 72 3b 0d 6c 6f 6e 67 |um;.Rect| r;.long|
|00001610| 20 73 69 7a 65 3b 0d 69 | 6e 74 20 28 2a 70 72 6f | size;.i|nt (*pro|
|00001620| 63 29 28 29 3b 0d 73 74 | 61 74 69 63 20 63 68 61 |c)();.st|atic cha|
|00001630| 72 20 61 63 63 65 73 73 | 6f 72 79 5b 32 35 36 5d |r access|ory[256]|
|00001640| 3b 0d 0d 09 49 6e 69 74 | 5f 73 74 64 69 6f 28 29 |;...Init|_stdio()|
|00001650| 3b 0d 09 0d 09 2f 2a 20 | 63 6f 70 79 20 65 76 65 |;..../* |copy eve|
|00001660| 6e 74 20 74 6f 20 6c 6f | 63 61 6c 20 64 61 74 61 |nt to lo|cal data|
|00001670| 20 73 74 72 75 63 74 75 | 72 65 20 2a 2f 0d 0d 09 | structu|re */...|
|00001680| 65 76 20 3d 20 2a 28 58 | 45 76 65 6e 74 52 65 63 |ev = *(X|EventRec|
|00001690| 6f 72 64 2a 29 20 65 76 | 65 6e 74 3b 0d 09 0d 09 |ord*) ev|ent;....|
|000016a0| 2f 2a 20 72 65 73 65 74 | 20 65 76 65 6e 74 20 74 |/* reset| event t|
|000016b0| 6f 20 70 6f 69 6e 74 20 | 74 6f 20 74 68 69 73 20 |o point |to this |
|000016c0| 65 78 74 65 6e 64 65 64 | 20 65 76 65 6e 74 20 72 |extended| event r|
|000016d0| 65 63 6f 72 64 20 2a 2f | 0d 09 0d 09 65 76 65 6e |ecord */|....even|
|000016e0| 74 20 3d 20 28 45 76 65 | 6e 74 52 65 63 6f 72 64 |t = (Eve|ntRecord|
|000016f0| 2a 29 20 26 65 76 3b 0d | 09 0d 09 78 65 76 65 6e |*) &ev;.|...xeven|
|00001700| 74 2d 3e 77 69 6e 64 6f | 77 20 3d 20 46 72 6f 6e |t->windo|w = Fron|
|00001710| 74 57 69 6e 64 6f 77 28 | 29 3b 0d 09 0d 09 73 77 |tWindow(|);....sw|
|00001720| 69 74 63 68 20 28 65 76 | 65 6e 74 2d 3e 77 68 61 |itch (ev|ent->wha|
|00001730| 74 29 0d 09 7b 0d 09 64 | 65 66 61 75 6c 74 3a 0d |t)..{..d|efault:.|
|00001740| 09 09 72 65 74 75 72 6e | 20 28 57 69 6e 64 6f 77 |..return| (Window|
|00001750| 45 76 65 6e 74 28 65 76 | 65 6e 74 29 29 3b 0d 09 |Event(ev|ent));..|
|00001760| 09 0d 09 63 61 73 65 20 | 6e 75 6c 6c 45 76 65 6e |...case |nullEven|
|00001770| 74 3a 0d 09 09 69 66 20 | 28 21 20 57 69 6e 64 6f |t:...if |(! Windo|
|00001780| 77 45 76 65 6e 74 28 65 | 76 65 6e 74 29 29 20 72 |wEvent(e|vent)) r|
|00001790| 65 74 75 72 6e 20 28 66 | 61 6c 73 65 29 3b 0d 09 |eturn (f|alse);..|
|000017a0| 09 0d 09 09 73 77 69 74 | 63 68 20 28 46 69 6e 64 |....swit|ch (Find|
|000017b0| 57 69 6e 64 6f 77 28 65 | 76 65 6e 74 2d 3e 77 68 |Window(e|vent->wh|
|000017c0| 65 72 65 2c 20 26 78 65 | 76 65 6e 74 2d 3e 77 69 |ere, &xe|vent->wi|
|000017d0| 6e 64 6f 77 29 29 0d 09 | 09 7b 0d 09 09 63 61 73 |ndow))..|.{...cas|
|000017e0| 65 20 69 6e 43 6f 6e 74 | 65 6e 74 3a 0d 09 09 09 |e inCont|ent:....|
|000017f0| 69 66 20 28 78 65 76 65 | 6e 74 2d 3e 77 69 6e 64 |if (xeve|nt->wind|
|00001800| 6f 77 20 3d 3d 20 46 72 | 6f 6e 74 57 69 6e 64 6f |ow == Fr|ontWindo|
|00001810| 77 28 29 29 0d 09 09 09 | 7b 0d 09 09 09 09 53 65 |w())....|{.....Se|
|00001820| 74 50 6f 72 74 28 78 65 | 76 65 6e 74 2d 3e 77 69 |tPort(xe|vent->wi|
|00001830| 6e 64 6f 77 29 3b 0d 09 | 09 09 09 47 6c 6f 62 61 |ndow);..|...Globa|
|00001840| 6c 54 6f 4c 6f 63 61 6c | 28 26 65 76 65 6e 74 2d |lToLocal|(&event-|
|00001850| 3e 77 68 65 72 65 29 3b | 0d 09 09 09 09 65 76 65 |>where);|.....eve|
|00001860| 6e 74 2d 3e 77 68 61 74 | 20 3d 20 63 75 72 73 6f |nt->what| = curso|
|00001870| 72 45 76 65 6e 74 3b 0d | 09 09 09 09 72 65 74 75 |rEvent;.|....retu|
|00001880| 72 6e 20 28 57 69 6e 64 | 6f 77 45 76 65 6e 74 28 |rn (Wind|owEvent(|
|00001890| 65 76 65 6e 74 29 29 3b | 0d 09 09 09 7d 0d 09 09 |event));|....}...|
|000018a0| 64 65 66 61 75 6c 74 3a | 0d 09 09 09 53 65 74 43 |default:|....SetC|
|000018b0| 75 72 73 6f 72 28 26 61 | 72 72 6f 77 29 3b 0d 09 |ursor(&a|rrow);..|
|000018c0| 09 09 62 72 65 61 6b 3b | 0d 09 09 7d 0d 09 09 62 |..break;|...}...b|
|000018d0| 72 65 61 6b 3b 0d 0d 09 | 63 61 73 65 20 75 70 64 |reak;...|case upd|
|000018e0| 61 74 65 45 76 74 3a 0d | 09 09 69 66 20 28 21 20 |ateEvt:.|..if (! |
|000018f0| 4f 75 72 57 69 6e 64 6f | 77 28 78 65 76 65 6e 74 |OurWindo|w(xevent|
|00001900| 2d 3e 77 69 6e 64 6f 77 | 20 3d 20 28 57 69 6e 64 |->window| = (Wind|
|00001910| 6f 77 50 74 72 29 20 65 | 76 65 6e 74 2d 3e 6d 65 |owPtr) e|vent->me|
|00001920| 73 73 61 67 65 29 29 0d | 09 09 09 72 65 74 75 72 |ssage)).|...retur|
|00001930| 6e 20 28 66 61 6c 73 65 | 29 3b 0d 09 09 0d 09 09 |n (false|);......|
|00001940| 42 65 67 69 6e 55 70 64 | 61 74 65 28 78 65 76 65 |BeginUpd|ate(xeve|
|00001950| 6e 74 2d 3e 77 69 6e 64 | 6f 77 29 3b 0d 09 09 53 |nt->wind|ow);...S|
|00001960| 65 74 50 6f 72 74 28 78 | 65 76 65 6e 74 2d 3e 77 |etPort(x|event->w|
|00001970| 69 6e 64 6f 77 29 3b 0d | 09 09 57 69 6e 64 6f 77 |indow);.|..Window|
|00001980| 45 76 65 6e 74 28 65 76 | 65 6e 74 29 3b 0d 09 09 |Event(ev|ent);...|
|00001990| 45 6e 64 55 70 64 61 74 | 65 28 78 65 76 65 6e 74 |EndUpdat|e(xevent|
|000019a0| 2d 3e 77 69 6e 64 6f 77 | 29 3b 0d 09 09 62 72 65 |->window|);...bre|
|000019b0| 61 6b 3b 0d 09 09 0d 09 | 63 61 73 65 20 61 63 74 |ak;.....|case act|
|000019c0| 69 76 61 74 65 45 76 74 | 3a 0d 09 09 69 66 20 28 |ivateEvt|:...if (|
|000019d0| 21 20 4f 75 72 57 69 6e | 64 6f 77 28 78 65 76 65 |! OurWin|dow(xeve|
|000019e0| 6e 74 2d 3e 77 69 6e 64 | 6f 77 20 3d 20 28 57 69 |nt->wind|ow = (Wi|
|000019f0| 6e 64 6f 77 50 74 72 29 | 20 65 76 65 6e 74 2d 3e |ndowPtr)| event->|
|00001a00| 6d 65 73 73 61 67 65 29 | 29 0d 09 09 09 72 65 74 |message)|)....ret|
|00001a10| 75 72 6e 20 28 66 61 6c | 73 65 29 3b 0d 0d 09 09 |urn (fal|se);....|
|00001a20| 53 65 74 50 6f 72 74 28 | 78 65 76 65 6e 74 2d 3e |SetPort(|xevent->|
|00001a30| 77 69 6e 64 6f 77 29 3b | 0d 09 09 69 66 20 28 21 |window);|...if (!|
|00001a40| 28 65 76 65 6e 74 2d 3e | 6d 6f 64 69 66 69 65 72 |(event->|modifier|
|00001a50| 73 20 26 20 61 63 74 69 | 76 65 46 6c 61 67 29 29 |s & acti|veFlag))|
|00001a60| 0d 09 09 09 65 76 65 6e | 74 2d 3e 77 68 61 74 20 |....even|t->what |
|00001a70| 3d 20 64 65 61 63 74 69 | 76 61 74 65 45 76 74 3b |= deacti|vateEvt;|
|00001a80| 0d 09 09 57 69 6e 64 6f | 77 45 76 65 6e 74 28 65 |...Windo|wEvent(e|
|00001a90| 76 65 6e 74 29 3b 0d 09 | 09 62 72 65 61 6b 3b 0d |vent);..|.break;.|
|00001aa0| 09 09 0d 09 63 61 73 65 | 20 6d 6f 75 73 65 44 6f |....case| mouseDo|
|00001ab0| 77 6e 3a 0d 09 09 73 77 | 69 74 63 68 20 28 46 69 |wn:...sw|itch (Fi|
|00001ac0| 6e 64 57 69 6e 64 6f 77 | 28 65 76 65 6e 74 2d 3e |ndWindow|(event->|
|00001ad0| 77 68 65 72 65 2c 20 26 | 78 65 76 65 6e 74 2d 3e |where, &|xevent->|
|00001ae0| 77 69 6e 64 6f 77 29 29 | 0d 09 09 7b 0d 09 09 64 |window))|...{...d|
|00001af0| 65 66 61 75 6c 74 3a 0d | 09 09 09 72 65 74 75 72 |efault:.|...retur|
|00001b00| 6e 20 28 66 61 6c 73 65 | 29 3b 0d 0d 09 09 63 61 |n (false|);....ca|
|00001b10| 73 65 20 69 6e 4d 65 6e | 75 42 61 72 3a 0d 09 09 |se inMen|uBar:...|
|00001b20| 09 69 66 20 28 21 20 5f | 6f 75 72 5f 6d 65 6e 75 |.if (! _|our_menu|
|00001b30| 73 29 0d 09 09 09 09 72 | 65 74 75 72 6e 20 28 66 |s).....r|eturn (f|
|00001b40| 61 6c 73 65 29 3b 0d 0d | 09 09 09 78 65 76 65 6e |alse);..|...xeven|
|00001b50| 74 2d 3e 77 69 6e 64 6f | 77 20 3d 20 46 72 6f 6e |t->windo|w = Fron|
|00001b60| 74 57 69 6e 64 6f 77 28 | 29 3b 0d 09 09 09 53 65 |tWindow(|);....Se|
|00001b70| 74 43 75 72 73 6f 72 28 | 26 61 72 72 6f 77 29 3b |tCursor(|&arrow);|
|00001b80| 0d 09 09 09 64 6f 4d 65 | 6e 75 28 65 76 65 6e 74 |....doMe|nu(event|
|00001b90| 29 3b 0d 09 09 09 65 76 | 65 6e 74 2d 3e 6d 65 73 |);....ev|ent->mes|
|00001ba0| 73 61 67 65 20 3d 20 4d | 65 6e 75 53 65 6c 65 63 |sage = M|enuSelec|
|00001bb0| 74 28 65 76 65 6e 74 2d | 3e 77 68 65 72 65 29 3b |t(event-|>where);|
|00001bc0| 0d 0d 09 09 09 69 66 20 | 28 68 69 77 6f 72 64 28 |.....if |(hiword(|
|00001bd0| 65 76 65 6e 74 2d 3e 6d | 65 73 73 61 67 65 29 20 |event->m|essage) |
|00001be0| 3d 3d 20 30 29 20 62 72 | 65 61 6b 3b 0d 0d 09 09 |== 0) br|eak;....|
|00001bf0| 09 65 76 65 6e 74 2d 3e | 77 68 61 74 20 3d 20 6d |.event->|what = m|
|00001c00| 65 6e 75 45 76 65 6e 74 | 3b 0d 09 09 09 64 6f 4d |enuEvent|;....doM|
|00001c10| 65 6e 75 28 65 76 65 6e | 74 29 3b 0d 09 09 09 73 |enu(even|t);....s|
|00001c20| 77 69 74 63 68 20 28 65 | 76 65 6e 74 2d 3e 77 68 |witch (e|vent->wh|
|00001c30| 61 74 29 0d 09 09 09 7b | 0d 09 09 09 63 61 73 65 |at)....{|....case|
|00001c40| 20 65 64 69 74 45 76 65 | 6e 74 3a 0d 09 09 09 09 | editEve|nt:.....|
|00001c50| 69 66 20 28 53 79 73 74 | 65 6d 45 64 69 74 28 28 |if (Syst|emEdit((|
|00001c60| 73 68 6f 72 74 29 20 65 | 76 65 6e 74 2d 3e 6d 65 |short) e|vent->me|
|00001c70| 73 73 61 67 65 20 2d 20 | 31 29 29 0d 09 09 09 09 |ssage - |1)).....|
|00001c80| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 57 69 6e 64 |.break;.|....Wind|
|00001c90| 6f 77 45 76 65 6e 74 28 | 65 76 65 6e 74 29 3b 0d |owEvent(|event);.|
|00001ca0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 0d |....brea|k;......|
|00001cb0| 09 09 09 63 61 73 65 20 | 63 6c 6f 73 65 45 76 65 |...case |closeEve|
|00001cc0| 6e 74 3a 0d 09 09 09 09 | 69 66 20 28 78 65 76 65 |nt:.....|if (xeve|
|00001cd0| 6e 74 2d 3e 77 69 6e 64 | 6f 77 29 0d 09 09 09 09 |nt->wind|ow).....|
|00001ce0| 7b 0d 09 09 09 09 09 72 | 65 66 6e 75 6d 20 3d 20 |{......r|efnum = |
|00001cf0| 28 28 57 69 6e 64 6f 77 | 50 65 65 6b 29 20 78 65 |((Window|Peek) xe|
|00001d00| 76 65 6e 74 2d 3e 77 69 | 6e 64 6f 77 29 2d 3e 77 |vent->wi|ndow)->w|
|00001d10| 69 6e 64 6f 77 4b 69 6e | 64 3b 0d 09 09 09 09 09 |indowKin|d;......|
|00001d20| 69 66 20 28 72 65 66 6e | 75 6d 20 3c 20 30 29 0d |if (refn|um < 0).|
|00001d30| 09 09 09 09 09 7b 0d 09 | 09 09 09 09 09 43 6c 6f |.....{..|.....Clo|
|00001d40| 73 65 44 65 73 6b 41 63 | 63 28 72 65 66 6e 75 6d |seDeskAc|c(refnum|
|00001d50| 29 3b 0d 09 09 09 09 09 | 7d 0d 09 09 09 09 09 65 |);......|}......e|
|00001d60| 6c 73 65 0d 09 09 09 09 | 09 09 57 69 6e 64 6f 77 |lse.....|..Window|
|00001d70| 45 76 65 6e 74 28 65 76 | 65 6e 74 29 3b 0d 09 09 |Event(ev|ent);...|
|00001d80| 09 09 7d 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |..}.....|break;..|
|00001d90| 09 09 0d 09 09 09 63 61 | 73 65 20 6f 70 65 6e 45 |......ca|se openE|
|00001da0| 76 65 6e 74 3a 0d 09 09 | 09 09 69 66 20 28 5f 63 |vent:...|..if (_c|
|00001db0| 6f 6e 73 6f 6c 65 2d 3e | 66 69 6c 65 62 75 66 29 |onsole->|filebuf)|
|00001dc0| 0d 09 09 09 09 7b 0d 09 | 09 09 09 09 69 66 20 28 |.....{..|....if (|
|00001dd0| 21 28 28 57 69 6e 64 6f | 77 50 65 65 6b 29 5f 63 |!((Windo|wPeek)_c|
|00001de0| 6f 6e 73 6f 6c 65 2d 3e | 66 69 6c 65 62 75 66 29 |onsole->|filebuf)|
|00001df0| 2d 3e 76 69 73 69 62 6c | 65 29 0d 09 09 09 09 09 |->visibl|e)......|
|00001e00| 7b 0d 09 09 09 09 09 09 | 53 68 6f 77 57 69 6e 64 |{.......|ShowWind|
|00001e10| 6f 77 28 5f 63 6f 6e 73 | 6f 6c 65 2d 3e 66 69 6c |ow(_cons|ole->fil|
|00001e20| 65 62 75 66 29 3b 0d 09 | 09 09 09 09 09 53 74 64 |ebuf);..|.....Std|
|00001e30| 5f 75 70 64 61 74 65 77 | 69 6e 64 6f 77 28 5f 63 |_updatew|indow(_c|
|00001e40| 6f 6e 73 6f 6c 65 2d 3e | 66 69 6c 65 62 75 66 29 |onsole->|filebuf)|
|00001e50| 3b 0d 09 09 09 09 09 7d | 0d 09 09 09 09 7d 0d 09 |;......}|.....}..|
|00001e60| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 0d 09 |...break|;.......|
|00001e70| 09 09 63 61 73 65 20 61 | 70 70 6c 65 45 76 65 6e |..case a|ppleEven|
|00001e80| 74 3a 0d 09 09 09 09 47 | 65 74 49 74 65 6d 28 47 |t:.....G|etItem(G|
|00001e90| 65 74 4d 48 61 6e 64 6c | 65 28 68 69 77 6f 72 64 |etMHandl|e(hiword|
|00001ea0| 28 65 76 65 6e 74 2d 3e | 6d 65 73 73 61 67 65 29 |(event->|message)|
|00001eb0| 29 2c 0d 09 09 09 09 09 | 09 6c 6f 77 6f 72 64 28 |),......|.loword(|
|00001ec0| 65 76 65 6e 74 2d 3e 6d | 65 73 73 61 67 65 29 2c |event->m|essage),|
|00001ed0| 0d 09 09 09 09 09 09 61 | 63 63 65 73 73 6f 72 79 |.......a|ccessory|
|00001ee0| 29 3b 0d 09 09 09 09 4f | 70 65 6e 44 65 73 6b 41 |);.....O|penDeskA|
|00001ef0| 63 63 28 61 63 63 65 73 | 73 6f 72 79 29 3b 0d 09 |cc(acces|sory);..|
|00001f00| 09 09 09 65 64 69 74 5f | 65 6e 61 62 6c 65 28 29 |...edit_|enable()|
|00001f10| 3b 0d 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |;.....br|eak;....|
|00001f20| 7d 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 0d |}....bre|ak;.....|
|00001f30| 09 09 63 61 73 65 20 69 | 6e 53 79 73 57 69 6e 64 |..case i|nSysWind|
|00001f40| 6f 77 3a 0d 09 09 09 53 | 79 73 74 65 6d 43 6c 69 |ow:....S|ystemCli|
|00001f50| 63 6b 28 65 76 65 6e 74 | 2c 20 78 65 76 65 6e 74 |ck(event|, xevent|
|00001f60| 2d 3e 77 69 6e 64 6f 77 | 29 3b 0d 09 09 09 62 72 |->window|);....br|
|00001f70| 65 61 6b 3b 0d 0d 09 09 | 63 61 73 65 20 69 6e 43 |eak;....|case inC|
|00001f80| 6f 6e 74 65 6e 74 3a 0d | 09 09 09 69 66 20 28 21 |ontent:.|...if (!|
|00001f90| 20 4f 75 72 57 69 6e 64 | 6f 77 28 78 65 76 65 6e | OurWind|ow(xeven|
|00001fa0| 74 2d 3e 77 69 6e 64 6f | 77 29 29 20 72 65 74 75 |t->windo|w)) retu|
|00001fb0| 72 6e 20 28 66 61 6c 73 | 65 29 3b 0d 09 09 09 0d |rn (fals|e);.....|
|00001fc0| 09 09 09 69 66 20 28 78 | 65 76 65 6e 74 2d 3e 77 |...if (x|event->w|
|00001fd0| 69 6e 64 6f 77 20 21 3d | 20 46 72 6f 6e 74 57 69 |indow !=| FrontWi|
|00001fe0| 6e 64 6f 77 28 29 29 0d | 09 09 09 7b 0d 09 09 09 |ndow()).|...{....|
|00001ff0| 09 65 76 65 6e 74 2d 3e | 77 68 61 74 20 3d 20 73 |.event->|what = s|
|00002000| 65 6c 65 63 74 45 76 65 | 6e 74 3b 0d 09 09 09 09 |electEve|nt;.....|
|00002010| 57 69 6e 64 6f 77 45 76 | 65 6e 74 28 65 76 65 6e |WindowEv|ent(even|
|00002020| 74 29 3b 0d 09 09 09 09 | 69 66 20 28 65 76 65 6e |t);.....|if (even|
|00002030| 74 2d 3e 77 68 61 74 20 | 21 3d 20 6d 6f 75 73 65 |t->what |!= mouse|
|00002040| 44 6f 77 6e 29 0d 09 09 | 09 09 7b 0d 09 09 09 09 |Down)...|..{.....|
|00002050| 09 53 65 6c 65 63 74 57 | 69 6e 64 6f 77 28 78 65 |.SelectW|indow(xe|
|00002060| 76 65 6e 74 2d 3e 77 69 | 6e 64 6f 77 29 3b 0d 09 |vent->wi|ndow);..|
|00002070| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 7d |....brea|k;.....}|
|00002080| 0d 09 09 09 7d 0d 09 09 | 09 53 65 74 50 6f 72 74 |....}...|.SetPort|
|00002090| 28 78 65 76 65 6e 74 2d | 3e 77 69 6e 64 6f 77 29 |(xevent-|>window)|
|000020a0| 3b 0d 09 09 09 47 6c 6f | 62 61 6c 54 6f 4c 6f 63 |;....Glo|balToLoc|
|000020b0| 61 6c 28 26 65 76 65 6e | 74 2d 3e 77 68 65 72 65 |al(&even|t->where|
|000020c0| 29 3b 0d 09 09 09 69 66 | 20 28 65 76 65 6e 74 2d |);....if| (event-|
|000020d0| 3e 6d 65 73 73 61 67 65 | 20 3d 20 46 69 6e 64 43 |>message| = FindC|
|000020e0| 6f 6e 74 72 6f 6c 28 65 | 76 65 6e 74 2d 3e 77 68 |ontrol(e|vent->wh|
|000020f0| 65 72 65 2c 0d 09 09 09 | 09 09 09 09 09 09 09 09 |ere,....|........|
|00002100| 20 78 65 76 65 6e 74 2d | 3e 77 69 6e 64 6f 77 2c | xevent-|>window,|
|00002110| 0d 09 09 09 09 09 09 09 | 09 09 09 09 20 26 78 65 |........|.... &xe|
|00002120| 76 65 6e 74 2d 3e 63 6f | 6e 74 72 6f 6c 29 29 0d |vent->co|ntrol)).|
|00002130| 09 09 09 7b 0d 09 09 09 | 09 70 72 6f 63 20 3d 20 |...{....|.proc = |
|00002140| 28 69 6e 74 20 28 2a 29 | 28 29 29 20 28 65 76 65 |(int (*)|()) (eve|
|00002150| 6e 74 2d 3e 6d 65 73 73 | 61 67 65 20 3e 20 31 32 |nt->mess|age > 12|
|00002160| 38 20 3f 20 30 4c 20 3a | 20 2d 31 4c 29 3b 0d 09 |8 ? 0L :| -1L);..|
|00002170| 09 09 09 69 66 20 28 54 | 72 61 63 6b 43 6f 6e 74 |...if (T|rackCont|
|00002180| 72 6f 6c 28 78 65 76 65 | 6e 74 2d 3e 63 6f 6e 74 |rol(xeve|nt->cont|
|00002190| 72 6f 6c 2c 20 65 76 65 | 6e 74 2d 3e 77 68 65 72 |rol, eve|nt->wher|
|000021a0| 65 2c 20 70 72 6f 63 29 | 20 3d 3d 20 30 29 0d 09 |e, proc)| == 0)..|
|000021b0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 65 |....brea|k;.....e|
|000021c0| 76 65 6e 74 2d 3e 77 68 | 61 74 20 3d 20 63 6f 6e |vent->wh|at = con|
|000021d0| 74 72 6f 6c 45 76 65 6e | 74 3b 0d 09 09 09 7d 0d |trolEven|t;....}.|
|000021e0| 09 09 09 57 69 6e 64 6f | 77 45 76 65 6e 74 28 65 |...Windo|wEvent(e|
|000021f0| 76 65 6e 74 29 3b 0d 09 | 09 09 69 66 20 28 65 76 |vent);..|..if (ev|
|00002200| 65 6e 74 2d 3e 77 68 61 | 74 20 21 3d 20 64 72 61 |ent->wha|t != dra|
|00002210| 67 45 76 65 6e 74 29 20 | 62 72 65 61 6b 3b 0d 09 |gEvent) |break;..|
|00002220| 09 09 0d 09 09 09 4c 6f | 63 61 6c 54 6f 47 6c 6f |......Lo|calToGlo|
|00002230| 62 61 6c 28 26 65 76 65 | 6e 74 2d 3e 77 68 65 72 |bal(&eve|nt->wher|
|00002240| 65 29 3b 0d 09 09 09 2f | 2a 20 2e 2e 2e 20 2a 2f |e);..../|* ... */|
|00002250| 0d 09 09 63 61 73 65 20 | 69 6e 44 72 61 67 3a 0d |...case |inDrag:.|
|00002260| 09 09 09 2f 2a 20 64 6f | 6e 27 74 20 73 65 6c 65 |.../* do|n't sele|
|00002270| 63 74 20 77 69 6e 64 6f | 77 20 69 66 20 63 6f 6d |ct windo|w if com|
|00002280| 6d 61 6e 64 20 6b 65 79 | 20 69 73 20 64 6f 77 6e |mand key| is down|
|00002290| 20 2a 2f 0d 09 09 09 0d | 09 09 09 69 66 20 28 21 | */.....|...if (!|
|000022a0| 28 65 76 65 6e 74 2d 3e | 6d 6f 64 69 66 69 65 72 |(event->|modifier|
|000022b0| 73 20 26 20 63 6d 64 4b | 65 79 29 29 0d 09 09 09 |s & cmdK|ey))....|
|000022c0| 09 69 66 20 28 78 65 76 | 65 6e 74 2d 3e 77 69 6e |.if (xev|ent->win|
|000022d0| 64 6f 77 20 21 3d 20 46 | 72 6f 6e 74 57 69 6e 64 |dow != F|rontWind|
|000022e0| 6f 77 28 29 29 0d 09 09 | 09 09 7b 0d 09 09 09 09 |ow())...|..{.....|
|000022f0| 09 53 65 6c 65 63 74 57 | 69 6e 64 6f 77 28 78 65 |.SelectW|indow(xe|
|00002300| 76 65 6e 74 2d 3e 77 69 | 6e 64 6f 77 29 3b 0d 09 |vent->wi|ndow);..|
|00002310| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 7d |....brea|k;.....}|
|00002320| 0d 09 09 09 53 65 74 52 | 65 63 74 28 26 72 2c 20 |....SetR|ect(&r, |
|00002330| 34 2c 20 5f 4d 42 41 52 | 48 45 49 47 48 54 20 2b |4, _MBAR|HEIGHT +|
|00002340| 20 34 2c 20 73 63 72 65 | 65 6e 57 69 64 74 68 20 | 4, scre|enWidth |
|00002350| 2d 20 34 2c 20 73 63 72 | 65 65 6e 48 65 69 67 68 |- 4, scr|eenHeigh|
|00002360| 74 20 2d 20 34 29 3b 0d | 09 09 09 53 65 74 43 75 |t - 4);.|...SetCu|
|00002370| 72 73 6f 72 28 26 61 72 | 72 6f 77 29 3b 0d 09 09 |rsor(&ar|row);...|
|00002380| 09 44 72 61 67 57 69 6e | 64 6f 77 28 78 65 76 65 |.DragWin|dow(xeve|
|00002390| 6e 74 2d 3e 77 69 6e 64 | 6f 77 2c 20 65 76 65 6e |nt->wind|ow, even|
|000023a0| 74 2d 3e 77 68 65 72 65 | 2c 20 26 72 29 3b 0d 09 |t->where|, &r);..|
|000023b0| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 0d 09 09 63 |..break;|.......c|
|000023c0| 61 73 65 20 69 6e 47 72 | 6f 77 3a 0d 09 09 09 69 |ase inGr|ow:....i|
|000023d0| 66 20 28 21 20 4f 75 72 | 57 69 6e 64 6f 77 28 78 |f (! Our|Window(x|
|000023e0| 65 76 65 6e 74 2d 3e 77 | 69 6e 64 6f 77 29 29 20 |event->w|indow)) |
|000023f0| 72 65 74 75 72 6e 20 28 | 66 61 6c 73 65 29 3b 0d |return (|false);.|
|00002400| 09 09 09 0d 09 09 09 7b | 72 65 67 69 73 74 65 72 |.......{|register|
|00002410| 20 53 74 64 57 69 6e 64 | 6f 77 52 65 63 20 2a 73 | StdWind|owRec *s|
|00002420| 77 72 70 20 3d 20 28 53 | 74 64 57 69 6e 64 6f 77 |wrp = (S|tdWindow|
|00002430| 52 65 63 2a 29 78 65 76 | 65 6e 74 2d 3e 77 69 6e |Rec*)xev|ent->win|
|00002440| 64 6f 77 3b 0d 09 09 09 | 20 0d 09 09 09 53 65 74 |dow;....| ....Set|
|00002450| 52 65 63 74 28 26 72 2c | 0d 09 09 09 09 73 77 72 |Rect(&r,|.....swr|
|00002460| 70 2d 3e 63 68 61 72 77 | 69 64 74 68 20 2b 20 5f |p->charw|idth + _|
|00002470| 4c 45 46 54 45 44 47 45 | 20 2b 20 5f 43 4f 4e 54 |LEFTEDGE| + _CONT|
|00002480| 52 4f 4c 57 49 44 54 48 | 20 2b 20 33 2c 0d 09 09 |ROLWIDTH| + 3,...|
|00002490| 09 09 73 77 72 70 2d 3e | 63 68 61 72 68 65 69 67 |..swrp->|charheig|
|000024a0| 68 74 20 2b 20 5f 54 4f | 50 45 44 47 45 20 2b 20 |ht + _TO|PEDGE + |
|000024b0| 5f 43 4f 4e 54 52 4f 4c | 57 49 44 54 48 20 2b 20 |_CONTROL|WIDTH + |
|000024c0| 38 2c 0d 09 09 09 09 73 | 77 72 70 2d 3e 63 68 61 |8,.....s|wrp->cha|
|000024d0| 72 77 69 64 74 68 20 2a | 20 73 77 72 70 2d 3e 6f |rwidth *| swrp->o|
|000024e0| 70 74 2e 6d 61 78 63 6f | 6c 20 2b 20 5f 4c 45 46 |pt.maxco|l + _LEF|
|000024f0| 54 45 44 47 45 20 2b 20 | 5f 43 4f 4e 54 52 4f 4c |TEDGE + |_CONTROL|
|00002500| 57 49 44 54 48 20 2b 20 | 33 2c 0d 09 09 09 09 73 |WIDTH + |3,.....s|
|00002510| 77 72 70 2d 3e 63 68 61 | 72 68 65 69 67 68 74 20 |wrp->cha|rheight |
|00002520| 2a 20 73 77 72 70 2d 3e | 6f 70 74 2e 6d 61 78 72 |* swrp->|opt.maxr|
|00002530| 6f 77 20 2b 20 5f 54 4f | 50 45 44 47 45 20 2b 20 |ow + _TO|PEDGE + |
|00002540| 5f 43 4f 4e 54 52 4f 4c | 57 49 44 54 48 20 2b 20 |_CONTROL|WIDTH + |
|00002550| 38 29 3b 0d 09 09 09 7d | 0d 09 09 09 0d 09 09 09 |8);....}|........|
|00002560| 53 65 74 43 75 72 73 6f | 72 28 26 61 72 72 6f 77 |SetCurso|r(&arrow|
|00002570| 29 3b 0d 09 09 09 69 66 | 20 28 73 69 7a 65 20 3d |);....if| (size =|
|00002580| 20 47 72 6f 77 57 69 6e | 64 6f 77 28 78 65 76 65 | GrowWin|dow(xeve|
|00002590| 6e 74 2d 3e 77 69 6e 64 | 6f 77 2c 20 65 76 65 6e |nt->wind|ow, even|
|000025a0| 74 2d 3e 77 68 65 72 65 | 2c 20 26 72 29 29 0d 09 |t->where|, &r))..|
|000025b0| 09 09 7b 0d 09 09 09 09 | 53 69 7a 65 57 69 6e 64 |..{.....|SizeWind|
|000025c0| 6f 77 28 78 65 76 65 6e | 74 2d 3e 77 69 6e 64 6f |ow(xeven|t->windo|
|000025d0| 77 2c 20 6c 6f 77 6f 72 | 64 28 73 69 7a 65 29 2c |w, lowor|d(size),|
|000025e0| 20 68 69 77 6f 72 64 28 | 73 69 7a 65 29 2c 20 30 | hiword(|size), 0|
|000025f0| 29 3b 0d 09 09 09 09 53 | 65 74 50 6f 72 74 28 78 |);.....S|etPort(x|
|00002600| 65 76 65 6e 74 2d 3e 77 | 69 6e 64 6f 77 29 3b 0d |event->w|indow);.|
|00002610| 09 09 09 09 49 6e 76 61 | 6c 52 65 63 74 28 26 78 |....Inva|lRect(&x|
|00002620| 65 76 65 6e 74 2d 3e 77 | 69 6e 64 6f 77 2d 3e 70 |event->w|indow->p|
|00002630| 6f 72 74 52 65 63 74 29 | 3b 0d 09 09 09 09 65 76 |ortRect)|;.....ev|
|00002640| 65 6e 74 2d 3e 77 68 61 | 74 20 3d 20 67 72 6f 77 |ent->wha|t = grow|
|00002650| 45 76 65 6e 74 3b 0d 09 | 09 09 09 57 69 6e 64 6f |Event;..|...Windo|
|00002660| 77 45 76 65 6e 74 28 65 | 76 65 6e 74 29 3b 0d 09 |wEvent(e|vent);..|
|00002670| 09 09 09 7b 53 74 64 57 | 69 6e 64 6f 77 52 65 63 |...{StdW|indowRec|
|00002680| 20 2a 73 77 72 70 20 3d | 20 28 28 53 74 64 57 69 | *swrp =| ((StdWi|
|00002690| 6e 64 6f 77 52 65 63 2a | 29 78 65 76 65 6e 74 2d |ndowRec*|)xevent-|
|000026a0| 3e 77 69 6e 64 6f 77 29 | 3b 0d 09 09 09 09 09 73 |>window)|;......s|
|000026b0| 77 72 70 2d 3e 76 69 73 | 63 6f 6c 20 3d 20 28 6c |wrp->vis|col = (l|
|000026c0| 6f 77 6f 72 64 28 73 69 | 7a 65 29 2d 5f 43 4f 4e |oword(si|ze)-_CON|
|000026d0| 54 52 4f 4c 57 49 44 54 | 48 2d 31 2d 73 77 72 70 |TROLWIDT|H-1-swrp|
|000026e0| 2d 3e 63 68 61 72 77 69 | 64 74 68 2b 31 29 2f 73 |->charwi|dth+1)/s|
|000026f0| 77 72 70 2d 3e 63 68 61 | 72 77 69 64 74 68 3b 0d |wrp->cha|rwidth;.|
|00002700| 09 09 09 09 09 73 77 72 | 70 2d 3e 76 69 73 72 6f |.....swr|p->visro|
|00002710| 77 20 3d 20 28 68 69 77 | 6f 72 64 28 73 69 7a 65 |w = (hiw|ord(size|
|00002720| 29 2d 5f 43 4f 4e 54 52 | 4f 4c 57 49 44 54 48 2d |)-_CONTR|OLWIDTH-|
|00002730| 31 2d 73 77 72 70 2d 3e | 63 68 61 72 68 65 69 67 |1-swrp->|charheig|
|00002740| 68 74 2b 31 29 2f 73 77 | 72 70 2d 3e 63 68 61 72 |ht+1)/sw|rp->char|
|00002750| 68 65 69 67 68 74 3b 0d | 0d 09 09 09 09 09 2f 2a |height;.|....../*|
|00002760| 20 6d 61 6b 65 20 73 75 | 72 65 20 6e 65 69 74 68 | make su|re neith|
|00002770| 65 72 20 76 61 72 69 61 | 62 6c 65 20 65 78 63 65 |er varia|ble exce|
|00002780| 65 64 73 20 6c 65 67 61 | 6c 20 62 6f 75 6e 64 73 |eds lega|l bounds|
|00002790| 20 2a 2f 0d 0d 09 09 09 | 09 09 69 66 20 28 73 77 | */.....|..if (sw|
|000027a0| 72 70 2d 3e 76 69 73 63 | 6f 6c 20 3e 20 73 77 72 |rp->visc|ol > swr|
|000027b0| 70 2d 3e 6f 70 74 2e 6d | 61 78 63 6f 6c 29 20 73 |p->opt.m|axcol) s|
|000027c0| 77 72 70 2d 3e 76 69 73 | 63 6f 6c 20 3d 20 73 77 |wrp->vis|col = sw|
|000027d0| 72 70 2d 3e 6f 70 74 2e | 6d 61 78 63 6f 6c 3b 0d |rp->opt.|maxcol;.|
|000027e0| 09 09 09 09 09 69 66 20 | 28 73 77 72 70 2d 3e 76 |.....if |(swrp->v|
|000027f0| 69 73 72 6f 77 20 3e 20 | 73 77 72 70 2d 3e 6f 70 |isrow > |swrp->op|
|00002800| 74 2e 6d 61 78 72 6f 77 | 29 20 73 77 72 70 2d 3e |t.maxrow|) swrp->|
|00002810| 76 69 73 72 6f 77 20 3d | 20 73 77 72 70 2d 3e 6f |visrow =| swrp->o|
|00002820| 70 74 2e 6d 61 78 72 6f | 77 3b 0d 09 09 09 09 7d |pt.maxro|w;.....}|
|00002830| 0d 09 09 09 7d 0d 09 09 | 09 62 72 65 61 6b 3b 0d |....}...|.break;.|
|00002840| 0d 09 09 63 61 73 65 20 | 69 6e 47 6f 41 77 61 79 |...case |inGoAway|
|00002850| 3a 0d 09 09 09 69 66 20 | 28 21 20 4f 75 72 57 69 |:....if |(! OurWi|
|00002860| 6e 64 6f 77 28 78 65 76 | 65 6e 74 2d 3e 77 69 6e |ndow(xev|ent->win|
|00002870| 64 6f 77 29 29 20 72 65 | 74 75 72 6e 20 28 66 61 |dow)) re|turn (fa|
|00002880| 6c 73 65 29 3b 0d 09 09 | 09 0d 09 09 09 53 65 74 |lse);...|.....Set|
|00002890| 43 75 72 73 6f 72 28 26 | 61 72 72 6f 77 29 3b 0d |Cursor(&|arrow);.|
|000028a0| 09 09 09 69 66 20 28 54 | 72 61 63 6b 47 6f 41 77 |...if (T|rackGoAw|
|000028b0| 61 79 28 78 65 76 65 6e | 74 2d 3e 77 69 6e 64 6f |ay(xeven|t->windo|
|000028c0| 77 2c 20 65 76 65 6e 74 | 2d 3e 77 68 65 72 65 29 |w, event|->where)|
|000028d0| 29 0d 09 09 09 7b 0d 09 | 09 09 09 65 76 65 6e 74 |)....{..|...event|
|000028e0| 2d 3e 77 68 61 74 20 3d | 20 63 6c 6f 73 65 45 76 |->what =| closeEv|
|000028f0| 65 6e 74 3b 0d 09 09 09 | 09 57 69 6e 64 6f 77 45 |ent;....|.WindowE|
|00002900| 76 65 6e 74 28 65 76 65 | 6e 74 29 3b 0d 09 09 09 |vent(eve|nt);....|
|00002910| 7d 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 7d 0d |}....bre|ak;...}.|
|00002920| 09 09 62 72 65 61 6b 3b | 0d 09 7d 0d 09 72 65 74 |..break;|..}..ret|
|00002930| 75 72 6e 20 28 74 72 75 | 65 29 3b 09 0d 7d 0d 0d |urn (tru|e);..}..|
|00002940| 73 74 61 74 69 63 0d 76 | 6f 69 64 20 73 74 64 69 |static.v|oid stdi|
|00002950| 6f 5f 66 6f 6e 74 73 65 | 74 28 70 6f 72 74 70 29 |o_fontse|t(portp)|
|00002960| 0d 47 72 61 66 50 74 72 | 20 70 6f 72 74 70 3b 0d |.GrafPtr| portp;.|
|00002970| 7b 0d 09 2f 2a 20 73 65 | 74 20 75 70 20 61 20 66 |{../* se|t up a f|
|00002980| 6f 6e 74 20 2a 2f 0d 09 | 0d 09 53 65 74 50 6f 72 |ont */..|..SetPor|
|00002990| 74 28 70 6f 72 74 70 29 | 3b 0d 09 54 65 78 74 46 |t(portp)|;..TextF|
|000029a0| 6f 6e 74 28 5f 66 6f 6e | 74 29 3b 0d 09 54 65 78 |ont(_fon|t);..Tex|
|000029b0| 74 53 69 7a 65 28 5f 73 | 69 7a 65 29 3b 0d 09 54 |tSize(_s|ize);..T|
|000029c0| 65 78 74 46 61 63 65 28 | 5f 66 61 63 65 29 3b 0d |extFace(|_face);.|
|000029d0| 09 54 65 78 74 4d 6f 64 | 65 28 5f 6d 6f 64 65 29 |.TextMod|e(_mode)|
|000029e0| 3b 0d 7d 0d 0d 73 74 61 | 74 69 63 0d 76 6f 69 64 |;.}..sta|tic.void|
|000029f0| 20 64 72 61 77 63 75 72 | 73 6f 72 28 73 77 72 70 | drawcur|sor(swrp|
|00002a00| 2c 20 66 6c 61 67 29 0d | 72 65 67 69 73 74 65 72 |, flag).|register|
|00002a10| 20 53 74 64 57 69 6e 64 | 6f 77 52 65 63 20 2a 73 | StdWind|owRec *s|
|00002a20| 77 72 70 3b 0d 42 6f 6f | 6c 65 61 6e 20 66 6c 61 |wrp;.Boo|lean fla|
|00002a30| 67 3b 0d 7b 72 65 67 69 | 73 74 65 72 20 69 6e 74 |g;.{regi|ster int|
|00002a40| 20 78 2c 20 79 2c 20 73 | 61 76 65 79 3b 0d 23 69 | x, y, s|avey;.#i|
|00002a50| 66 64 65 66 20 5f 4e 6f | 6e 4d 61 63 53 63 72 65 |fdef _No|nMacScre|
|00002a60| 65 6e 5f 0d 50 6f 69 6e | 74 20 73 61 76 65 70 6f |en_.Poin|t savepo|
|00002a70| 69 6e 74 3b 0d 23 65 6e | 64 69 66 0d 0d 09 69 66 |int;.#en|dif...if|
|00002a80| 20 28 73 77 72 70 2d 3e | 6f 70 74 2e 63 75 72 73 | (swrp->|opt.curs|
|00002a90| 6f 72 5f 76 69 73 69 62 | 6c 65 29 0d 09 7b 72 65 |or_visib|le)..{re|
|00002aa0| 67 69 73 74 65 72 20 69 | 6e 74 20 6d 6f 64 65 20 |gister i|nt mode |
|00002ab0| 3d 20 6e 6f 74 50 61 74 | 43 6f 70 79 3b 0d 09 0d |= notPat|Copy;...|
|00002ac0| 09 09 69 66 20 28 66 6c | 61 67 20 3d 3d 20 4f 4e |..if (fl|ag == ON|
|00002ad0| 29 20 6d 6f 64 65 20 3d | 20 70 61 74 43 6f 70 79 |) mode =| patCopy|
|00002ae0| 3b 0d 09 09 0d 09 09 2f | 2a 20 61 64 6a 75 73 74 |;....../|* adjust|
|00002af0| 20 61 6e 64 20 73 61 76 | 65 20 70 65 6e 20 70 6f | and sav|e pen po|
|00002b00| 73 69 74 69 6f 6e 20 2a | 2f 0d 09 09 0d 23 69 66 |sition *|/....#if|
|00002b10| 64 65 66 20 5f 4e 6f 6e | 4d 61 63 53 63 72 65 65 |def _Non|MacScree|
|00002b20| 6e 5f 0d 09 09 47 65 74 | 50 65 6e 28 26 73 61 76 |n_...Get|Pen(&sav|
|00002b30| 65 70 6f 69 6e 74 29 3b | 0d 09 09 78 20 3d 20 73 |epoint);|...x = s|
|00002b40| 61 76 65 70 6f 69 6e 74 | 2e 68 20 2d 20 31 3b 0d |avepoint|.h - 1;.|
|00002b50| 09 09 73 61 76 65 79 20 | 3d 20 73 61 76 65 70 6f |..savey |= savepo|
|00002b60| 69 6e 74 2e 76 3b 0d 09 | 09 79 20 3d 20 73 61 76 |int.v;..|.y = sav|
|00002b70| 65 79 20 2b 20 73 77 72 | 70 2d 3e 73 66 2e 64 65 |ey + swr|p->sf.de|
|00002b80| 73 63 65 6e 74 3b 0d 09 | 09 4d 6f 76 65 54 6f 28 |scent;..|.MoveTo(|
|00002b90| 78 2c 79 29 3b 0d 23 65 | 6c 73 65 0d 09 09 78 20 |x,y);.#e|lse...x |
|00002ba0| 3d 20 28 28 57 69 6e 64 | 6f 77 50 74 72 29 73 77 |= ((Wind|owPtr)sw|
|00002bb0| 72 70 29 2d 3e 70 6e 4c | 6f 63 2e 68 20 2d 3d 20 |rp)->pnL|oc.h -= |
|00002bc0| 31 3b 0d 09 09 73 61 76 | 65 79 20 3d 20 28 28 57 |1;...sav|ey = ((W|
|00002bd0| 69 6e 64 6f 77 50 74 72 | 29 73 77 72 70 29 2d 3e |indowPtr|)swrp)->|
|00002be0| 70 6e 4c 6f 63 2e 76 3b | 0d 09 09 79 20 3d 20 28 |pnLoc.v;|...y = (|
|00002bf0| 28 28 57 69 6e 64 6f 77 | 50 74 72 29 73 77 72 70 |((Window|Ptr)swrp|
|00002c00| 29 2d 3e 70 6e 4c 6f 63 | 2e 76 20 2b 3d 20 73 77 |)->pnLoc|.v += sw|
|00002c10| 72 70 2d 3e 73 66 2e 64 | 65 73 63 65 6e 74 29 3b |rp->sf.d|escent);|
|00002c20| 0d 23 65 6e 64 69 66 0d | 09 09 2f 2a 20 63 75 72 |.#endif.|../* cur|
|00002c30| 73 6f 72 20 69 73 20 73 | 69 6d 70 6c 79 20 61 20 |sor is s|imply a |
|00002c40| 76 65 72 74 69 63 61 6c | 20 6c 69 6e 65 20 2a 2f |vertical| line */|
|00002c50| 0d 0d 23 69 66 64 65 66 | 20 5f 4e 6f 6e 4d 61 63 |..#ifdef| _NonMac|
|00002c60| 53 63 72 65 65 6e 5f 0d | 09 09 50 65 6e 4d 6f 64 |Screen_.|..PenMod|
|00002c70| 65 28 6d 6f 64 65 29 3b | 0d 23 65 6c 73 65 0d 09 |e(mode);|.#else..|
|00002c80| 09 28 28 57 69 6e 64 6f | 77 50 74 72 29 73 77 72 |.((Windo|wPtr)swr|
|00002c90| 70 29 2d 3e 70 6e 4d 6f | 64 65 20 3d 20 6d 6f 64 |p)->pnMo|de = mod|
|00002ca0| 65 3b 20 2f 2a 69 6d 70 | 72 6f 76 65 64 20 73 70 |e; /*imp|roved sp|
|00002cb0| 65 65 64 20 6f 6e 20 4d | 61 63 20 73 63 72 65 65 |eed on M|ac scree|
|00002cc0| 6e 20 2a 2f 0d 23 65 6e | 64 69 66 0d 09 09 0d 09 |n */.#en|dif.....|
|00002cd0| 09 4c 69 6e 65 54 6f 28 | 78 2c 20 79 20 2d 20 73 |.LineTo(|x, y - s|
|00002ce0| 77 72 70 2d 3e 63 68 61 | 72 68 65 69 67 68 74 29 |wrp->cha|rheight)|
|00002cf0| 3b 0d 09 09 0d 23 69 66 | 64 65 66 20 5f 4e 6f 6e |;....#if|def _Non|
|00002d00| 4d 61 63 53 63 72 65 65 | 6e 5f 0d 09 09 4d 6f 76 |MacScree|n_...Mov|
|00002d10| 65 54 6f 28 78 2b 31 2c | 20 73 61 76 65 79 29 3b |eTo(x+1,| savey);|
|00002d20| 0d 23 65 6c 73 65 0d 09 | 09 28 28 57 69 6e 64 6f |.#else..|.((Windo|
|00002d30| 77 50 74 72 29 73 77 72 | 70 29 2d 3e 70 6e 4c 6f |wPtr)swr|p)->pnLo|
|00002d40| 63 2e 68 20 3d 20 78 20 | 2b 20 31 3b 0d 09 09 28 |c.h = x |+ 1;...(|
|00002d50| 28 57 69 6e 64 6f 77 50 | 74 72 29 73 77 72 70 29 |(WindowP|tr)swrp)|
|00002d60| 2d 3e 70 6e 4c 6f 63 2e | 76 20 3d 20 73 61 76 65 |->pnLoc.|v = save|
|00002d70| 79 3b 0d 23 65 6e 64 69 | 66 0d 09 09 2f 2a 20 72 |y;.#endi|f.../* r|
|00002d80| 65 64 72 61 77 20 63 68 | 61 72 61 63 74 65 72 20 |edraw ch|aracter |
|00002d90| 77 68 65 72 65 20 63 75 | 72 73 6f 72 20 69 73 20 |where cu|rsor is |
|00002da0| 69 66 20 77 65 20 74 75 | 72 6e 65 64 20 69 74 20 |if we tu|rned it |
|00002db0| 6f 66 66 20 2a 2f 0d 09 | 09 0d 09 09 69 66 20 28 |off */..|....if (|
|00002dc0| 66 6c 61 67 20 3d 3d 20 | 4f 46 46 29 0d 09 09 7b |flag == |OFF)...{|
|00002dd0| 0d 09 09 09 44 72 61 77 | 43 68 61 72 28 73 77 72 |....Draw|Char(swr|
|00002de0| 70 2d 3e 73 63 72 65 65 | 6e 5b 28 28 73 77 72 70 |p->scree|n[((swrp|
|00002df0| 2d 3e 74 6f 70 72 6f 77 | 2b 73 77 72 70 2d 3e 72 |->toprow|+swrp->r|
|00002e00| 6f 77 29 25 73 77 72 70 | 2d 3e 6f 70 74 2e 6d 61 |ow)%swrp|->opt.ma|
|00002e10| 78 72 6f 77 29 2a 73 77 | 72 70 2d 3e 6f 70 74 2e |xrow)*sw|rp->opt.|
|00002e20| 6d 61 78 63 6f 6c 2b 73 | 77 72 70 2d 3e 63 6f 6c |maxcol+s|wrp->col|
|00002e30| 5d 29 3b 0d 0d 09 09 09 | 2f 2a 20 72 65 70 6c 61 |]);.....|/* repla|
|00002e40| 63 65 64 20 20 77 69 74 | 68 20 62 65 6c 6f 77 20 |ced wit|h below |
|00002e50| 74 6f 20 69 6d 70 72 6f | 76 65 20 73 70 65 65 64 |to impro|ve speed|
|00002e60| 20 2a 2f 0d 23 69 66 64 | 65 66 20 5f 4e 6f 6e 4d | */.#ifd|ef _NonM|
|00002e70| 61 63 53 63 72 65 65 6e | 5f 0d 09 09 09 4d 6f 76 |acScreen|_....Mov|
|00002e80| 65 54 6f 28 78 2b 31 2c | 20 73 61 76 65 79 29 3b |eTo(x+1,| savey);|
|00002e90| 0d 23 65 6c 73 65 0d 09 | 09 09 28 28 57 69 6e 64 |.#else..|..((Wind|
|00002ea0| 6f 77 50 74 72 29 73 77 | 72 70 29 2d 3e 70 6e 4c |owPtr)sw|rp)->pnL|
|00002eb0| 6f 63 2e 68 20 3d 20 78 | 20 2b 20 31 3b 0d 09 09 |oc.h = x| + 1;...|
|00002ec0| 09 28 28 57 69 6e 64 6f | 77 50 74 72 29 73 77 72 |.((Windo|wPtr)swr|
|00002ed0| 70 29 2d 3e 70 6e 4c 6f | 63 2e 76 20 3d 20 73 61 |p)->pnLo|c.v = sa|
|00002ee0| 76 65 79 3b 0d 23 65 6e | 64 69 66 0d 09 09 7d 0d |vey;.#en|dif...}.|
|00002ef0| 09 7d 0d 7d 0d 0d 23 6c | 69 6e 65 20 30 20 53 74 |.}.}..#l|ine 0 St|
|00002f00| 64 5f 75 70 64 61 74 65 | 77 69 6e 64 6f 77 0d 76 |d_update|window.v|
|00002f10| 6f 69 64 20 53 74 64 5f | 75 70 64 61 74 65 77 69 |oid Std_|updatewi|
|00002f20| 6e 64 6f 77 28 73 77 72 | 70 29 0d 72 65 67 69 73 |ndow(swr|p).regis|
|00002f30| 74 65 72 20 53 74 64 57 | 69 6e 64 6f 77 52 65 63 |ter StdW|indowRec|
|00002f40| 20 2a 73 77 72 70 3b 0d | 7b 0d 72 65 67 69 73 74 | *swrp;.|{.regist|
|00002f50| 65 72 20 69 6e 74 20 69 | 2c 20 74 68 69 73 72 6f |er int i|, thisro|
|00002f60| 77 3b 0d 0d 09 09 53 65 | 74 50 6f 72 74 28 73 77 |w;....Se|tPort(sw|
|00002f70| 72 70 29 3b 0d 09 09 0d | 09 09 45 72 61 73 65 52 |rp);....|..EraseR|
|00002f80| 65 63 74 28 26 28 28 57 | 69 6e 64 6f 77 50 74 72 |ect(&((W|indowPtr|
|00002f90| 29 73 77 72 70 29 2d 3e | 70 6f 72 74 52 65 63 74 |)swrp)->|portRect|
|00002fa0| 29 3b 0d 09 09 0d 09 09 | 2f 2a 20 72 65 64 72 61 |);......|/* redra|
|00002fb0| 77 20 6c 61 73 74 20 6e | 20 72 6f 77 73 20 69 6e |w last n| rows in|
|00002fc0| 20 74 68 65 20 76 69 73 | 69 62 6c 65 20 72 65 67 | the vis|ible reg|
|00002fd0| 69 6f 6e 20 2a 2f 0d 0d | 09 09 66 6f 72 20 28 69 |ion */..|..for (i|
|00002fe0| 3d 30 2c 20 0d 09 09 09 | 20 74 68 69 73 72 6f 77 |=0, ....| thisrow|
|00002ff0| 20 3d 20 28 73 77 72 70 | 2d 3e 74 6f 70 72 6f 77 | = (swrp|->toprow|
|00003000| 20 2b 20 28 73 77 72 70 | 2d 3e 6f 70 74 2e 6d 61 | + (swrp|->opt.ma|
|00003010| 78 72 6f 77 2d 73 77 72 | 70 2d 3e 76 69 73 72 6f |xrow-swr|p->visro|
|00003020| 77 29 29 20 25 20 73 77 | 72 70 2d 3e 6f 70 74 2e |w)) % sw|rp->opt.|
|00003030| 6d 61 78 72 6f 77 3b 0d | 09 09 09 20 69 3c 73 77 |maxrow;.|... i<sw|
|00003040| 72 70 2d 3e 76 69 73 72 | 6f 77 3b 0d 09 09 09 20 |rp->visr|ow;.... |
|00003050| 69 2b 2b 2c 20 74 68 69 | 73 72 6f 77 20 3d 20 2b |i++, thi|srow = +|
|00003060| 2b 74 68 69 73 72 6f 77 | 20 25 20 73 77 72 70 2d |+thisrow| % swrp-|
|00003070| 3e 6f 70 74 2e 6d 61 78 | 72 6f 77 29 0d 09 09 7b |>opt.max|row)...{|
|00003080| 0d 09 09 09 6d 6f 76 65 | 63 75 72 73 6f 72 28 73 |....move|cursor(s|
|00003090| 77 72 70 2c 20 30 2c 20 | 69 2b 73 77 72 70 2d 3e |wrp, 0, |i+swrp->|
|000030a0| 6f 70 74 2e 6d 61 78 72 | 6f 77 2d 73 77 72 70 2d |opt.maxr|ow-swrp-|
|000030b0| 3e 76 69 73 72 6f 77 29 | 3b 0d 09 09 09 44 72 61 |>visrow)|;....Dra|
|000030c0| 77 54 65 78 74 28 26 73 | 77 72 70 2d 3e 73 63 72 |wText(&s|wrp->scr|
|000030d0| 65 65 6e 5b 74 68 69 73 | 72 6f 77 2a 73 77 72 70 |een[this|row*swrp|
|000030e0| 2d 3e 6f 70 74 2e 6d 61 | 78 63 6f 6c 5d 2c 20 30 |->opt.ma|xcol], 0|
|000030f0| 2c 20 73 77 72 70 2d 3e | 76 69 73 63 6f 6c 29 3b |, swrp->|viscol);|
|00003100| 0d 09 09 7d 0d 09 09 0d | 09 09 69 66 20 28 21 73 |...}....|..if (!s|
|00003110| 77 72 70 2d 3e 6f 70 74 | 2e 6e 6f 5f 67 72 6f 77 |wrp->opt|.no_grow|
|00003120| 29 0d 09 09 7b 52 65 63 | 74 20 72 3b 0d 09 09 09 |)...{Rec|t r;....|
|00003130| 2f 2a 20 69 6e 76 61 6c | 69 64 61 74 65 20 74 68 |/* inval|idate th|
|00003140| 65 20 73 63 72 6f 6c 6c | 20 62 61 72 20 72 65 67 |e scroll| bar reg|
|00003150| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 77 69 6e 64 |ions of |the wind|
|00003160| 6f 77 2c 20 73 6f 0d 09 | 09 09 09 09 74 68 65 20 |ow, so..|....the |
|00003170| 73 63 72 6f 6c 6c 20 62 | 61 72 73 20 61 6e 64 20 |scroll b|ars and |
|00003180| 67 72 6f 77 20 62 6f 78 | 20 67 65 74 20 64 72 61 |grow box| get dra|
|00003190| 77 6e 20 70 72 6f 70 65 | 72 6c 79 20 2a 2f 0d 09 |wn prope|rly */..|
|000031a0| 09 09 72 20 3d 20 28 28 | 57 69 6e 64 6f 77 50 74 |..r = ((|WindowPt|
|000031b0| 72 29 73 77 72 70 29 2d | 3e 70 6f 72 74 52 65 63 |r)swrp)-|>portRec|
|000031c0| 74 3b 0d 09 09 09 72 2e | 6c 65 66 74 20 3d 20 72 |t;....r.|left = r|
|000031d0| 2e 72 69 67 68 74 2d 5f | 43 4f 4e 54 52 4f 4c 57 |.right-_|CONTROLW|
|000031e0| 49 44 54 48 2d 32 3b 0d | 09 09 09 72 2e 74 6f 70 |IDTH-2;.|...r.top|
|000031f0| 20 3d 20 20 72 2e 62 6f | 74 74 6f 6d 2d 5f 43 4f | = r.bo|ttom-_CO|
|00003200| 4e 54 52 4f 4c 57 49 44 | 54 48 2d 32 3b 0d 09 09 |NTROLWID|TH-2;...|
|00003210| 09 49 6e 76 61 6c 52 65 | 63 74 28 26 72 29 3b 0d |.InvalRe|ct(&r);.|
|00003220| 0d 09 09 09 44 72 61 77 | 43 6f 6e 74 72 6f 6c 73 |....Draw|Controls|
|00003230| 28 73 77 72 70 29 3b 0d | 09 09 09 44 72 61 77 47 |(swrp);.|...DrawG|
|00003240| 72 6f 77 49 63 6f 6e 28 | 73 77 72 70 29 3b 0d 09 |rowIcon(|swrp);..|
|00003250| 09 7d 0d 0d 09 09 2f 2a | 20 6d 61 6b 65 20 73 75 |.}..../*| make su|
|00003260| 72 65 20 74 68 65 72 65 | 20 69 73 20 6e 6f 20 66 |re there| is no f|
|00003270| 75 72 74 68 65 72 20 75 | 70 64 61 74 65 20 65 76 |urther u|pdate ev|
|00003280| 65 6e 74 20 6f 6e 20 74 | 68 69 73 20 77 69 6e 64 |ent on t|his wind|
|00003290| 6f 77 20 2a 2f 0d 09 09 | 0d 09 09 56 61 6c 69 64 |ow */...|...Valid|
|000032a0| 52 65 63 74 28 26 28 28 | 57 69 6e 64 6f 77 50 74 |Rect(&((|WindowPt|
|000032b0| 72 29 73 77 72 70 29 2d | 3e 70 6f 72 74 52 65 63 |r)swrp)-|>portRec|
|000032c0| 74 29 3b 0d 09 09 0d 09 | 09 6d 6f 76 65 63 75 72 |t);.....|.movecur|
|000032d0| 73 6f 72 28 73 77 72 70 | 2c 20 73 77 72 70 2d 3e |sor(swrp|, swrp->|
|000032e0| 63 6f 6c 2c 20 73 77 72 | 70 2d 3e 72 6f 77 29 3b |col, swr|p->row);|
|000032f0| 0d 09 09 64 72 61 77 63 | 75 72 73 6f 72 28 73 77 |...drawc|ursor(sw|
|00003300| 72 70 2c 20 4f 4e 29 3b | 0d 7d 0d 0d 73 74 61 74 |rp, ON);|.}..stat|
|00003310| 69 63 0d 53 74 64 77 69 | 6e 64 6f 77 5f 64 6f 45 |ic.Stdwi|ndow_doE|
|00003320| 76 65 6e 74 28 78 65 76 | 65 6e 74 29 0d 58 45 76 |vent(xev|ent).XEv|
|00003330| 65 6e 74 52 65 63 6f 72 | 64 20 2a 78 65 76 65 6e |entRecor|d *xeven|
|00003340| 74 3b 0d 7b 0d 72 65 67 | 69 73 74 65 72 20 57 69 |t;.{.reg|ister Wi|
|00003350| 6e 64 6f 77 50 74 72 20 | 77 70 20 3d 20 78 65 76 |ndowPtr |wp = xev|
|00003360| 65 6e 74 2d 3e 77 69 6e | 64 6f 77 3b 0d 72 65 67 |ent->win|dow;.reg|
|00003370| 69 73 74 65 72 20 69 6e | 74 20 69 3b 0d 0d 09 73 |ister in|t i;...s|
|00003380| 77 69 74 63 68 20 28 28 | 28 45 76 65 6e 74 52 65 |witch ((|(EventRe|
|00003390| 63 6f 72 64 2a 29 78 65 | 76 65 6e 74 29 2d 3e 77 |cord*)xe|vent)->w|
|000033a0| 68 61 74 29 0d 09 7b 0d | 09 63 61 73 65 20 61 63 |hat)..{.|.case ac|
|000033b0| 74 69 76 61 74 65 45 76 | 74 3a 0d 09 09 65 64 69 |tivateEv|t:...edi|
|000033c0| 74 5f 64 69 73 61 62 6c | 65 28 29 3b 0d 09 09 62 |t_disabl|e();...b|
|000033d0| 72 65 61 6b 3b 0d 0d 09 | 63 61 73 65 20 64 65 61 |reak;...|case dea|
|000033e0| 63 74 69 76 61 74 65 45 | 76 74 3a 0d 09 7b 53 74 |ctivateE|vt:..{St|
|000033f0| 64 57 69 6e 64 6f 77 52 | 65 63 20 2a 73 72 70 3b |dWindowR|ec *srp;|
|00003400| 0d 09 0d 09 09 65 64 69 | 74 5f 64 69 73 61 62 6c |.....edi|t_disabl|
|00003410| 65 28 29 3b 0d 09 09 0d | 09 09 69 66 20 28 28 73 |e();....|..if ((s|
|00003420| 72 70 20 3d 20 28 53 74 | 64 57 69 6e 64 6f 77 52 |rp = (St|dWindowR|
|00003430| 65 63 2a 29 46 72 6f 6e | 74 57 69 6e 64 6f 77 28 |ec*)Fron|tWindow(|
|00003440| 29 29 29 0d 09 09 09 69 | 66 20 28 21 20 4f 75 72 |)))....i|f (! Our|
|00003450| 57 69 6e 64 6f 77 28 73 | 72 70 29 29 0d 09 09 09 |Window(s|rp))....|
|00003460| 09 65 64 69 74 5f 65 6e | 61 62 6c 65 28 29 3b 0d |.edit_en|able();.|
|00003470| 09 09 62 72 65 61 6b 3b | 0d 09 7d 0d 09 63 61 73 |..break;|..}..cas|
|00003480| 65 20 75 70 64 61 74 65 | 45 76 74 3a 0d 09 09 53 |e update|Evt:...S|
|00003490| 74 64 5f 75 70 64 61 74 | 65 77 69 6e 64 6f 77 28 |td_updat|ewindow(|
|000034a0| 77 70 29 3b 0d 09 09 62 | 72 65 61 6b 3b 0d 0d 09 |wp);...b|reak;...|
|000034b0| 63 61 73 65 20 63 6c 6f | 73 65 45 76 65 6e 74 3a |case clo|seEvent:|
|000034c0| 0d 0d 09 09 2f 2a 20 68 | 69 64 65 20 74 68 65 20 |..../* h|ide the |
|000034d0| 77 69 6e 64 6f 77 20 2a | 2f 0d 09 09 0d 09 09 48 |window *|/......H|
|000034e0| 69 64 65 57 69 6e 64 6f | 77 28 77 70 29 3b 0d 09 |ideWindo|w(wp);..|
|000034f0| 09 0d 09 09 2f 2a 20 54 | 48 49 53 20 50 41 54 43 |..../* T|HIS PATC|
|00003500| 48 45 44 20 4f 55 54 20 | 43 4f 44 45 20 41 4c 4c |HED OUT |CODE ALL|
|00003510| 4f 57 53 20 43 4c 4f 53 | 49 4e 47 20 41 4c 4c 20 |OWS CLOS|ING ALL |
|00003520| 57 49 4e 44 4f 57 53 20 | 57 48 49 43 48 20 53 48 |WINDOWS |WHICH SH|
|00003530| 41 52 45 0d 09 09 09 54 | 48 49 53 20 57 49 4e 44 |ARE....T|HIS WIND|
|00003540| 4f 57 20 50 4f 49 4e 54 | 45 52 20 41 4e 44 20 52 |OW POINT|ER AND R|
|00003550| 45 4c 45 41 53 49 4e 47 | 20 54 48 45 49 52 20 57 |ELEASING| THEIR W|
|00003560| 49 4e 44 4f 57 20 52 45 | 43 4f 52 44 53 3a 0d 09 |INDOW RE|CORDS:..|
|00003570| 09 66 6f 72 20 28 69 3d | 20 5f 4e 46 49 4c 45 2d |.for (i=| _NFILE-|
|00003580| 31 3b 20 69 3e 3d 30 20 | 3b 20 69 2d 2d 29 0d 09 |1; i>=0 |; i--)..|
|00003590| 09 09 69 66 20 28 5f 66 | 69 6c 65 5b 69 5d 2e 66 |..if (_f|ile[i].f|
|000035a0| 69 6c 65 62 75 66 20 3d | 3d 20 28 63 68 61 72 2a |ilebuf =|= (char*|
|000035b0| 29 77 70 29 0d 09 09 09 | 09 66 63 6c 6f 73 65 77 |)wp)....|.fclosew|
|000035c0| 28 26 5f 66 69 6c 65 5b | 69 5d 29 3b 0d 09 09 2a |(&_file[|i]);...*|
|000035d0| 2f 0d 09 09 0d 09 09 62 | 72 65 61 6b 3b 0d 09 09 |/......b|reak;...|
|000035e0| 0d 09 64 65 66 61 75 6c | 74 3a 0d 09 09 2f 2a 20 |..defaul|t:.../* |
|000035f0| 65 76 65 6e 74 20 77 61 | 73 20 6e 6f 74 20 68 61 |event wa|s not ha|
|00003600| 6e 64 6c 65 64 20 62 79 | 20 75 73 20 2a 2f 0d 0d |ndled by| us */..|
|00003610| 09 09 72 65 74 75 72 6e | 20 28 66 61 6c 73 65 29 |..return| (false)|
|00003620| 3b 0d 09 7d 0d 09 0d 09 | 2f 2a 20 65 76 65 6e 74 |;..}....|/* event|
|00003630| 20 77 61 73 20 68 61 6e | 64 6c 65 64 20 73 6f 6d | was han|dled som|
|00003640| 65 77 68 65 72 65 20 61 | 62 6f 76 65 20 2a 2f 0d |ewhere a|bove */.|
|00003650| 09 0d 09 72 65 74 75 72 | 6e 20 28 74 72 75 65 29 |...retur|n (true)|
|00003660| 3b 0d 7d 0d 0d 23 6c 69 | 6e 65 20 30 20 66 63 6c |;.}..#li|ne 0 fcl|
|00003670| 6f 73 65 77 0d 69 6e 74 | 09 66 63 6c 6f 73 65 77 |osew.int|.fclosew|
|00003680| 28 77 68 6f 29 0d 72 65 | 67 69 73 74 65 72 20 46 |(who).re|gister F|
|00003690| 49 4c 45 09 2a 77 68 6f | 3b 0d 7b 0d 09 69 66 20 |ILE.*who|;.{..if |
|000036a0| 28 21 77 68 6f 2d 3e 77 | 69 6e 64 6f 77 29 20 72 |(!who->w|indow) r|
|000036b0| 65 74 75 72 6e 20 28 45 | 4f 46 29 3b 0d 09 0d 09 |eturn (E|OF);....|
|000036c0| 69 66 20 28 77 68 6f 20 | 21 3d 20 5f 63 6f 6e 73 |if (who |!= _cons|
|000036d0| 6f 6c 65 29 0d 09 7b 0d | 09 09 77 68 6f 2d 3e 77 |ole)..{.|..who->w|
|000036e0| 69 6e 64 6f 77 20 3d 20 | 66 61 6c 73 65 3b 0d 09 |indow = |false;..|
|000036f0| 09 77 68 6f 2d 3e 49 6e | 55 73 65 20 3d 20 66 61 |.who->In|Use = fa|
|00003700| 6c 73 65 3b 0d 09 09 0d | 09 09 2f 2a 20 4e 6f 77 |lse;....|../* Now|
|00003710| 20 72 65 6c 65 61 73 65 | 20 74 68 65 20 6d 65 6d | release| the mem|
|00003720| 6f 72 79 20 66 6f 72 20 | 74 68 65 20 77 69 6e 64 |ory for |the wind|
|00003730| 6f 77 20 72 65 63 6f 72 | 64 20 75 6e 6c 65 73 73 |ow recor|d unless|
|00003740| 0d 09 09 09 69 74 27 73 | 20 74 68 65 20 63 6f 6e |....it's| the con|
|00003750| 73 6f 6c 65 20 77 68 69 | 63 68 20 77 65 20 6e 65 |sole whi|ch we ne|
|00003760| 76 65 72 20 73 68 6f 75 | 6c 64 20 72 65 6c 65 61 |ver shou|ld relea|
|00003770| 73 65 20 2a 2f 0d 09 09 | 0d 09 09 69 66 20 28 4f |se */...|...if (O|
|00003780| 75 72 57 69 6e 64 6f 77 | 28 77 68 6f 2d 3e 66 69 |urWindow|(who->fi|
|00003790| 6c 65 62 75 66 29 20 26 | 26 20 28 28 57 69 6e 64 |lebuf) &|& ((Wind|
|000037a0| 6f 77 50 74 72 29 77 68 | 6f 2d 3e 66 69 6c 65 62 |owPtr)wh|o->fileb|
|000037b0| 75 66 20 21 3d 20 5f 63 | 6f 6e 73 6f 6c 65 5f 77 |uf != _c|onsole_w|
|000037c0| 70 29 29 0d 09 09 7b 0d | 09 09 09 28 28 53 74 64 |p))...{.|...((Std|
|000037d0| 57 69 6e 64 6f 77 52 65 | 63 2a 29 77 68 6f 2d 3e |WindowRe|c*)who->|
|000037e0| 66 69 6c 65 62 75 66 29 | 2d 3e 73 69 67 6e 61 74 |filebuf)|->signat|
|000037f0| 75 72 65 20 3d 20 30 3b | 0d 09 09 09 44 69 73 70 |ure = 0;|....Disp|
|00003800| 6f 73 48 61 6e 64 6c 65 | 28 28 28 57 69 6e 64 6f |osHandle|(((Windo|
|00003810| 77 50 65 65 6b 29 77 68 | 6f 2d 3e 66 69 6c 65 62 |wPeek)wh|o->fileb|
|00003820| 75 66 29 2d 3e 72 65 66 | 43 6f 6e 29 3b 0d 09 09 |uf)->ref|Con);...|
|00003830| 09 44 69 73 70 6f 73 65 | 57 69 6e 64 6f 77 28 77 |.Dispose|Window(w|
|00003840| 68 6f 2d 3e 66 69 6c 65 | 62 75 66 29 3b 0d 09 09 |ho->file|buf);...|
|00003850| 7d 0d 0d 09 09 77 68 6f | 2d 3e 66 69 6c 65 62 75 |}....who|->filebu|
|00003860| 66 20 3d 20 4e 55 4c 4c | 3b 0d 0d 09 09 69 66 20 |f = NULL|;....if |
|00003870| 28 77 68 6f 20 3d 3d 20 | 43 75 72 72 65 6e 74 57 |(who == |CurrentW|
|00003880| 69 6e 64 6f 77 29 0d 09 | 09 7b 0d 09 09 09 43 75 |indow)..|.{....Cu|
|00003890| 72 72 65 6e 74 57 69 6e | 64 6f 77 20 3d 20 5f 63 |rrentWin|dow = _c|
|000038a0| 6f 6e 73 6f 6c 65 3b 0d | 09 09 09 43 75 72 72 65 |onsole;.|...Curre|
|000038b0| 6e 74 73 77 72 70 20 3d | 20 5f 63 6f 6e 73 6f 6c |ntswrp =| _consol|
|000038c0| 65 5f 77 70 3b 0d 09 09 | 7d 0d 09 7d 0d 09 0d 09 |e_wp;...|}..}....|
|000038d0| 72 65 74 75 72 6e 20 28 | 30 29 3b 0d 7d 0d 0d 73 |return (|0);.}..s|
|000038e0| 74 61 74 69 63 0d 76 6f | 69 64 20 63 6c 65 61 72 |tatic.vo|id clear|
|000038f0| 73 63 72 65 65 6e 6d 65 | 6d 28 73 77 72 70 29 0d |screenme|m(swrp).|
|00003900| 72 65 67 69 73 74 65 72 | 20 53 74 64 57 69 6e 64 |register| StdWind|
|00003910| 6f 77 52 65 63 20 2a 73 | 77 72 70 3b 0d 7b 0d 72 |owRec *s|wrp;.{.r|
|00003920| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 73 70 20 |egister |char sp |
|00003930| 3d 20 27 20 27 3b 0d 72 | 65 67 69 73 74 65 72 20 |= ' ';.r|egister |
|00003940| 63 68 61 72 20 2a 62 65 | 67 70 2c 20 2a 70 3b 0d |char *be|gp, *p;.|
|00003950| 09 0d 09 2f 2a 20 63 6c | 65 61 72 20 73 63 72 65 |.../* cl|ear scre|
|00003960| 65 6e 20 62 75 66 66 65 | 72 20 74 6f 20 73 70 61 |en buffe|r to spa|
|00003970| 63 65 73 20 77 6f 72 6b | 69 6e 67 20 62 61 63 6b |ces work|ing back|
|00003980| 77 61 72 64 73 20 74 68 | 72 6f 75 67 68 20 62 75 |wards th|rough bu|
|00003990| 66 66 65 72 20 2a 2f 0d | 0d 09 70 20 3d 20 28 62 |ffer */.|..p = (b|
|000039a0| 65 67 70 20 3d 20 73 77 | 72 70 2d 3e 73 63 72 65 |egp = sw|rp->scre|
|000039b0| 65 6e 29 20 2b 20 73 77 | 72 70 2d 3e 6f 70 74 2e |en) + sw|rp->opt.|
|000039c0| 6d 61 78 63 6f 6c 20 2a | 20 73 77 72 70 2d 3e 6f |maxcol *| swrp->o|
|000039d0| 70 74 2e 6d 61 78 72 6f | 77 3b 0d 09 0d 09 77 68 |pt.maxro|w;....wh|
|000039e0| 69 6c 65 20 28 2d 2d 70 | 20 3e 3d 20 62 65 67 70 |ile (--p| >= begp|
|000039f0| 29 20 2a 70 20 3d 20 73 | 70 3b 0d 7d 0d 0d 2f 2a |) *p = s|p;.}../*|
|00003a00| 20 52 4d 53 20 34 2f 32 | 30 2f 38 38 20 2a 2f 0d | RMS 4/2|0/88 */.|
|00003a10| 2f 2a 20 70 72 6f 63 65 | 64 75 72 65 20 74 6f 20 |/* proce|dure to |
|00003a20| 64 65 74 65 72 6d 69 6e | 65 20 69 66 20 4d 75 6c |determin|e if Mul|
|00003a30| 74 69 46 69 6e 64 65 72 | 20 69 73 20 72 75 6e 6e |tiFinder| is runn|
|00003a40| 69 6e 67 20 62 79 20 63 | 68 65 63 6b 69 6e 67 20 |ing by c|hecking |
|00003a50| 66 6f 72 20 74 68 65 0d | 65 78 69 73 74 65 6e 63 |for the.|existenc|
|00003a60| 65 20 6f 66 20 74 68 65 | 20 5f 4f 53 44 69 73 70 |e of the| _OSDisp|
|00003a70| 61 74 63 68 20 74 72 61 | 70 20 2a 2f 0d 0d 73 74 |atch tra|p */..st|
|00003a80| 61 74 69 63 20 69 6e 74 | 20 4d 46 49 73 52 75 6e |atic int| MFIsRun|
|00003a90| 6e 69 6e 67 28 29 0d 7b | 09 2f 2a 20 24 38 46 20 |ning().{|./* $8F |
|00003aa0| 69 73 20 66 6f 72 20 5f | 4f 53 44 69 73 70 61 74 |is for _|OSDispat|
|00003ab0| 63 68 2c 20 24 39 46 20 | 69 73 20 74 68 65 20 75 |ch, $9F |is the u|
|00003ac0| 6e 69 6d 70 6c 65 6d 65 | 6e 74 65 64 20 74 72 61 |nimpleme|nted tra|
|00003ad0| 70 20 2a 2f 0d 09 72 65 | 74 75 72 6e 20 28 47 65 |p */..re|turn (Ge|
|00003ae0| 74 54 72 61 70 41 64 64 | 72 65 73 73 28 30 78 38 |tTrapAdd|ress(0x8|
|00003af0| 46 4c 29 20 21 3d 20 47 | 65 74 54 72 61 70 41 64 |FL) != G|etTrapAd|
|00003b00| 64 72 65 73 73 28 30 78 | 39 46 4c 29 29 3b 0d 7d |dress(0x|9FL));.}|
|00003b10| 0d 0d 73 74 61 74 69 63 | 0d 46 49 4c 45 20 2a 66 |..static|.FILE *f|
|00003b20| 6f 70 65 6e 77 78 28 74 | 69 74 6c 65 62 61 72 2c |openwx(t|itlebar,|
|00003b30| 20 75 70 70 65 72 5f 6c | 65 66 74 2c 20 6f 70 74 | upper_l|eft, opt|
|00003b40| 69 6f 6e 73 70 74 72 2c | 20 77 68 69 63 68 66 69 |ionsptr,| whichfi|
|00003b50| 6c 65 76 61 72 2c 20 6f | 75 72 77 70 29 0d 63 68 |levar, o|urwp).ch|
|00003b60| 61 72 20 2a 74 69 74 6c | 65 62 61 72 3b 0d 50 6f |ar *titl|ebar;.Po|
|00003b70| 69 6e 74 20 75 70 70 65 | 72 5f 6c 65 66 74 3b 0d |int uppe|r_left;.|
|00003b80| 72 65 67 69 73 74 65 72 | 20 53 74 64 57 69 6e 64 |register| StdWind|
|00003b90| 6f 77 4f 70 74 69 6f 6e | 73 20 2a 6f 70 74 69 6f |owOption|s *optio|
|00003ba0| 6e 73 70 74 72 3b 0d 46 | 49 4c 45 20 2a 77 68 69 |nsptr;.F|ILE *whi|
|00003bb0| 63 68 66 69 6c 65 76 61 | 72 3b 0d 57 69 6e 64 6f |chfileva|r;.Windo|
|00003bc0| 77 50 74 72 20 6f 75 72 | 77 70 3b 0d 7b 0d 72 65 |wPtr our|wp;.{.re|
|00003bd0| 67 69 73 74 65 72 20 69 | 6e 74 20 6d 61 78 72 6f |gister i|nt maxro|
|00003be0| 77 20 3d 20 30 2c 20 6d | 61 78 63 6f 6c 20 3d 20 |w = 0, m|axcol = |
|00003bf0| 30 3b 0d 72 65 67 69 73 | 74 65 72 20 46 49 4c 45 |0;.regis|ter FILE|
|00003c00| 20 2a 77 68 6f 3b 0d 72 | 65 67 69 73 74 65 72 20 | *who;.r|egister |
|00003c10| 53 74 64 57 69 6e 64 6f | 77 52 65 63 20 2a 73 77 |StdWindo|wRec *sw|
|00003c20| 72 70 3b 0d 72 65 67 69 | 73 74 65 72 20 42 6f 6f |rp;.regi|ster Boo|
|00003c30| 6c 65 61 6e 20 67 72 6f | 77 20 3d 20 74 72 75 65 |lean gro|w = true|
|00003c40| 2c 20 67 6f 61 77 61 79 | 20 3d 20 74 72 75 65 3b |, goaway| = true;|
|00003c50| 0d 65 76 65 6e 74 69 6e | 66 6f 20 65 74 3b 0d 0d |.eventin|fo et;..|
|00003c60| 09 49 6e 69 74 5f 73 74 | 64 69 6f 28 29 3b 0d 09 |.Init_st|dio();..|
|00003c70| 0d 09 69 66 20 28 77 68 | 69 63 68 66 69 6c 65 76 |..if (wh|ichfilev|
|00003c80| 61 72 29 0d 09 7b 0d 09 | 09 2f 2a 20 61 20 73 70 |ar)..{..|./* a sp|
|00003c90| 65 63 69 66 69 63 20 66 | 69 6c 65 20 76 61 72 69 |ecific f|ile vari|
|00003ca0| 61 62 6c 65 20 77 61 73 | 20 73 70 65 63 69 66 69 |able was| specifi|
|00003cb0| 65 64 20 2a 2f 0d 09 09 | 77 68 6f 20 3d 20 77 68 |ed */...|who = wh|
|00003cc0| 69 63 68 66 69 6c 65 76 | 61 72 3b 0d 09 09 0d 09 |ichfilev|ar;.....|
|00003cd0| 09 69 66 20 28 28 21 77 | 68 6f 2d 3e 53 74 64 53 |.if ((!w|ho->StdS|
|00003ce0| 74 72 65 61 6d 29 20 7c | 7c 20 77 68 6f 2d 3e 49 |tream) ||| who->I|
|00003cf0| 6e 55 73 65 29 0d 09 09 | 7b 0d 09 09 09 2f 2a 20 |nUse)...|{..../* |
|00003d00| 64 6f 6e 27 74 20 61 6c | 6c 6f 77 20 74 68 69 73 |don't al|low this|
|00003d10| 20 66 6f 72 20 6f 74 68 | 65 72 20 74 68 61 6e 20 | for oth|er than |
|00003d20| 73 74 61 6e 64 61 72 64 | 20 73 74 72 65 61 6d 73 |standard| streams|
|00003d30| 20 2a 2f 0d 09 09 09 65 | 72 72 6e 6f 20 3d 20 2d | */....e|rrno = -|
|00003d40| 34 37 3b 09 2f 2a 20 66 | 69 6c 65 20 62 75 73 79 |47;./* f|ile busy|
|00003d50| 20 65 72 72 6f 72 20 2a | 2f 0d 09 09 09 72 65 74 | error *|/....ret|
|00003d60| 75 72 6e 20 28 4e 55 4c | 4c 29 3b 0d 09 09 7d 0d |urn (NUL|L);...}.|
|00003d70| 09 7d 0d 09 65 6c 73 65 | 0d 09 7b 72 65 67 69 73 |.}..else|..{regis|
|00003d80| 74 65 72 20 69 6e 74 20 | 66 72 65 65 5f 73 6c 6f |ter int |free_slo|
|00003d90| 74 20 3d 20 5f 4e 46 49 | 4c 45 3b 0d 09 09 0d 09 |t = _NFI|LE;.....|
|00003da0| 09 2f 2a 20 6c 6f 6f 6b | 20 74 68 72 75 20 46 49 |./* look| thru FI|
|00003db0| 4c 45 20 61 72 72 61 79 | 20 66 6f 72 20 61 6e 20 |LE array| for an |
|00003dc0| 6f 70 65 6e 20 73 6c 6f | 74 20 2a 2f 0d 09 09 0d |open slo|t */....|
|00003dd0| 09 09 77 68 69 6c 65 20 | 28 28 2d 2d 66 72 65 65 |..while |((--free|
|00003de0| 5f 73 6c 6f 74 3e 3d 30 | 29 20 26 26 20 5f 66 69 |_slot>=0|) && _fi|
|00003df0| 6c 65 5b 66 72 65 65 5f | 73 6c 6f 74 5d 2e 49 6e |le[free_|slot].In|
|00003e00| 55 73 65 29 0d 09 09 09 | 3b 0d 09 0d 09 09 69 66 |Use)....|;.....if|
|00003e10| 20 28 66 72 65 65 5f 73 | 6c 6f 74 20 3c 20 30 29 | (free_s|lot < 0)|
|00003e20| 0d 09 09 7b 0d 09 09 09 | 65 72 72 6e 6f 20 3d 20 |...{....|errno = |
|00003e30| 2d 34 32 3b 20 09 2f 2a | 20 74 6d 66 6f 45 72 72 |-42; ./*| tmfoErr|
|00003e40| 20 2d 20 74 6f 6f 20 6d | 61 6e 79 20 66 69 6c 65 | - too m|any file|
|00003e50| 73 20 6f 70 65 6e 09 2a | 2f 0d 09 09 09 72 65 74 |s open.*|/....ret|
|00003e60| 75 72 6e 20 28 4e 55 4c | 4c 29 3b 0d 09 09 7d 0d |urn (NUL|L);...}.|
|00003e70| 0d 09 09 77 68 6f 20 3d | 20 26 5f 66 69 6c 65 5b |...who =| &_file[|
|00003e80| 66 72 65 65 5f 73 6c 6f | 74 5d 3b 0d 0d 09 09 69 |free_slo|t];....i|
|00003e90| 66 20 28 21 6f 75 72 77 | 70 20 26 26 20 6f 70 74 |f (!ourw|p && opt|
|00003ea0| 69 6f 6e 73 70 74 72 29 | 0d 09 09 7b 0d 09 09 09 |ionsptr)|...{....|
|00003eb0| 2f 2a 20 6f 76 65 72 72 | 69 64 65 20 64 65 66 61 |/* overr|ide defa|
|00003ec0| 75 6c 74 73 20 2a 2f 0d | 09 09 09 0d 09 09 09 6d |ults */.|.......m|
|00003ed0| 61 78 63 6f 6c 20 3d 20 | 6f 70 74 69 6f 6e 73 70 |axcol = |optionsp|
|00003ee0| 74 72 2d 3e 6d 61 78 63 | 6f 6c 3b 0d 09 09 09 6d |tr->maxc|ol;....m|
|00003ef0| 61 78 72 6f 77 20 3d 20 | 6f 70 74 69 6f 6e 73 70 |axrow = |optionsp|
|00003f00| 74 72 2d 3e 6d 61 78 72 | 6f 77 3b 0d 09 09 09 0d |tr->maxr|ow;.....|
|00003f10| 09 09 09 67 72 6f 77 20 | 3d 20 21 6f 70 74 69 6f |...grow |= !optio|
|00003f20| 6e 73 70 74 72 2d 3e 6e | 6f 5f 67 72 6f 77 3b 0d |nsptr->n|o_grow;.|
|00003f30| 09 09 09 67 6f 61 77 61 | 79 20 3d 20 21 6f 70 74 |...goawa|y = !opt|
|00003f40| 69 6f 6e 73 70 74 72 2d | 3e 6e 6f 5f 67 6f 61 77 |ionsptr-|>no_goaw|
|00003f50| 61 79 3b 0d 09 09 7d 0d | 09 7d 0d 0d 09 2f 2a 20 |ay;...}.|.}.../* |
|00003f60| 69 66 20 6f 75 72 77 70 | 20 69 73 20 6e 6f 6e 7a |if ourwp| is nonz|
|00003f70| 65 72 6f 2c 20 74 68 65 | 6e 20 74 68 65 20 77 69 |ero, the|n the wi|
|00003f80| 6e 64 6f 77 20 69 73 20 | 61 6c 72 65 61 64 79 20 |ndow is |already |
|00003f90| 73 65 74 20 75 70 20 61 | 6e 64 20 61 6c 6c 0d 09 |set up a|nd all..|
|00003fa0| 09 77 65 20 6e 65 65 64 | 20 74 6f 20 64 6f 20 69 |.we need| to do i|
|00003fb0| 73 20 73 65 74 20 75 70 | 20 74 68 65 20 66 69 6c |s set up| the fil|
|00003fc0| 65 20 72 65 63 6f 72 64 | 20 2a 2f 0d 0d 09 69 66 |e record| */...if|
|00003fd0| 20 28 6f 75 72 77 70 29 | 20 73 77 72 70 20 3d 20 | (ourwp)| swrp = |
|00003fe0| 28 53 74 64 57 69 6e 64 | 6f 77 52 65 63 2a 29 20 |(StdWind|owRec*) |
|00003ff0| 6f 75 72 77 70 3b 0d 09 | 65 6c 73 65 0d 09 7b 7b |ourwp;..|else..{{|
|00004000| 72 65 67 69 73 74 65 72 | 20 69 6e 74 20 63 68 61 |register| int cha|
|00004010| 72 68 65 69 67 68 74 3b | 0d 09 0d 09 09 73 74 64 |rheight;|.....std|
|00004020| 69 6f 5f 66 6f 6e 74 73 | 65 74 28 26 64 75 6d 6d |io_fonts|et(&dumm|
|00004030| 79 50 6f 72 74 29 3b 0d | 09 09 47 65 74 46 6f 6e |yPort);.|..GetFon|
|00004040| 74 49 6e 66 6f 28 26 5f | 73 66 29 3b 0d 09 09 0d |tInfo(&_|sf);....|
|00004050| 09 09 63 68 61 72 68 65 | 69 67 68 74 20 3d 20 28 |..charhe|ight = (|
|00004060| 5f 73 66 2e 61 73 63 65 | 6e 74 20 2b 20 5f 73 66 |_sf.asce|nt + _sf|
|00004070| 2e 64 65 73 63 65 6e 74 | 20 2b 20 5f 73 66 2e 6c |.descent| + _sf.l|
|00004080| 65 61 64 69 6e 67 29 3b | 0d 09 09 0d 09 09 2f 2a |eading);|....../*|
|00004090| 20 73 65 74 20 75 70 20 | 64 65 66 61 75 6c 74 20 | set up |default |
|000040a0| 6e 75 6d 62 65 72 20 6f | 66 20 72 6f 77 73 20 61 |number o|f rows a|
|000040b0| 6e 64 20 63 6f 6c 75 6d | 6e 73 20 64 65 70 65 6e |nd colum|ns depen|
|000040c0| 64 69 6e 67 20 6f 6e 20 | 73 63 72 65 65 6e 20 2a |ding on |screen *|
|000040d0| 2f 0d 09 0d 09 09 69 66 | 20 28 21 6d 61 78 72 6f |/.....if| (!maxro|
|000040e0| 77 29 0d 09 09 09 6d 61 | 78 72 6f 77 20 3d 20 28 |w)....ma|xrow = (|
|000040f0| 73 63 72 65 65 6e 48 65 | 69 67 68 74 20 2d 20 75 |screenHe|ight - u|
|00004100| 70 70 65 72 5f 6c 65 66 | 74 2e 76 20 2d 20 5f 54 |pper_lef|t.v - _T|
|00004110| 4f 50 45 44 47 45 20 2d | 20 5f 43 4f 4e 54 52 4f |OPEDGE -| _CONTRO|
|00004120| 4c 57 49 44 54 48 20 2d | 20 31 20 2d 20 63 68 61 |LWIDTH -| 1 - cha|
|00004130| 72 68 65 69 67 68 74 20 | 2b 20 31 29 20 2f 0d 09 |rheight |+ 1) /..|
|00004140| 09 09 09 09 09 63 68 61 | 72 68 65 69 67 68 74 3b |.....cha|rheight;|
|00004150| 0d 09 0d 09 2f 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..../***|********|
|00004160| 2a 2a 2a 2a 2a 2a 20 52 | 4d 53 20 34 2f 32 30 2f |****** R|MS 4/20/|
|00004170| 38 38 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |88 *****|********|
|00004180| 2a 2a 0d 09 2a 0d 09 2a | 0d 09 2a 09 49 66 20 4d |**..*..*|..*.If M|
|00004190| 75 6c 74 69 46 69 6e 64 | 65 72 20 69 73 20 72 75 |ultiFind|er is ru|
|000041a0| 6e 6e 69 6e 67 2c 20 77 | 65 27 6c 6c 20 6d 61 6b |nning, w|e'll mak|
|000041b0| 65 20 74 68 65 20 63 6f | 6e 73 6f 6c 65 20 77 69 |e the co|nsole wi|
|000041c0| 6e 64 6f 77 20 68 61 6c | 66 2d 68 65 69 67 68 74 |ndow hal|f-height|
|000041d0| 2c 0d 09 2a 09 73 6f 20 | 74 68 61 74 20 77 65 20 |,..*.so |that we |
|000041e0| 63 61 6e 20 73 65 65 20 | 74 68 65 20 63 6f 6e 74 |can see |the cont|
|000041f0| 65 6e 74 73 20 77 68 69 | 6c 65 20 72 75 6e 6e 69 |ents whi|le runni|
|00004200| 6e 67 20 74 68 65 20 64 | 65 62 75 67 67 65 72 2e |ng the d|ebugger.|
|00004210| 0d 09 2a 0d 09 2a 09 41 | 73 20 73 6f 6f 6e 20 61 |..*..*.A|s soon a|
|00004220| 73 20 61 20 70 6f 73 73 | 69 62 6c 65 2c 20 22 4d |s a poss|ible, "M|
|00004230| 46 49 73 52 75 6e 6e 69 | 6e 67 28 29 22 20 77 69 |FIsRunni|ng()" wi|
|00004240| 6c 6c 20 62 65 20 72 65 | 70 6c 61 63 65 64 20 62 |ll be re|placed b|
|00004250| 79 20 61 20 0d 09 2a 09 | 6d 65 63 68 61 6e 69 73 |y a ..*.|mechanis|
|00004260| 6d 20 74 6f 20 73 65 65 | 20 69 66 20 74 68 65 20 |m to see| if the |
|00004270| 64 65 62 75 67 67 65 72 | 20 69 73 20 62 65 69 6e |debugger| is bein|
|00004280| 67 20 75 73 65 64 2e 0d | 09 2a 0d 09 2a 2a 2a 2a |g used..|.*..****|
|00004290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2f 0d 09 0d 23 69 |********|**/...#i|
|000042c0| 66 64 65 66 20 5f 48 41 | 4c 46 57 49 4e 44 4f 57 |fdef _HA|LFWINDOW|
|000042d0| 5f 0d 09 09 69 66 20 28 | 4d 46 49 73 52 75 6e 6e |_...if (|MFIsRunn|
|000042e0| 69 6e 67 28 29 29 20 6d | 61 78 72 6f 77 20 3d 20 |ing()) m|axrow = |
|000042f0| 31 31 3b 09 09 2f 2a 20 | 68 61 6c 66 20 61 20 73 |11;../* |half a s|
|00004300| 74 61 6e 64 61 72 64 20 | 73 63 72 65 65 6e 20 2a |tandard |screen *|
|00004310| 2f 0d 23 65 6e 64 69 66 | 0d 0d 09 09 69 66 20 28 |/.#endif|....if (|
|00004320| 21 6d 61 78 63 6f 6c 29 | 0d 09 09 09 6d 61 78 63 |!maxcol)|....maxc|
|00004330| 6f 6c 20 3d 20 28 73 63 | 72 65 65 6e 57 69 64 74 |ol = (sc|reenWidt|
|00004340| 68 20 2d 20 75 70 70 65 | 72 5f 6c 65 66 74 2e 68 |h - uppe|r_left.h|
|00004350| 20 2d 20 5f 4c 45 46 54 | 45 44 47 45 20 2d 20 5f | - _LEFT|EDGE - _|
|00004360| 43 4f 4e 54 52 4f 4c 57 | 49 44 54 48 20 2d 20 31 |CONTROLW|IDTH - 1|
|00004370| 20 2d 20 5f 73 66 2e 77 | 69 64 4d 61 78 20 2b 20 | - _sf.w|idMax + |
|00004380| 31 29 20 2f 0d 09 09 09 | 09 09 20 5f 73 66 2e 77 |1) /....|.. _sf.w|
|00004390| 69 64 4d 61 78 3b 0d 09 | 0d 09 09 2f 2a 20 63 72 |idMax;..|.../* cr|
|000043a0| 65 61 74 65 20 61 20 70 | 6f 69 6e 74 65 72 20 62 |eate a p|ointer b|
|000043b0| 6c 6f 63 6b 20 62 69 67 | 20 65 6e 6f 75 67 68 20 |lock big| enough |
|000043c0| 74 6f 20 61 63 63 6f 6d | 6f 64 61 74 65 20 74 68 |to accom|odate th|
|000043d0| 65 20 77 69 6e 64 6f 77 | 20 72 65 63 6f 72 64 0d |e window| record.|
|000043e0| 09 09 61 6e 64 20 61 6c | 6c 20 6f 66 20 6f 75 72 |..and al|l of our|
|000043f0| 20 73 74 75 66 66 20 2a | 2f 0d 0d 09 09 69 66 20 | stuff *|/....if |
|00004400| 28 21 28 73 77 72 70 20 | 3d 20 28 53 74 64 57 69 |(!(swrp |= (StdWi|
|00004410| 6e 64 6f 77 52 65 63 2a | 29 20 28 4e 65 77 50 74 |ndowRec*|) (NewPt|
|00004420| 72 28 73 69 7a 65 6f 66 | 28 53 74 64 57 69 6e 64 |r(sizeof|(StdWind|
|00004430| 6f 77 52 65 63 29 2b 6d | 61 78 72 6f 77 2a 6d 61 |owRec)+m|axrow*ma|
|00004440| 78 63 6f 6c 29 29 29 29 | 0d 09 09 7b 0d 09 09 09 |xcol))))|...{....|
|00004450| 65 72 72 6e 6f 20 3d 20 | 2d 31 30 38 3b 09 2f 2a |errno = |-108;./*|
|00004460| 20 4d 65 6d 46 75 6c 6c | 45 72 72 20 2d 20 72 61 | MemFull|Err - ra|
|00004470| 6e 20 6f 75 74 20 6f 66 | 20 6d 65 6d 6f 72 79 20 |n out of| memory |
|00004480| 2a 2f 0d 09 09 09 72 65 | 74 75 72 6e 20 28 4e 55 |*/....re|turn (NU|
|00004490| 4c 4c 29 3b 0d 09 09 7d | 0d 09 0d 09 09 73 77 72 |LL);...}|.....swr|
|000044a0| 70 2d 3e 73 66 20 3d 20 | 5f 73 66 3b 0d 09 09 0d |p->sf = |_sf;....|
|000044b0| 09 09 73 77 72 70 2d 3e | 63 68 61 72 68 65 69 67 |..swrp->|charheig|
|000044c0| 68 74 20 3d 20 63 68 61 | 72 68 65 69 67 68 74 3b |ht = cha|rheight;|
|000044d0| 0d 09 09 73 77 72 70 2d | 3e 63 68 61 72 77 69 64 |...swrp-|>charwid|
|000044e0| 74 68 20 3d 20 5f 73 66 | 2e 77 69 64 4d 61 78 3b |th = _sf|.widMax;|
|000044f0| 0d 09 09 0d 09 20 7d 09 | 2f 2a 20 6a 75 73 74 20 |..... }.|/* just |
|00004500| 70 72 6f 76 69 64 65 73 | 20 73 63 6f 70 69 6e 67 |provides| scoping|
|00004510| 20 66 6f 72 20 63 68 61 | 72 68 65 69 67 68 74 20 | for cha|rheight |
|00004520| 2a 2f 0d 09 20 0d 09 09 | 73 77 72 70 2d 3e 74 6f |*/.. ...|swrp->to|
|00004530| 70 72 6f 77 20 3d 20 73 | 77 72 70 2d 3e 63 6f 6c |prow = s|wrp->col|
|00004540| 20 3d 20 30 3b 0d 09 09 | 73 77 72 70 2d 3e 72 6f | = 0;...|swrp->ro|
|00004550| 77 20 3d 20 6d 61 78 72 | 6f 77 20 2d 20 31 3b 09 |w = maxr|ow - 1;.|
|00004560| 2f 2a 20 73 74 61 72 74 | 20 63 75 72 73 6f 72 20 |/* start| cursor |
|00004570| 61 74 20 62 6f 74 74 6f | 6d 20 6f 66 20 73 63 72 |at botto|m of scr|
|00004580| 65 65 6e 20 2a 2f 0d 09 | 09 73 77 72 70 2d 3e 73 |een */..|.swrp->s|
|00004590| 69 67 6e 61 74 75 72 65 | 20 3d 20 5f 4f 55 52 53 |ignature| = _OURS|
|000045a0| 49 47 4e 41 54 55 52 45 | 3b 0d 09 0d 09 09 62 6f |IGNATURE|;.....bo|
|000045b0| 75 6e 64 73 2e 74 6f 70 | 20 3d 20 75 70 70 65 72 |unds.top| = upper|
|000045c0| 5f 6c 65 66 74 2e 76 3b | 0d 09 09 62 6f 75 6e 64 |_left.v;|...bound|
|000045d0| 73 2e 6c 65 66 74 20 3d | 20 75 70 70 65 72 5f 6c |s.left =| upper_l|
|000045e0| 65 66 74 2e 68 3b 0d 09 | 09 62 6f 75 6e 64 73 2e |eft.h;..|.bounds.|
|000045f0| 72 69 67 68 74 20 3d 20 | 62 6f 75 6e 64 73 2e 6c |right = |bounds.l|
|00004600| 65 66 74 20 2b 20 5f 4c | 45 46 54 45 44 47 45 20 |eft + _L|EFTEDGE |
|00004610| 2b 20 6d 61 78 63 6f 6c | 20 2a 20 73 77 72 70 2d |+ maxcol| * swrp-|
|00004620| 3e 63 68 61 72 77 69 64 | 74 68 20 2b 20 5f 43 4f |>charwid|th + _CO|
|00004630| 4e 54 52 4f 4c 57 49 44 | 54 48 20 2b 20 31 3b 0d |NTROLWID|TH + 1;.|
|00004640| 09 09 62 6f 75 6e 64 73 | 2e 62 6f 74 74 6f 6d 20 |..bounds|.bottom |
|00004650| 3d 20 62 6f 75 6e 64 73 | 2e 74 6f 70 20 2b 20 5f |= bounds|.top + _|
|00004660| 54 4f 50 45 44 47 45 20 | 2b 20 6d 61 78 72 6f 77 |TOPEDGE |+ maxrow|
|00004670| 20 2a 20 73 77 72 70 2d | 3e 63 68 61 72 68 65 69 | * swrp-|>charhei|
|00004680| 67 68 74 20 2b 20 5f 43 | 4f 4e 54 52 4f 4c 57 49 |ght + _C|ONTROLWI|
|00004690| 44 54 48 20 2b 20 31 20 | 2b 20 34 3b 0d 09 0d 09 |DTH + 1 |+ 4;....|
|000046a0| 09 4e 65 77 57 69 6e 64 | 6f 77 28 73 77 72 70 2c |.NewWind|ow(swrp,|
|000046b0| 20 26 62 6f 75 6e 64 73 | 2c 20 43 74 6f 50 73 74 | &bounds|, CtoPst|
|000046c0| 72 28 74 69 74 6c 65 62 | 61 72 29 2c 20 74 72 75 |r(titleb|ar), tru|
|000046d0| 65 2c 0d 09 09 09 09 09 | 28 67 72 6f 77 20 3f 20 |e,......|(grow ? |
|000046e0| 64 6f 63 75 6d 65 6e 74 | 50 72 6f 63 20 3a 20 6e |document|Proc : n|
|000046f0| 6f 47 72 6f 77 44 6f 63 | 50 72 6f 63 29 2c 20 2d |oGrowDoc|Proc), -|
|00004700| 31 4c 2c 20 67 6f 61 77 | 61 79 2c 20 30 4c 29 3b |1L, goaw|ay, 0L);|
|00004710| 0d 09 09 0d 09 09 50 74 | 6f 43 73 74 72 28 74 69 |......Pt|oCstr(ti|
|00004720| 74 6c 65 62 61 72 29 3b | 0d 09 0d 09 09 2f 2a 20 |tlebar);|...../* |
|00004730| 73 65 74 20 75 70 20 65 | 76 65 6e 74 20 70 72 6f |set up e|vent pro|
|00004740| 63 65 73 73 69 6e 67 20 | 68 6f 6f 6b 73 20 2a 2f |cessing |hooks */|
|00004750| 0d 09 09 0d 09 09 65 74 | 2e 65 76 65 6e 74 50 72 |......et|.eventPr|
|00004760| 6f 63 20 3d 20 53 74 64 | 77 69 6e 64 6f 77 5f 64 |oc = Std|window_d|
|00004770| 6f 45 76 65 6e 74 3b 0d | 09 09 65 74 2e 76 73 63 |oEvent;.|..et.vsc|
|00004780| 72 6f 6c 6c 20 3d 20 30 | 3b 0d 09 09 50 74 72 54 |roll = 0|;...PtrT|
|00004790| 6f 48 61 6e 64 28 26 65 | 74 2c 20 26 28 28 57 69 |oHand(&e|t, &((Wi|
|000047a0| 6e 64 6f 77 50 65 65 6b | 29 73 77 72 70 29 2d 3e |ndowPeek|)swrp)->|
|000047b0| 72 65 66 43 6f 6e 2c 20 | 73 69 7a 65 6f 66 20 65 |refCon, |sizeof e|
|000047c0| 74 29 3b 0d 09 09 0d 09 | 09 73 74 64 69 6f 5f 66 |t);.....|.stdio_f|
|000047d0| 6f 6e 74 73 65 74 28 73 | 77 72 70 29 3b 0d 09 09 |ontset(s|wrp);...|
|000047e0| 0d 09 09 69 66 20 28 67 | 72 6f 77 29 0d 09 09 7b |...if (g|row)...{|
|000047f0| 0d 09 09 09 49 6e 76 61 | 6c 52 65 63 74 28 26 28 |....Inva|lRect(&(|
|00004800| 28 57 69 6e 64 6f 77 50 | 74 72 29 73 77 72 70 29 |(WindowP|tr)swrp)|
|00004810| 2d 3e 70 6f 72 74 52 65 | 63 74 29 3b 0d 09 09 09 |->portRe|ct);....|
|00004820| 44 72 61 77 43 6f 6e 74 | 72 6f 6c 73 28 73 77 72 |DrawCont|rols(swr|
|00004830| 70 29 3b 0d 09 09 09 44 | 72 61 77 47 72 6f 77 49 |p);....D|rawGrowI|
|00004840| 63 6f 6e 28 73 77 72 70 | 29 3b 0d 09 09 7d 0d 09 |con(swrp|);...}..|
|00004850| 09 0d 09 09 56 61 6c 69 | 64 52 65 63 74 28 26 28 |....Vali|dRect(&(|
|00004860| 28 57 69 6e 64 6f 77 50 | 74 72 29 73 77 72 70 29 |(WindowP|tr)swrp)|
|00004870| 2d 3e 70 6f 72 74 52 65 | 63 74 29 3b 0d 09 0d 09 |->portRe|ct);....|
|00004880| 09 69 66 20 28 6f 70 74 | 69 6f 6e 73 70 74 72 29 |.if (opt|ionsptr)|
|00004890| 0d 09 09 09 73 77 72 70 | 2d 3e 6f 70 74 20 3d 20 |....swrp|->opt = |
|000048a0| 2a 6f 70 74 69 6f 6e 73 | 70 74 72 3b 0d 09 09 65 |*options|ptr;...e|
|000048b0| 6c 73 65 0d 09 09 7b 0d | 09 09 09 73 77 72 70 2d |lse...{.|...swrp-|
|000048c0| 3e 6f 70 74 2e 6d 61 78 | 72 6f 77 20 3d 20 6d 61 |>opt.max|row = ma|
|000048d0| 78 72 6f 77 3b 0d 09 09 | 09 73 77 72 70 2d 3e 76 |xrow;...|.swrp->v|
|000048e0| 69 73 63 6f 6c 20 3d 20 | 73 77 72 70 2d 3e 6f 70 |iscol = |swrp->op|
|000048f0| 74 2e 6d 61 78 63 6f 6c | 20 3d 20 6d 61 78 63 6f |t.maxcol| = maxco|
|00004900| 6c 3b 0d 09 09 09 73 77 | 72 70 2d 3e 6f 70 74 2e |l;....sw|rp->opt.|
|00004910| 63 75 72 73 6f 72 5f 76 | 69 73 69 62 6c 65 20 3d |cursor_v|isible =|
|00004920| 20 74 72 75 65 3b 0d 09 | 09 09 73 77 72 70 2d 3e | true;..|..swrp->|
|00004930| 6f 70 74 2e 65 63 68 6f | 5f 73 74 61 74 65 20 3d |opt.echo|_state =|
|00004940| 20 74 72 75 65 3b 0d 09 | 09 09 73 77 72 70 2d 3e | true;..|..swrp->|
|00004950| 6f 70 74 2e 5f 74 61 62 | 5f 77 69 64 74 68 20 3d |opt._tab|_width =|
|00004960| 20 34 3b 0d 09 09 09 73 | 77 72 70 2d 3e 6f 70 74 | 4;....s|wrp->opt|
|00004970| 2e 6e 6f 5f 70 75 6c 6c | 5f 66 72 6f 6e 74 20 3d |.no_pull|_front =|
|00004980| 20 66 61 6c 73 65 3b 0d | 09 09 09 73 77 72 70 2d | false;.|...swrp-|
|00004990| 3e 6f 70 74 2e 6e 6f 5f | 67 72 6f 77 20 3d 20 21 |>opt.no_|grow = !|
|000049a0| 67 72 6f 77 3b 0d 09 09 | 09 73 77 72 70 2d 3e 6f |grow;...|.swrp->o|
|000049b0| 70 74 2e 6e 6f 5f 64 72 | 61 67 20 3d 20 66 61 6c |pt.no_dr|ag = fal|
|000049c0| 73 65 3b 0d 09 09 09 73 | 77 72 70 2d 3e 6f 70 74 |se;....s|wrp->opt|
|000049d0| 2e 6e 6f 5f 67 6f 61 77 | 61 79 20 3d 20 21 67 6f |.no_goaw|ay = !go|
|000049e0| 61 77 61 79 3b 0d 09 09 | 09 73 77 72 70 2d 3e 6f |away;...|.swrp->o|
|000049f0| 70 74 2e 6e 6f 5f 73 63 | 72 6f 6c 6c 20 3d 20 66 |pt.no_sc|roll = f|
|00004a00| 61 6c 73 65 3b 0d 09 09 | 09 73 77 72 70 2d 3e 6f |alse;...|.swrp->o|
|00004a10| 70 74 2e 6e 6f 5f 77 72 | 61 70 20 3d 20 66 61 6c |pt.no_wr|ap = fal|
|00004a20| 73 65 3b 0d 09 09 7d 0d | 09 0d 09 09 73 77 72 70 |se;...}.|....swrp|
|00004a30| 2d 3e 76 69 73 72 6f 77 | 20 3d 20 6d 61 78 72 6f |->visrow| = maxro|
|00004a40| 77 3b 0d 09 09 73 77 72 | 70 2d 3e 76 69 73 63 6f |w;...swr|p->visco|
|00004a50| 6c 20 3d 20 6d 61 78 63 | 6f 6c 3b 0d 09 09 0d 09 |l = maxc|ol;.....|
|00004a60| 09 2f 2a 20 63 6c 65 61 | 72 20 73 63 72 65 65 6e |./* clea|r screen|
|00004a70| 20 6d 65 6d 6f 72 79 20 | 74 6f 20 73 70 61 63 65 | memory |to space|
|00004a80| 73 20 2a 2f 0d 09 09 0d | 09 09 63 6c 65 61 72 73 |s */....|..clears|
|00004a90| 63 72 65 65 6e 6d 65 6d | 28 73 77 72 70 29 3b 0d |creenmem|(swrp);.|
|00004aa0| 0d 09 09 6d 6f 76 65 63 | 75 72 73 6f 72 28 73 77 |...movec|ursor(sw|
|00004ab0| 72 70 2c 20 73 77 72 70 | 2d 3e 63 6f 6c 2c 20 73 |rp, swrp|->col, s|
|00004ac0| 77 72 70 2d 3e 72 6f 77 | 29 3b 0d 09 09 64 72 61 |wrp->row|);...dra|
|00004ad0| 77 63 75 72 73 6f 72 28 | 73 77 72 70 2c 20 4f 4e |wcursor(|swrp, ON|
|00004ae0| 29 3b 0d 09 7d 0d 0d 09 | 2f 2a 20 73 65 74 20 61 |);..}...|/* set a|
|00004af0| 6c 6c 20 72 65 6c 65 76 | 61 6e 74 20 69 74 65 6d |ll relev|ant item|
|00004b00| 73 20 69 6e 20 46 49 4c | 45 20 72 65 63 6f 72 64 |s in FIL|E record|
|00004b10| 20 2a 2f 0d 09 0d 09 77 | 68 6f 2d 3e 66 69 6c 65 | */....w|ho->file|
|00004b20| 62 75 66 09 3d 20 28 63 | 68 61 72 20 2a 29 20 73 |buf.= (c|har *) s|
|00004b30| 77 72 70 3b 0d 09 77 68 | 6f 2d 3e 53 74 64 53 74 |wrp;..wh|o->StdSt|
|00004b40| 72 65 61 6d 09 3d 20 74 | 72 75 65 3b 0d 09 77 68 |ream.= t|rue;..wh|
|00004b50| 6f 2d 3e 49 6e 55 73 65 | 09 09 3d 20 74 72 75 65 |o->InUse|..= true|
|00004b60| 3b 0d 09 77 68 6f 2d 3e | 77 69 6e 64 6f 77 09 09 |;..who->|window..|
|00004b70| 3d 20 74 72 75 65 3b 0d | 09 77 68 6f 2d 3e 72 64 |= true;.|.who->rd|
|00004b80| 09 09 09 3d 20 74 72 75 | 65 3b 09 09 09 2f 2a 20 |...= tru|e;.../* |
|00004b90| 31 31 2f 31 33 2f 38 37 | 20 72 6d 73 20 2d 20 63 |11/13/87| rms - c|
|00004ba0| 68 61 6e 67 65 64 20 66 | 72 6f 6d 20 46 41 4c 53 |hanged f|rom FALS|
|00004bb0| 45 20 2a 2f 0d 09 77 68 | 6f 2d 3e 77 72 09 09 09 |E */..wh|o->wr...|
|00004bc0| 3d 20 74 72 75 65 3b 0d | 0d 09 72 65 74 75 72 6e |= true;.|..return|
|00004bd0| 20 28 77 68 6f 29 3b 0d | 7d 0d 0d 23 6c 69 6e 65 | (who);.|}..#line|
|00004be0| 20 30 20 66 6f 70 65 6e | 77 0d 46 49 4c 45 20 2a | 0 fopen|w.FILE *|
|00004bf0| 66 6f 70 65 6e 77 28 74 | 69 74 6c 65 62 61 72 2c |fopenw(t|itlebar,|
|00004c00| 20 75 70 70 65 72 5f 6c | 65 66 74 2c 20 6f 70 74 | upper_l|eft, opt|
|00004c10| 69 6f 6e 73 70 74 72 29 | 0d 63 68 61 72 20 2a 74 |ionsptr)|.char *t|
|00004c20| 69 74 6c 65 62 61 72 3b | 0d 50 6f 69 6e 74 20 75 |itlebar;|.Point u|
|00004c30| 70 70 65 72 5f 6c 65 66 | 74 3b 0d 53 74 64 57 69 |pper_lef|t;.StdWi|
|00004c40| 6e 64 6f 77 4f 70 74 69 | 6f 6e 73 20 2a 6f 70 74 |ndowOpti|ons *opt|
|00004c50| 69 6f 6e 73 70 74 72 3b | 0d 7b 0d 09 66 6f 70 65 |ionsptr;|.{..fope|
|00004c60| 6e 77 78 28 74 69 74 6c | 65 62 61 72 2c 20 75 70 |nwx(titl|ebar, up|
|00004c70| 70 65 72 5f 6c 65 66 74 | 2c 20 6f 70 74 69 6f 6e |per_left|, option|
|00004c80| 73 70 74 72 2c 20 4e 55 | 4c 4c 2c 20 4e 55 4c 4c |sptr, NU|LL, NULL|
|00004c90| 29 3b 0d 7d 0d 0d 23 6c | 69 6e 65 20 30 20 73 65 |);.}..#l|ine 0 se|
|00004ca0| 74 77 69 6e 64 6f 77 0d | 69 6e 74 20 73 65 74 77 |twindow.|int setw|
|00004cb0| 69 6e 64 6f 77 28 77 69 | 6e 64 6f 77 66 69 6c 65 |indow(wi|ndowfile|
|00004cc0| 29 0d 72 65 67 69 73 74 | 65 72 20 46 49 4c 45 20 |).regist|er FILE |
|00004cd0| 2a 77 69 6e 64 6f 77 66 | 69 6c 65 3b 0d 7b 0d 72 |*windowf|ile;.{.r|
|00004ce0| 65 67 69 73 74 65 72 20 | 53 74 64 57 69 6e 64 6f |egister |StdWindo|
|00004cf0| 77 52 65 63 20 2a 73 77 | 72 70 3b 0d 0d 09 69 66 |wRec *sw|rp;...if|
|00004d00| 20 28 77 69 6e 64 6f 77 | 66 69 6c 65 20 26 26 0d | (window|file &&.|
|00004d10| 09 09 77 69 6e 64 6f 77 | 66 69 6c 65 2d 3e 49 6e |..window|file->In|
|00004d20| 55 73 65 20 26 26 0d 09 | 09 77 69 6e 64 6f 77 66 |Use &&..|.windowf|
|00004d30| 69 6c 65 2d 3e 77 69 6e | 64 6f 77 20 26 26 0d 09 |ile->win|dow &&..|
|00004d40| 09 28 73 77 72 70 20 3d | 20 28 28 53 74 64 57 69 |.(swrp =| ((StdWi|
|00004d50| 6e 64 6f 77 52 65 63 2a | 29 77 69 6e 64 6f 77 66 |ndowRec*|)windowf|
|00004d60| 69 6c 65 2d 3e 66 69 6c | 65 62 75 66 29 29 2d 3e |ile->fil|ebuf))->|
|00004d70| 73 69 67 6e 61 74 75 72 | 65 20 3d 3d 20 5f 4f 55 |signatur|e == _OU|
|00004d80| 52 53 49 47 4e 41 54 55 | 52 45 29 0d 09 7b 0d 09 |RSIGNATU|RE)..{..|
|00004d90| 09 43 75 72 72 65 6e 74 | 57 69 6e 64 6f 77 20 3d |.Current|Window =|
|00004da0| 20 77 69 6e 64 6f 77 66 | 69 6c 65 3b 0d 09 09 43 | windowf|ile;...C|
|00004db0| 75 72 72 65 6e 74 73 77 | 72 70 20 3d 20 28 57 69 |urrentsw|rp = (Wi|
|00004dc0| 6e 64 6f 77 50 74 72 29 | 20 73 77 72 70 3b 0d 09 |ndowPtr)| swrp;..|
|00004dd0| 09 5f 65 63 68 6f 20 3d | 20 73 77 72 70 2d 3e 6f |._echo =| swrp->o|
|00004de0| 70 74 2e 65 63 68 6f 5f | 73 74 61 74 65 3b 0d 09 |pt.echo_|state;..|
|00004df0| 7d 0d 09 65 6c 73 65 0d | 09 09 72 65 74 75 72 6e |}..else.|..return|
|00004e00| 20 28 45 4f 46 29 3b 0d | 09 09 0d 09 72 65 74 75 | (EOF);.|....retu|
|00004e10| 72 6e 20 28 30 29 3b 0d | 7d 0d 0d 73 74 64 77 73 |rn (0);.|}..stdws|
|00004e20| 61 76 65 28 77 69 6e 64 | 6f 77 66 69 6c 65 2c 20 |ave(wind|owfile, |
|00004e30| 65 6e 76 29 0d 46 49 4c | 45 20 2a 77 69 6e 64 6f |env).FIL|E *windo|
|00004e40| 77 66 69 6c 65 3b 0d 53 | 74 64 77 73 61 76 65 52 |wfile;.S|tdwsaveR|
|00004e50| 65 63 6f 72 64 20 2a 65 | 6e 76 3b 0d 7b 0d 0d 09 |ecord *e|nv;.{...|
|00004e60| 49 6e 69 74 5f 73 74 64 | 69 6f 28 29 3b 0d 09 65 |Init_std|io();..e|
|00004e70| 6e 76 2d 3e 66 70 20 3d | 20 43 75 72 72 65 6e 74 |nv->fp =| Current|
|00004e80| 57 69 6e 64 6f 77 3b 0d | 09 65 6e 76 2d 3e 77 70 |Window;.|.env->wp|
|00004e90| 20 3d 20 43 75 72 72 65 | 6e 74 73 77 72 70 3b 0d | = Curre|ntswrp;.|
|00004ea0| 09 0d 09 72 65 74 75 72 | 6e 20 28 73 65 74 77 69 |...retur|n (setwi|
|00004eb0| 6e 64 6f 77 28 77 69 6e | 64 6f 77 66 69 6c 65 29 |ndow(win|dowfile)|
|00004ec0| 29 3b 0d 7d 0d 0d 73 74 | 64 77 72 65 73 74 6f 72 |);.}..st|dwrestor|
|00004ed0| 65 28 77 69 6e 64 6f 77 | 66 69 6c 65 2c 20 65 6e |e(window|file, en|
|00004ee0| 76 29 0d 46 49 4c 45 20 | 2a 77 69 6e 64 6f 77 66 |v).FILE |*windowf|
|00004ef0| 69 6c 65 3b 0d 53 74 64 | 77 73 61 76 65 52 65 63 |ile;.Std|wsaveRec|
|00004f00| 6f 72 64 20 2a 65 6e 76 | 3b 0d 7b 0d 09 69 66 20 |ord *env|;.{..if |
|00004f10| 28 77 69 6e 64 6f 77 66 | 69 6c 65 20 21 3d 20 43 |(windowf|ile != C|
|00004f20| 75 72 72 65 6e 74 57 69 | 6e 64 6f 77 29 20 72 65 |urrentWi|ndow) re|
|00004f30| 74 75 72 6e 20 28 45 4f | 46 29 3b 0d 09 0d 09 43 |turn (EO|F);....C|
|00004f40| 75 72 72 65 6e 74 57 69 | 6e 64 6f 77 20 3d 20 65 |urrentWi|ndow = e|
|00004f50| 6e 76 2d 3e 66 70 3b 0d | 09 43 75 72 72 65 6e 74 |nv->fp;.|.Current|
|00004f60| 73 77 72 70 20 3d 20 65 | 6e 76 2d 3e 77 70 3b 0d |swrp = e|nv->wp;.|
|00004f70| 09 5f 65 63 68 6f 20 3d | 20 28 28 53 74 64 57 69 |._echo =| ((StdWi|
|00004f80| 6e 64 6f 77 52 65 63 2a | 29 43 75 72 72 65 6e 74 |ndowRec*|)Current|
|00004f90| 73 77 72 70 29 2d 3e 6f | 70 74 2e 65 63 68 6f 5f |swrp)->o|pt.echo_|
|00004fa0| 73 74 61 74 65 3b 0d 09 | 72 65 74 75 72 6e 20 28 |state;..|return (|
|00004fb0| 30 29 3b 0d 7d 0d 0d 23 | 6c 69 6e 65 20 30 20 43 |0);.}..#|line 0 C|
|00004fc0| 6c 69 63 6b 5f 4f 6e 28 | 29 0d 76 6f 69 64 20 43 |lick_On(|).void C|
|00004fd0| 6c 69 63 6b 5f 4f 6e 28 | 66 6c 61 67 29 0d 7b 0d |lick_On(|flag).{.|
|00004fe0| 09 5f 63 6c 69 63 6b 5f | 6f 6e 20 3d 20 66 6c 61 |._click_|on = fla|
|00004ff0| 67 3b 0d 7d 0d 0d 73 74 | 61 74 69 63 0d 64 72 61 |g;.}..st|atic.dra|
|00005000| 77 5f 65 78 69 74 5f 74 | 65 78 74 28 78 65 76 65 |w_exit_t|ext(xeve|
|00005010| 6e 74 29 0d 58 45 76 65 | 6e 74 52 65 63 6f 72 64 |nt).XEve|ntRecord|
|00005020| 20 2a 78 65 76 65 6e 74 | 3b 0d 7b 0d 57 69 6e 64 | *xevent|;.{.Wind|
|00005030| 6f 77 50 74 72 20 77 70 | 20 3d 20 78 65 76 65 6e |owPtr wp| = xeven|
|00005040| 74 2d 3e 77 69 6e 64 6f | 77 3b 0d 09 73 77 69 74 |t->windo|w;..swit|
|00005050| 63 68 20 28 28 28 45 76 | 65 6e 74 52 65 63 6f 72 |ch (((Ev|entRecor|
|00005060| 64 2a 29 78 65 76 65 6e | 74 29 2d 3e 77 68 61 74 |d*)xeven|t)->what|
|00005070| 29 0d 09 7b 0d 09 63 61 | 73 65 20 75 70 64 61 74 |)..{..ca|se updat|
|00005080| 65 45 76 74 3a 0d 09 09 | 53 65 74 50 6f 72 74 28 |eEvt:...|SetPort(|
|00005090| 77 70 29 3b 0d 09 09 4d | 6f 76 65 54 6f 28 34 2c |wp);...M|oveTo(4,|
|000050a0| 20 32 34 2b 5f 73 66 2e | 64 65 73 63 65 6e 74 29 | 24+_sf.|descent)|
|000050b0| 3b 0d 09 09 44 72 61 77 | 53 74 72 69 6e 67 28 22 |;...Draw|String("|
|000050c0| 5c 70 20 43 6c 69 63 6b | 20 63 6c 6f 73 65 20 62 |\p Click| close b|
|000050d0| 6f 78 20 6f 66 20 74 68 | 69 73 20 77 69 6e 64 6f |ox of th|is windo|
|000050e0| 77 20 6f 72 20 70 72 65 | 73 73 20 52 65 74 75 72 |w or pre|ss Retur|
|000050f0| 6e 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 22 29 3b |n to con|tinue");|
|00005100| 0d 09 09 62 72 65 61 6b | 3b 0d 0d 09 63 61 73 65 |...break|;...case|
|00005110| 20 63 6c 6f 73 65 45 76 | 65 6e 74 3a 0d 09 09 64 | closeEv|ent:...d|
|00005120| 6f 5f 65 78 69 74 28 29 | 3b 0d 09 09 0d 09 64 65 |o_exit()|;.....de|
|00005130| 66 61 75 6c 74 3a 0d 09 | 09 2f 2a 20 65 76 65 6e |fault:..|./* even|
|00005140| 74 20 6e 6f 74 20 68 61 | 6e 64 6c 65 64 20 62 79 |t not ha|ndled by|
|00005150| 20 75 73 20 2a 2f 0d 09 | 09 0d 09 09 72 65 74 75 | us */..|....retu|
|00005160| 72 6e 20 28 66 61 6c 73 | 65 29 3b 0d 09 7d 0d 0d |rn (fals|e);..}..|
|00005170| 09 2f 2a 20 65 76 65 6e | 74 20 77 61 73 20 68 61 |./* even|t was ha|
|00005180| 6e 64 6c 65 64 20 61 62 | 6f 76 65 20 2a 2f 0d 0d |ndled ab|ove */..|
|00005190| 09 72 65 74 75 72 6e 20 | 28 74 72 75 65 29 3b 0d |.return |(true);.|
|000051a0| 7d 0d 0d 73 74 61 74 69 | 63 0d 76 6f 69 64 09 63 |}..stati|c.void.c|
|000051b0| 6c 69 63 6b 5f 74 6f 5f | 63 6f 6e 74 69 6e 75 65 |lick_to_|continue|
|000051c0| 28 29 0d 7b 0d 65 76 65 | 6e 74 69 6e 66 6f 20 65 |().{.eve|ntinfo e|
|000051d0| 74 3b 0d 0d 09 2f 2a 20 | 6d 61 6b 65 20 73 75 72 |t;.../* |make sur|
|000051e0| 65 20 61 6c 6c 20 65 78 | 69 74 20 72 6f 75 74 69 |e all ex|it routi|
|000051f0| 6e 65 73 20 68 61 76 65 | 20 62 65 65 6e 20 63 61 |nes have| been ca|
|00005200| 6c 6c 65 64 20 62 65 66 | 6f 72 65 20 77 65 0d 09 |lled bef|ore we..|
|00005210| 09 64 6f 20 61 6e 79 74 | 68 69 6e 67 20 2a 2f 0d |.do anyt|hing */.|
|00005220| 0d 09 5f 65 78 69 74 69 | 6e 67 28 31 29 3b 0d 09 |.._exiti|ng(1);..|
|00005230| 0d 09 2f 2a 20 69 66 20 | 28 65 6d 70 74 79 72 67 |../* if |(emptyrg|
|00005240| 6e 29 20 44 69 73 70 6f | 73 65 52 67 6e 28 65 6d |n) Dispo|seRgn(em|
|00005250| 70 74 79 72 67 6e 29 3b | 20 2d 20 6e 65 65 64 20 |ptyrgn);| - need |
|00005260| 6e 6f 74 20 62 6f 74 68 | 65 72 20 73 69 6e 63 65 |not both|er since|
|00005270| 20 74 68 65 0d 09 09 65 | 6e 74 69 72 65 20 61 70 | the...e|ntire ap|
|00005280| 70 6c 69 63 61 74 69 6f | 6e 20 68 65 61 70 20 73 |plicatio|n heap s|
|00005290| 68 6f 75 6c 64 20 62 65 | 20 76 61 70 6f 72 69 7a |hould be| vaporiz|
|000052a0| 65 64 20 73 68 6f 72 74 | 6c 79 20 2a 2f 0d 09 0d |ed short|ly */...|
|000052b0| 09 69 66 20 28 5f 63 6c | 69 63 6b 5f 6f 6e 29 0d |.if (_cl|ick_on).|
|000052c0| 09 7b 0d 09 09 2f 2a 20 | 63 61 6e 63 65 6c 20 61 |.{.../* |cancel a|
|000052d0| 6e 79 20 70 65 6e 64 69 | 6e 67 20 65 76 65 6e 74 |ny pendi|ng event|
|000052e0| 73 20 2a 2f 0d 09 09 0d | 09 09 46 6c 75 73 68 45 |s */....|..FlushE|
|000052f0| 76 65 6e 74 73 28 65 76 | 65 72 79 45 76 65 6e 74 |vents(ev|eryEvent|
|00005300| 2c 20 30 29 3b 0d 0d 09 | 09 62 6f 75 6e 64 73 2e |, 0);...|.bounds.|
|00005310| 6c 65 66 74 20 3d 20 62 | 6f 75 6e 64 73 2e 74 6f |left = b|ounds.to|
|00005320| 70 20 3d 20 35 30 3b 0d | 09 09 62 6f 75 6e 64 73 |p = 50;.|..bounds|
|00005330| 2e 72 69 67 68 74 20 3d | 20 34 35 36 3b 0d 09 09 |.right =| 456;...|
|00005340| 62 6f 75 6e 64 73 2e 62 | 6f 74 74 6f 6d 20 3d 20 |bounds.b|ottom = |
|00005350| 31 30 30 3b 0d 09 09 0d | 09 09 2f 2a 20 50 75 74 |100;....|../* Put|
|00005360| 20 75 70 20 61 20 77 69 | 6e 64 6f 77 20 61 6e 64 | up a wi|ndow and|
|00005370| 20 68 61 6e 64 6c 65 20 | 77 69 6e 64 6f 77 20 65 | handle |window e|
|00005380| 76 65 6e 74 73 0d 09 09 | 09 75 6e 74 69 6c 20 67 |vents...|.until g|
|00005390| 6f 61 77 61 79 20 69 73 | 20 63 6c 69 63 6b 65 64 |oaway is| clicked|
|000053a0| 20 66 6f 72 20 74 68 69 | 73 20 77 69 6e 64 6f 77 | for thi|s window|
|000053b0| 20 2a 2f 0d 09 0d 09 09 | 5f 65 78 69 74 5f 77 70 | */.....|_exit_wp|
|000053c0| 20 3d 20 4e 65 77 57 69 | 6e 64 6f 77 28 30 4c 2c | = NewWi|ndow(0L,|
|000053d0| 20 26 62 6f 75 6e 64 73 | 2c 20 22 5c 70 45 78 69 | &bounds|, "\pExi|
|000053e0| 74 20 57 69 6e 64 6f 77 | 22 2c 0d 09 09 09 09 09 |t Window|",......|
|000053f0| 09 09 74 72 75 65 2c 20 | 6e 6f 47 72 6f 77 44 6f |..true, |noGrowDo|
|00005400| 63 50 72 6f 63 2c 0d 09 | 09 09 09 09 09 09 2d 31 |cProc,..|......-1|
|00005410| 4c 2c 20 74 72 75 65 2c | 20 30 4c 29 3b 0d 0d 09 |L, true,| 0L);...|
|00005420| 09 65 74 2e 65 76 65 6e | 74 50 72 6f 63 20 3d 20 |.et.even|tProc = |
|00005430| 64 72 61 77 5f 65 78 69 | 74 5f 74 65 78 74 3b 0d |draw_exi|t_text;.|
|00005440| 09 09 50 74 72 54 6f 48 | 61 6e 64 28 26 65 74 2c |..PtrToH|and(&et,|
|00005450| 20 26 28 28 57 69 6e 64 | 6f 77 50 65 65 6b 29 20 | &((Wind|owPeek) |
|00005460| 5f 65 78 69 74 5f 77 70 | 29 2d 3e 72 65 66 43 6f |_exit_wp|)->refCo|
|00005470| 6e 2c 20 73 69 7a 65 6f | 66 20 65 74 29 3b 0d 0d |n, sizeo|f et);..|
|00005480| 09 09 5f 66 6f 6e 74 20 | 3d 20 73 79 73 74 65 6d |.._font |= system|
|00005490| 46 6f 6e 74 3b 0d 09 09 | 5f 73 69 7a 65 20 3d 20 |Font;...|_size = |
|000054a0| 31 32 3b 0d 09 09 73 74 | 64 69 6f 5f 66 6f 6e 74 |12;...st|dio_font|
|000054b0| 73 65 74 28 5f 65 78 69 | 74 5f 77 70 29 3b 0d 09 |set(_exi|t_wp);..|
|000054c0| 09 0d 09 09 2f 2a 20 73 | 6d 61 6c 6c 20 65 76 65 |..../* s|mall eve|
|000054d0| 6e 74 20 6c 6f 6f 70 20 | 74 6f 20 70 72 6f 63 65 |nt loop |to proce|
|000054e0| 73 73 20 77 69 6e 64 6f | 77 20 65 76 65 6e 74 73 |ss windo|w events|
|000054f0| 20 73 75 63 68 20 61 73 | 20 62 72 69 6e 67 69 6e | such as| bringin|
|00005500| 67 0d 09 09 09 74 6f 20 | 66 72 6f 6e 74 2c 20 72 |g....to |front, r|
|00005510| 65 73 69 7a 69 6e 67 2c | 20 64 72 61 67 67 69 6e |esizing,| draggin|
|00005520| 67 2c 20 65 74 63 2e 20 | 2a 2f 0d 09 09 09 0d 09 |g, etc. |*/......|
|00005530| 09 66 6f 72 20 28 3b 3b | 29 0d 09 09 7b 45 76 65 |.for (;;|)...{Eve|
|00005540| 6e 74 52 65 63 6f 72 64 | 20 65 76 65 6e 74 3b 0d |ntRecord| event;.|
|00005550| 09 09 09 77 68 69 6c 65 | 20 28 21 20 47 65 74 4e |...while| (! GetN|
|00005560| 65 78 74 45 76 65 6e 74 | 28 65 76 65 72 79 45 76 |extEvent|(everyEv|
|00005570| 65 6e 74 2c 20 26 65 76 | 65 6e 74 29 29 0d 09 09 |ent, &ev|ent))...|
|00005580| 09 7b 0d 09 09 09 09 48 | 69 6c 69 74 65 4d 65 6e |.{.....H|iliteMen|
|00005590| 75 28 30 29 3b 0d 09 09 | 09 09 53 79 73 74 65 6d |u(0);...|..System|
|000055a0| 54 61 73 6b 28 29 3b 0d | 09 09 09 7d 0d 09 09 09 |Task();.|...}....|
|000055b0| 0d 09 09 09 53 65 74 43 | 75 72 73 6f 72 28 26 61 |....SetC|ursor(&a|
|000055c0| 72 72 6f 77 29 3b 0d 09 | 09 0d 09 09 09 69 66 20 |rrow);..|.....if |
|000055d0| 28 65 76 65 6e 74 2e 77 | 68 61 74 20 3d 3d 20 6b |(event.w|hat == k|
|000055e0| 65 79 44 6f 77 6e 20 26 | 26 20 28 63 68 61 72 29 |eyDown &|& (char)|
|000055f0| 20 65 76 65 6e 74 2e 6d | 65 73 73 61 67 65 20 3d | event.m|essage =|
|00005600| 3d 20 27 5c 72 27 29 0d | 09 09 09 09 62 72 65 61 |= '\r').|....brea|
|00005610| 6b 3b 0d 0d 09 09 09 53 | 74 64 45 76 65 6e 74 28 |k;.....S|tdEvent(|
|00005620| 26 65 76 65 6e 74 29 3b | 0d 09 09 7d 0d 09 09 0d |&event);|...}....|
|00005630| 09 09 64 6f 5f 65 78 69 | 74 28 29 3b 0d 09 7d 0d |..do_exi|t();..}.|
|00005640| 7d 0d 0d 23 6c 69 6e 65 | 20 30 20 53 74 64 69 6f |}..#line| 0 Stdio|
|00005650| 5f 43 6f 6e 66 69 67 28 | 29 0d 76 6f 69 64 20 53 |_Config(|).void S|
|00005660| 74 64 69 6f 5f 43 6f 6e | 66 69 67 28 66 6f 6e 74 |tdio_Con|fig(font|
|00005670| 2c 73 69 7a 65 2c 66 61 | 63 65 2c 6d 6f 64 65 29 |,size,fa|ce,mode)|
|00005680| 0d 69 6e 74 09 66 6f 6e | 74 2c 73 69 7a 65 2c 66 |.int.fon|t,size,f|
|00005690| 61 63 65 2c 6d 6f 64 65 | 3b 0d 7b 0d 09 2f 2a 20 |ace,mode|;.{../* |
|000056a0| 6d 6f 64 69 66 79 20 64 | 65 66 61 75 6c 74 73 20 |modify d|efaults |
|000056b0| 2a 2f 0d 09 09 0d 09 5f | 66 6f 6e 74 20 3d 20 66 |*/....._|font = f|
|000056c0| 6f 6e 74 3b 0d 09 5f 73 | 69 7a 65 20 3d 20 73 69 |ont;.._s|ize = si|
|000056d0| 7a 65 3b 0d 09 5f 66 61 | 63 65 20 3d 20 66 61 63 |ze;.._fa|ce = fac|
|000056e0| 65 3b 0d 09 5f 6d 6f 64 | 65 20 3d 20 6d 6f 64 65 |e;.._mod|e = mode|
|000056f0| 3b 0d 7d 0d 0d 23 6c 69 | 6e 65 20 30 20 53 74 64 |;.}..#li|ne 0 Std|
|00005700| 69 6f 5f 63 6f 6e 66 69 | 67 28 29 09 2f 2a 20 6c |io_confi|g()./* l|
|00005710| 6f 77 65 72 20 63 61 73 | 65 20 63 20 73 69 6e 63 |ower cas|e c sinc|
|00005720| 65 20 69 74 20 77 61 73 | 20 77 72 6f 6e 67 20 69 |e it was| wrong i|
|00005730| 6e 20 74 68 65 20 6d 61 | 6e 75 61 6c 21 20 2a 2f |n the ma|nual! */|
|00005740| 0d 76 6f 69 64 20 53 74 | 64 69 6f 5f 63 6f 6e 66 |.void St|dio_conf|
|00005750| 69 67 28 66 6f 6e 74 2c | 73 69 7a 65 2c 66 61 63 |ig(font,|size,fac|
|00005760| 65 2c 6d 6f 64 65 29 0d | 69 6e 74 09 66 6f 6e 74 |e,mode).|int.font|
|00005770| 2c 73 69 7a 65 2c 66 61 | 63 65 2c 6d 6f 64 65 3b |,size,fa|ce,mode;|
|00005780| 0d 7b 0d 09 53 74 64 69 | 6f 5f 43 6f 6e 66 69 67 |.{..Stdi|o_Config|
|00005790| 28 66 6f 6e 74 2c 20 73 | 69 7a 65 2c 20 66 61 63 |(font, s|ize, fac|
|000057a0| 65 2c 20 6d 6f 64 65 29 | 3b 0d 7d 0d 0d 76 6f 69 |e, mode)|;.}..voi|
|000057b0| 64 20 49 6e 69 74 5f 73 | 74 64 69 6f 28 29 0d 7b |d Init_s|tdio().{|
|000057c0| 0d 72 65 67 69 73 74 65 | 72 20 53 74 64 57 69 6e |.registe|r StdWin|
|000057d0| 64 6f 77 52 65 63 20 2a | 73 77 72 70 3b 0d 50 6f |dowRec *|swrp;.Po|
|000057e0| 69 6e 74 20 74 6f 70 6c | 65 66 74 63 6f 72 6e 65 |int topl|eftcorne|
|000057f0| 72 3b 0d 0d 09 69 66 20 | 28 5f 69 6e 69 74 65 64 |r;...if |(_inited|
|00005800| 20 26 26 20 5f 73 63 72 | 65 65 6e 29 20 72 65 74 | && _scr|een) ret|
|00005810| 75 72 6e 3b 0d 0d 09 69 | 66 20 28 21 5f 69 6e 69 |urn;...i|f (!_ini|
|00005820| 74 65 64 29 0d 09 7b 0d | 09 09 5f 69 6e 69 74 65 |ted)..{.|.._inite|
|00005830| 64 20 3d 20 74 72 75 65 | 3b 0d 09 09 49 6e 69 74 |d = true|;...Init|
|00005840| 47 72 61 66 28 26 74 68 | 65 50 6f 72 74 29 3b 0d |Graf(&th|ePort);.|
|00005850| 09 09 49 6e 69 74 46 6f | 6e 74 73 28 29 3b 0d 09 |..InitFo|nts();..|
|00005860| 09 49 6e 69 74 57 69 6e | 64 6f 77 73 28 29 3b 0d |.InitWin|dows();.|
|00005870| 09 09 49 6e 69 74 44 69 | 61 6c 6f 67 73 28 30 4c |..InitDi|alogs(0L|
|00005880| 29 3b 0d 09 09 73 65 74 | 75 70 5f 6d 65 6e 75 73 |);...set|up_menus|
|00005890| 28 29 3b 0d 09 09 54 45 | 49 6e 69 74 28 29 3b 0d |();...TE|Init();.|
|000058a0| 09 09 46 6c 75 73 68 45 | 76 65 6e 74 73 28 65 76 |..FlushE|vents(ev|
|000058b0| 65 72 79 45 76 65 6e 74 | 2c 20 30 29 3b 0d 09 09 |eryEvent|, 0);...|
|000058c0| 48 69 6c 69 74 65 4d 65 | 6e 75 28 30 29 3b 0d 09 |HiliteMe|nu(0);..|
|000058d0| 09 53 79 73 74 65 6d 54 | 61 73 6b 28 29 3b 0d 09 |.SystemT|ask();..|
|000058e0| 7d 0d 0d 09 69 66 20 28 | 21 5f 73 63 72 65 65 6e |}...if (|!_screen|
|000058f0| 29 0d 09 7b 0d 09 09 5f | 73 63 72 65 65 6e 20 3d |)..{..._|screen =|
|00005900| 20 74 72 75 65 3b 0d 0d | 09 09 4f 70 65 6e 50 6f | true;..|..OpenPo|
|00005910| 72 74 28 26 64 75 6d 6d | 79 50 6f 72 74 29 3b 0d |rt(&dumm|yPort);.|
|00005920| 0d 09 09 2f 2a 20 74 68 | 69 73 20 66 6f 6e 74 20 |.../* th|is font |
|00005930| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 6d 75 73 74 |informat|ion must|
|00005940| 20 62 65 20 73 65 74 20 | 75 70 20 66 6f 72 20 66 | be set |up for f|
|00005950| 6f 70 65 6e 77 20 74 6f | 20 6b 6e 6f 77 20 68 6f |openw to| know ho|
|00005960| 77 0d 09 09 09 20 62 69 | 67 20 74 6f 20 6d 61 6b |w.... bi|g to mak|
|00005970| 65 20 74 68 65 20 77 69 | 6e 64 6f 77 20 2a 2f 0d |e the wi|ndow */.|
|00005980| 09 09 0d 09 09 74 6f 70 | 6c 65 66 74 63 6f 72 6e |.....top|leftcorn|
|00005990| 65 72 2e 68 20 3d 20 34 | 3b 0d 09 09 74 6f 70 6c |er.h = 4|;...topl|
|000059a0| 65 66 74 63 6f 72 6e 65 | 72 2e 76 20 3d 20 5f 4d |eftcorne|r.v = _M|
|000059b0| 42 41 52 48 45 49 47 48 | 54 20 2b 20 5f 54 49 54 |BARHEIGH|T + _TIT|
|000059c0| 4c 45 42 41 52 48 45 49 | 47 48 54 20 2b 20 34 3b |LEBARHEI|GHT + 4;|
|000059d0| 0d 0d 09 09 73 65 74 77 | 69 6e 64 6f 77 28 66 6f |....setw|indow(fo|
|000059e0| 70 65 6e 77 78 28 22 63 | 6f 6e 73 6f 6c 65 22 2c |penwx("c|onsole",|
|000059f0| 20 74 6f 70 6c 65 66 74 | 63 6f 72 6e 65 72 2c 20 | topleft|corner, |
|00005a00| 4e 55 4c 4c 2c 20 5f 63 | 6f 6e 73 6f 6c 65 2c 20 |NULL, _c|onsole, |
|00005a10| 4e 55 4c 4c 29 29 3b 0d | 09 09 0d 09 09 5f 63 6f |NULL));.|....._co|
|00005a20| 6e 73 6f 6c 65 5f 77 70 | 20 3d 20 43 75 72 72 65 |nsole_wp| = Curre|
|00005a30| 6e 74 73 77 72 70 3b 0d | 0d 09 09 2f 2a 20 75 6e |ntswrp;.|.../* un|
|00005a40| 6c 69 6b 65 20 6f 74 68 | 65 72 20 77 69 6e 64 6f |like oth|er windo|
|00005a50| 77 73 2c 20 63 6f 6e 73 | 6f 6c 65 20 69 73 20 6d |ws, cons|ole is m|
|00005a60| 75 6c 74 69 2d 70 75 72 | 70 6f 73 65 20 61 6e 64 |ulti-pur|pose and|
|00005a70| 0d 09 09 09 73 6f 20 69 | 74 20 69 73 20 68 61 6e |....so i|t is han|
|00005a80| 64 6c 65 64 20 73 70 65 | 63 69 61 6c 6c 79 20 2a |dled spe|cially *|
|00005a90| 2f 0d 0d 09 09 5f 63 6f | 6e 73 6f 6c 65 2d 3e 72 |/...._co|nsole->r|
|00005aa0| 64 20 3d 20 74 72 75 65 | 3b 0d 0d 09 09 2f 2a 20 |d = true|;..../* |
|00005ab0| 73 65 74 20 75 70 20 73 | 74 64 6f 75 74 20 61 6e |set up s|tdout an|
|00005ac0| 64 20 73 74 64 65 72 72 | 20 74 6f 20 6d 61 74 63 |d stderr| to matc|
|00005ad0| 68 20 2a 2f 0d 0d 09 09 | 69 66 20 28 73 74 64 6f |h */....|if (stdo|
|00005ae0| 75 74 2d 3e 53 74 64 53 | 74 72 65 61 6d 29 0d 09 |ut->StdS|tream)..|
|00005af0| 09 09 66 6f 70 65 6e 77 | 78 28 22 22 2c 20 74 6f |..fopenw|x("", to|
|00005b00| 70 6c 65 66 74 63 6f 72 | 6e 65 72 2c 20 4e 55 4c |pleftcor|ner, NUL|
|00005b10| 4c 2c 20 73 74 64 6f 75 | 74 2c 20 5f 63 6f 6e 73 |L, stdou|t, _cons|
|00005b20| 6f 6c 65 5f 77 70 29 3b | 0d 09 09 0d 09 09 69 66 |ole_wp);|......if|
|00005b30| 20 28 73 74 64 65 72 72 | 2d 3e 53 74 64 53 74 72 | (stderr|->StdStr|
|00005b40| 65 61 6d 29 0d 09 09 09 | 66 6f 70 65 6e 77 78 28 |eam)....|fopenwx(|
|00005b50| 22 22 2c 20 74 6f 70 6c | 65 66 74 63 6f 72 6e 65 |"", topl|eftcorne|
|00005b60| 72 2c 20 4e 55 4c 4c 2c | 20 73 74 64 65 72 72 2c |r, NULL,| stderr,|
|00005b70| 20 5f 63 6f 6e 73 6f 6c | 65 5f 77 70 29 3b 0d 0d | _consol|e_wp);..|
|00005b80| 09 09 2f 2a 20 73 65 74 | 20 75 70 20 65 78 69 74 |../* set| up exit|
|00005b90| 20 70 72 6f 63 65 64 75 | 72 65 20 2a 2f 0d 09 09 | procedu|re */...|
|00005ba0| 0d 09 09 6f 6e 65 78 69 | 74 28 63 6c 69 63 6b 5f |...onexi|t(click_|
|00005bb0| 74 6f 5f 63 6f 6e 74 69 | 6e 75 65 29 3b 0d 09 09 |to_conti|nue);...|
|00005bc0| 0d 09 09 53 65 74 43 75 | 72 73 6f 72 28 26 61 72 |...SetCu|rsor(&ar|
|00005bd0| 72 6f 77 29 3b 0d 09 7d | 0d 09 0d 20 20 09 69 66 |row);..}|... .if|
|00005be0| 20 28 21 65 6d 70 74 79 | 72 67 6e 29 20 65 6d 70 | (!empty|rgn) emp|
|00005bf0| 74 79 72 67 6e 3d 4e 65 | 77 52 67 6e 28 29 3b 0d |tyrgn=Ne|wRgn();.|
|00005c00| 7d 0d 0d 23 6c 69 6e 65 | 20 30 20 53 65 74 5f 45 |}..#line| 0 Set_E|
|00005c10| 63 68 6f 28 29 0d 76 6f | 69 64 20 53 65 74 5f 45 |cho().vo|id Set_E|
|00005c20| 63 68 6f 28 73 74 61 74 | 65 29 0d 42 6f 6f 6c 65 |cho(stat|e).Boole|
|00005c30| 61 6e 09 73 74 61 74 65 | 3b 0d 7b 0d 09 5f 65 63 |an.state|;.{.._ec|
|00005c40| 68 6f 20 3d 20 73 74 61 | 74 65 3b 0d 09 69 66 20 |ho = sta|te;..if |
|00005c50| 28 43 75 72 72 65 6e 74 | 57 69 6e 64 6f 77 29 0d |(Current|Window).|
|00005c60| 09 09 28 28 53 74 64 57 | 69 6e 64 6f 77 52 65 63 |..((StdW|indowRec|
|00005c70| 2a 29 28 43 75 72 72 65 | 6e 74 73 77 72 70 29 29 |*)(Curre|ntswrp))|
|00005c80| 2d 3e 6f 70 74 2e 65 63 | 68 6f 5f 73 74 61 74 65 |->opt.ec|ho_state|
|00005c90| 20 3d 20 73 74 61 74 65 | 3b 0d 7d 0d 0d 2f 2a 20 | = state|;.}../* |
|00005ca0| 70 64 67 20 2d 20 36 2f | 31 30 2f 38 36 20 2d 20 |pdg - 6/|10/86 - |
|00005cb0| 53 74 64 69 6f 5f 4d 61 | 63 49 6e 69 74 28 29 20 |Stdio_Ma|cInit() |
|00005cc0| 61 6c 6c 6f 77 73 20 63 | 6f 65 78 69 73 74 65 6e |allows c|oexisten|
|00005cd0| 63 65 20 6f 66 20 4d 61 | 63 20 77 69 6e 64 6f 77 |ce of Ma|c window|
|00005ce0| 73 20 61 6e 64 0d 09 09 | 09 09 09 73 74 64 69 6f |s and...|...stdio|
|00005cf0| 20 69 66 20 63 61 6c 6c | 65 64 20 77 69 74 68 20 | if call|ed with |
|00005d00| 66 6c 61 67 20 73 65 74 | 20 74 6f 20 74 72 75 65 |flag set| to true|
|00005d10| 20 73 6f 20 73 74 64 69 | 6f 20 77 6f 6e 27 74 0d | so stdi|o won't.|
|00005d20| 09 09 09 09 09 72 65 69 | 6e 69 74 69 61 6c 69 7a |.....rei|nitializ|
|00005d30| 65 20 61 6c 6c 20 6f 66 | 20 74 68 65 20 4d 61 63 |e all of| the Mac|
|00005d40| 20 73 74 75 66 66 2e 20 | 2a 2f 0d 0d 23 6c 69 6e | stuff. |*/..#lin|
|00005d50| 65 20 30 20 53 74 64 69 | 6f 5f 4d 61 63 49 6e 69 |e 0 Stdi|o_MacIni|
|00005d60| 74 28 29 0d 76 6f 69 64 | 20 53 74 64 69 6f 5f 4d |t().void| Stdio_M|
|00005d70| 61 63 49 6e 69 74 28 66 | 6c 61 67 29 0d 42 6f 6f |acInit(f|lag).Boo|
|00005d80| 6c 65 61 6e 20 66 6c 61 | 67 3b 0d 7b 0d 09 5f 69 |lean fla|g;.{.._i|
|00005d90| 6e 69 74 65 64 20 3d 20 | 66 6c 61 67 3b 0d 7d 0d |nited = |flag;.}.|
|00005da0| 0d 23 6c 69 6e 65 20 30 | 20 53 65 74 5f 54 61 62 |.#line 0| Set_Tab|
|00005db0| 0d 76 6f 69 64 20 53 65 | 74 5f 54 61 62 28 6c 65 |.void Se|t_Tab(le|
|00005dc0| 6e 29 0d 69 6e 74 09 6c | 65 6e 3b 0d 7b 0d 09 49 |n).int.l|en;.{..I|
|00005dd0| 6e 69 74 5f 73 74 64 69 | 6f 28 29 3b 0d 09 28 28 |nit_stdi|o();..((|
|00005de0| 53 74 64 57 69 6e 64 6f | 77 52 65 63 2a 29 20 43 |StdWindo|wRec*) C|
|00005df0| 75 72 72 65 6e 74 73 77 | 72 70 29 2d 3e 6f 70 74 |urrentsw|rp)->opt|
|00005e00| 2e 5f 74 61 62 5f 77 69 | 64 74 68 20 3d 20 6c 65 |._tab_wi|dth = le|
|00005e10| 6e 20 3e 20 31 20 3f 20 | 6c 65 6e 20 3a 20 31 3b |n > 1 ? |len : 1;|
|00005e20| 0d 7d 0d 0d 23 6c 69 6e | 65 20 30 20 67 6f 74 6f |.}..#lin|e 0 goto|
|00005e30| 78 79 0d 76 6f 69 64 09 | 67 6f 74 6f 78 79 28 78 |xy.void.|gotoxy(x|
|00005e40| 2c 79 29 0d 72 65 67 69 | 73 74 65 72 20 69 6e 74 |,y).regi|ster int|
|00005e50| 20 78 2c 79 3b 0d 7b 0d | 72 65 67 69 73 74 65 72 | x,y;.{.|register|
|00005e60| 20 53 74 64 57 69 6e 64 | 6f 77 52 65 63 20 2a 73 | StdWind|owRec *s|
|00005e70| 77 72 70 3b 0d 0d 09 49 | 6e 69 74 5f 73 74 64 69 |wrp;...I|nit_stdi|
|00005e80| 6f 28 29 3b 0d 09 0d 09 | 73 77 72 70 20 3d 20 28 |o();....|swrp = (|
|00005e90| 53 74 64 57 69 6e 64 6f | 77 52 65 63 2a 29 20 43 |StdWindo|wRec*) C|
|00005ea0| 75 72 72 65 6e 74 73 77 | 72 70 3b 0d 09 0d 09 69 |urrentsw|rp;....i|
|00005eb0| 66 20 28 28 78 20 3c 20 | 73 77 72 70 2d 3e 6f 70 |f ((x < |swrp->op|
|00005ec0| 74 2e 6d 61 78 63 6f 6c | 29 20 26 26 20 28 79 20 |t.maxcol|) && (y |
|00005ed0| 3c 20 73 77 72 70 2d 3e | 6f 70 74 2e 6d 61 78 72 |< swrp->|opt.maxr|
|00005ee0| 6f 77 29 29 0d 09 7b 0d | 09 09 64 72 61 77 63 75 |ow))..{.|..drawcu|
|00005ef0| 72 73 6f 72 28 73 77 72 | 70 2c 20 4f 46 46 29 3b |rsor(swr|p, OFF);|
|00005f00| 0d 09 09 73 77 72 70 2d | 3e 63 6f 6c 20 3d 20 78 |...swrp-|>col = x|
|00005f10| 3b 0d 09 09 73 77 72 70 | 2d 3e 72 6f 77 20 3d 20 |;...swrp|->row = |
|00005f20| 79 3b 0d 09 09 6d 6f 76 | 65 63 75 72 73 6f 72 28 |y;...mov|ecursor(|
|00005f30| 73 77 72 70 2c 20 78 2c | 79 29 3b 0d 09 09 64 72 |swrp, x,|y);...dr|
|00005f40| 61 77 63 75 72 73 6f 72 | 28 73 77 72 70 2c 20 4f |awcursor|(swrp, O|
|00005f50| 4e 29 3b 0d 09 7d 0d 7d | 0d 0d 23 6c 69 6e 65 20 |N);..}.}|..#line |
|00005f60| 30 20 67 65 74 78 70 6f | 73 0d 69 6e 74 20 67 65 |0 getxpo|s.int ge|
|00005f70| 74 78 70 6f 73 28 29 0d | 7b 0d 09 49 6e 69 74 5f |txpos().|{..Init_|
|00005f80| 73 74 64 69 6f 28 29 3b | 0d 09 0d 09 72 65 74 75 |stdio();|....retu|
|00005f90| 72 6e 20 28 28 28 53 74 | 64 57 69 6e 64 6f 77 52 |rn (((St|dWindowR|
|00005fa0| 65 63 2a 29 20 43 75 72 | 72 65 6e 74 73 77 72 70 |ec*) Cur|rentswrp|
|00005fb0| 29 2d 3e 63 6f 6c 29 3b | 0d 7d 0d 0d 23 6c 69 6e |)->col);|.}..#lin|
|00005fc0| 65 20 30 20 67 65 74 79 | 70 6f 73 0d 69 6e 74 20 |e 0 gety|pos.int |
|00005fd0| 67 65 74 79 70 6f 73 28 | 29 0d 7b 0d 09 49 6e 69 |getypos(|).{..Ini|
|00005fe0| 74 5f 73 74 64 69 6f 28 | 29 3b 0d 09 0d 09 72 65 |t_stdio(|);....re|
|00005ff0| 74 75 72 6e 20 28 28 28 | 53 74 64 57 69 6e 64 6f |turn (((|StdWindo|
|00006000| 77 52 65 63 2a 29 20 43 | 75 72 72 65 6e 74 73 77 |wRec*) C|urrentsw|
|00006010| 72 70 29 2d 3e 72 6f 77 | 29 3b 0d 7d 0d 0d 23 6c |rp)->row|);.}..#l|
|00006020| 69 6e 65 20 30 20 47 65 | 74 5f 53 63 72 65 65 6e |ine 0 Ge|t_Screen|
|00006030| 50 74 72 0d 63 68 61 72 | 20 2a 47 65 74 5f 53 63 |Ptr.char| *Get_Sc|
|00006040| 72 65 65 6e 50 74 72 28 | 77 68 6f 29 0d 72 65 67 |reenPtr(|who).reg|
|00006050| 69 73 74 65 72 20 46 49 | 4c 45 20 2a 77 68 6f 3b |ister FI|LE *who;|
|00006060| 0d 7b 0d 09 49 6e 69 74 | 5f 73 74 64 69 6f 28 29 |.{..Init|_stdio()|
|00006070| 3b 0d 09 0d 09 69 66 20 | 28 77 68 6f 2d 3e 49 6e |;....if |(who->In|
|00006080| 55 73 65 20 26 26 20 77 | 68 6f 2d 3e 77 69 6e 64 |Use && w|ho->wind|
|00006090| 6f 77 29 0d 09 09 72 65 | 74 75 72 6e 20 28 28 28 |ow)...re|turn (((|
|000060a0| 53 74 64 57 69 6e 64 6f | 77 52 65 63 2a 29 20 77 |StdWindo|wRec*) w|
|000060b0| 68 6f 2d 3e 66 69 6c 65 | 62 75 66 29 2d 3e 73 63 |ho->file|buf)->sc|
|000060c0| 72 65 65 6e 29 3b 0d 09 | 09 0d 09 72 65 74 75 72 |reen);..|...retur|
|000060d0| 6e 20 28 4e 55 4c 4c 29 | 3b 0d 7d 0d 0d 23 6c 69 |n (NULL)|;.}..#li|
|000060e0| 6e 65 20 30 20 47 65 74 | 5f 57 69 6e 64 6f 77 50 |ne 0 Get|_WindowP|
|000060f0| 74 72 0d 76 6f 69 64 20 | 2a 47 65 74 5f 57 69 6e |tr.void |*Get_Win|
|00006100| 64 6f 77 50 74 72 28 77 | 68 6f 29 09 2f 2a 20 61 |dowPtr(w|ho)./* a|
|00006110| 63 74 75 61 6c 6c 79 20 | 72 65 74 75 72 6e 73 20 |ctually |returns |
|00006120| 61 20 57 69 6e 64 6f 77 | 50 74 72 21 20 2a 2f 0d |a Window|Ptr! */.|
|00006130| 72 65 67 69 73 74 65 72 | 20 46 49 4c 45 20 2a 77 |register| FILE *w|
|00006140| 68 6f 3b 0d 7b 0d 09 49 | 6e 69 74 5f 73 74 64 69 |ho;.{..I|nit_stdi|
|00006150| 6f 28 29 3b 0d 09 0d 09 | 69 66 20 28 77 68 6f 2d |o();....|if (who-|
|00006160| 3e 49 6e 55 73 65 20 26 | 26 20 77 68 6f 2d 3e 77 |>InUse &|& who->w|
|00006170| 69 6e 64 6f 77 29 0d 09 | 09 72 65 74 75 72 6e 20 |indow)..|.return |
|00006180| 28 28 76 6f 69 64 2a 29 | 20 77 68 6f 2d 3e 66 69 |((void*)| who->fi|
|00006190| 6c 65 62 75 66 29 3b 0d | 09 09 0d 09 72 65 74 75 |lebuf);.|....retu|
|000061a0| 72 6e 20 28 4e 55 4c 4c | 29 3b 0d 7d 0d 0d 23 6c |rn (NULL|);.}..#l|
|000061b0| 69 6e 65 20 30 20 70 75 | 74 63 68 0d 76 6f 69 64 |ine 0 pu|tch.void|
|000061c0| 20 70 75 74 63 68 28 63 | 29 0d 72 65 67 69 73 74 | putch(c|).regist|
|000061d0| 65 72 20 63 68 61 72 20 | 63 3b 0d 7b 0d 72 65 67 |er char |c;.{.reg|
|000061e0| 69 73 74 65 72 20 53 74 | 64 57 69 6e 64 6f 77 52 |ister St|dWindowR|
|000061f0| 65 63 20 2a 73 77 72 70 | 3b 0d 72 65 67 69 73 74 |ec *swrp|;.regist|
|00006200| 65 72 20 63 68 61 72 20 | 2a 73 63 72 65 65 6e 70 |er char |*screenp|
|00006210| 3b 0d 73 74 61 74 69 63 | 20 69 6e 69 74 65 64 3d |;.static| inited=|
|00006220| 66 61 6c 73 65 3b 0d 0d | 09 69 66 20 28 21 69 6e |false;..|.if (!in|
|00006230| 69 74 65 64 29 0d 09 7b | 0d 09 09 69 6e 69 74 65 |ited)..{|...inite|
|00006240| 64 20 3d 20 74 72 75 65 | 3b 0d 09 09 49 6e 69 74 |d = true|;...Init|
|00006250| 5f 73 74 64 69 6f 28 29 | 3b 0d 09 7d 0d 09 0d 09 |_stdio()|;..}....|
|00006260| 69 66 20 28 21 20 43 75 | 72 72 65 6e 74 73 77 72 |if (! Cu|rrentswr|
|00006270| 70 20 7c 7c 20 21 20 43 | 75 72 72 65 6e 74 57 69 |p || ! C|urrentWi|
|00006280| 6e 64 6f 77 2d 3e 49 6e | 55 73 65 29 20 72 65 74 |ndow->In|Use) ret|
|00006290| 75 72 6e 3b 0d 09 0d 09 | 69 66 20 28 5f 65 63 68 |urn;....|if (_ech|
|000062a0| 6f 5f 74 6f 5f 70 72 69 | 6e 74 65 72 5f 20 26 26 |o_to_pri|nter_ &&|
|000062b0| 20 28 43 75 72 72 65 6e | 74 73 77 72 70 20 3d 3d | (Curren|tswrp ==|
|000062c0| 20 5f 63 6f 6e 73 6f 6c | 65 5f 77 70 29 29 0d 09 | _consol|e_wp))..|
|000062d0| 09 28 2a 5f 65 63 68 6f | 5f 74 6f 5f 70 72 69 6e |.(*_echo|_to_prin|
|000062e0| 74 65 72 5f 29 28 63 29 | 3b 0d 09 0d 09 53 65 74 |ter_)(c)|;....Set|
|000062f0| 50 6f 72 74 28 73 77 72 | 70 20 3d 20 28 53 74 64 |Port(swr|p = (Std|
|00006300| 57 69 6e 64 6f 77 52 65 | 63 2a 29 20 43 75 72 72 |WindowRe|c*) Curr|
|00006310| 65 6e 74 73 77 72 70 29 | 3b 0d 0d 09 69 66 20 28 |entswrp)|;...if (|
|00006320| 73 77 72 70 20 21 3d 20 | 28 53 74 64 57 69 6e 64 |swrp != |(StdWind|
|00006330| 6f 77 52 65 63 20 2a 29 | 46 72 6f 6e 74 57 69 6e |owRec *)|FrontWin|
|00006340| 64 6f 77 28 29 29 0d 09 | 09 69 66 20 28 21 20 73 |dow())..|.if (! s|
|00006350| 77 72 70 2d 3e 6f 70 74 | 2e 6e 6f 5f 70 75 6c 6c |wrp->opt|.no_pull|
|00006360| 5f 66 72 6f 6e 74 29 0d | 09 09 7b 0d 09 09 09 53 |_front).|..{....S|
|00006370| 65 6c 65 63 74 57 69 6e | 64 6f 77 28 73 77 72 70 |electWin|dow(swrp|
|00006380| 29 3b 0d 09 09 09 53 74 | 64 5f 75 70 64 61 74 65 |);....St|d_update|
|00006390| 77 69 6e 64 6f 77 28 73 | 77 72 70 29 3b 0d 09 09 |window(s|wrp);...|
|000063a0| 7d 0d 0d 09 2f 2a 20 77 | 61 69 74 20 68 65 72 65 |}.../* w|ait here|
|000063b0| 20 69 66 20 6d 6f 75 73 | 65 20 69 73 20 64 6f 77 | if mous|e is dow|
|000063c0| 6e 20 2a 2f 0d 09 0d 09 | 77 68 69 6c 65 20 28 42 |n */....|while (B|
|000063d0| 75 74 74 6f 6e 28 29 29 | 3b 0d 0d 09 69 66 20 28 |utton())|;...if (|
|000063e0| 63 3c 27 20 27 29 0d 09 | 7b 0d 09 09 73 77 69 74 |c<' ')..|{...swit|
|000063f0| 63 68 28 63 29 0d 09 09 | 7b 0d 09 0d 09 09 63 61 |ch(c)...|{.....ca|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
