home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.90.02.sit / SC.013.OOPTESample / UTESample.inc1.p < prev    next >
MacBinary  |  1989-10-01  |  10.4 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Oct 1 00:00:00 1989, modified Sun Oct 1 00:00:00 1989, creator 'MPS ', type ASCII, 10036 bytes "UTESample.inc1.p" , at 0x27b4 362 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 55 54 45 53 61 6d | 70 6c 65 2e 69 6e 63 31 |..UTESam|ple.inc1|
|00000010| 2e 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.p......|........|
|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 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 27 34 00 | 00 01 6a a1 4b 3c 40 a1 |.....'4.|..j.K<@.|
|00000060| 4b 3c 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K<@.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 31 ac 00 00 |........|....1...|
|00000080| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 0d 23 | 0d 23 09 41 70 70 6c 65 |------.#|.#.Apple|
|000000d0| 20 4d 61 63 69 6e 74 6f | 73 68 20 44 65 76 65 6c | Macinto|sh Devel|
|000000e0| 6f 70 65 72 20 54 65 63 | 68 6e 69 63 61 6c 20 53 |oper Tec|hnical S|
|000000f0| 75 70 70 6f 72 74 0d 23 | 0d 23 09 4d 75 6c 74 69 |upport.#|.#.Multi|
|00000100| 46 69 6e 64 65 72 2d 41 | 77 61 72 65 20 53 69 6d |Finder-A|ware Sim|
|00000110| 70 6c 65 20 54 65 78 74 | 45 64 69 74 20 53 61 6d |ple Text|Edit Sam|
|00000120| 70 6c 65 20 41 70 70 6c | 69 63 61 74 69 6f 6e 0d |ple Appl|ication.|
|00000130| 23 0d 23 09 4f 4f 50 54 | 45 53 61 6d 70 6c 65 0d |#.#.OOPT|ESample.|
|00000140| 23 0d 23 09 55 54 45 53 | 61 6d 70 6c 65 2e 69 6e |#.#.UTES|ample.in|
|00000150| 63 31 2e 70 09 09 2d 09 | 50 61 73 63 61 6c 20 53 |c1.p..-.|Pascal S|
|00000160| 6f 75 72 63 65 0d 23 0d | 23 09 43 6f 70 79 72 69 |ource.#.|#.Copyri|
|00000170| 67 68 74 20 a9 20 31 39 | 38 38 2c 20 31 39 38 39 |ght . 19|88, 1989|
|00000180| 20 41 70 70 6c 65 20 43 | 6f 6d 70 75 74 65 72 2c | Apple C|omputer,|
|00000190| 20 49 6e 63 2e 0d 23 09 | 41 6c 6c 20 72 69 67 68 | Inc..#.|All righ|
|000001a0| 74 73 20 72 65 73 65 72 | 76 65 64 2e 0d 23 0d 23 |ts reser|ved..#.#|
|000001b0| 09 56 65 72 73 69 6f 6e | 3a 09 09 0d 23 09 09 09 |.Version|:...#...|
|000001c0| 09 09 31 2e 31 30 09 09 | 09 09 09 31 30 2f 38 39 |..1.10..|...10/89|
|000001d0| 0d 23 09 09 09 09 09 31 | 2e 30 30 09 09 09 09 09 |.#.....1|.00.....|
|000001e0| 30 34 2f 38 39 0d 23 0d | 23 09 43 6f 6d 70 6f 6e |04/89.#.|#.Compon|
|000001f0| 65 6e 74 73 3a 20 20 20 | 20 20 0d 23 09 09 09 09 |ents:   |  .#....|
|00000200| 09 42 75 69 6c 64 4f 4f | 50 54 45 53 61 6d 70 6c |.BuildOO|PTESampl|
|00000210| 65 09 09 4f 63 74 6f 62 | 65 72 20 31 2c 20 31 39 |e..Octob|er 1, 19|
|00000220| 38 39 0d 23 09 09 09 09 | 09 4d 4f 4f 50 54 45 53 |89.#....|.MOOPTES|
|00000230| 61 6d 70 6c 65 2e 70 09 | 09 09 4f 63 74 6f 62 65 |ample.p.|..Octobe|
|00000240| 72 20 31 2c 20 31 39 38 | 39 0d 23 09 09 09 09 09 |r 1, 198|9.#.....|
|00000250| 4f 4f 50 54 45 53 61 6d | 70 6c 65 2e 6d 61 6b 65 |OOPTESam|ple.make|
|00000260| 09 09 4f 63 74 6f 62 65 | 72 20 31 2c 20 31 39 38 |..Octobe|r 1, 198|
|00000270| 39 0d 23 09 09 09 09 09 | 54 45 43 6f 6d 6d 6f 6e |9.#.....|TECommon|
|00000280| 2e 68 09 09 09 09 4f 63 | 74 6f 62 65 72 20 31 2c |.h....Oc|tober 1,|
|00000290| 20 31 39 38 39 0d 23 09 | 09 09 09 09 54 45 53 61 | 1989.#.|....TESa|
|000002a0| 6d 70 6c 65 47 6c 75 65 | 2e 61 09 09 09 4f 63 74 |mpleGlue|.a...Oct|
|000002b0| 6f 62 65 72 20 31 2c 20 | 31 39 38 39 0d 23 09 09 |ober 1, |1989.#..|
|000002c0| 09 09 09 54 45 53 61 6d | 70 6c 65 2e 72 09 09 09 |...TESam|ple.r...|
|000002d0| 09 4f 63 74 6f 62 65 72 | 20 31 2c 20 31 39 38 39 |.October| 1, 1989|
|000002e0| 0d 23 09 09 09 09 09 55 | 41 70 70 6c 69 63 61 74 |.#.....U|Applicat|
|000002f0| 69 6f 6e 2e 70 09 09 09 | 4f 63 74 6f 62 65 72 20 |ion.p...|October |
|00000300| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 09 55 41 |1, 1989.|#.....UA|
|00000310| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 69 6e 63 31 2e |pplicati|on.inc1.|
|00000320| 70 09 09 4f 63 74 6f 62 | 65 72 20 31 2c 20 31 39 |p..Octob|er 1, 19|
|00000330| 38 39 0d 23 09 09 09 09 | 09 55 44 6f 63 75 6d 65 |89.#....|.UDocume|
|00000340| 6e 74 2e 70 09 09 09 09 | 4f 63 74 6f 62 65 72 20 |nt.p....|October |
|00000350| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 09 55 44 |1, 1989.|#.....UD|
|00000360| 6f 63 75 6d 65 6e 74 2e | 69 6e 63 31 2e 70 09 09 |ocument.|inc1.p..|
|00000370| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.|
|00000380| 23 09 09 09 09 09 55 54 | 45 44 6f 63 75 6d 65 6e |#.....UT|EDocumen|
|00000390| 74 2e 70 09 09 09 4f 63 | 74 6f 62 65 72 20 31 2c |t.p...Oc|tober 1,|
|000003a0| 20 31 39 38 39 0d 23 09 | 09 09 09 09 55 54 45 44 | 1989.#.|....UTED|
|000003b0| 6f 63 75 6d 65 6e 74 2e | 69 6e 63 31 2e 70 09 09 |ocument.|inc1.p..|
|000003c0| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.|
|000003d0| 23 09 09 09 09 09 55 54 | 45 53 61 6d 70 6c 65 2e |#.....UT|ESample.|
|000003e0| 70 09 09 09 09 4f 63 74 | 6f 62 65 72 20 31 2c 20 |p....Oct|ober 1, |
|000003f0| 31 39 38 39 0d 23 09 09 | 09 09 09 55 54 45 53 61 |1989.#..|...UTESa|
|00000400| 6d 70 6c 65 2e 69 6e 63 | 31 2e 70 09 09 4f 63 74 |mple.inc|1.p..Oct|
|00000410| 6f 62 65 72 20 31 2c 20 | 31 39 38 39 0d 23 0d 2d |ober 1, |1989.#.-|
|00000420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 7d 0d 0d 43 | 4f 4e 53 54 0d 09 72 4d |----}..C|ONST..rM|
|00000470| 65 6e 75 42 61 72 09 3d | 20 31 32 38 3b 0d 09 72 |enuBar.=| 128;..r|
|00000480| 44 6f 63 57 69 6e 64 6f | 77 09 3d 20 31 32 38 3b |DocWindo|w.= 128;|
|00000490| 09 09 09 09 7b 20 61 70 | 70 6c 69 63 61 74 69 6f |....{ ap|plicatio|
|000004a0| 6e 27 73 20 77 69 6e 64 | 6f 77 20 7d 0d 09 72 41 |n's wind|ow }..rA|
|000004b0| 62 6f 75 74 41 6c 65 72 | 74 09 3d 20 31 32 38 3b |boutAler|t.= 128;|
|000004c0| 09 09 09 09 7b 20 61 62 | 6f 75 74 20 61 6c 65 72 |....{ ab|out aler|
|000004d0| 74 20 7d 0d 0d 09 7b 20 | 54 68 65 20 66 6f 6c 6c |t }...{ |The foll|
|000004e0| 6f 77 69 6e 67 20 63 6f | 6e 73 74 61 6e 74 73 20 |owing co|nstants |
|000004f0| 61 72 65 20 75 73 65 64 | 20 74 6f 20 69 64 65 6e |are used| to iden|
|00000500| 74 69 66 79 20 6d 65 6e | 75 73 20 61 6e 64 20 74 |tify men|us and t|
|00000510| 68 65 69 72 20 69 74 65 | 6d 73 2e 20 54 68 65 20 |heir ite|ms. The |
|00000520| 6d 65 6e 75 20 49 44 73 | 20 7d 0d 09 7b 20 68 61 |menu IDs| }..{ ha|
|00000530| 76 65 20 61 6e 20 22 6d | 22 20 70 72 65 66 69 78 |ve an "m|" prefix|
|00000540| 20 61 6e 64 20 74 68 65 | 20 69 74 65 6d 20 6e 75 | and the| item nu|
|00000550| 6d 62 65 72 73 20 77 69 | 74 68 69 6e 20 65 61 63 |mbers wi|thin eac|
|00000560| 68 20 6d 65 6e 75 20 68 | 61 76 65 20 61 6e 20 22 |h menu h|ave an "|
|00000570| 69 22 20 70 72 65 66 69 | 78 2e 20 7d 0d 09 6d 41 |i" prefi|x. }..mA|
|00000580| 70 70 6c 65 09 09 3d 20 | 31 32 38 3b 09 09 09 09 |pple..= |128;....|
|00000590| 7b 41 70 70 6c 65 20 6d | 65 6e 75 7d 0d 09 69 41 |{Apple m|enu}..iA|
|000005a0| 62 6f 75 74 09 09 3d 20 | 31 3b 0d 0d 09 6d 46 69 |bout..= |1;...mFi|
|000005b0| 6c 65 09 09 3d 20 31 32 | 39 3b 09 09 09 09 7b 20 |le..= 12|9;....{ |
|000005c0| 46 69 6c 65 20 6d 65 6e | 75 20 7d 0d 09 69 4e 65 |File men|u }..iNe|
|000005d0| 77 09 09 3d 20 31 3b 0d | 09 69 43 6c 6f 73 65 09 |w..= 1;.|.iClose.|
|000005e0| 09 3d 20 34 3b 0d 09 69 | 51 75 69 74 09 09 3d 20 |.= 4;..i|Quit..= |
|000005f0| 31 32 3b 0d 0d 09 6d 45 | 64 69 74 09 09 3d 20 31 |12;...mE|dit..= 1|
|00000600| 33 30 3b 09 09 09 09 7b | 20 45 64 69 74 20 6d 65 |30;....{| Edit me|
|00000610| 6e 75 20 7d 0d 09 69 55 | 6e 64 6f 09 09 3d 20 31 |nu }..iU|ndo..= 1|
|00000620| 3b 0d 09 69 43 75 74 09 | 09 3d 20 33 3b 0d 09 69 |;..iCut.|.= 3;..i|
|00000630| 43 6f 70 79 09 09 3d 20 | 34 3b 0d 09 69 50 61 73 |Copy..= |4;..iPas|
|00000640| 74 65 09 09 3d 20 35 3b | 0d 09 69 43 6c 65 61 72 |te..= 5;|..iClear|
|00000650| 09 09 3d 20 36 3b 0d 0d | 09 6b 4d 69 6e 53 69 7a |..= 6;..|.kMinSiz|
|00000660| 65 09 09 3d 20 34 30 3b | 0d 09 6b 4d 61 78 53 6c |e..= 40;|..kMaxSl|
|00000670| 65 65 70 54 69 6d 65 09 | 3d 20 36 30 3b 0d 09 6b |eepTime.|= 60;..k|
|00000680| 53 6c 65 65 70 54 69 6d | 65 09 09 3d 20 24 37 46 |SleepTim|e..= $7F|
|00000690| 46 46 46 46 46 46 3b 0d | 0d 09 6b 45 78 74 72 65 |FFFFFF;.|..kExtre|
|000006a0| 6d 65 50 6f 73 09 09 3d | 20 33 32 37 36 37 20 2d |mePos..=| 32767 -|
|000006b0| 20 31 3b 09 7b 20 72 65 | 71 75 69 72 65 64 20 66 | 1;.{ re|quired f|
|000006c0| 6f 72 20 6f 6c 64 20 72 | 65 67 69 6f 6e 20 62 75 |or old r|egion bu|
|000006d0| 67 20 7d 0d 09 6b 45 78 | 74 72 65 6d 65 4e 65 67 |g }..kEx|tremeNeg|
|000006e0| 09 09 3d 20 2d 33 32 37 | 36 38 3b 09 09 7b 6b 45 |..= -327|68;..{kE|
|000006f0| 78 74 72 65 6d 65 50 6f | 73 20 61 6e 64 20 6b 45 |xtremePo|s and kE|
|00000700| 78 74 72 65 6d 65 4e 65 | 67 20 61 72 65 20 75 73 |xtremeNe|g are us|
|00000710| 65 64 20 74 6f 20 73 65 | 74 20 75 70 0d 09 09 09 |ed to se|t up....|
|00000720| 09 09 09 09 09 09 77 69 | 64 65 20 6f 70 65 6e 20 |......wi|de open |
|00000730| 72 65 63 74 61 6e 67 6c | 65 73 20 61 6e 64 20 72 |rectangl|es and r|
|00000740| 65 67 69 6f 6e 73 2e 7d | 0d 0d 09 6b 4d 61 78 4f |egions.}|...kMaxO|
|00000750| 70 65 6e 44 6f 63 75 6d | 65 6e 74 73 09 09 3d 20 |penDocum|ents..= |
|00000760| 31 3b 09 7b 6b 4d 61 78 | 4f 70 65 6e 44 6f 63 75 |1;.{kMax|OpenDocu|
|00000770| 6d 65 6e 74 73 20 69 73 | 20 75 73 65 64 20 74 6f |ments is| used to|
|00000780| 20 64 65 74 65 72 6d 69 | 6e 65 20 77 68 65 74 68 | determi|ne wheth|
|00000790| 65 72 0d 09 09 09 09 09 | 09 09 09 09 61 20 6e 65 |er......|....a ne|
|000007a0| 77 20 64 6f 63 75 6d 65 | 6e 74 20 63 61 6e 20 62 |w docume|nt can b|
|000007b0| 65 20 6f 70 65 6e 65 64 | 20 6f 72 20 63 72 65 61 |e opened| or crea|
|000007c0| 74 65 64 2e 20 57 65 20 | 6b 65 65 70 0d 09 09 09 |ted. We |keep....|
|000007d0| 09 09 09 09 09 09 74 72 | 61 63 6b 20 6f 66 20 74 |......tr|ack of t|
|000007e0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6f 70 65 |he numbe|r of ope|
|000007f0| 6e 20 64 6f 63 75 6d 65 | 6e 74 73 2c 20 61 6e 64 |n docume|nts, and|
|00000800| 20 64 69 73 61 62 6c 65 | 0d 09 09 09 09 09 09 09 | disable|........|
|00000810| 09 09 74 68 65 20 6d 65 | 6e 75 20 69 74 65 6d 73 |..the me|nu items|
|00000820| 20 74 68 61 74 20 63 72 | 65 61 74 65 20 61 20 6e | that cr|eate a n|
|00000830| 65 77 20 64 6f 63 75 6d | 65 6e 74 20 77 68 65 6e |ew docum|ent when|
|00000840| 20 74 68 65 0d 09 09 09 | 09 09 09 09 09 09 6d 61 | the....|......ma|
|00000850| 78 69 6d 75 6d 20 69 73 | 20 72 65 61 63 68 65 64 |ximum is| reached|
|00000860| 2e 20 49 66 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |. If the| number |
|00000870| 6f 66 20 64 6f 63 75 6d | 65 6e 74 73 20 66 61 6c |of docum|ents fal|
|00000880| 6c 73 0d 09 09 09 09 09 | 09 09 09 09 62 65 6c 6f |ls......|....belo|
|00000890| 77 20 74 68 65 20 6d 61 | 78 69 6d 75 6d 2c 20 74 |w the ma|ximum, t|
|000008a0| 68 65 20 69 74 65 6d 73 | 20 61 72 65 20 65 6e 61 |he items| are ena|
|000008b0| 62 6c 65 64 20 61 67 61 | 69 6e 2e 7d 0d 0d 28 2a |bled aga|in.}..(*|
|000008c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000900| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000910| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0d 28 2a 09 |********|***).(*.|
|00000920| 09 54 20 54 20 45 20 53 | 20 61 20 6d 20 70 20 6c |.T T E S| a m p l|
|00000930| 20 65 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 | e......|........|
|00000940| 09 09 09 2a 29 0d 28 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...*).(*|********|
|00000950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009a0| 2a 2a 2a 29 0d 7b 24 53 | 20 49 6e 69 74 69 61 6c |***).{$S| Initial|
|000009b0| 69 7a 65 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ize}.{--|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 7c 09 49 54 45 |--------|-+.|.ITE|
|000009e0| 53 61 6d 70 6c 65 09 09 | 09 09 09 09 7c 0d 2b 2d |Sample..|....|.+-|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a10| 2d 2d 7d 0d 50 52 4f 43 | 45 44 55 52 45 20 54 54 |--}.PROC|EDURE TT|
|00000a20| 45 53 61 6d 70 6c 65 2e | 49 54 45 53 61 6d 70 6c |ESample.|ITESampl|
|00000a30| 65 3b 0d 56 41 52 0d 09 | 6d 65 6e 75 42 61 72 3a |e;.VAR..|menuBar:|
|00000a40| 20 48 61 6e 64 6c 65 3b | 0d 42 45 47 49 4e 0d 09 | Handle;|.BEGIN..|
|00000a50| 49 41 70 70 6c 69 63 61 | 74 69 6f 6e 3b 0d 09 0d |IApplica|tion;...|
|00000a60| 09 7b 20 52 65 61 64 20 | 6d 65 6e 75 73 20 69 6e |.{ Read |menus in|
|00000a70| 74 6f 20 6d 65 6e 75 62 | 61 72 20 7d 0d 09 6d 65 |to menub|ar }..me|
|00000a80| 6e 75 42 61 72 20 3a 3d | 20 47 65 74 4e 65 77 4d |nuBar :=| GetNewM|
|00000a90| 42 61 72 28 72 4d 65 6e | 75 42 61 72 29 3b 0d 09 |Bar(rMen|uBar);..|
|00000aa0| 0d 09 7b 20 49 6e 73 74 | 61 6c 6c 20 6d 65 6e 75 |..{ Inst|all menu|
|00000ab0| 73 20 7d 0d 09 53 65 74 | 4d 65 6e 75 42 61 72 28 |s }..Set|MenuBar(|
|00000ac0| 6d 65 6e 75 42 61 72 29 | 3b 0d 09 44 69 73 70 6f |menuBar)|;..Dispo|
|00000ad0| 73 48 61 6e 64 6c 65 28 | 6d 65 6e 75 42 61 72 29 |sHandle(|menuBar)|
|00000ae0| 3b 0d 09 0d 09 7b 20 41 | 64 64 20 44 41 20 6e 61 |;....{ A|dd DA na|
|00000af0| 6d 65 73 20 74 6f 20 41 | 70 70 6c 65 20 6d 65 6e |mes to A|pple men|
|00000b00| 75 20 7d 0d 09 41 64 64 | 52 65 73 4d 65 6e 75 28 |u }..Add|ResMenu(|
|00000b10| 47 65 74 4d 48 61 6e 64 | 6c 65 28 6d 41 70 70 6c |GetMHand|le(mAppl|
|00000b20| 65 29 2c 27 44 52 56 52 | 27 29 3b 0d 09 44 72 61 |e),'DRVR|');..Dra|
|00000b30| 77 4d 65 6e 75 42 61 72 | 3b 0d 09 0d 09 7b 20 43 |wMenuBar|;....{ C|
|00000b40| 72 65 61 74 65 20 65 6d | 70 74 79 20 6d 6f 75 73 |reate em|pty mous|
|00000b50| 65 20 72 65 67 69 6f 6e | 20 7d 0d 09 66 4d 6f 75 |e region| }..fMou|
|00000b60| 73 65 52 67 6e 20 3a 3d | 20 4e 65 77 52 67 6e 3b |seRgn :=| NewRgn;|
|00000b70| 0d 09 0d 09 7b 20 43 72 | 65 61 74 65 20 61 20 73 |....{ Cr|eate a s|
|00000b80| 69 6e 67 6c 65 20 65 6d | 70 74 79 20 64 6f 63 75 |ingle em|pty docu|
|00000b90| 6d 65 6e 74 20 7d 0d 09 | 44 6f 4e 65 77 3b 0d 09 |ment }..|DoNew;..|
|00000ba0| 0d 09 7b 4d 61 6b 65 20 | 73 75 72 65 20 77 65 20 |..{Make |sure we |
|00000bb0| 68 61 76 65 20 61 20 76 | 61 6c 69 64 20 63 75 72 |have a v|alid cur|
|00000bc0| 73 6f 72 20 72 65 67 69 | 6f 6e 20 7d 0d 09 41 64 |sor regi|on }..Ad|
|00000bd0| 6a 75 73 74 43 75 72 73 | 6f 72 3b 0d 45 4e 44 3b |justCurs|or;.END;|
|00000be0| 0d 0d 7b 24 53 20 4d 61 | 69 6e 7d 0d 7b 2d 2d 2d |..{$S Ma|in}.{---|
|00000bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c10| 2b 0d 7c 09 44 6f 49 64 | 6c 65 09 09 09 09 09 09 |+.|.DoId|le......|
|00000c20| 09 7c 0d 2b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.|.+----|--------|
|00000c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 7b 20 54 68 69 73 20 |-------}|.{ This |
|00000c50| 69 73 20 63 61 6c 6c 65 | 64 20 77 68 65 6e 65 76 |is calle|d whenev|
|00000c60| 65 72 20 77 65 20 67 65 | 74 20 61 20 4e 55 4c 4c |er we ge|t a NULL|
|00000c70| 20 65 76 65 6e 74 20 65 | 74 20 61 6c 2e 20 7d 0d | event e|t al. }.|
|00000c80| 7b 20 49 74 20 74 61 6b | 65 73 20 63 61 72 65 20 |{ It tak|es care |
|00000c90| 6f 66 20 6e 65 63 65 73 | 73 61 72 79 20 70 65 72 |of neces|sary per|
|00000ca0| 69 6f 64 69 63 20 61 63 | 74 69 6f 6e 73 2e 20 46 |iodic ac|tions. F|
|00000cb0| 6f 72 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 2c |or this |program,|
|00000cc0| 20 7d 0d 7b 20 69 74 20 | 63 61 6c 6c 73 20 74 68 | }.{ it |calls th|
|00000cd0| 65 20 44 6f 49 64 6c 65 | 20 6d 65 74 68 6f 64 20 |e DoIdle| method |
|00000ce0| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |of the c|urrent d|
|00000cf0| 6f 63 75 6d 65 6e 74 2e | 20 7d 0d 50 52 4f 43 45 |ocument.| }.PROCE|
|00000d00| 44 55 52 45 20 54 54 45 | 53 61 6d 70 6c 65 2e 44 |DURE TTE|Sample.D|
|00000d10| 6f 49 64 6c 65 3b 20 4f | 56 45 52 52 49 44 45 3b |oIdle; O|VERRIDE;|
|00000d20| 0d 56 41 52 0d 09 66 54 | 45 43 75 72 44 6f 63 3a |.VAR..fT|ECurDoc:|
|00000d30| 20 54 54 45 44 6f 63 75 | 6d 65 6e 74 3b 0d 42 45 | TTEDocu|ment;.BE|
|00000d40| 47 49 4e 0d 09 66 54 45 | 43 75 72 64 6f 63 20 3a |GIN..fTE|Curdoc :|
|00000d50| 3d 20 54 54 45 44 6f 63 | 75 6d 65 6e 74 28 66 43 |= TTEDoc|ument(fC|
|00000d60| 75 72 44 6f 63 29 3b 0d | 09 49 46 20 66 54 45 43 |urDoc);.|.IF fTEC|
|00000d70| 75 72 44 6f 63 20 3c 3e | 20 4e 49 4c 20 54 48 45 |urDoc <>| NIL THE|
|00000d80| 4e 0d 09 09 66 54 45 43 | 75 72 44 6f 63 2e 44 6f |N...fTEC|urDoc.Do|
|00000d90| 49 64 6c 65 3b 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |Idle;.EN|D;..{$S |
|00000da0| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 41 64 |--------|--+.|.Ad|
|00000dd0| 6a 75 73 74 4d 65 6e 75 | 73 09 09 09 09 09 09 7c |justMenu|s......||
|00000de0| 0d 2b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.+------|--------|
|00000df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e00| 2d 2d 2d 2d 2d 7d 0d 7b | 20 45 6e 61 62 6c 65 20 |-----}.{| Enable |
|00000e10| 61 6e 64 20 64 69 73 61 | 62 6c 65 20 6d 65 6e 75 |and disa|ble menu|
|00000e20| 73 20 62 61 73 65 64 20 | 6f 6e 20 74 68 65 20 63 |s based |on the c|
|00000e30| 75 72 72 65 6e 74 20 73 | 74 61 74 65 2e 20 54 68 |urrent s|tate. Th|
|00000e40| 65 20 7d 0d 7b 20 75 73 | 65 72 20 63 61 6e 20 6f |e }.{ us|er can o|
|00000e50| 6e 6c 79 20 73 65 6c 65 | 63 74 20 65 6e 61 62 6c |nly sele|ct enabl|
|00000e60| 65 64 20 6d 65 6e 75 20 | 69 74 65 6d 73 2e 20 57 |ed menu |items. W|
|00000e70| 65 20 73 65 74 20 75 70 | 20 61 6c 6c 20 74 68 65 |e set up| all the|
|00000e80| 20 7d 0d 7b 20 6d 65 6e | 75 20 69 74 65 6d 73 20 | }.{ men|u items |
|00000e90| 62 65 66 6f 72 65 20 63 | 61 6c 6c 69 6e 67 20 4d |before c|alling M|
|00000ea0| 65 6e 75 53 65 6c 65 63 | 74 20 6f 72 20 4d 65 6e |enuSelec|t or Men|
|00000eb0| 75 4b 65 79 2c 20 73 69 | 6e 63 65 20 7d 0d 7b 20 |uKey, si|nce }.{ |
|00000ec0| 74 68 65 73 65 20 61 72 | 65 20 74 68 65 20 6f 6e |these ar|e the on|
|00000ed0| 6c 79 20 74 69 6d 65 73 | 20 74 68 61 74 20 61 20 |ly times| that a |
|00000ee0| 6d 65 6e 75 20 69 74 65 | 6d 20 63 61 6e 20 62 65 |menu ite|m can be|
|00000ef0| 20 73 65 6c 65 63 74 65 | 64 2e 20 7d 0d 7b 20 4e | selecte|d. }.{ N|
|00000f00| 6f 74 65 20 74 68 61 74 | 20 4d 65 6e 75 53 65 6c |ote that| MenuSel|
|00000f10| 65 63 74 20 69 73 20 61 | 6c 73 6f 20 74 68 65 20 |ect is a|lso the |
|00000f20| 6f 6e 6c 79 20 74 69 6d | 65 20 74 68 65 20 75 73 |only tim|e the us|
|00000f30| 65 72 20 77 69 6c 6c 20 | 7d 0d 7b 20 73 65 65 20 |er will |}.{ see |
|00000f40| 6d 65 6e 75 20 69 74 65 | 6d 73 2e 20 54 68 69 73 |menu ite|ms. This|
|00000f50| 20 61 70 70 72 6f 61 63 | 68 20 74 6f 20 64 65 63 | approac|h to dec|
|00000f60| 69 64 69 6e 67 20 77 68 | 61 74 20 65 6e 61 62 6c |iding wh|at enabl|
|00000f70| 65 2f 20 7d 0d 7b 20 64 | 69 73 61 62 6c 65 20 73 |e/ }.{ d|isable s|
|00000f80| 74 61 74 65 20 61 20 6d | 65 6e 75 20 69 74 65 6d |tate a m|enu item|
|00000f90| 20 68 61 73 20 74 68 65 | 20 61 64 76 61 6e 74 61 | has the| advanta|
|00000fa0| 67 65 20 6f 66 20 7d 0d | 7b 20 63 6f 6e 63 65 6e |ge of }.|{ concen|
|00000fb0| 74 72 61 74 69 6e 67 20 | 61 6c 6c 20 74 68 65 20 |trating |all the |
|00000fc0| 64 65 63 69 73 69 6f 6e | 2d 6d 61 6b 69 6e 67 20 |decision|-making |
|00000fd0| 69 6e 20 6f 6e 65 20 72 | 6f 75 74 69 6e 65 2c 20 |in one r|outine, |
|00000fe0| 61 73 20 7d 0d 7b 20 6f | 70 70 6f 73 65 64 20 74 |as }.{ o|pposed t|
|00000ff0| 6f 20 62 65 69 6e 67 20 | 73 70 72 65 61 64 20 74 |o being |spread t|
|00001000| 68 72 6f 75 67 68 6f 75 | 74 20 74 68 65 20 61 70 |hroughou|t the ap|
|00001010| 70 6c 69 63 61 74 69 6f | 6e 2e 20 4f 74 68 65 72 |plicatio|n. Other|
|00001020| 20 7d 0d 7b 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | }.{ app|lication|
|00001030| 20 64 65 73 69 67 6e 73 | 20 6d 61 79 20 74 61 6b | designs| may tak|
|00001040| 65 20 61 20 64 69 66 66 | 65 72 65 6e 74 20 61 70 |e a diff|erent ap|
|00001050| 70 72 6f 61 63 68 20 74 | 68 61 74 20 6d 61 79 20 |proach t|hat may |
|00001060| 7d 0d 7b 20 6f 72 20 6d | 61 79 20 6e 6f 74 20 62 |}.{ or m|ay not b|
|00001070| 65 20 61 73 20 76 61 6c | 69 64 2e 20 20 7d 0d 0d |e as val|id.  }..|
|00001080| 50 52 4f 43 45 44 55 52 | 45 20 54 54 45 53 61 6d |PROCEDUR|E TTESam|
|00001090| 70 6c 65 2e 41 64 6a 75 | 73 74 4d 65 6e 75 73 3b |ple.Adju|stMenus;|
|000010a0| 20 4f 56 45 52 52 49 44 | 45 3b 0d 56 41 52 0d 09 | OVERRID|E;.VAR..|
|000010b0| 66 72 6f 6e 74 4d 6f 73 | 74 3a 09 57 69 6e 64 6f |frontMos|t:.Windo|
|000010c0| 77 50 74 72 3b 0d 09 6d | 65 6e 75 3a 09 09 4d 65 |wPtr;..m|enu:..Me|
|000010d0| 6e 75 48 61 6e 64 6c 65 | 3b 0d 09 6f 66 66 73 65 |nuHandle|;..offse|
|000010e0| 74 3a 09 09 6c 6f 6e 67 | 69 6e 74 3b 0d 09 75 6e |t:..long|int;..un|
|000010f0| 64 6f 3a 09 09 42 6f 6f | 6c 65 61 6e 3b 0d 09 63 |do:..Boo|lean;..c|
|00001100| 75 74 43 6f 70 79 43 6c | 65 61 72 3a 09 42 6f 6f |utCopyCl|ear:.Boo|
|00001110| 6c 65 61 6e 3b 0d 09 70 | 61 73 74 65 3a 09 09 42 |lean;..p|aste:..B|
|00001120| 6f 6f 6c 65 61 6e 3b 0d | 09 66 54 45 43 75 72 44 |oolean;.|.fTECurD|
|00001130| 6f 63 3a 09 54 54 45 44 | 6f 63 75 6d 65 6e 74 3b |oc:.TTED|ocument;|
|00001140| 0d 42 45 47 49 4e 0d 09 | 66 54 45 43 75 72 64 6f |.BEGIN..|fTECurdo|
|00001150| 63 20 3a 3d 20 54 54 45 | 44 6f 63 75 6d 65 6e 74 |c := TTE|Document|
|00001160| 28 66 43 75 72 44 6f 63 | 29 3b 0d 09 66 72 6f 6e |(fCurDoc|);..fron|
|00001170| 74 4d 6f 73 74 20 3a 3d | 20 46 72 6f 6e 74 57 69 |tMost :=| FrontWi|
|00001180| 6e 64 6f 77 3b 0d 09 0d | 09 6d 65 6e 75 20 3a 3d |ndow;...|.menu :=|
|00001190| 20 47 65 74 4d 48 61 6e | 64 6c 65 28 6d 46 69 6c | GetMHan|dle(mFil|
|000011a0| 65 29 3b 0d 09 49 46 20 | 28 66 44 6f 63 4c 69 73 |e);..IF |(fDocLis|
|000011b0| 74 2e 4e 75 6d 44 6f 63 | 73 20 3c 20 6b 4d 61 78 |t.NumDoc|s < kMax|
|000011c0| 4f 70 65 6e 44 6f 63 75 | 6d 65 6e 74 73 29 20 54 |OpenDocu|ments) T|
|000011d0| 48 45 4e 0d 09 09 45 6e | 61 62 6c 65 49 74 65 6d |HEN...En|ableItem|
|000011e0| 28 6d 65 6e 75 2c 69 4e | 65 77 29 0d 09 45 4c 53 |(menu,iN|ew)..ELS|
|000011f0| 45 0d 09 09 44 69 73 61 | 62 6c 65 49 74 65 6d 28 |E...Disa|bleItem(|
|00001200| 6d 65 6e 75 2c 69 4e 65 | 77 29 3b 0d 09 49 46 20 |menu,iNe|w);..IF |
|00001210| 28 66 72 6f 6e 74 4d 6f | 73 74 20 3c 3e 20 4e 49 |(frontMo|st <> NI|
|00001220| 4c 29 20 54 48 45 4e 0d | 09 09 45 6e 61 62 6c 65 |L) THEN.|..Enable|
|00001230| 49 74 65 6d 28 6d 65 6e | 75 2c 69 43 6c 6f 73 65 |Item(men|u,iClose|
|00001240| 29 0d 09 45 4c 53 45 0d | 09 09 44 69 73 61 62 6c |)..ELSE.|..Disabl|
|00001250| 65 49 74 65 6d 28 6d 65 | 6e 75 2c 69 43 6c 6f 73 |eItem(me|nu,iClos|
|00001260| 65 29 3b 0d 09 09 0d 09 | 6d 65 6e 75 20 3a 3d 20 |e);.....|menu := |
|00001270| 47 65 74 4d 48 61 6e 64 | 6c 65 28 6d 45 64 69 74 |GetMHand|le(mEdit|
|00001280| 29 3b 0d 09 75 6e 64 6f | 20 3a 3d 20 46 41 4c 53 |);..undo| := FALS|
|00001290| 45 3b 0d 09 63 75 74 43 | 6f 70 79 43 6c 65 61 72 |E;..cutC|opyClear|
|000012a0| 20 3a 3d 20 46 41 4c 53 | 45 3b 0d 09 70 61 73 74 | := FALS|E;..past|
|000012b0| 65 20 3a 3d 20 46 41 4c | 53 45 3b 0d 09 49 46 20 |e := FAL|SE;..IF |
|000012c0| 28 66 72 6f 6e 74 4d 6f | 73 74 20 3c 3e 20 4e 49 |(frontMo|st <> NI|
|000012d0| 4c 29 20 54 48 45 4e 20 | 0d 09 09 49 46 20 28 66 |L) THEN |...IF (f|
|000012e0| 54 45 43 75 72 44 6f 63 | 20 3d 20 4e 49 4c 29 20 |TECurDoc| = NIL) |
|000012f0| 54 48 45 4e 20 42 45 47 | 49 4e 09 09 7b 20 61 6c |THEN BEG|IN..{ al|
|00001300| 6c 20 65 64 69 74 69 6e | 67 20 69 73 20 65 6e 61 |l editin|g is ena|
|00001310| 62 6c 65 64 20 66 6f 72 | 20 44 41 20 77 69 6e 64 |bled for| DA wind|
|00001320| 6f 77 73 20 7d 0d 09 09 | 09 75 6e 64 6f 20 3a 3d |ows }...|.undo :=|
|00001330| 20 54 52 55 45 3b 0d 09 | 09 09 63 75 74 43 6f 70 | TRUE;..|..cutCop|
|00001340| 79 43 6c 65 61 72 20 3a | 3d 20 54 52 55 45 3b 0d |yClear :|= TRUE;.|
|00001350| 09 09 09 70 61 73 74 65 | 20 3a 3d 20 54 52 55 45 |...paste| := TRUE|
|00001360| 3b 0d 09 09 45 4e 44 20 | 45 4c 53 45 20 42 45 47 |;...END |ELSE BEG|
|00001370| 49 4e 0d 09 09 09 7b 20 | 43 75 74 2c 20 43 6f 70 |IN....{ |Cut, Cop|
|00001380| 79 2c 20 61 6e 64 20 43 | 6c 65 61 72 20 69 73 20 |y, and C|lear is |
|00001390| 65 6e 61 62 6c 65 64 20 | 66 6f 72 20 61 70 70 2e |enabled |for app.|
|000013a0| 20 77 69 6e 64 6f 77 73 | 20 77 69 74 68 20 73 65 | windows| with se|
|000013b0| 6c 65 63 74 69 6f 6e 73 | 20 20 7d 0d 09 09 09 49 |lections|  }....I|
|000013c0| 46 20 66 54 45 43 75 72 | 44 6f 63 2e 48 61 76 65 |F fTECur|Doc.Have|
|000013d0| 53 65 6c 65 63 74 69 6f | 6e 20 54 48 45 4e 0d 09 |Selectio|n THEN..|
|000013e0| 09 09 20 20 63 75 74 43 | 6f 70 79 43 6c 65 61 72 |..  cutC|opyClear|
|000013f0| 20 3a 3d 20 54 52 55 45 | 3b 0d 09 09 09 7b 20 49 | := TRUE|;....{ I|
|00001400| 66 20 77 65 20 68 61 76 | 65 20 61 6e 79 20 54 45 |f we hav|e any TE|
|00001410| 58 54 20 69 6e 20 74 68 | 65 20 73 63 72 61 70 2c |XT in th|e scrap,|
|00001420| 20 65 6e 61 62 6c 65 20 | 70 61 73 74 65 20 7d 0d | enable |paste }.|
|00001430| 09 09 09 49 46 20 47 65 | 74 53 63 72 61 70 28 4e |...IF Ge|tScrap(N|
|00001440| 49 4c 2c 20 27 54 45 58 | 54 27 2c 20 6f 66 66 73 |IL, 'TEX|T', offs|
|00001450| 65 74 29 20 3e 20 30 20 | 54 48 45 4e 0d 09 09 09 |et) > 0 |THEN....|
|00001460| 09 70 61 73 74 65 20 3a | 3d 20 54 52 55 45 3b 20 |.paste :|= TRUE; |
|00001470| 0d 09 09 45 4e 44 3b 0d | 09 0d 09 49 46 20 75 6e |...END;.|...IF un|
|00001480| 64 6f 20 54 48 45 4e 0d | 09 09 45 6e 61 62 6c 65 |do THEN.|..Enable|
|00001490| 49 74 65 6d 28 6d 65 6e | 75 2c 69 55 6e 64 6f 29 |Item(men|u,iUndo)|
|000014a0| 0d 09 45 4c 53 45 0d 09 | 09 44 69 73 61 62 6c 65 |..ELSE..|.Disable|
|000014b0| 49 74 65 6d 28 6d 65 6e | 75 2c 69 55 6e 64 6f 29 |Item(men|u,iUndo)|
|000014c0| 3b 0d 09 49 46 20 63 75 | 74 43 6f 70 79 43 6c 65 |;..IF cu|tCopyCle|
|000014d0| 61 72 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |ar THEN |BEGIN...|
|000014e0| 45 6e 61 62 6c 65 49 74 | 65 6d 28 6d 65 6e 75 2c |EnableIt|em(menu,|
|000014f0| 69 43 75 74 29 3b 0d 09 | 09 45 6e 61 62 6c 65 49 |iCut);..|.EnableI|
|00001500| 74 65 6d 28 6d 65 6e 75 | 2c 69 43 6f 70 79 29 3b |tem(menu|,iCopy);|
|00001510| 0d 09 09 45 6e 61 62 6c | 65 49 74 65 6d 28 6d 65 |...Enabl|eItem(me|
|00001520| 6e 75 2c 69 43 6c 65 61 | 72 29 3b 0d 09 45 4e 44 |nu,iClea|r);..END|
|00001530| 20 45 4c 53 45 20 42 45 | 47 49 4e 0d 09 09 44 69 | ELSE BE|GIN...Di|
|00001540| 73 61 62 6c 65 49 74 65 | 6d 28 6d 65 6e 75 2c 69 |sableIte|m(menu,i|
|00001550| 43 75 74 29 3b 0d 09 09 | 44 69 73 61 62 6c 65 49 |Cut);...|DisableI|
|00001560| 74 65 6d 28 6d 65 6e 75 | 2c 69 43 6f 70 79 29 3b |tem(menu|,iCopy);|
|00001570| 0d 09 09 44 69 73 61 62 | 6c 65 49 74 65 6d 28 6d |...Disab|leItem(m|
|00001580| 65 6e 75 2c 69 43 6c 65 | 61 72 29 3b 0d 09 45 4e |enu,iCle|ar);..EN|
|00001590| 44 3b 0d 09 49 46 20 70 | 61 73 74 65 20 54 48 45 |D;..IF p|aste THE|
|000015a0| 4e 0d 09 09 45 6e 61 62 | 6c 65 49 74 65 6d 28 6d |N...Enab|leItem(m|
|000015b0| 65 6e 75 2c 69 50 61 73 | 74 65 29 0d 09 45 4c 53 |enu,iPas|te)..ELS|
|000015c0| 45 0d 09 09 44 69 73 61 | 62 6c 65 49 74 65 6d 28 |E...Disa|bleItem(|
|000015d0| 6d 65 6e 75 2c 69 50 61 | 73 74 65 29 3b 0d 45 4e |menu,iPa|ste);.EN|
|000015e0| 44 3b 0d 0d 7b 24 53 20 | 4d 61 69 6e 7d 0d 7b 2d |D;..{$S |Main}.{-|
|000015f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001610| 2d 2d 2b 0d 7c 09 41 64 | 6a 75 73 74 43 75 72 73 |--+.|.Ad|justCurs|
|00001620| 6f 72 09 09 09 09 09 7c | 0d 2b 2d 2d 2d 2d 2d 2d |or.....||.+------|
|00001630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 7b |--------|-----}.{|
|00001650| 20 43 68 61 6e 67 65 20 | 74 68 65 20 63 75 72 73 | Change |the curs|
|00001660| 6f 72 27 73 20 73 68 61 | 70 65 2c 20 64 65 70 65 |or's sha|pe, depe|
|00001670| 6e 64 69 6e 67 20 6f 6e | 20 69 74 73 20 70 6f 73 |nding on| its pos|
|00001680| 69 74 69 6f 6e 2e 20 54 | 68 69 73 20 61 6c 73 6f |ition. T|his also|
|00001690| 20 63 61 6c 63 75 6c 61 | 74 65 73 20 61 20 7d 0d | calcula|tes a }.|
|000016a0| 7b 20 72 65 67 69 6f 6e | 20 74 68 61 74 20 69 6e |{ region| that in|
|000016b0| 63 6c 75 64 65 73 20 74 | 68 65 20 63 75 72 73 6f |cludes t|he curso|
|000016c0| 72 20 66 6f 72 20 57 61 | 69 74 4e 65 78 74 45 76 |r for Wa|itNextEv|
|000016d0| 65 6e 74 2e 20 7d 0d 50 | 52 4f 43 45 44 55 52 45 |ent. }.P|ROCEDURE|
|000016e0| 20 54 54 45 53 61 6d 70 | 6c 65 2e 41 64 6a 75 73 | TTESamp|le.Adjus|
|000016f0| 74 43 75 72 73 6f 72 3b | 20 4f 56 45 52 52 49 44 |tCursor;| OVERRID|
|00001700| 45 3b 0d 56 41 52 0d 09 | 66 54 45 43 75 72 44 6f |E;.VAR..|fTECurDo|
|00001710| 63 3a 09 54 54 45 44 6f | 63 75 6d 65 6e 74 3b 0d |c:.TTEDo|cument;.|
|00001720| 09 61 72 72 6f 77 52 67 | 6e 2c 0d 09 69 42 65 61 |.arrowRg|n,..iBea|
|00001730| 6d 52 67 6e 3a 09 52 67 | 6e 48 61 6e 64 6c 65 3b |mRgn:.Rg|nHandle;|
|00001740| 0d 09 6d 6f 75 73 65 3a | 09 09 50 6f 69 6e 74 3b |..mouse:|..Point;|
|00001750| 0d 42 45 47 49 4e 0d 09 | 66 54 45 43 75 72 64 6f |.BEGIN..|fTECurdo|
|00001760| 63 20 3a 3d 20 54 54 45 | 44 6f 63 75 6d 65 6e 74 |c := TTE|Document|
|00001770| 28 66 43 75 72 44 6f 63 | 29 3b 0d 09 0d 09 7b 20 |(fCurDoc|);....{ |
|00001780| 4e 6f 74 69 63 65 20 74 | 68 61 74 20 77 65 20 64 |Notice t|hat we d|
|00001790| 6f 6e 27 74 20 63 68 61 | 6e 67 65 20 74 68 65 20 |on't cha|nge the |
|000017a0| 63 75 72 73 6f 72 20 69 | 66 20 66 72 6f 6e 74 20 |cursor i|f front |
|000017b0| 77 69 6e 64 6f 77 20 69 | 73 6e 27 74 20 6f 75 72 |window i|sn't our|
|000017c0| 73 20 7d 0d 09 49 46 20 | 28 4e 4f 54 28 66 49 6e |s }..IF |(NOT(fIn|
|000017d0| 42 61 63 6b 47 72 6f 75 | 6e 64 29 20 41 4e 44 20 |BackGrou|nd) AND |
|000017e0| 28 66 54 45 43 75 72 44 | 6f 63 20 3c 3e 20 4e 49 |(fTECurD|oc <> NI|
|000017f0| 4c 29 29 20 54 48 45 4e | 20 42 45 47 49 4e 0d 09 |L)) THEN| BEGIN..|
|00001800| 0d 09 09 47 65 74 4d 6f | 75 73 65 28 6d 6f 75 73 |...GetMo|use(mous|
|00001810| 65 29 3b 0d 09 09 4c 6f | 63 61 6c 54 6f 47 6c 6f |e);...Lo|calToGlo|
|00001820| 62 61 6c 28 6d 6f 75 73 | 65 29 3b 0d 09 09 0d 09 |bal(mous|e);.....|
|00001830| 09 61 72 72 6f 77 52 67 | 6e 20 3a 3d 20 4e 65 77 |.arrowRg|n := New|
|00001840| 52 67 6e 3b 0d 09 09 69 | 42 65 61 6d 52 67 6e 20 |Rgn;...i|BeamRgn |
|00001850| 3a 3d 20 4e 65 77 52 67 | 6e 3b 0d 09 09 0d 09 09 |:= NewRg|n;......|
|00001860| 53 65 74 52 65 63 74 52 | 67 6e 28 61 72 72 6f 77 |SetRectR|gn(arrow|
|00001870| 52 67 6e 2c 6b 45 78 74 | 72 65 6d 65 4e 65 67 2c |Rgn,kExt|remeNeg,|
|00001880| 20 6b 45 78 74 72 65 6d | 65 4e 65 67 2c 20 6b 45 | kExtrem|eNeg, kE|
|00001890| 78 74 72 65 6d 65 50 6f | 73 2c 20 6b 45 78 74 72 |xtremePo|s, kExtr|
|000018a0| 65 6d 65 50 6f 73 29 3b | 0d 09 09 0d 09 09 66 54 |emePos);|......fT|
|000018b0| 45 43 75 72 44 6f 63 2e | 47 65 74 56 69 73 54 45 |ECurDoc.|GetVisTE|
|000018c0| 52 67 6e 28 69 42 65 61 | 6d 52 67 6e 29 3b 0d 09 |Rgn(iBea|mRgn);..|
|000018d0| 09 0d 09 09 44 69 66 66 | 52 67 6e 28 61 72 72 6f |....Diff|Rgn(arro|
|000018e0| 77 52 67 6e 2c 69 42 65 | 61 6d 52 67 6e 2c 61 72 |wRgn,iBe|amRgn,ar|
|000018f0| 72 6f 77 52 67 6e 29 3b | 0d 09 09 0d 09 09 49 46 |rowRgn);|......IF|
|00001900| 20 50 74 49 6e 52 67 6e | 28 6d 6f 75 73 65 2c 69 | PtInRgn|(mouse,i|
|00001910| 42 65 61 6d 52 67 6e 29 | 20 54 48 45 4e 20 42 45 |BeamRgn)| THEN BE|
|00001920| 47 49 4e 0d 09 09 09 53 | 65 74 43 75 72 73 6f 72 |GIN....S|etCursor|
|00001930| 28 47 65 74 43 75 72 73 | 6f 72 28 69 42 65 61 6d |(GetCurs|or(iBeam|
|00001940| 43 75 72 73 6f 72 29 5e | 5e 29 3b 0d 09 09 09 43 |Cursor)^|^);....C|
|00001950| 6f 70 79 52 67 6e 28 69 | 42 65 61 6d 52 67 6e 2c |opyRgn(i|BeamRgn,|
|00001960| 66 4d 6f 75 73 65 52 67 | 6e 29 3b 0d 09 09 45 4e |fMouseRg|n);...EN|
|00001970| 44 20 45 4c 53 45 20 42 | 45 47 49 4e 0d 09 09 09 |D ELSE B|EGIN....|
|00001980| 53 65 74 43 75 72 73 6f | 72 28 61 72 72 6f 77 29 |SetCurso|r(arrow)|
|00001990| 3b 0d 09 09 09 43 6f 70 | 79 52 67 6e 28 61 72 72 |;....Cop|yRgn(arr|
|000019a0| 6f 77 52 67 6e 2c 66 4d | 6f 75 73 65 52 67 6e 29 |owRgn,fM|ouseRgn)|
|000019b0| 3b 0d 09 09 45 4e 44 3b | 0d 09 09 44 69 73 70 6f |;...END;|...Dispo|
|000019c0| 73 65 52 67 6e 28 61 72 | 72 6f 77 52 67 6e 29 3b |seRgn(ar|rowRgn);|
|000019d0| 0d 09 09 44 69 73 70 6f | 73 65 52 67 6e 28 69 42 |...Dispo|seRgn(iB|
|000019e0| 65 61 6d 52 67 6e 29 3b | 0d 09 45 4e 44 3b 0d 45 |eamRgn);|..END;.E|
|000019f0| 4e 44 3b 0d 0d 7b 24 53 | 20 4d 61 69 6e 7d 0d 7b |ND;..{$S| Main}.{|
|00001a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a20| 2d 2d 2d 2b 0d 7c 09 44 | 6f 4d 65 6e 75 43 6f 6d |---+.|.D|oMenuCom|
|00001a30| 6d 61 6e 64 09 09 09 09 | 09 7c 0d 2b 2d 2d 2d 2d |mand....|.|.+----|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00001a60| 0d 7b 20 54 68 69 73 20 | 69 73 20 63 61 6c 6c 65 |.{ This |is calle|
|00001a70| 64 20 77 68 65 6e 20 61 | 6e 20 69 74 65 6d 20 69 |d when a|n item i|
|00001a80| 73 20 63 68 6f 73 65 6e | 20 66 72 6f 6d 20 74 68 |s chosen| from th|
|00001a90| 65 20 6d 65 6e 75 20 62 | 61 72 20 28 61 66 74 65 |e menu b|ar (afte|
|00001aa0| 72 20 63 61 6c 6c 69 6e | 67 20 7d 0d 7b 20 4d 65 |r callin|g }.{ Me|
|00001ab0| 6e 75 53 65 6c 65 63 74 | 20 6f 72 20 4d 65 6e 75 |nuSelect| or Menu|
|00001ac0| 4b 65 79 29 2e 20 49 74 | 20 64 6f 65 73 20 74 68 |Key). It| does th|
|00001ad0| 65 20 72 69 67 68 74 20 | 74 68 69 6e 67 20 66 6f |e right |thing fo|
|00001ae0| 72 20 65 61 63 68 20 63 | 6f 6d 6d 61 6e 64 2e 20 |r each c|ommand. |
|00001af0| 7d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 54 45 53 |}.PROCED|URE TTES|
|00001b00| 61 6d 70 6c 65 2e 44 6f | 4d 65 6e 75 43 6f 6d 6d |ample.Do|MenuComm|
|00001b10| 61 6e 64 28 6d 65 6e 75 | 49 44 2c 6d 65 6e 75 49 |and(menu|ID,menuI|
|00001b20| 74 65 6d 3a 20 69 6e 74 | 65 67 65 72 29 3b 20 4f |tem: int|eger); O|
|00001b30| 56 45 52 52 49 44 45 3b | 0d 56 41 52 0d 09 69 74 |VERRIDE;|.VAR..it|
|00001b40| 65 6d 48 69 74 3a 09 69 | 6e 74 65 67 65 72 3b 0d |emHit:.i|nteger;.|
|00001b50| 09 64 61 4e 61 6d 65 3a | 09 09 53 74 72 32 35 35 |.daName:|..Str255|
|00001b60| 3b 0d 09 64 61 52 65 66 | 4e 75 6d 3a 09 69 6e 74 |;..daRef|Num:.int|
|00001b70| 65 67 65 72 3b 0d 09 77 | 69 6e 64 6f 77 3a 09 09 |eger;..w|indow:..|
|00001b80| 57 69 6e 64 6f 77 50 74 | 72 3b 0d 09 66 54 45 43 |WindowPt|r;..fTEC|
|00001b90| 75 72 44 6f 63 3a 20 54 | 54 45 44 6f 63 75 6d 65 |urDoc: T|TEDocume|
|00001ba0| 6e 74 3b 0d 42 45 47 49 | 4e 0d 09 66 54 45 43 75 |nt;.BEGI|N..fTECu|
|00001bb0| 72 64 6f 63 20 3a 3d 20 | 54 54 45 44 6f 63 75 6d |rdoc := |TTEDocum|
|00001bc0| 65 6e 74 28 66 43 75 72 | 44 6f 63 29 3b 0d 09 77 |ent(fCur|Doc);..w|
|00001bd0| 69 6e 64 6f 77 20 3a 3d | 20 46 72 6f 6e 74 57 69 |indow :=| FrontWi|
|00001be0| 6e 64 6f 77 3b 0d 09 0d | 09 43 41 53 45 20 6d 65 |ndow;...|.CASE me|
|00001bf0| 6e 75 49 44 20 4f 46 0d | 09 09 6d 41 70 70 6c 65 |nuID OF.|..mApple|
|00001c00| 3a 0d 09 09 09 43 41 53 | 45 20 6d 65 6e 75 49 74 |:....CAS|E menuIt|
|00001c10| 65 6d 20 4f 46 0d 09 09 | 09 09 69 41 62 6f 75 74 |em OF...|..iAbout|
|00001c20| 3a 09 09 09 09 09 7b 20 | 62 72 69 6e 67 20 75 70 |:.....{ |bring up|
|00001c30| 20 61 6c 65 72 74 20 66 | 6f 72 20 41 62 6f 75 74 | alert f|or About|
|00001c40| 20 20 7d 0d 09 09 09 09 | 09 69 74 65 6d 48 69 74 |  }.....|.itemHit|
|00001c50| 20 3a 3d 20 41 6c 65 72 | 74 28 72 41 62 6f 75 74 | := Aler|t(rAbout|
|00001c60| 41 6c 65 72 74 2c 20 4e | 49 4c 29 3b 0d 09 09 09 |Alert, N|IL);....|
|00001c70| 09 4f 54 48 45 52 57 49 | 53 45 20 42 45 47 49 4e |.OTHERWI|SE BEGIN|
|00001c80| 09 09 09 7b 20 61 6c 6c | 20 6e 6f 6e 2d 41 62 6f |...{ all| non-Abo|
|00001c90| 75 74 20 69 74 65 6d 73 | 20 69 6e 20 74 68 69 73 |ut items| in this|
|00001ca0| 20 6d 65 6e 75 20 61 72 | 65 20 44 41 73 20 65 74 | menu ar|e DAs et|
|00001cb0| 20 61 6c 20 20 7d 0d 09 | 09 09 09 09 47 65 74 49 | al  }..|....GetI|
|00001cc0| 74 65 6d 28 47 65 74 4d | 48 61 6e 64 6c 65 28 6d |tem(GetM|Handle(m|
|00001cd0| 41 70 70 6c 65 29 2c 20 | 6d 65 6e 75 49 74 65 6d |Apple), |menuItem|
|00001ce0| 2c 20 64 61 4e 61 6d 65 | 29 3b 0d 09 09 09 09 09 |, daName|);......|
|00001cf0| 64 61 52 65 66 4e 75 6d | 20 3a 3d 20 4f 70 65 6e |daRefNum| := Open|
|00001d00| 44 65 73 6b 41 63 63 28 | 64 61 4e 61 6d 65 29 3b |DeskAcc(|daName);|
|00001d10| 0d 09 09 09 09 45 4e 44 | 3b 20 7b 20 4f 54 48 45 |.....END|; { OTHE|
|00001d20| 52 57 49 53 45 20 7d 0d | 09 09 09 45 4e 44 3b 20 |RWISE }.|...END; |
|00001d30| 7b 20 43 41 53 45 20 6d | 65 6e 75 49 74 65 6d 20 |{ CASE m|enuItem |
|00001d40| 7d 0d 09 09 6d 46 69 6c | 65 3a 0d 09 09 09 43 41 |}...mFil|e:....CA|
|00001d50| 53 45 20 6d 65 6e 75 49 | 74 65 6d 20 4f 46 0d 09 |SE menuI|tem OF..|
|00001d60| 09 09 09 69 4e 65 77 3a | 0d 09 09 09 09 09 44 6f |...iNew:|......Do|
|00001d70| 4e 65 77 3b 0d 09 09 09 | 09 69 43 6c 6f 73 65 3a |New;....|.iClose:|
|00001d80| 0d 09 09 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |......BE|GIN.....|
|00001d90| 09 09 49 46 20 66 54 45 | 43 75 72 44 6f 63 20 3c |..IF fTE|CurDoc <|
|00001da0| 3e 20 4e 49 4c 20 54 48 | 45 4e 20 42 45 47 49 4e |> NIL TH|EN BEGIN|
|00001db0| 0d 09 09 09 09 09 09 09 | 66 44 6f 63 4c 69 73 74 |........|fDocList|
|00001dc0| 2e 52 65 6d 6f 76 65 44 | 6f 63 28 66 54 45 43 75 |.RemoveD|oc(fTECu|
|00001dd0| 72 44 6f 63 29 3b 0d 09 | 09 09 09 09 09 09 66 54 |rDoc);..|......fT|
|00001de0| 45 43 75 72 44 6f 63 2e | 46 72 65 65 3b 0d 09 09 |ECurDoc.|Free;...|
|00001df0| 09 09 09 09 45 4e 44 20 | 45 4c 53 45 20 42 45 47 |....END |ELSE BEG|
|00001e00| 49 4e 0d 09 09 09 09 09 | 09 09 43 6c 6f 73 65 44 |IN......|..CloseD|
|00001e10| 65 73 6b 41 63 63 28 57 | 69 6e 64 6f 77 50 65 65 |eskAcc(W|indowPee|
|00001e20| 6b 28 66 57 68 69 63 68 | 57 69 6e 64 6f 77 29 5e |k(fWhich|Window)^|
|00001e30| 2e 77 69 6e 64 6f 77 4b | 69 6e 64 29 3b 0d 09 09 |.windowK|ind);...|
|00001e40| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 09 09 0d |....END;|........|
|00001e50| 09 09 09 09 09 09 7b 20 | 6d 61 6b 65 20 73 75 72 |......{ |make sur|
|00001e60| 65 20 6f 75 72 20 63 75 | 72 72 65 6e 74 20 64 6f |e our cu|rrent do|
|00001e70| 63 75 6d 65 6e 74 2f 77 | 69 6e 64 6f 77 20 72 65 |cument/w|indow re|
|00001e80| 66 65 72 65 6e 63 65 73 | 20 61 72 65 20 76 61 6c |ferences| are val|
|00001e90| 69 64 20 7d 0d 09 09 09 | 09 09 09 77 69 6e 64 6f |id }....|...windo|
|00001ea0| 77 20 3a 3d 20 46 72 6f | 6e 74 57 69 6e 64 6f 77 |w := Fro|ntWindow|
|00001eb0| 3b 0d 09 09 09 09 09 09 | 49 46 20 77 69 6e 64 6f |;.......|IF windo|
|00001ec0| 77 20 3c 3e 20 4e 49 4c | 20 54 48 45 4e 20 42 45 |w <> NIL| THEN BE|
|00001ed0| 47 49 4e 0d 09 09 09 09 | 09 09 09 66 43 75 72 44 |GIN.....|...fCurD|
|00001ee0| 6f 63 20 3a 3d 20 66 44 | 6f 63 4c 69 73 74 2e 46 |oc := fD|ocList.F|
|00001ef0| 69 6e 64 44 6f 63 28 77 | 69 6e 64 6f 77 29 3b 0d |indDoc(w|indow);.|
|00001f00| 09 09 09 09 09 09 09 53 | 65 74 50 6f 72 74 28 77 |.......S|etPort(w|
|00001f10| 69 6e 64 6f 77 29 3b 0d | 09 09 09 09 09 09 45 4e |indow);.|......EN|
|00001f20| 44 20 45 4c 53 45 20 42 | 45 47 49 4e 0d 09 09 09 |D ELSE B|EGIN....|
|00001f30| 09 09 09 09 66 43 75 72 | 44 6f 63 20 3a 3d 20 4e |....fCur|Doc := N|
|00001f40| 49 4c 3b 0d 09 09 09 09 | 09 09 45 4e 44 3b 0d 09 |IL;.....|..END;..|
|00001f50| 09 09 09 09 45 4e 44 3b | 0d 0d 09 09 09 09 69 51 |....END;|......iQ|
|00001f60| 75 69 74 3a 0d 09 09 09 | 09 09 54 65 72 6d 69 6e |uit:....|..Termin|
|00001f70| 61 74 65 3b 0d 09 09 09 | 45 4e 44 3b 20 7b 20 43 |ate;....|END; { C|
|00001f80| 41 53 45 20 6d 65 6e 75 | 49 74 65 6d 20 7d 0d 09 |ASE menu|Item }..|
|00001f90| 09 6d 45 64 69 74 3a 09 | 09 09 09 09 7b 20 63 61 |.mEdit:.|....{ ca|
|00001fa0| 6c 6c 20 53 79 73 74 65 | 6d 45 64 69 74 20 66 6f |ll Syste|mEdit fo|
|00001fb0| 72 20 44 41 20 65 64 69 | 74 69 6e 67 20 26 20 4d |r DA edi|ting & M|
|00001fc0| 75 6c 74 69 46 69 6e 64 | 65 72 20 20 7d 0d 09 09 |ultiFind|er  }...|
|00001fd0| 09 49 46 20 4e 4f 54 20 | 53 79 73 74 65 6d 45 64 |.IF NOT |SystemEd|
|00001fe0| 69 74 28 6d 65 6e 75 49 | 74 65 6d 2d 31 29 20 54 |it(menuI|tem-1) T|
|00001ff0| 48 45 4e 0d 09 09 09 20 | 09 43 41 53 45 20 6d 65 |HEN.... |.CASE me|
|00002000| 6e 75 49 74 65 6d 20 4f | 46 0d 09 09 09 09 09 69 |nuItem O|F......i|
|00002010| 43 75 74 3a 09 66 54 45 | 43 75 72 44 6f 63 2e 44 |Cut:.fTE|CurDoc.D|
|00002020| 6f 43 75 74 3b 0d 09 09 | 09 09 09 69 43 6f 70 79 |oCut;...|...iCopy|
|00002030| 3a 09 66 54 45 43 75 72 | 44 6f 63 2e 44 6f 43 6f |:.fTECur|Doc.DoCo|
|00002040| 70 79 3b 0d 09 09 09 09 | 09 69 50 61 73 74 65 3a |py;.....|.iPaste:|
|00002050| 09 66 54 45 43 75 72 44 | 6f 63 2e 44 6f 50 61 73 |.fTECurD|oc.DoPas|
|00002060| 74 65 3b 0d 09 09 09 09 | 09 69 43 6c 65 61 72 3a |te;.....|.iClear:|
|00002070| 09 66 54 45 43 75 72 44 | 6f 63 2e 44 6f 43 6c 65 |.fTECurD|oc.DoCle|
|00002080| 61 72 3b 0d 09 09 09 09 | 45 4e 44 3b 20 7b 20 43 |ar;.....|END; { C|
|00002090| 41 53 45 20 6d 65 6e 75 | 49 74 65 6d 20 7d 0d 09 |ASE menu|Item }..|
|000020a0| 45 4e 44 3b 0d 09 48 69 | 6c 69 74 65 4d 65 6e 75 |END;..Hi|liteMenu|
|000020b0| 28 30 29 3b 0d 45 4e 44 | 3b 20 7b 20 64 6f 4d 65 |(0);.END|; { doMe|
|000020c0| 6e 75 43 6f 6d 6d 61 6e | 64 20 7d 0d 0d 7b 24 53 |nuComman|d }..{$S|
|000020d0| 20 4d 61 69 6e 7d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d | Main}.{|--------|
|000020e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2b 0d 7c 09 48 |--------|---+.|.H|
|00002100| 65 61 70 4e 65 65 64 65 | 64 09 09 09 09 09 09 7c |eapNeede|d......||
|00002110| 0d 2b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.+------|--------|
|00002120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002130| 2d 2d 2d 2d 2d 7d 0d 46 | 55 4e 43 54 49 4f 4e 20 |-----}.F|UNCTION |
|00002140| 54 54 45 53 61 6d 70 6c | 65 2e 48 65 61 70 4e 65 |TTESampl|e.HeapNe|
|00002150| 65 64 65 64 3a 20 4c 6f | 6e 67 69 6e 74 3b 20 4f |eded: Lo|ngint; O|
|00002160| 56 45 52 52 49 44 45 3b | 0d 42 45 47 49 4e 0d 09 |VERRIDE;|.BEGIN..|
|00002170| 48 65 61 70 4e 65 65 64 | 65 64 20 3a 3d 20 6b 4d |HeapNeed|ed := kM|
|00002180| 69 6e 53 69 7a 65 20 2a | 20 31 30 32 34 3b 0d 45 |inSize *| 1024;.E|
|00002190| 4e 44 3b 0d 0d 7b 24 53 | 20 4d 61 69 6e 7d 0d 7b |ND;..{$S| Main}.{|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021c0| 2d 2d 2d 2b 0d 7c 09 53 | 6c 65 65 70 56 61 6c 09 |---+.|.S|leepVal.|
|000021d0| 09 09 09 09 09 7c 0d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |.....|.+|--------|
|000021e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 0d 7b 20 |--------|---}..{ |
|00002200| 43 61 6c 63 75 6c 61 74 | 65 20 61 20 73 6c 65 65 |Calculat|e a slee|
|00002210| 70 20 76 61 6c 75 65 20 | 66 6f 72 20 57 61 69 74 |p value |for Wait|
|00002220| 4e 65 78 74 45 76 65 6e | 74 2e 20 54 68 69 73 20 |NextEven|t. This |
|00002230| 74 61 6b 65 73 20 69 6e | 74 6f 20 61 63 63 6f 75 |takes in|to accou|
|00002240| 6e 74 20 74 68 65 20 74 | 68 69 6e 67 73 20 7d 0d |nt the t|hings }.|
|00002250| 7b 20 74 68 61 74 20 44 | 6f 49 64 6c 65 20 64 6f |{ that D|oIdle do|
|00002260| 65 73 20 77 69 74 68 20 | 49 64 6c 65 20 54 69 6d |es with |Idle Tim|
|00002270| 65 2e 20 54 68 65 20 66 | 6f 72 6d 75 6c 61 20 75 |e. The f|ormula u|
|00002280| 73 65 64 20 68 65 72 65 | 20 69 73 3a 20 0d 09 49 |sed here| is: ..I|
|00002290| 46 20 77 65 20 61 72 65 | 20 69 6e 20 74 68 65 20 |F we are| in the |
|000022a0| 66 6f 72 65 67 72 6f 75 | 6e 64 0d 09 41 4e 44 20 |foregrou|nd..AND |
|000022b0| 6f 75 72 20 64 6f 63 75 | 6d 65 6e 74 20 77 69 6e |our docu|ment win|
|000022c0| 64 6f 77 20 69 73 20 69 | 6e 20 66 72 6f 6e 74 0d |dow is i|n front.|
|000022d0| 09 54 48 45 4e 0d 09 09 | 53 6c 65 65 70 56 61 6c |.THEN...|SleepVal|
|000022e0| 20 3a 3d 20 77 68 61 74 | 65 76 65 72 20 74 68 65 | := what|ever the|
|000022f0| 20 66 72 6f 6e 74 20 64 | 6f 63 75 6d 65 6e 74 20 | front d|ocument |
|00002300| 73 61 79 73 20 69 74 20 | 73 68 6f 75 6c 64 20 62 |says it |should b|
|00002310| 65 0d 09 45 4c 53 45 0d | 09 09 53 6c 65 65 70 56 |e..ELSE.|..SleepV|
|00002320| 61 6c 20 3a 3d 20 61 52 | 65 61 6c 4c 6f 6e 67 54 |al := aR|ealLongT|
|00002330| 69 6d 65 0d 09 09 0d 09 | 41 66 74 65 72 20 74 68 |ime.....|After th|
|00002340| 61 74 2c 20 53 6c 65 65 | 70 56 61 6c 20 69 73 20 |at, Slee|pVal is |
|00002350| 63 6c 69 70 70 65 64 20 | 74 6f 20 6b 4d 61 78 53 |clipped |to kMaxS|
|00002360| 6c 65 65 70 54 69 6d 65 | 20 77 68 69 63 68 20 69 |leepTime| which i|
|00002370| 73 20 63 75 72 72 65 6e | 74 6c 79 20 73 65 74 0d |s curren|tly set.|
|00002380| 09 74 6f 20 36 30 20 74 | 69 63 6b 73 2e 20 54 68 |.to 60 t|icks. Th|
|00002390| 69 73 20 69 73 20 74 6f | 20 61 63 63 6f 75 6e 74 |is is to| account|
|000023a0| 20 66 6f 72 20 61 20 4e | 6f 74 69 66 69 63 61 74 | for a N|otificat|
|000023b0| 69 6f 6e 20 4d 61 6e 61 | 67 65 72 20 62 75 67 20 |ion Mana|ger bug |
|000023c0| 77 68 65 72 65 69 6e 0d | 09 6e 6f 74 69 66 69 63 |wherein.|.notific|
|000023d0| 61 74 69 6f 6e 73 20 64 | 6f 6e 27 74 20 6f 63 63 |ations d|on't occ|
|000023e0| 75 72 20 77 68 69 6c 65 | 20 74 68 65 20 66 72 6f |ur while| the fro|
|000023f0| 6e 74 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 69 |nt appli|cation i|
|00002400| 73 20 61 73 6c 65 65 70 | 2e 20 7d 0d 0d 46 55 4e |s asleep|. }..FUN|
|00002410| 43 54 49 4f 4e 20 54 54 | 45 53 61 6d 70 6c 65 2e |CTION TT|ESample.|
|00002420| 53 6c 65 65 70 56 61 6c | 3a 20 4c 6f 6e 67 49 6e |SleepVal|: LongIn|
|00002430| 74 3b 20 4f 56 45 52 52 | 49 44 45 3b 0d 56 41 52 |t; OVERR|IDE;.VAR|
|00002440| 0d 09 73 6c 65 65 70 3a | 20 6c 6f 6e 67 69 6e 74 |..sleep:| longint|
|00002450| 3b 0d 09 66 54 45 43 75 | 72 44 6f 63 3a 20 54 54 |;..fTECu|rDoc: TT|
|00002460| 45 44 6f 63 75 6d 65 6e | 74 3b 0d 42 45 47 49 4e |EDocumen|t;.BEGIN|
|00002470| 0d 09 73 6c 65 65 70 20 | 3a 3d 20 6b 53 6c 65 65 |..sleep |:= kSlee|
|00002480| 70 54 69 6d 65 3b 0d 09 | 66 54 45 43 75 72 64 6f |pTime;..|fTECurdo|
|00002490| 63 20 3a 3d 20 54 54 45 | 44 6f 63 75 6d 65 6e 74 |c := TTE|Document|
|000024a0| 28 66 43 75 72 44 6f 63 | 29 3b 0d 09 49 46 20 28 |(fCurDoc|);..IF (|
|000024b0| 28 4e 4f 54 20 66 49 6e | 42 61 63 6b 47 72 6f 75 |(NOT fIn|BackGrou|
|000024c0| 6e 64 29 20 41 4e 44 20 | 28 66 54 45 43 75 72 64 |nd) AND |(fTECurd|
|000024d0| 6f 63 20 3c 3e 20 4e 49 | 4c 29 29 20 54 48 45 4e |oc <> NI|L)) THEN|
|000024e0| 20 42 45 47 49 4e 0d 09 | 09 73 6c 65 65 70 20 3a | BEGIN..|.sleep :|
|000024f0| 3d 20 66 54 45 43 75 72 | 44 6f 63 2e 43 61 6c 63 |= fTECur|Doc.Calc|
|00002500| 49 64 6c 65 3b 0d 09 45 | 4e 44 3b 0d 09 49 46 20 |Idle;..E|ND;..IF |
|00002510| 73 6c 65 65 70 20 3e 20 | 6b 4d 61 78 53 6c 65 65 |sleep > |kMaxSlee|
|00002520| 70 54 69 6d 65 20 54 48 | 45 4e 0d 09 09 73 6c 65 |pTime TH|EN...sle|
|00002530| 65 70 20 3a 3d 20 6b 4d | 61 78 53 6c 65 65 70 54 |ep := kM|axSleepT|
|00002540| 69 6d 65 3b 0d 09 53 6c | 65 65 70 56 61 6c 20 3a |ime;..Sl|eepVal :|
|00002550| 3d 20 73 6c 65 65 70 3b | 0d 45 4e 44 3b 0d 0d 7b |= sleep;|.END;..{|
|00002560| 24 53 20 49 6e 69 74 69 | 61 6c 69 7a 65 7d 0d 7b |$S Initi|alize}.{|
|00002570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002590| 2d 2d 2d 2b 0d 7c 09 44 | 6f 4e 65 77 09 09 09 09 |---+.|.D|oNew....|
|000025a0| 09 09 09 7c 0d 2b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...|.+--|--------|
|000025b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 7d 0d 7b 20 43 72 65 |--------|-}.{ Cre|
|000025d0| 61 74 65 20 61 20 6e 65 | 77 20 64 6f 63 75 6d 65 |ate a ne|w docume|
|000025e0| 6e 74 20 61 6e 64 20 77 | 69 6e 64 6f 77 2e 20 20 |nt and w|indow.  |
|000025f0| 7d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 54 45 53 |}.PROCED|URE TTES|
|00002600| 61 6d 70 6c 65 2e 44 6f | 4e 65 77 3b 0d 56 41 52 |ample.Do|New;.VAR|
|00002610| 0d 09 74 44 6f 63 3a 09 | 54 54 45 44 6f 63 75 6d |..tDoc:.|TTEDocum|
|00002620| 65 6e 74 3b 0d 42 45 47 | 49 4e 0d 09 4e 65 77 28 |ent;.BEG|IN..New(|
|00002630| 74 64 6f 63 29 3b 0d 09 | 74 44 6f 63 2e 49 54 45 |tdoc);..|tDoc.ITE|
|00002640| 44 6f 63 75 6d 65 6e 74 | 28 72 44 6f 63 57 69 6e |Document|(rDocWin|
|00002650| 64 6f 77 29 3b 0d 09 0d | 09 49 46 20 74 64 6f 63 |dow);...|.IF tdoc|
|00002660| 20 3c 3e 20 4e 49 4c 20 | 54 48 45 4e 0d 09 09 66 | <> NIL |THEN...f|
|00002670| 64 6f 63 4c 69 73 74 2e | 41 64 64 64 6f 63 28 74 |docList.|Adddoc(t|
|00002680| 64 6f 63 29 3b 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |doc);.EN|D;..{$S |
|00002690| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------|
|000026a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 54 65 |--------|--+.|.Te|
|000026c0| 72 6d 69 6e 61 74 65 09 | 09 09 09 09 09 7c 0d 2b |rminate.|.....|.+|
|000026d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026f0| 2d 2d 2d 7d 0d 7b 20 43 | 6c 65 61 6e 20 75 70 20 |---}.{ C|lean up |
|00002700| 74 68 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |the appl|ication |
|00002710| 61 6e 64 20 65 78 69 74 | 73 2e 20 57 65 20 63 6c |and exit|s. We cl|
|00002720| 6f 73 65 20 61 6c 6c 20 | 6f 66 20 74 68 65 20 77 |ose all |of the w|
|00002730| 69 6e 64 6f 77 73 20 73 | 6f 20 74 68 61 74 20 7d |indows s|o that }|
|00002740| 0d 7b 20 74 68 65 79 20 | 63 61 6e 20 75 70 64 61 |.{ they |can upda|
|00002750| 74 65 20 74 68 65 69 72 | 20 64 6f 63 75 6d 65 6e |te their| documen|
|00002760| 74 73 2e 20 7d 0d 50 52 | 4f 43 45 44 55 52 45 20 |ts. }.PR|OCEDURE |
|00002770| 54 54 45 53 61 6d 70 6c | 65 2e 54 65 72 6d 69 6e |TTESampl|e.Termin|
|00002780| 61 74 65 3b 0d 42 45 47 | 49 4e 0d 09 7b 20 46 49 |ate;.BEG|IN..{ FI|
|00002790| 58 3a 20 63 6c 6f 73 65 | 20 61 6c 6c 20 64 6f 63 |X: close| all doc|
|000027a0| 73 20 7d 0d 09 45 78 69 | 74 4c 6f 6f 70 3b 0d 45 |s }..Exi|tLoop;.E|
|000027b0| 4e 44 3b 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |ND;.....|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002800| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 1e |.......L|...L....|
|00002810| 00 00 f3 1c 00 4d 03 00 | 00 00 00 00 00 00 00 00 |.....M..|........|
|00002820| 00 00 00 02 07 4d 50 57 | 20 33 2e 30 62 31 00 00 |.....MPW| 3.0b1..|
|00002830| 10 55 54 45 53 61 6d 70 | 6c 65 2e 69 6e 63 31 2e |.UTESamp|le.inc1.|
|00002840| 70 69 02 00 00 00 54 45 | 58 54 4d 50 53 20 01 00 |pi....TE|XTMPS ..|
|00002850| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 3c 00 c0 |..TEXTMP|S ...<..|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 a1 4b 04 00 00 00 | 27 34 00 00 01 6a 01 20 |...K....|'4...j. |
|00002880| 01 40 ff f8 ff f0 00 00 | 00 00 00 00 00 00 00 00 |.@......|........|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028a0| 00 00 10 00 00 00 f3 1c | 0a 63 70 6c 75 73 2e 68 |........|.cplus.h|
|000028b0| 65 6c 70 73 02 00 00 00 | 54 45 58 54 4d 50 53 20 |elps....|TEXTMPS |
|000028c0| 01 00 00 28 00 c0 00 00 | 00 00 fb 79 00 00 00 00 |...(....|...y....|
|000028d0| 0b 86 00 00 0c 00 00 00 | 00 00 01 7e 00 00 06 00 |........|...~....|
|000028e0| 9f 4d c7 47 9f 7b c9 ad | 00 00 00 00 7d 53 00 00 |.M.G.{..|....}S..|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 1c 49 |........|.......I|
|00002900| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 09 00 b3 |...H..Mo|naco....|
|00002910| 00 0a 00 00 00 00 02 b0 | 00 00 00 00 00 00 00 00 |........|........|
|00002920| 00 00 00 00 00 00 00 06 | 00 04 00 2a 00 03 01 d8 |........|...*....|
|00002930| 02 79 00 84 00 ad 01 83 | 02 19 a1 4b 04 00 00 00 |.y......|...K....|
|00002940| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00002950| 00 00 01 4c 00 00 00 4c | 00 00 00 1e 00 25 27 dc |...L...L|.....%'.|
|00002960| 09 30 00 00 00 1c 00 1e | ff ff 00 00 00 00 00 00 |.0......|........|
|00002970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+