/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 6 code / TCP.sea / TCP / NewsWatcher / NW Source / Shared Code / Reusable Source / tescroll.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 74 65 73 63 72 6f | 6c 6c 2e 63 00 00 00 00 |..tescro|ll.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 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 25 dd 00 | 00 01 9a ab 32 40 de ab |.....%..|....2@..|
|00000060| 32 40 de 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |2@......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d2 b1 00 00 |........|........|
|00000080| 2f 2a 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 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000000d0| 09 74 65 73 63 72 6f 6c | 6c 2e 63 0d 0d 09 54 68 |.tescrol|l.c...Th|
|000000e0| 69 73 20 72 65 75 73 61 | 62 6c 65 20 6d 6f 64 75 |is reusa|ble modu|
|000000f0| 6c 65 20 6d 61 6e 61 67 | 65 73 20 73 69 6d 70 6c |le manag|es simpl|
|00000100| 65 20 54 65 78 74 45 64 | 69 74 20 66 69 65 6c 64 |e TextEd|it field|
|00000110| 73 20 77 69 74 68 20 76 | 65 72 74 69 63 61 6c 20 |s with v|ertical |
|00000120| 0d 09 73 63 72 6f 6c 6c | 20 62 61 72 73 2e 0d 09 |..scroll| bars...|
|00000130| 0d 09 43 6f 70 79 72 69 | 67 68 74 20 a9 20 31 39 |..Copyri|ght . 19|
|00000140| 39 34 2d 31 39 39 35 2c | 20 4e 6f 72 74 68 77 65 |94-1995,| Northwe|
|00000150| 73 74 65 72 6e 20 55 6e | 69 76 65 72 73 69 74 79 |stern Un|iversity|
|00000160| 2e 0d 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...-----|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|000001b0| 2f 0d 0d 23 69 6e 63 6c | 75 64 65 20 22 64 65 66 |/..#incl|ude "def|
|000001c0| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 74 65 |.h".#inc|lude "te|
|000001d0| 73 63 72 6f 6c 6c 2e 68 | 22 0d 23 69 6e 63 6c 75 |scroll.h|".#inclu|
|000001e0| 64 65 20 22 74 65 75 74 | 69 6c 2e 68 22 0d 0d 0d |de "teut|il.h"...|
|000001f0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 0d 09 54 45 53 63 72 6f | 6c 6c 4e 75 6d 54 45 4c |..TEScro|llNumTEL|
|00000250| 69 6e 65 73 20 0d 09 0d | 09 47 65 74 20 74 68 65 |ines ...|.Get the|
|00000260| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00000270| 20 69 6e 20 61 20 54 45 | 20 66 69 65 6c 64 2e 0d | in a TE| field..|
|00000280| 09 09 09 0d 09 45 6e 74 | 72 79 3a 09 74 68 65 54 |.....Ent|ry:.theT|
|00000290| 45 20 3d 20 68 61 6e 64 | 6c 65 20 74 6f 20 54 65 |E = hand|le to Te|
|000002a0| 78 74 45 64 69 74 20 72 | 65 63 6f 72 64 2e 0d 09 |xtEdit r|ecord...|
|000002b0| 0d 09 45 78 69 74 3a 09 | 66 75 6e 63 74 69 6f 6e |..Exit:.|function|
|000002c0| 20 72 65 73 75 6c 74 20 | 3d 20 6e 75 6d 62 65 72 | result |= number|
|000002d0| 20 6f 66 20 6c 69 6e 65 | 73 20 69 6e 20 66 69 65 | of line|s in fie|
|000002e0| 6c 64 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ld..----|--------|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000330| 2a 2f 0d 0d 73 68 6f 72 | 74 20 54 45 53 63 72 6f |*/..shor|t TEScro|
|00000340| 6c 6c 4e 75 6d 54 45 4c | 69 6e 65 73 20 28 54 45 |llNumTEL|ines (TE|
|00000350| 48 61 6e 64 6c 65 20 74 | 68 65 54 45 29 0d 7b 0d |Handle t|heTE).{.|
|00000360| 09 73 68 6f 72 74 20 6e | 4c 69 6e 65 73 3b 0d 09 |.short n|Lines;..|
|00000370| 48 61 6e 64 6c 65 20 68 | 54 65 78 74 3b 0d 09 73 |Handle h|Text;..s|
|00000380| 68 6f 72 74 20 74 65 4c | 65 6e 67 74 68 3b 0d 0d |hort teL|ength;..|
|00000390| 09 6e 4c 69 6e 65 73 20 | 3d 20 28 2a 2a 74 68 65 |.nLines |= (**the|
|000003a0| 54 45 29 2e 6e 4c 69 6e | 65 73 3b 0d 09 69 66 20 |TE).nLin|es;..if |
|000003b0| 28 6e 4c 69 6e 65 73 20 | 3d 3d 20 30 29 20 7b 0d |(nLines |== 0) {.|
|000003c0| 09 09 6e 4c 69 6e 65 73 | 20 3d 20 31 3b 0d 09 7d |..nLines| = 1;..}|
|000003d0| 20 65 6c 73 65 20 7b 0d | 09 09 68 54 65 78 74 20 | else {.|..hText |
|000003e0| 3d 20 28 2a 2a 74 68 65 | 54 45 29 2e 68 54 65 78 |= (**the|TE).hTex|
|000003f0| 74 3b 0d 09 09 74 65 4c | 65 6e 67 74 68 20 3d 20 |t;...teL|ength = |
|00000400| 28 2a 2a 74 68 65 54 45 | 29 2e 74 65 4c 65 6e 67 |(**theTE|).teLeng|
|00000410| 74 68 3b 0d 09 09 69 66 | 20 28 2a 28 2a 68 54 65 |th;...if| (*(*hTe|
|00000420| 78 74 20 2b 20 74 65 4c | 65 6e 67 74 68 20 2d 20 |xt + teL|ength - |
|00000430| 31 29 20 3d 3d 20 43 52 | 29 20 6e 4c 69 6e 65 73 |1) == CR|) nLines|
|00000440| 2b 2b 3b 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 6e |++;..}..|return n|
|00000450| 4c 69 6e 65 73 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d |Lines;.}|..../*--|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 54 45 53 63 |--------|--..TESc|
|000004b0| 72 6f 6c 6c 47 65 74 54 | 45 4c 69 6e 65 4e 75 6d |rollGetT|ELineNum|
|000004c0| 62 65 72 20 0d 09 0d 09 | 47 65 74 20 74 68 65 20 |ber ....|Get the |
|000004d0| 6c 69 6e 65 20 6e 75 6d | 62 65 72 20 6f 66 20 61 |line num|ber of a|
|000004e0| 20 63 68 61 72 61 63 74 | 65 72 20 70 6f 73 69 74 | charact|er posit|
|000004f0| 69 6f 6e 20 69 6e 20 61 | 20 54 65 78 74 45 64 69 |ion in a| TextEdi|
|00000500| 74 20 66 69 65 6c 64 2e | 0d 09 09 09 0d 09 45 6e |t field.|......En|
|00000510| 74 72 79 3a 09 63 68 61 | 72 50 6f 73 20 3d 20 63 |try:.cha|rPos = c|
|00000520| 68 61 72 61 63 74 65 72 | 20 70 6f 73 69 74 69 6f |haracter| positio|
|00000530| 6e 20 28 30 2d 62 61 73 | 65 64 29 2e 0d 09 09 09 |n (0-bas|ed).....|
|00000540| 74 68 65 54 45 20 3d 20 | 68 61 6e 64 6c 65 20 74 |theTE = |handle t|
|00000550| 6f 20 54 65 78 74 45 64 | 69 74 20 72 65 63 6f 72 |o TextEd|it recor|
|00000560| 64 2e 0d 09 09 09 0d 09 | 45 78 69 74 3a 09 66 75 |d.......|Exit:.fu|
|00000570| 6e 63 74 69 6f 6e 20 72 | 65 73 75 6c 74 20 3d 20 |nction r|esult = |
|00000580| 6c 69 6e 65 20 6e 75 6d | 62 65 72 20 28 30 2d 62 |line num|ber (0-b|
|00000590| 61 73 65 64 29 2e 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ased)..-|--------|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2d 2d 2d 2a 2f 0d 0d 73 | 68 6f 72 74 20 54 45 53 |---*/..s|hort TES|
|000005f0| 63 72 6f 6c 6c 47 65 74 | 54 45 4c 69 6e 65 4e 75 |crollGet|TELineNu|
|00000600| 6d 62 65 72 20 28 73 68 | 6f 72 74 20 63 68 61 72 |mber (sh|ort char|
|00000610| 50 6f 73 2c 20 54 45 48 | 61 6e 64 6c 65 20 74 68 |Pos, TEH|andle th|
|00000620| 65 54 45 29 0d 7b 0d 09 | 73 68 6f 72 74 20 2a 6c |eTE).{..|short *l|
|00000630| 69 6e 65 53 74 61 72 74 | 73 3b 0d 09 73 68 6f 72 |ineStart|s;..shor|
|00000640| 74 20 6e 4c 69 6e 65 73 | 3b 0d 09 73 68 6f 72 74 |t nLines|;..short|
|00000650| 20 69 3b 0d 09 48 61 6e | 64 6c 65 20 68 54 65 78 | i;..Han|dle hTex|
|00000660| 74 3b 0d 0d 09 6c 69 6e | 65 53 74 61 72 74 73 20 |t;...lin|eStarts |
|00000670| 3d 20 28 2a 2a 74 68 65 | 54 45 29 2e 6c 69 6e 65 |= (**the|TE).line|
|00000680| 53 74 61 72 74 73 3b 0d | 09 6e 4c 69 6e 65 73 20 |Starts;.|.nLines |
|00000690| 3d 20 28 2a 2a 74 68 65 | 54 45 29 2e 6e 4c 69 6e |= (**the|TE).nLin|
|000006a0| 65 73 3b 0d 09 69 20 3d | 20 30 3b 0d 09 77 68 69 |es;..i =| 0;..whi|
|000006b0| 6c 65 20 28 69 20 3c 3d | 20 6e 4c 69 6e 65 73 20 |le (i <=| nLines |
|000006c0| 26 26 20 2a 6c 69 6e 65 | 53 74 61 72 74 73 20 3c |&& *line|Starts <|
|000006d0| 3d 20 63 68 61 72 50 6f | 73 29 20 7b 0d 09 09 69 |= charPo|s) {...i|
|000006e0| 2b 2b 3b 0d 09 09 6c 69 | 6e 65 53 74 61 72 74 73 |++;...li|neStarts|
|000006f0| 2b 2b 3b 0d 09 7d 0d 09 | 69 66 20 28 69 20 3d 3d |++;..}..|if (i ==|
|00000700| 20 30 29 20 72 65 74 75 | 72 6e 20 30 3b 0d 09 69 | 0) retu|rn 0;..i|
|00000710| 2d 2d 3b 0d 09 69 66 20 | 28 2a 28 6c 69 6e 65 53 |--;..if |(*(lineS|
|00000720| 74 61 72 74 73 2d 31 29 | 20 21 3d 20 63 68 61 72 |tarts-1)| != char|
|00000730| 50 6f 73 29 20 72 65 74 | 75 72 6e 20 69 3b 0d 09 |Pos) ret|urn i;..|
|00000740| 69 66 20 28 69 20 3d 3d | 20 30 29 20 72 65 74 75 |if (i ==| 0) retu|
|00000750| 72 6e 20 30 3b 0d 09 68 | 54 65 78 74 20 3d 20 28 |rn 0;..h|Text = (|
|00000760| 2a 2a 74 68 65 54 45 29 | 2e 68 54 65 78 74 3b 0d |**theTE)|.hText;.|
|00000770| 09 72 65 74 75 72 6e 20 | 4d 79 47 65 74 43 6c 69 |.return |MyGetCli|
|00000780| 6b 53 74 75 66 66 28 74 | 68 65 54 45 29 20 3d 3d |kStuff(t|heTE) ==|
|00000790| 20 30 20 3f 20 69 2d 31 | 20 3a 20 69 3b 0d 7d 0d | 0 ? i-1| : i;.}.|
|000007a0| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 0d 09 54 45 53 63 72 | 6f 6c 6c 41 64 6a 75 73 |-..TEScr|ollAdjus|
|00000800| 74 53 63 72 6f 6c 6c 4d | 61 78 20 0d 09 0d 09 41 |tScrollM|ax ....A|
|00000810| 64 6a 75 73 74 20 74 68 | 65 20 73 63 72 6f 6c 6c |djust th|e scroll|
|00000820| 20 62 61 72 20 6d 61 78 | 69 6d 75 6d 20 76 61 6c | bar max|imum val|
|00000830| 75 65 2e 0d 09 09 09 0d | 09 45 6e 74 72 79 3a 09 |ue......|.Entry:.|
|00000840| 74 68 65 54 45 20 3d 20 | 68 61 6e 64 6c 65 20 74 |theTE = |handle t|
|00000850| 6f 20 54 65 78 74 45 64 | 69 74 20 72 65 63 6f 72 |o TextEd|it recor|
|00000860| 64 2e 0d 09 09 09 76 53 | 63 72 6f 6c 6c 20 3d 20 |d.....vS|croll = |
|00000870| 68 61 6e 64 6c 65 20 74 | 6f 20 73 63 72 6f 6c 6c |handle t|o scroll|
|00000880| 20 62 61 72 20 63 6f 6e | 74 72 6f 6c 2e 0d 2d 2d | bar con|trol..--|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0d 76 6f |--------|--*/..vo|
|000008e0| 69 64 20 54 45 53 63 72 | 6f 6c 6c 41 64 6a 75 73 |id TEScr|ollAdjus|
|000008f0| 74 53 63 72 6f 6c 6c 4d | 61 78 20 28 54 45 48 61 |tScrollM|ax (TEHa|
|00000900| 6e 64 6c 65 20 74 68 65 | 54 45 2c 20 43 6f 6e 74 |ndle the|TE, Cont|
|00000910| 72 6f 6c 48 61 6e 64 6c | 65 20 76 53 63 72 6f 6c |rolHandl|e vScrol|
|00000920| 6c 29 0d 7b 0d 09 52 65 | 63 74 20 76 69 65 77 52 |l).{..Re|ct viewR|
|00000930| 65 63 74 2c 20 64 65 73 | 74 52 65 63 74 3b 0d 09 |ect, des|tRect;..|
|00000940| 73 68 6f 72 74 20 6d 61 | 78 2c 20 76 69 65 77 48 |short ma|x, viewH|
|00000950| 65 69 67 68 74 3b 0d 09 | 73 68 6f 72 74 20 6e 4c |eight;..|short nL|
|00000960| 69 6e 65 73 2c 20 62 6f | 74 74 6f 6d 2c 20 68 65 |ines, bo|ttom, he|
|00000970| 69 67 68 74 2c 20 6c 69 | 6e 65 48 65 69 67 68 74 |ight, li|neHeight|
|00000980| 3b 0d 09 0d 09 6c 69 6e | 65 48 65 69 67 68 74 20 |;....lin|eHeight |
|00000990| 3d 20 28 2a 2a 74 68 65 | 54 45 29 2e 6c 69 6e 65 |= (**the|TE).line|
|000009a0| 48 65 69 67 68 74 3b 0d | 09 76 69 65 77 52 65 63 |Height;.|.viewRec|
|000009b0| 74 20 3d 20 28 2a 2a 74 | 68 65 54 45 29 2e 76 69 |t = (**t|heTE).vi|
|000009c0| 65 77 52 65 63 74 3b 0d | 09 64 65 73 74 52 65 63 |ewRect;.|.destRec|
|000009d0| 74 20 3d 20 28 2a 2a 74 | 68 65 54 45 29 2e 64 65 |t = (**t|heTE).de|
|000009e0| 73 74 52 65 63 74 3b 0d | 09 6e 4c 69 6e 65 73 20 |stRect;.|.nLines |
|000009f0| 3d 20 54 45 53 63 72 6f | 6c 6c 4e 75 6d 54 45 4c |= TEScro|llNumTEL|
|00000a00| 69 6e 65 73 28 74 68 65 | 54 45 29 3b 0d 09 76 69 |ines(the|TE);..vi|
|00000a10| 65 77 48 65 69 67 68 74 | 20 3d 20 76 69 65 77 52 |ewHeight| = viewR|
|00000a20| 65 63 74 2e 62 6f 74 74 | 6f 6d 20 2d 20 76 69 65 |ect.bott|om - vie|
|00000a30| 77 52 65 63 74 2e 74 6f | 70 3b 0d 09 62 6f 74 74 |wRect.to|p;..bott|
|00000a40| 6f 6d 20 3d 20 64 65 73 | 74 52 65 63 74 2e 74 6f |om = des|tRect.to|
|00000a50| 70 20 2b 20 6e 4c 69 6e | 65 73 2a 6c 69 6e 65 48 |p + nLin|es*lineH|
|00000a60| 65 69 67 68 74 3b 0d 09 | 69 66 20 28 62 6f 74 74 |eight;..|if (bott|
|00000a70| 6f 6d 20 3c 20 76 69 65 | 77 52 65 63 74 2e 62 6f |om < vie|wRect.bo|
|00000a80| 74 74 6f 6d 29 20 62 6f | 74 74 6f 6d 20 3d 20 76 |ttom) bo|ttom = v|
|00000a90| 69 65 77 52 65 63 74 2e | 62 6f 74 74 6f 6d 3b 0d |iewRect.|bottom;.|
|00000aa0| 09 68 65 69 67 68 74 20 | 3d 20 62 6f 74 74 6f 6d |.height |= bottom|
|00000ab0| 20 2d 20 64 65 73 74 52 | 65 63 74 2e 74 6f 70 3b | - destR|ect.top;|
|00000ac0| 0d 09 6d 61 78 20 3d 20 | 68 65 69 67 68 74 20 2d |..max = |height -|
|00000ad0| 20 76 69 65 77 48 65 69 | 67 68 74 3b 0d 09 69 66 | viewHei|ght;..if|
|00000ae0| 20 28 6d 61 78 20 3c 20 | 30 29 20 6d 61 78 20 3d | (max < |0) max =|
|00000af0| 20 30 3b 0d 09 53 65 74 | 43 6f 6e 74 72 6f 6c 4d | 0;..Set|ControlM|
|00000b00| 61 78 69 6d 75 6d 28 76 | 53 63 72 6f 6c 6c 2c 20 |aximum(v|Scroll, |
|00000b10| 6d 61 78 2f 6c 69 6e 65 | 48 65 69 67 68 74 29 3b |max/line|Height);|
|00000b20| 0d 7d 0d 0d 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |.}..../*|--------|
|00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b70| 2d 2d 2d 2d 0d 09 54 45 | 53 63 72 6f 6c 6c 53 63 |----..TE|ScrollSc|
|00000b80| 72 6f 6c 6c 54 65 78 74 | 20 0d 09 0d 09 53 63 72 |rollText| ....Scr|
|00000b90| 6f 6c 6c 20 74 65 78 74 | 2e 0d 09 09 09 0d 09 45 |oll text|.......E|
|00000ba0| 6e 74 72 79 3a 09 74 68 | 65 54 45 20 3d 20 68 61 |ntry:.th|eTE = ha|
|00000bb0| 6e 64 6c 65 20 74 6f 20 | 54 65 78 74 45 64 69 74 |ndle to |TextEdit|
|00000bc0| 20 72 65 63 6f 72 64 2e | 0d 09 09 09 76 53 63 72 | record.|....vScr|
|00000bd0| 6f 6c 6c 20 3d 20 68 61 | 6e 64 6c 65 20 74 6f 20 |oll = ha|ndle to |
|00000be0| 73 63 72 6f 6c 6c 20 62 | 61 72 20 63 6f 6e 74 72 |scroll b|ar contr|
|00000bf0| 6f 6c 2e 0d 09 09 09 64 | 76 20 3d 20 6e 75 6d 62 |ol.....d|v = numb|
|00000c00| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 74 6f 20 73 |er of li|nes to s|
|00000c10| 63 72 6f 6c 6c 2e 0d 09 | 09 09 0d 09 49 66 20 74 |croll...|....If t|
|00000c20| 68 65 20 73 63 72 6f 6c | 6c 20 62 61 72 27 73 20 |he scrol|l bar's |
|00000c30| 72 65 66 43 6f 6e 20 69 | 73 20 6e 6f 6e 2d 7a 65 |refCon i|s non-ze|
|00000c40| 72 6f 2c 20 74 68 65 20 | 73 63 72 6f 6c 6c 20 62 |ro, the |scroll b|
|00000c50| 61 72 20 6d 61 78 20 76 | 61 6c 75 65 20 69 73 0d |ar max v|alue is.|
|00000c60| 09 61 64 6a 75 73 74 65 | 64 20 61 66 74 65 72 20 |.adjuste|d after |
|00000c70| 74 68 65 20 73 63 72 6f | 6c 6c 69 6e 67 20 6f 70 |the scro|lling op|
|00000c80| 65 72 61 74 69 6f 6e 2e | 20 54 68 69 73 20 69 73 |eration.| This is|
|00000c90| 20 77 68 61 74 20 79 6f | 75 20 6e 6f 72 6d 61 6c | what yo|u normal|
|00000ca0| 6c 79 20 77 61 6e 74 2e | 0d 09 54 68 65 20 6f 6e |ly want.|..The on|
|00000cb0| 6c 79 20 65 78 63 65 70 | 74 69 6f 6e 20 69 73 20 |ly excep|tion is |
|00000cc0| 77 68 65 6e 20 73 63 72 | 6f 6c 6c 69 6e 67 20 69 |when scr|olling i|
|00000cd0| 6e 20 61 20 54 72 61 63 | 6b 43 6f 6e 74 72 6f 6c |n a Trac|kControl|
|00000ce0| 20 61 63 74 69 6f 6e 20 | 70 72 6f 63 65 64 75 72 | action |procedur|
|00000cf0| 65 2c 0d 09 77 68 65 6e | 20 79 6f 75 20 77 61 6e |e,..when| you wan|
|00000d00| 74 20 74 6f 20 73 65 74 | 20 74 68 65 20 72 65 66 |t to set| the ref|
|00000d10| 43 6f 6e 20 74 6f 20 7a | 65 72 6f 2e 0d 2d 2d 2d |Con to z|ero..---|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 76 6f 69 |--------|-*/..voi|
|00000d70| 64 20 54 45 53 63 72 6f | 6c 6c 53 63 72 6f 6c 6c |d TEScro|llScroll|
|00000d80| 54 65 78 74 20 28 54 45 | 48 61 6e 64 6c 65 20 74 |Text (TE|Handle t|
|00000d90| 68 65 54 45 2c 20 43 6f | 6e 74 72 6f 6c 48 61 6e |heTE, Co|ntrolHan|
|00000da0| 64 6c 65 20 76 53 63 72 | 6f 6c 6c 2c 20 73 68 6f |dle vScr|oll, sho|
|00000db0| 72 74 20 64 76 29 0d 7b | 0d 09 73 68 6f 72 74 20 |rt dv).{|..short |
|00000dc0| 6c 69 6e 65 48 65 69 67 | 68 74 3b 0d 09 0d 09 6c |lineHeig|ht;....l|
|00000dd0| 69 6e 65 48 65 69 67 68 | 74 20 3d 20 28 2a 2a 74 |ineHeigh|t = (**t|
|00000de0| 68 65 54 45 29 2e 6c 69 | 6e 65 48 65 69 67 68 74 |heTE).li|neHeight|
|00000df0| 3b 0d 09 54 45 53 63 72 | 6f 6c 6c 28 30 2c 20 64 |;..TEScr|oll(0, d|
|00000e00| 76 20 2a 20 6c 69 6e 65 | 48 65 69 67 68 74 2c 20 |v * line|Height, |
|00000e10| 74 68 65 54 45 29 3b 0d | 09 69 66 20 28 47 65 74 |theTE);.|.if (Get|
|00000e20| 43 6f 6e 74 72 6f 6c 52 | 65 66 65 72 65 6e 63 65 |ControlR|eference|
|00000e30| 28 76 53 63 72 6f 6c 6c | 29 20 21 3d 20 30 29 20 |(vScroll|) != 0) |
|00000e40| 54 45 53 63 72 6f 6c 6c | 41 64 6a 75 73 74 53 63 |TEScroll|AdjustSc|
|00000e50| 72 6f 6c 6c 4d 61 78 28 | 74 68 65 54 45 2c 20 76 |rollMax(|theTE, v|
|00000e60| 53 63 72 6f 6c 6c 29 3b | 0d 7d 0d 0d 0d 0d 2f 2a |Scroll);|.}..../*|
|00000e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 09 54 45 |--------|----..TE|
|00000ec0| 53 63 72 6f 6c 6c 53 63 | 72 6f 6c 6c 52 61 6e 67 |ScrollSc|rollRang|
|00000ed0| 65 49 6e 74 6f 56 69 65 | 77 20 0d 09 0d 09 53 63 |eIntoVie|w ....Sc|
|00000ee0| 72 6f 6c 6c 20 61 20 72 | 61 6e 67 65 20 6f 66 20 |roll a r|ange of |
|00000ef0| 63 68 61 72 61 63 74 65 | 72 73 20 69 6e 74 6f 20 |characte|rs into |
|00000f00| 76 69 65 77 2c 20 69 66 | 20 6e 65 63 65 73 73 61 |view, if| necessa|
|00000f10| 72 79 2e 0d 09 09 09 0d | 09 45 6e 74 72 79 3a 09 |ry......|.Entry:.|
|00000f20| 74 68 65 54 45 20 3d 20 | 68 61 6e 64 6c 65 20 74 |theTE = |handle t|
|00000f30| 6f 20 54 65 78 74 45 64 | 69 74 20 72 65 63 6f 72 |o TextEd|it recor|
|00000f40| 64 2e 0d 09 09 09 73 74 | 61 72 74 20 3d 20 73 74 |d.....st|art = st|
|00000f50| 61 72 74 69 6e 67 20 6f | 66 66 73 65 74 20 6f 66 |arting o|ffset of|
|00000f60| 20 72 61 6e 67 65 2e 0d | 09 09 09 65 6e 64 20 3d | range..|...end =|
|00000f70| 20 65 6e 64 69 6e 67 20 | 6f 66 66 73 65 74 20 6f | ending |offset o|
|00000f80| 66 20 72 61 6e 67 65 2e | 0d 09 09 09 76 53 63 72 |f range.|....vScr|
|00000f90| 6f 6c 6c 20 3d 20 68 61 | 6e 64 6c 65 20 74 6f 20 |oll = ha|ndle to |
|00000fa0| 73 63 72 6f 6c 6c 20 62 | 61 72 20 63 6f 6e 74 72 |scroll b|ar contr|
|00000fb0| 6f 6c 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ol..----|--------|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001000| 2a 2f 0d 0d 76 6f 69 64 | 20 54 45 53 63 72 6f 6c |*/..void| TEScrol|
|00001010| 6c 53 63 72 6f 6c 6c 52 | 61 6e 67 65 49 6e 74 6f |lScrollR|angeInto|
|00001020| 56 69 65 77 20 28 54 45 | 48 61 6e 64 6c 65 20 74 |View (TE|Handle t|
|00001030| 68 65 54 45 2c 20 73 68 | 6f 72 74 20 73 74 61 72 |heTE, sh|ort star|
|00001040| 74 2c 20 73 68 6f 72 74 | 20 65 6e 64 2c 20 0d 09 |t, short| end, ..|
|00001050| 43 6f 6e 74 72 6f 6c 48 | 61 6e 64 6c 65 20 76 53 |ControlH|andle vS|
|00001060| 63 72 6f 6c 6c 29 0d 7b | 0d 09 73 68 6f 72 74 20 |croll).{|..short |
|00001070| 6c 69 6e 65 53 74 61 72 | 74 2c 20 6c 69 6e 65 45 |lineStar|t, lineE|
|00001080| 6e 64 2c 20 74 6f 70 2c | 20 6c 69 6e 65 48 65 69 |nd, top,| lineHei|
|00001090| 67 68 74 2c 20 76 53 74 | 61 72 74 2c 20 76 45 6e |ght, vSt|art, vEn|
|000010a0| 64 3b 0d 09 73 68 6f 72 | 74 20 6f 6c 64 53 63 72 |d;..shor|t oldScr|
|000010b0| 6f 6c 6c 56 61 6c 2c 20 | 6d 61 78 2c 20 64 76 3b |ollVal, |max, dv;|
|000010c0| 0d 09 52 65 63 74 20 76 | 69 65 77 52 65 63 74 3b |..Rect v|iewRect;|
|000010d0| 0d 09 42 6f 6f 6c 65 61 | 6e 20 74 6f 6f 42 69 67 |..Boolea|n tooBig|
|000010e0| 3b 0d 09 73 68 6f 72 74 | 20 73 65 6c 53 74 61 72 |;..short| selStar|
|000010f0| 74 2c 20 73 65 6c 45 6e | 64 2c 20 73 61 76 65 64 |t, selEn|d, saved|
|00001100| 43 6c 69 6b 53 74 75 66 | 66 3b 0d 0d 09 54 45 53 |ClikStuf|f;...TES|
|00001110| 63 72 6f 6c 6c 41 64 6a | 75 73 74 53 63 72 6f 6c |crollAdj|ustScrol|
|00001120| 6c 4d 61 78 28 74 68 65 | 54 45 2c 20 76 53 63 72 |lMax(the|TE, vScr|
|00001130| 6f 6c 6c 29 3b 0d 09 73 | 61 76 65 64 43 6c 69 6b |oll);..s|avedClik|
|00001140| 53 74 75 66 66 20 3d 20 | 28 2a 2a 74 68 65 54 45 |Stuff = |(**theTE|
|00001150| 29 2e 63 6c 69 6b 53 74 | 75 66 66 3b 0d 09 73 65 |).clikSt|uff;..se|
|00001160| 6c 53 74 61 72 74 20 3d | 20 28 2a 2a 74 68 65 54 |lStart =| (**theT|
|00001170| 45 29 2e 73 65 6c 53 74 | 61 72 74 3b 0d 09 73 65 |E).selSt|art;..se|
|00001180| 6c 45 6e 64 20 3d 20 28 | 2a 2a 74 68 65 54 45 29 |lEnd = (|**theTE)|
|00001190| 2e 73 65 6c 45 6e 64 3b | 0d 09 69 66 20 28 73 74 |.selEnd;|..if (st|
|000011a0| 61 72 74 20 3d 3d 20 65 | 6e 64 20 26 26 20 73 65 |art == e|nd && se|
|000011b0| 6c 53 74 61 72 74 20 3c | 20 73 65 6c 45 6e 64 29 |lStart <| selEnd)|
|000011c0| 20 7b 0d 09 09 69 66 20 | 28 73 74 61 72 74 20 3d | {...if |(start =|
|000011d0| 3d 20 73 65 6c 45 6e 64 | 29 20 7b 0d 09 09 09 28 |= selEnd|) {....(|
|000011e0| 2a 2a 74 68 65 54 45 29 | 2e 63 6c 69 6b 53 74 75 |**theTE)|.clikStu|
|000011f0| 66 66 20 3d 20 30 3b 0d | 09 09 7d 20 65 6c 73 65 |ff = 0;.|..} else|
|00001200| 20 69 66 20 28 65 6e 64 | 20 3d 3d 20 73 65 6c 53 | if (end| == selS|
|00001210| 74 61 72 74 29 20 7b 0d | 09 09 09 28 2a 2a 74 68 |tart) {.|...(**th|
|00001220| 65 54 45 29 2e 63 6c 69 | 6b 53 74 75 66 66 20 3d |eTE).cli|kStuff =|
|00001230| 20 30 78 66 66 66 66 3b | 0d 09 09 7d 0d 09 09 6c | 0xffff;|...}...l|
|00001240| 69 6e 65 53 74 61 72 74 | 20 3d 20 54 45 53 63 72 |ineStart| = TEScr|
|00001250| 6f 6c 6c 47 65 74 54 45 | 4c 69 6e 65 4e 75 6d 62 |ollGetTE|LineNumb|
|00001260| 65 72 28 73 74 61 72 74 | 2c 20 74 68 65 54 45 29 |er(start|, theTE)|
|00001270| 3b 0d 09 09 6c 69 6e 65 | 45 6e 64 20 3d 20 54 45 |;...line|End = TE|
|00001280| 53 63 72 6f 6c 6c 47 65 | 74 54 45 4c 69 6e 65 4e |ScrollGe|tTELineN|
|00001290| 75 6d 62 65 72 28 65 6e | 64 2c 20 74 68 65 54 45 |umber(en|d, theTE|
|000012a0| 29 3b 0d 09 7d 20 65 6c | 73 65 20 69 66 20 28 73 |);..} el|se if (s|
|000012b0| 74 61 72 74 20 3c 20 65 | 6e 64 29 20 7b 0d 09 09 |tart < e|nd) {...|
|000012c0| 28 2a 2a 74 68 65 54 45 | 29 2e 63 6c 69 6b 53 74 |(**theTE|).clikSt|
|000012d0| 75 66 66 20 3d 20 30 78 | 66 66 66 66 3b 0d 09 09 |uff = 0x|ffff;...|
|000012e0| 6c 69 6e 65 53 74 61 72 | 74 20 3d 20 54 45 53 63 |lineStar|t = TESc|
|000012f0| 72 6f 6c 6c 47 65 74 54 | 45 4c 69 6e 65 4e 75 6d |rollGetT|ELineNum|
|00001300| 62 65 72 28 73 74 61 72 | 74 2c 20 74 68 65 54 45 |ber(star|t, theTE|
|00001310| 29 3b 0d 09 09 28 2a 2a | 74 68 65 54 45 29 2e 63 |);...(**|theTE).c|
|00001320| 6c 69 6b 53 74 75 66 66 | 20 3d 20 30 3b 0d 09 09 |likStuff| = 0;...|
|00001330| 6c 69 6e 65 45 6e 64 20 | 3d 20 54 45 53 63 72 6f |lineEnd |= TEScro|
|00001340| 6c 6c 47 65 74 54 45 4c | 69 6e 65 4e 75 6d 62 65 |llGetTEL|ineNumbe|
|00001350| 72 28 65 6e 64 2c 20 74 | 68 65 54 45 29 3b 0d 09 |r(end, t|heTE);..|
|00001360| 7d 20 65 6c 73 65 20 7b | 0d 09 09 6c 69 6e 65 53 |} else {|...lineS|
|00001370| 74 61 72 74 20 3d 20 54 | 45 53 63 72 6f 6c 6c 47 |tart = T|EScrollG|
|00001380| 65 74 54 45 4c 69 6e 65 | 4e 75 6d 62 65 72 28 73 |etTELine|Number(s|
|00001390| 74 61 72 74 2c 20 74 68 | 65 54 45 29 3b 0d 09 09 |tart, th|eTE);...|
|000013a0| 6c 69 6e 65 45 6e 64 20 | 3d 20 54 45 53 63 72 6f |lineEnd |= TEScro|
|000013b0| 6c 6c 47 65 74 54 45 4c | 69 6e 65 4e 75 6d 62 65 |llGetTEL|ineNumbe|
|000013c0| 72 28 65 6e 64 2c 20 74 | 68 65 54 45 29 3b 0d 09 |r(end, t|heTE);..|
|000013d0| 7d 0d 09 28 2a 2a 74 68 | 65 54 45 29 2e 63 6c 69 |}..(**th|eTE).cli|
|000013e0| 6b 53 74 75 66 66 20 3d | 20 73 61 76 65 64 43 6c |kStuff =| savedCl|
|000013f0| 69 6b 53 74 75 66 66 3b | 0d 09 74 6f 70 20 3d 20 |ikStuff;|..top = |
|00001400| 28 2a 2a 74 68 65 54 45 | 29 2e 64 65 73 74 52 65 |(**theTE|).destRe|
|00001410| 63 74 2e 74 6f 70 3b 0d | 09 6c 69 6e 65 48 65 69 |ct.top;.|.lineHei|
|00001420| 67 68 74 20 3d 20 28 2a | 2a 74 68 65 54 45 29 2e |ght = (*|*theTE).|
|00001430| 6c 69 6e 65 48 65 69 67 | 68 74 3b 0d 09 76 53 74 |lineHeig|ht;..vSt|
|00001440| 61 72 74 20 3d 20 74 6f | 70 20 2b 20 6c 69 6e 65 |art = to|p + line|
|00001450| 53 74 61 72 74 2a 6c 69 | 6e 65 48 65 69 67 68 74 |Start*li|neHeight|
|00001460| 3b 0d 09 76 45 6e 64 20 | 3d 20 74 6f 70 20 2b 20 |;..vEnd |= top + |
|00001470| 28 6c 69 6e 65 45 6e 64 | 2b 31 29 2a 6c 69 6e 65 |(lineEnd|+1)*line|
|00001480| 48 65 69 67 68 74 3b 0d | 09 76 69 65 77 52 65 63 |Height;.|.viewRec|
|00001490| 74 20 3d 20 28 2a 2a 74 | 68 65 54 45 29 2e 76 69 |t = (**t|heTE).vi|
|000014a0| 65 77 52 65 63 74 3b 0d | 09 74 6f 6f 42 69 67 20 |ewRect;.|.tooBig |
|000014b0| 3d 20 28 76 45 6e 64 20 | 2d 20 76 53 74 61 72 74 |= (vEnd |- vStart|
|000014c0| 29 20 3e 20 28 76 69 65 | 77 52 65 63 74 2e 62 6f |) > (vie|wRect.bo|
|000014d0| 74 74 6f 6d 20 2d 20 76 | 69 65 77 52 65 63 74 2e |ttom - v|iewRect.|
|000014e0| 74 6f 70 29 3b 0d 09 69 | 66 20 28 76 45 6e 64 20 |top);..i|f (vEnd |
|000014f0| 3e 20 76 69 65 77 52 65 | 63 74 2e 62 6f 74 74 6f |> viewRe|ct.botto|
|00001500| 6d 29 20 7b 0d 09 09 69 | 66 20 28 76 53 74 61 72 |m) {...i|f (vStar|
|00001510| 74 20 3c 20 76 69 65 77 | 52 65 63 74 2e 62 6f 74 |t < view|Rect.bot|
|00001520| 74 6f 6d 20 2d 20 6c 69 | 6e 65 48 65 69 67 68 74 |tom - li|neHeight|
|00001530| 29 20 72 65 74 75 72 6e | 3b 0d 09 09 69 66 20 28 |) return|;...if (|
|00001540| 74 6f 6f 42 69 67 29 20 | 7b 0d 09 09 09 64 76 20 |tooBig) |{....dv |
|00001550| 3d 20 76 69 65 77 52 65 | 63 74 2e 74 6f 70 20 2d |= viewRe|ct.top -|
|00001560| 20 76 53 74 61 72 74 3b | 0d 09 09 7d 20 65 6c 73 | vStart;|...} els|
|00001570| 65 20 7b 0d 09 09 09 64 | 76 20 3d 20 76 69 65 77 |e {....d|v = view|
|00001580| 52 65 63 74 2e 62 6f 74 | 74 6f 6d 20 2d 20 76 45 |Rect.bot|tom - vE|
|00001590| 6e 64 3b 0d 09 09 7d 0d | 09 7d 20 65 6c 73 65 20 |nd;...}.|.} else |
|000015a0| 69 66 20 28 76 53 74 61 | 72 74 20 3c 20 76 69 65 |if (vSta|rt < vie|
|000015b0| 77 52 65 63 74 2e 74 6f | 70 29 20 7b 0d 09 09 69 |wRect.to|p) {...i|
|000015c0| 66 20 28 76 45 6e 64 20 | 3e 20 76 69 65 77 52 65 |f (vEnd |> viewRe|
|000015d0| 63 74 2e 74 6f 70 20 2b | 20 6c 69 6e 65 48 65 69 |ct.top +| lineHei|
|000015e0| 67 68 74 29 20 72 65 74 | 75 72 6e 3b 0d 09 09 69 |ght) ret|urn;...i|
|000015f0| 66 20 28 74 6f 6f 42 69 | 67 29 20 7b 0d 09 09 09 |f (tooBi|g) {....|
|00001600| 64 76 20 3d 20 76 69 65 | 77 52 65 63 74 2e 62 6f |dv = vie|wRect.bo|
|00001610| 74 74 6f 6d 20 2d 20 76 | 45 6e 64 3b 0d 09 09 7d |ttom - v|End;...}|
|00001620| 20 65 6c 73 65 20 7b 0d | 09 09 09 64 76 20 3d 20 | else {.|...dv = |
|00001630| 76 69 65 77 52 65 63 74 | 2e 74 6f 70 20 2d 20 76 |viewRect|.top - v|
|00001640| 53 74 61 72 74 3b 0d 09 | 09 7d 0d 09 7d 20 65 6c |Start;..|.}..} el|
|00001650| 73 65 20 7b 0d 09 09 54 | 45 53 63 72 6f 6c 6c 41 |se {...T|EScrollA|
|00001660| 64 6a 75 73 74 53 63 72 | 6f 6c 6c 4d 61 78 28 74 |djustScr|ollMax(t|
|00001670| 68 65 54 45 2c 20 76 53 | 63 72 6f 6c 6c 29 3b 0d |heTE, vS|croll);.|
|00001680| 09 09 72 65 74 75 72 6e | 3b 0d 09 7d 0d 09 64 76 |..return|;..}..dv|
|00001690| 20 3d 20 64 76 2f 6c 69 | 6e 65 48 65 69 67 68 74 | = dv/li|neHeight|
|000016a0| 3b 0d 09 6f 6c 64 53 63 | 72 6f 6c 6c 56 61 6c 20 |;..oldSc|rollVal |
|000016b0| 3d 20 47 65 74 43 6f 6e | 74 72 6f 6c 56 61 6c 75 |= GetCon|trolValu|
|000016c0| 65 28 76 53 63 72 6f 6c | 6c 29 3b 0d 09 6d 61 78 |e(vScrol|l);..max|
|000016d0| 20 3d 20 47 65 74 43 6f | 6e 74 72 6f 6c 4d 61 78 | = GetCo|ntrolMax|
|000016e0| 69 6d 75 6d 28 76 53 63 | 72 6f 6c 6c 29 3b 0d 09 |imum(vSc|roll);..|
|000016f0| 69 66 20 28 6f 6c 64 53 | 63 72 6f 6c 6c 56 61 6c |if (oldS|crollVal|
|00001700| 20 2d 20 64 76 20 3e 20 | 6d 61 78 29 20 64 76 20 | - dv > |max) dv |
|00001710| 3d 20 6f 6c 64 53 63 72 | 6f 6c 6c 56 61 6c 20 2d |= oldScr|ollVal -|
|00001720| 20 6d 61 78 3b 0d 09 54 | 45 53 63 72 6f 6c 6c 53 | max;..T|EScrollS|
|00001730| 63 72 6f 6c 6c 54 65 78 | 74 28 74 68 65 54 45 2c |crollTex|t(theTE,|
|00001740| 20 76 53 63 72 6f 6c 6c | 2c 20 64 76 29 3b 0d 09 | vScroll|, dv);..|
|00001750| 53 65 74 43 6f 6e 74 72 | 6f 6c 56 61 6c 75 65 28 |SetContr|olValue(|
|00001760| 76 53 63 72 6f 6c 6c 2c | 20 6f 6c 64 53 63 72 6f |vScroll,| oldScro|
|00001770| 6c 6c 56 61 6c 20 2d 20 | 64 76 29 3b 20 0d 7d 0d |llVal - |dv); .}.|
|00001780| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|00001790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017d0| 2d 0d 09 54 45 53 63 72 | 6f 6c 6c 53 63 72 6f 6c |-..TEScr|ollScrol|
|000017e0| 6c 53 65 6c 65 63 74 69 | 6f 6e 49 6e 74 6f 56 69 |lSelecti|onIntoVi|
|000017f0| 65 77 20 0d 09 0d 09 53 | 63 72 6f 6c 6c 20 74 68 |ew ....S|croll th|
|00001800| 65 20 63 75 72 72 65 6e | 74 20 73 65 6c 65 63 74 |e curren|t select|
|00001810| 69 6f 6e 20 69 6e 74 6f | 20 76 69 65 77 2c 20 69 |ion into| view, i|
|00001820| 66 20 6e 65 63 65 73 73 | 61 72 79 2e 0d 09 09 09 |f necess|ary.....|
|00001830| 0d 09 45 6e 74 72 79 3a | 09 74 68 65 54 45 20 3d |..Entry:|.theTE =|
|00001840| 20 68 61 6e 64 6c 65 20 | 74 6f 20 54 65 78 74 45 | handle |to TextE|
|00001850| 64 69 74 20 72 65 63 6f | 72 64 2e 0d 09 09 09 76 |dit reco|rd.....v|
|00001860| 53 63 72 6f 6c 6c 20 3d | 20 68 61 6e 64 6c 65 20 |Scroll =| handle |
|00001870| 74 6f 20 73 63 72 6f 6c | 6c 20 62 61 72 20 63 6f |to scrol|l bar co|
|00001880| 6e 74 72 6f 6c 2e 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ntrol..-|--------|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018d0| 2d 2d 2d 2a 2f 0d 0d 76 | 6f 69 64 20 54 45 53 63 |---*/..v|oid TESc|
|000018e0| 72 6f 6c 6c 53 63 72 6f | 6c 6c 53 65 6c 65 63 74 |rollScro|llSelect|
|000018f0| 69 6f 6e 49 6e 74 6f 56 | 69 65 77 20 28 54 45 48 |ionIntoV|iew (TEH|
|00001900| 61 6e 64 6c 65 20 74 68 | 65 54 45 2c 20 43 6f 6e |andle th|eTE, Con|
|00001910| 74 72 6f 6c 48 61 6e 64 | 6c 65 20 76 53 63 72 6f |trolHand|le vScro|
|00001920| 6c 6c 29 0d 7b 0d 09 54 | 45 53 63 72 6f 6c 6c 53 |ll).{..T|EScrollS|
|00001930| 63 72 6f 6c 6c 52 61 6e | 67 65 49 6e 74 6f 56 69 |crollRan|geIntoVi|
|00001940| 65 77 28 74 68 65 54 45 | 2c 20 28 2a 2a 74 68 65 |ew(theTE|, (**the|
|00001950| 54 45 29 2e 73 65 6c 53 | 74 61 72 74 2c 20 28 2a |TE).selS|tart, (*|
|00001960| 2a 74 68 65 54 45 29 2e | 73 65 6c 45 6e 64 2c 0d |*theTE).|selEnd,.|
|00001970| 09 09 76 53 63 72 6f 6c | 6c 29 3b 0d 7d 0d 0d 0d |..vScrol|l);.}...|
|00001980| 0d 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|00001990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000019d0| 09 54 45 53 63 72 6f 6c | 6c 53 63 72 6f 6c 6c 54 |.TEScrol|lScrollT|
|000019e0| 6f 4d 69 64 64 6c 65 20 | 0d 09 0d 09 53 63 72 6f |oMiddle |....Scro|
|000019f0| 6c 6c 20 61 20 67 69 76 | 65 6e 20 70 6f 69 6e 74 |ll a giv|en point|
|00001a00| 20 69 6e 20 74 68 65 20 | 74 65 78 74 20 74 6f 20 | in the |text to |
|00001a10| 74 68 65 20 6d 69 64 64 | 6c 65 20 6f 66 20 74 68 |the midd|le of th|
|00001a20| 65 20 76 69 65 77 2c 20 | 69 66 20 6e 65 63 65 73 |e view, |if neces|
|00001a30| 73 61 72 79 2e 0d 09 09 | 09 0d 09 45 6e 74 72 79 |sary....|...Entry|
|00001a40| 3a 09 74 68 65 54 45 20 | 3d 20 68 61 6e 64 6c 65 |:.theTE |= handle|
|00001a50| 20 74 6f 20 54 65 78 74 | 45 64 69 74 20 72 65 63 | to Text|Edit rec|
|00001a60| 6f 72 64 2e 0d 09 09 09 | 6f 66 66 73 65 74 20 3d |ord.....|offset =|
|00001a70| 20 6f 66 66 73 65 74 20 | 6f 66 20 63 68 61 72 61 | offset |of chara|
|00001a80| 63 74 65 72 20 74 6f 20 | 73 63 72 6f 6c 6c 20 74 |cter to |scroll t|
|00001a90| 6f 20 6d 69 64 64 6c 65 | 2e 0d 09 09 09 76 53 63 |o middle|.....vSc|
|00001aa0| 72 6f 6c 6c 20 3d 20 68 | 61 6e 64 6c 65 20 74 6f |roll = h|andle to|
|00001ab0| 20 73 63 72 6f 6c 6c 20 | 62 61 72 20 63 6f 6e 74 | scroll |bar cont|
|00001ac0| 72 6f 6c 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rol..---|--------|
|00001ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b10| 2d 2a 2f 0d 0d 76 6f 69 | 64 20 54 45 53 63 72 6f |-*/..voi|d TEScro|
|00001b20| 6c 6c 53 63 72 6f 6c 6c | 54 6f 4d 69 64 64 6c 65 |llScroll|ToMiddle|
|00001b30| 20 28 54 45 48 61 6e 64 | 6c 65 20 74 68 65 54 45 | (TEHand|le theTE|
|00001b40| 2c 20 73 68 6f 72 74 20 | 6f 66 66 73 65 74 2c 20 |, short |offset, |
|00001b50| 43 6f 6e 74 72 6f 6c 48 | 61 6e 64 6c 65 20 76 53 |ControlH|andle vS|
|00001b60| 63 72 6f 6c 6c 29 0d 7b | 0d 09 73 68 6f 72 74 20 |croll).{|..short |
|00001b70| 6c 69 6e 65 53 74 61 72 | 74 2c 20 74 6f 70 2c 20 |lineStar|t, top, |
|00001b80| 6c 69 6e 65 48 65 69 67 | 68 74 2c 20 76 53 74 61 |lineHeig|ht, vSta|
|00001b90| 72 74 3b 0d 09 73 68 6f | 72 74 20 6f 6c 64 53 63 |rt;..sho|rt oldSc|
|00001ba0| 72 6f 6c 6c 56 61 6c 2c | 20 6d 61 78 2c 20 64 76 |rollVal,| max, dv|
|00001bb0| 2c 20 76 69 65 77 48 65 | 69 67 68 74 3b 0d 09 52 |, viewHe|ight;..R|
|00001bc0| 65 63 74 20 76 69 65 77 | 52 65 63 74 3b 0d 09 73 |ect view|Rect;..s|
|00001bd0| 68 6f 72 74 20 73 61 76 | 65 64 43 6c 69 6b 53 74 |hort sav|edClikSt|
|00001be0| 75 66 66 3b 0d 0d 09 54 | 45 53 63 72 6f 6c 6c 41 |uff;...T|EScrollA|
|00001bf0| 64 6a 75 73 74 53 63 72 | 6f 6c 6c 4d 61 78 28 74 |djustScr|ollMax(t|
|00001c00| 68 65 54 45 2c 20 76 53 | 63 72 6f 6c 6c 29 3b 0d |heTE, vS|croll);.|
|00001c10| 09 73 61 76 65 64 43 6c | 69 6b 53 74 75 66 66 20 |.savedCl|ikStuff |
|00001c20| 3d 20 28 2a 2a 74 68 65 | 54 45 29 2e 63 6c 69 6b |= (**the|TE).clik|
|00001c30| 53 74 75 66 66 3b 0d 09 | 28 2a 2a 74 68 65 54 45 |Stuff;..|(**theTE|
|00001c40| 29 2e 63 6c 69 6b 53 74 | 75 66 66 20 3d 20 30 78 |).clikSt|uff = 0x|
|00001c50| 66 66 66 66 3b 0d 09 6c | 69 6e 65 53 74 61 72 74 |ffff;..l|ineStart|
|00001c60| 20 3d 20 54 45 53 63 72 | 6f 6c 6c 47 65 74 54 45 | = TEScr|ollGetTE|
|00001c70| 4c 69 6e 65 4e 75 6d 62 | 65 72 28 6f 66 66 73 65 |LineNumb|er(offse|
|00001c80| 74 2c 20 74 68 65 54 45 | 29 3b 0d 09 28 2a 2a 74 |t, theTE|);..(**t|
|00001c90| 68 65 54 45 29 2e 63 6c | 69 6b 53 74 75 66 66 20 |heTE).cl|ikStuff |
|00001ca0| 3d 20 73 61 76 65 64 43 | 6c 69 6b 53 74 75 66 66 |= savedC|likStuff|
|00001cb0| 3b 0d 09 74 6f 70 20 3d | 20 28 2a 2a 74 68 65 54 |;..top =| (**theT|
|00001cc0| 45 29 2e 64 65 73 74 52 | 65 63 74 2e 74 6f 70 3b |E).destR|ect.top;|
|00001cd0| 0d 09 6c 69 6e 65 48 65 | 69 67 68 74 20 3d 20 28 |..lineHe|ight = (|
|00001ce0| 2a 2a 74 68 65 54 45 29 | 2e 6c 69 6e 65 48 65 69 |**theTE)|.lineHei|
|00001cf0| 67 68 74 3b 0d 09 76 53 | 74 61 72 74 20 3d 20 74 |ght;..vS|tart = t|
|00001d00| 6f 70 20 2b 20 6c 69 6e | 65 53 74 61 72 74 2a 6c |op + lin|eStart*l|
|00001d10| 69 6e 65 48 65 69 67 68 | 74 3b 0d 09 76 69 65 77 |ineHeigh|t;..view|
|00001d20| 52 65 63 74 20 3d 20 28 | 2a 2a 74 68 65 54 45 29 |Rect = (|**theTE)|
|00001d30| 2e 76 69 65 77 52 65 63 | 74 3b 0d 09 69 66 20 28 |.viewRec|t;..if (|
|00001d40| 76 53 74 61 72 74 20 3e | 3d 20 76 69 65 77 52 65 |vStart >|= viewRe|
|00001d50| 63 74 2e 74 6f 70 20 26 | 26 20 76 53 74 61 72 74 |ct.top &|& vStart|
|00001d60| 20 3c 3d 20 76 69 65 77 | 52 65 63 74 2e 62 6f 74 | <= view|Rect.bot|
|00001d70| 74 6f 6d 20 2d 20 6c 69 | 6e 65 48 65 69 67 68 74 |tom - li|neHeight|
|00001d80| 29 20 72 65 74 75 72 6e | 3b 0d 09 76 69 65 77 48 |) return|;..viewH|
|00001d90| 65 69 67 68 74 20 3d 20 | 28 76 69 65 77 52 65 63 |eight = |(viewRec|
|00001da0| 74 2e 62 6f 74 74 6f 6d | 20 2d 20 76 69 65 77 52 |t.bottom| - viewR|
|00001db0| 65 63 74 2e 74 6f 70 29 | 20 2f 20 6c 69 6e 65 48 |ect.top)| / lineH|
|00001dc0| 65 69 67 68 74 3b 0d 09 | 64 76 20 3d 20 28 76 69 |eight;..|dv = (vi|
|00001dd0| 65 77 52 65 63 74 2e 74 | 6f 70 20 2d 20 76 53 74 |ewRect.t|op - vSt|
|00001de0| 61 72 74 29 2f 6c 69 6e | 65 48 65 69 67 68 74 20 |art)/lin|eHeight |
|00001df0| 2b 20 28 76 69 65 77 48 | 65 69 67 68 74 20 3e 3e |+ (viewH|eight >>|
|00001e00| 20 31 29 3b 0d 09 6f 6c | 64 53 63 72 6f 6c 6c 56 | 1);..ol|dScrollV|
|00001e10| 61 6c 20 3d 20 47 65 74 | 43 6f 6e 74 72 6f 6c 56 |al = Get|ControlV|
|00001e20| 61 6c 75 65 28 76 53 63 | 72 6f 6c 6c 29 3b 0d 09 |alue(vSc|roll);..|
|00001e30| 6d 61 78 20 3d 20 47 65 | 74 43 6f 6e 74 72 6f 6c |max = Ge|tControl|
|00001e40| 4d 61 78 69 6d 75 6d 28 | 76 53 63 72 6f 6c 6c 29 |Maximum(|vScroll)|
|00001e50| 3b 0d 09 69 66 20 28 6f | 6c 64 53 63 72 6f 6c 6c |;..if (o|ldScroll|
|00001e60| 56 61 6c 20 2d 20 64 76 | 20 3e 20 6d 61 78 29 20 |Val - dv| > max) |
|00001e70| 64 76 20 3d 20 6f 6c 64 | 53 63 72 6f 6c 6c 56 61 |dv = old|ScrollVa|
|00001e80| 6c 20 2d 20 6d 61 78 3b | 0d 09 54 45 53 63 72 6f |l - max;|..TEScro|
|00001e90| 6c 6c 53 63 72 6f 6c 6c | 54 65 78 74 28 74 68 65 |llScroll|Text(the|
|00001ea0| 54 45 2c 20 76 53 63 72 | 6f 6c 6c 2c 20 64 76 29 |TE, vScr|oll, dv)|
|00001eb0| 3b 0d 09 53 65 74 43 6f | 6e 74 72 6f 6c 56 61 6c |;..SetCo|ntrolVal|
|00001ec0| 75 65 28 76 53 63 72 6f | 6c 6c 2c 20 6f 6c 64 53 |ue(vScro|ll, oldS|
|00001ed0| 63 72 6f 6c 6c 56 61 6c | 20 2d 20 64 76 29 3b 20 |crollVal| - dv); |
|00001ee0| 0d 7d 0d 0d 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |.}..../*|--------|
|00001ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f30| 2d 2d 2d 2d 0d 09 54 45 | 53 63 72 6f 6c 6c 53 63 |----..TE|ScrollSc|
|00001f40| 72 6f 6c 6c 42 79 50 61 | 72 74 43 6f 64 65 20 0d |rollByPa|rtCode .|
|00001f50| 09 0d 09 53 63 72 6f 6c | 6c 20 74 65 78 74 20 62 |...Scrol|l text b|
|00001f60| 79 20 70 61 72 74 20 63 | 6f 64 65 2e 0d 09 09 09 |y part c|ode.....|
|00001f70| 0d 09 45 6e 74 72 79 3a | 09 74 68 65 54 45 20 3d |..Entry:|.theTE =|
|00001f80| 20 68 61 6e 64 6c 65 20 | 74 6f 20 54 65 78 74 45 | handle |to TextE|
|00001f90| 64 69 74 20 72 65 63 6f | 72 64 2e 0d 09 09 09 76 |dit reco|rd.....v|
|00001fa0| 53 63 72 6f 6c 6c 20 3d | 20 68 61 6e 64 6c 65 20 |Scroll =| handle |
|00001fb0| 74 6f 20 73 63 72 6f 6c | 6c 20 62 61 72 20 63 6f |to scrol|l bar co|
|00001fc0| 6e 74 72 6f 6c 2e 0d 09 | 09 09 70 61 72 74 20 3d |ntrol...|..part =|
|00001fd0| 20 70 61 72 74 20 63 6f | 64 65 2e 0d 2d 2d 2d 2d | part co|de..----|
|00001fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002020| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 76 6f 69 64 |--------|*/..void|
|00002030| 20 54 45 53 63 72 6f 6c | 6c 53 63 72 6f 6c 6c 42 | TEScrol|lScrollB|
|00002040| 79 50 61 72 74 43 6f 64 | 65 20 28 54 45 48 61 6e |yPartCod|e (TEHan|
|00002050| 64 6c 65 20 74 68 65 54 | 45 2c 20 43 6f 6e 74 72 |dle theT|E, Contr|
|00002060| 6f 6c 48 61 6e 64 6c 65 | 20 76 53 63 72 6f 6c 6c |olHandle| vScroll|
|00002070| 2c 20 73 68 6f 72 74 20 | 70 61 72 74 29 0d 7b 0d |, short |part).{.|
|00002080| 09 73 68 6f 72 74 20 76 | 61 6c 2c 20 6d 61 78 2c |.short v|al, max,|
|00002090| 20 70 61 67 65 2c 20 64 | 76 3b 0d 0d 09 70 61 67 | page, d|v;...pag|
|000020a0| 65 20 3d 20 47 65 74 54 | 45 50 61 67 65 48 65 69 |e = GetT|EPageHei|
|000020b0| 67 68 74 28 74 68 65 54 | 45 29 3b 0d 09 76 61 6c |ght(theT|E);..val|
|000020c0| 20 3d 20 28 2a 2a 76 53 | 63 72 6f 6c 6c 29 2e 63 | = (**vS|croll).c|
|000020d0| 6f 6e 74 72 6c 56 61 6c | 75 65 3b 0d 09 6d 61 78 |ontrlVal|ue;..max|
|000020e0| 20 3d 20 28 2a 2a 76 53 | 63 72 6f 6c 6c 29 2e 63 | = (**vS|croll).c|
|000020f0| 6f 6e 74 72 6c 4d 61 78 | 3b 0d 09 64 76 20 3d 20 |ontrlMax|;..dv = |
|00002100| 30 3b 0d 09 73 77 69 74 | 63 68 20 28 70 61 72 74 |0;..swit|ch (part|
|00002110| 29 20 7b 0d 09 09 63 61 | 73 65 20 69 6e 55 70 42 |) {...ca|se inUpB|
|00002120| 75 74 74 6f 6e 3a 0d 09 | 09 09 64 76 20 3d 20 76 |utton:..|..dv = v|
|00002130| 61 6c 20 3e 20 30 20 3f | 20 31 20 3a 20 30 3b 0d |al > 0 ?| 1 : 0;.|
|00002140| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 63 61 73 65 |...break|;...case|
|00002150| 20 69 6e 44 6f 77 6e 42 | 75 74 74 6f 6e 3a 0d 09 | inDownB|utton:..|
|00002160| 09 09 64 76 20 3d 20 76 | 61 6c 20 3c 20 6d 61 78 |..dv = v|al < max|
|00002170| 20 3f 20 2d 31 20 3a 20 | 30 3b 0d 09 09 09 62 72 | ? -1 : |0;....br|
|00002180| 65 61 6b 3b 0d 09 09 63 | 61 73 65 20 69 6e 50 61 |eak;...c|ase inPa|
|00002190| 67 65 55 70 3a 0d 09 09 | 09 64 76 20 3d 20 76 61 |geUp:...|.dv = va|
|000021a0| 6c 20 3e 20 70 61 67 65 | 20 3f 20 70 61 67 65 20 |l > page| ? page |
|000021b0| 3a 20 76 61 6c 3b 0d 09 | 09 09 62 72 65 61 6b 3b |: val;..|..break;|
|000021c0| 0d 09 09 63 61 73 65 20 | 69 6e 50 61 67 65 44 6f |...case |inPageDo|
|000021d0| 77 6e 3a 0d 09 09 09 64 | 76 20 3d 20 76 61 6c 20 |wn:....d|v = val |
|000021e0| 3c 20 6d 61 78 20 3f 20 | 2d 70 61 67 65 20 3a 20 |< max ? |-page : |
|000021f0| 30 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 63 |0;....br|eak;...c|
|00002200| 61 73 65 20 6b 53 63 72 | 6f 6c 6c 54 6f 48 6f 6d |ase kScr|ollToHom|
|00002210| 65 3a 0d 09 09 09 64 76 | 20 3d 20 76 61 6c 3b 0d |e:....dv| = val;.|
|00002220| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 63 61 73 65 |...break|;...case|
|00002230| 20 6b 53 63 72 6f 6c 6c | 54 6f 45 6e 64 3a 0d 09 | kScroll|ToEnd:..|
|00002240| 09 09 64 76 20 3d 20 76 | 61 6c 20 2d 20 6d 61 78 |..dv = v|al - max|
|00002250| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 7d 0d 09 |;....bre|ak;..}..|
|00002260| 69 66 20 28 64 76 20 21 | 3d 20 30 29 20 7b 0d 09 |if (dv !|= 0) {..|
|00002270| 09 54 45 53 63 72 6f 6c | 6c 53 63 72 6f 6c 6c 54 |.TEScrol|lScrollT|
|00002280| 65 78 74 28 74 68 65 54 | 45 2c 20 76 53 63 72 6f |ext(theT|E, vScro|
|00002290| 6c 6c 2c 20 64 76 29 3b | 0d 09 09 54 45 53 63 72 |ll, dv);|...TEScr|
|000022a0| 6f 6c 6c 41 64 6a 75 73 | 74 53 63 72 6f 6c 6c 4d |ollAdjus|tScrollM|
|000022b0| 61 78 28 74 68 65 54 45 | 2c 20 76 53 63 72 6f 6c |ax(theTE|, vScrol|
|000022c0| 6c 29 3b 0d 09 09 53 65 | 74 43 6f 6e 74 72 6f 6c |l);...Se|tControl|
|000022d0| 56 61 6c 75 65 28 76 53 | 63 72 6f 6c 6c 2c 20 76 |Value(vS|croll, v|
|000022e0| 61 6c 20 2d 20 64 76 29 | 3b 0d 09 7d 0d 7d 0d 0d |al - dv)|;..}.}..|
|000022f0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00002300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002340| 0d 09 54 45 53 63 72 6f | 6c 6c 41 75 74 6f 53 63 |..TEScro|llAutoSc|
|00002350| 72 6f 6c 6c 20 0d 09 0d | 09 48 61 6e 64 6c 65 20 |roll ...|.Handle |
|00002360| 74 65 78 74 20 61 75 74 | 6f 73 63 72 6f 6c 6c 69 |text aut|oscrolli|
|00002370| 6e 67 2e 0d 09 0d 09 45 | 6e 74 72 79 3a 09 74 68 |ng.....E|ntry:.th|
|00002380| 65 54 45 20 3d 20 68 61 | 6e 64 6c 65 20 74 6f 20 |eTE = ha|ndle to |
|00002390| 54 65 78 74 45 64 69 74 | 20 72 65 63 6f 72 64 2e |TextEdit| record.|
|000023a0| 0d 09 09 09 76 53 63 72 | 6f 6c 6c 20 3d 20 68 61 |....vScr|oll = ha|
|000023b0| 6e 64 6c 65 20 74 6f 20 | 73 63 72 6f 6c 6c 20 62 |ndle to |scroll b|
|000023c0| 61 72 20 63 6f 6e 74 72 | 6f 6c 2e 0d 09 09 09 0d |ar contr|ol......|
|000023d0| 09 45 78 69 74 3a 09 66 | 75 6e 63 74 69 6f 6e 20 |.Exit:.f|unction |
|000023e0| 72 65 73 75 6c 74 20 3d | 20 74 72 75 65 0d 2d 2d |result =| true.--|
|000023f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0d 76 6f |--------|--*/..vo|
|00002440| 69 64 20 54 45 53 63 72 | 6f 6c 6c 41 75 74 6f 53 |id TEScr|ollAutoS|
|00002450| 63 72 6f 6c 6c 20 28 54 | 45 48 61 6e 64 6c 65 20 |croll (T|EHandle |
|00002460| 74 68 65 54 45 2c 20 43 | 6f 6e 74 72 6f 6c 48 61 |theTE, C|ontrolHa|
|00002470| 6e 64 6c 65 20 76 53 63 | 72 6f 6c 6c 29 0d 7b 0d |ndle vSc|roll).{.|
|00002480| 09 52 65 63 74 20 76 69 | 65 77 52 65 63 74 3b 0d |.Rect vi|ewRect;.|
|00002490| 09 50 6f 69 6e 74 20 77 | 68 65 72 65 3b 0d 09 73 |.Point w|here;..s|
|000024a0| 68 6f 72 74 20 76 61 6c | 2c 20 6d 61 78 3b 0d 0d |hort val|, max;..|
|000024b0| 09 76 61 6c 20 3d 20 47 | 65 74 43 6f 6e 74 72 6f |.val = G|etContro|
|000024c0| 6c 56 61 6c 75 65 28 76 | 53 63 72 6f 6c 6c 29 3b |lValue(v|Scroll);|
|000024d0| 0d 09 6d 61 78 20 3d 20 | 47 65 74 43 6f 6e 74 72 |..max = |GetContr|
|000024e0| 6f 6c 4d 61 78 69 6d 75 | 6d 28 76 53 63 72 6f 6c |olMaximu|m(vScrol|
|000024f0| 6c 29 3b 0d 09 76 69 65 | 77 52 65 63 74 20 3d 20 |l);..vie|wRect = |
|00002500| 28 2a 2a 74 68 65 54 45 | 29 2e 76 69 65 77 52 65 |(**theTE|).viewRe|
|00002510| 63 74 3b 0d 09 47 65 74 | 4d 6f 75 73 65 28 26 77 |ct;..Get|Mouse(&w|
|00002520| 68 65 72 65 29 3b 0d 09 | 43 6c 69 70 52 65 63 74 |here);..|ClipRect|
|00002530| 28 26 71 64 2e 74 68 65 | 50 6f 72 74 2d 3e 70 6f |(&qd.the|Port->po|
|00002540| 72 74 52 65 63 74 29 3b | 0d 09 69 66 20 28 77 68 |rtRect);|..if (wh|
|00002550| 65 72 65 2e 76 20 3c 20 | 76 69 65 77 52 65 63 74 |ere.v < |viewRect|
|00002560| 2e 74 6f 70 20 26 26 20 | 76 61 6c 20 3e 20 30 29 |.top && |val > 0)|
|00002570| 20 7b 0d 09 09 54 45 53 | 63 72 6f 6c 6c 53 63 72 | {...TES|crollScr|
|00002580| 6f 6c 6c 54 65 78 74 28 | 74 68 65 54 45 2c 20 76 |ollText(|theTE, v|
|00002590| 53 63 72 6f 6c 6c 2c 20 | 31 29 3b 0d 09 09 53 65 |Scroll, |1);...Se|
|000025a0| 74 43 6f 6e 74 72 6f 6c | 56 61 6c 75 65 28 76 53 |tControl|Value(vS|
|000025b0| 63 72 6f 6c 6c 2c 20 76 | 61 6c 2d 31 29 3b 0d 09 |croll, v|al-1);..|
|000025c0| 7d 20 65 6c 73 65 20 69 | 66 20 28 77 68 65 72 65 |} else i|f (where|
|000025d0| 2e 76 20 3e 20 76 69 65 | 77 52 65 63 74 2e 62 6f |.v > vie|wRect.bo|
|000025e0| 74 74 6f 6d 20 26 26 20 | 76 61 6c 20 3c 20 6d 61 |ttom && |val < ma|
|000025f0| 78 29 20 7b 0d 09 09 54 | 45 53 63 72 6f 6c 6c 53 |x) {...T|EScrollS|
|00002600| 63 72 6f 6c 6c 54 65 78 | 74 28 74 68 65 54 45 2c |crollTex|t(theTE,|
|00002610| 20 76 53 63 72 6f 6c 6c | 2c 20 2d 31 29 3b 0d 09 | vScroll|, -1);..|
|00002620| 09 53 65 74 43 6f 6e 74 | 72 6f 6c 56 61 6c 75 65 |.SetCont|rolValue|
|00002630| 28 76 53 63 72 6f 6c 6c | 2c 20 76 61 6c 2b 31 29 |(vScroll|, val+1)|
|00002640| 3b 0d 09 7d 0d 09 43 6c | 69 70 52 65 63 74 28 26 |;..}..Cl|ipRect(&|
|00002650| 76 69 65 77 52 65 63 74 | 29 3b 0d 7d 0d 00 00 00 |viewRect|);.}....|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002680| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00002690| 68 65 20 75 73 65 72 20 | 64 6f 63 75 6d 65 6e 74 |he user |document|
|000026a0| 20 62 65 66 6f 72 65 20 | 74 72 79 69 6e 67 20 74 | before |trying t|
|000026b0| 0a 74 65 73 63 72 6f 6c | 6c 2e 63 00 02 00 00 00 |.tescrol|l.c.....|
|000026c0| 54 45 58 54 4d 4d 43 43 | 01 00 01 04 00 40 00 00 |TEXTMMCC|.....@..|
|000026d0| 00 00 54 45 58 54 4d 4d | 43 43 01 00 01 04 00 40 |..TEXTMM|CC.....@|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 aa 4f 8b 81 00 00 | 25 dd 00 00 01 9a 20 63 |...O....|%..... c|
|00002700| 6f 6d 6d 61 6e 64 20 66 | 6f 72 20 73 65 61 72 63 |ommand f|or searc|
|00002710| 68 65 73 20 00 00 00 00 | 00 91 00 14 00 a1 01 b8 |hes ....|........|
|00002720| 05 38 44 6f 6e d5 74 20 | 6f 70 65 6e 20 6e 65 77 |.8Don.t |open new|
|00002730| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 20 77 68 65 6e | connect|ion when|
|00002740| 20 63 68 65 63 6b 69 6e | 67 20 66 6f 72 20 6e 65 | checkin|g for ne|
|00002750| 77 20 61 72 74 69 63 6c | 65 73 00 00 00 00 00 a5 |w articl|es......|
|00002760| 00 14 00 b5 01 b8 05 1e | 44 6f 6e d5 74 20 73 65 |........|Don.t se|
|00002770| 6e 64 20 4d 4f 44 45 20 | 52 45 41 44 45 52 20 63 |nd MODE |READER c|
|00002780| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00002790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027a0| 00 00 00 00 00 00 00 03 | 00 04 00 58 00 04 01 dc |........|...X....|
|000027b0| 02 7c 00 58 00 04 01 dc | 02 7c ac 1b 19 35 00 00 |.|.X....|.|...5..|
|000027c0| 08 63 00 00 08 7a 00 00 | 07 b8 01 00 00 00 00 04 |.c...z..|........|
|000027d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|000027e0| 00 00 00 46 01 4e 2c 58 | 10 e6 00 00 00 1c 00 46 |...F.N,X|.......F|
|000027f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00002800| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00002810| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00002820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+