/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU1.DMS / in.adf / Includes / intuition / sghooks.bb2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 20 24 56 45 | 52 3a 20 73 67 68 6f 6f |;.;  $VE|R: sghoo|
|00000010| 6b 73 2e 62 62 32 20 34 | 30 2e 30 20 28 30 32 2e |ks.bb2 4|0.0 (02.|
|00000020| 30 33 2e 39 34 29 00 3b | 00 00 80 12 22 65 78 65 |03.94).;|...."exe|
|00000030| 63 2f 74 79 70 65 73 2e | 62 62 32 22 00 00 80 01 |c/types.|bb2"....|
|00000040| 2e 53 74 72 69 6e 67 45 | 78 74 65 6e 64 00 3b 2f |.StringE|xtend.;/|
|00000050| 2a 20 64 69 73 70 6c 61 | 79 20 73 70 65 63 69 66 |* displa|y specif|
|00000060| 69 63 61 74 69 6f 6e 73 | 20 2a 2f 00 2a 46 6f 6e |ications| */.*Fon|
|00000070| 74 2e 54 65 78 74 46 6f | 6e 74 3b 2f 2a 20 6d 75 |t.TextFo|nt;/* mu|
|00000080| 73 74 20 62 65 20 61 6e | 20 6f 70 65 6e 20 46 6f |st be an| open Fo|
|00000090| 6e 74 20 28 6e 6f 74 20 | 54 65 78 74 41 74 74 72 |nt (not |TextAttr|
|000000a0| 29 20 2a 2f 00 50 65 6e | 73 2e 62 5b 32 5d 20 3b |) */.Pen|s.b[2] ;|
|000000b0| 2f 2a 20 63 6f 6c 6f 72 | 20 6f 66 20 74 65 78 74 |/* color| of text|
|000000c0| 2f 62 61 63 6b 67 72 6f | 75 6e 20 20 2a 2f 00 41 |/backgro|un  */.A|
|000000d0| 63 74 69 76 65 50 65 6e | 73 2e 62 5b 32 5d 20 3b |ctivePen|s.b[2] ;|
|000000e0| 2f 2a 20 63 6f 6c 6f 72 | 73 20 77 68 65 6e 20 67 |/* color|s when g|
|000000f0| 61 64 67 65 74 20 69 73 | 20 61 63 74 69 76 00 00 |adget is| activ..|
|00000100| 3b 2f 2a 20 65 64 69 74 | 20 73 70 65 63 69 66 69 |;/* edit| specifi|
|00000110| 63 61 74 69 6f 6e 73 20 | 2a 2f 00 49 6e 69 74 69 |cations |*/.Initi|
|00000120| 61 6c 4d 6f 64 65 73 2e | 6c 20 3b 2f 2a 20 69 6e |alModes.|l ;/* in|
|00000130| 69 74 69 61 6c 20 6d 6f | 64 65 20 66 6c 61 67 73 |itial mo|de flags|
|00000140| 2c 20 62 65 6c 6f 77 20 | 20 2a 2f 00 2a 45 64 69 |, below | */.*Edi|
|00000150| 74 48 6f 6f 6b 2e 48 6f | 6f 6b 3b 2f 2a 20 69 66 |tHook.Ho|ok;/* if|
|00000160| 20 6e 6f 6e 2d 4e 55 4c | 4c 2c 20 6d 75 73 74 20 | non-NUL|L, must |
|00000170| 73 75 70 70 6c 79 20 57 | 6f 72 6b 42 75 66 66 65 |supply W|orkBuffe|
|00000180| 72 20 2a 2f 00 2a 57 6f | 72 6b 42 75 66 66 65 72 |r */.*Wo|rkBuffer|
|00000190| 2e 62 20 3b 2f 2a 20 6d | 75 73 74 20 62 65 20 61 |.b ;/* m|ust be a|
|000001a0| 73 20 6c 61 72 67 65 20 | 61 73 20 53 74 72 69 6e |s large |as Strin|
|000001b0| 67 49 6e 66 6f 2e 42 75 | 66 66 65 72 2a 2f 00 00 |gInfo.Bu|ffer*/..|
|000001c0| 52 65 73 65 72 76 65 64 | 2e 6c 5b 34 5d 20 3b 2f |Reserved|.l[4] ;/|
|000001d0| 2a 20 73 65 74 20 74 6f | 20 30 20 20 20 20 2a 2f |* set to| 0    */|
|000001e0| 00 80 02 20 80 01 00 00 | 80 01 2e 53 47 57 6f 72 |... ....|...SGWor|
|000001f0| 6b 00 3b 2f 2a 20 73 65 | 74 20 75 70 20 77 68 65 |k.;/* se|t up whe|
|00000200| 6e 20 67 61 64 67 65 74 | 20 69 73 20 66 69 72 73 |n gadget| is firs|
|00000210| 74 20 61 63 74 69 76 61 | 74 65 64 20 2a 2f 00 2a |t activa|ted */.*|
|00000220| 47 61 64 67 65 74 2e 47 | 61 64 67 65 74 3b 2f 2a |Gadget.G|adget;/*|
|00000230| 20 74 68 65 20 63 6f 6e | 74 65 73 74 61 6e 74 20 | the con|testant |
|00000240| 69 74 73 65 6c 66 20 2a | 2f 00 2a 53 74 72 69 6e |itself *|/.*Strin|
|00000250| 67 49 6e 66 6f 2e 53 74 | 72 69 6e 67 49 6e 66 6f |gInfo.St|ringInfo|
|00000260| 3b 2f 2a 20 65 61 73 79 | 20 61 63 63 65 73 73 20 |;/* easy| access |
|00000270| 74 6f 20 73 69 6e 66 6f | 20 20 2a 2f 00 2a 57 6f |to sinfo|  */.*Wo|
|00000280| 72 6b 42 75 66 66 65 72 | 2e 62 20 3b 2f 2a 20 69 |rkBuffer|.b ;/* i|
|00000290| 6e 74 75 69 74 69 6f 6e | 27 73 20 70 6c 61 6e 6e |ntuition|'s plann|
|000002a0| 65 64 20 72 65 73 75 6c | 74 20 2a 2f 00 2a 50 72 |ed resul|t */.*Pr|
|000002b0| 65 76 42 75 66 66 65 72 | 2e 62 20 3b 2f 2a 20 77 |evBuffer|.b ;/* w|
|000002c0| 68 61 74 20 77 61 73 20 | 74 68 65 72 65 20 62 65 |hat was |there be|
|000002d0| 66 6f 72 65 20 2a 2f 00 | 4d 6f 64 65 73 2e 6c 20 |fore */.|Modes.l |
|000002e0| 3b 2f 2a 20 63 75 72 72 | 65 6e 74 20 6d 6f 64 65 |;/* curr|ent mode|
|000002f0| 20 20 20 2a 2f 00 00 3b | 2f 2a 20 6d 6f 64 69 66 |   */..;|/* modif|
|00000300| 69 65 64 20 66 6f 72 20 | 65 61 63 68 20 69 6e 70 |ied for |each inp|
|00000310| 75 74 20 65 76 65 6e 74 | 20 2a 2f 00 2a 49 45 76 |ut event| */.*IEv|
|00000320| 65 6e 74 2e 49 6e 70 75 | 74 45 76 65 6e 74 3b 2f |ent.Inpu|tEvent;/|
|00000330| 2a 20 61 63 74 75 61 6c | 20 65 76 65 6e 74 3a 20 |* actual| event: |
|00000340| 64 6f 20 6e 6f 74 20 63 | 68 61 6e 67 65 20 2a 2f |do not c|hange */|
|00000350| 00 43 6f 64 65 2e 77 20 | 3b 2f 2a 20 63 68 61 72 |.Code.w |;/* char|
|00000360| 61 63 74 65 72 20 63 6f | 64 65 2c 20 69 66 20 6f |acter co|de, if o|
|00000370| 6e 65 20 62 79 74 65 20 | 2a 2f 00 42 75 66 66 65 |ne byte |*/.Buffe|
|00000380| 72 50 6f 73 2e 77 20 3b | 2f 2a 20 63 75 72 73 6f |rPos.w ;|/* curso|
|00000390| 72 20 70 6f 73 69 74 69 | 6f 6e 20 20 2a 2f 00 4e |r positi|on  */.N|
|000003a0| 75 6d 43 68 61 72 73 2e | 77 00 41 63 74 69 6f 6e |umChars.|w.Action|
|000003b0| 73 2e 6c 20 3b 2f 2a 20 | 77 68 61 74 20 49 6e 74 |s.l ;/* |what Int|
|000003c0| 75 69 74 69 6f 6e 20 77 | 69 6c 6c 20 64 6f 20 2a |uition w|ill do *|
|000003d0| 2f 00 4c 6f 6e 67 49 6e | 74 2e 6c 20 3b 2f 2a 20 |/.LongIn|t.l ;/* |
|000003e0| 74 65 6d 70 20 73 74 6f | 72 61 67 65 20 66 6f 72 |temp sto|rage for|
|000003f0| 20 6c 6f 6e 67 69 6e 74 | 20 2a 2f 00 00 2a 47 61 | longint| */..*Ga|
|00000400| 64 67 65 74 49 6e 66 6f | 2e 47 61 64 67 65 74 49 |dgetInfo|.GadgetI|
|00000410| 6e 66 6f 3b 2f 2a 20 73 | 65 65 20 63 67 68 6f 6f |nfo;/* s|ee cghoo|
|00000420| 6b 73 2e 68 20 20 2a 2f | 00 45 64 69 74 4f 70 2e |ks.h  */|.EditOp.|
|00000430| 77 20 3b 2f 2a 20 66 72 | 6f 6d 20 63 6f 6e 73 74 |w ;/* fr|om const|
|00000440| 61 6e 74 73 20 62 65 6c | 6f 77 20 20 2a 2f 00 80 |ants bel|ow  */..|
|00000450| 02 20 80 01 00 00 3b 2f | 2a 20 53 47 57 6f 72 6b |. ....;/|* SGWork|
|00000460| 2e 45 64 69 74 4f 70 20 | 2d 00 3b 20 2a 20 54 68 |.EditOp |-.; * Th|
|00000470| 65 73 65 20 76 61 6c 75 | 65 73 20 69 6e 64 69 63 |ese valu|es indic|
|00000480| 61 74 65 20 77 68 61 74 | 20 62 61 73 69 63 20 74 |ate what| basic t|
|00000490| 79 70 65 20 6f 66 20 6f | 70 65 72 61 74 69 6f 6e |ype of o|peration|
|000004a0| 20 74 68 65 20 67 6c 6f | 62 61 6c 00 3b 20 2a 20 | the glo|bal.; * |
|000004b0| 65 64 69 74 69 6e 67 20 | 68 6f 6f 6b 20 68 61 73 |editing |hook has|
|000004c0| 20 70 65 72 66 6f 72 6d | 65 64 20 6f 6e 20 74 68 | perform|ed on th|
|000004d0| 65 20 73 74 72 69 6e 67 | 20 62 65 66 6f 72 65 20 |e string| before |
|000004e0| 79 6f 75 72 20 67 61 64 | 67 65 74 27 73 20 63 75 |your gad|get's cu|
|000004f0| 73 74 6f 6d 00 3b 20 2a | 20 65 64 69 74 69 6e 67 |stom.; *| editing|
|00000500| 20 68 6f 6f 6b 20 67 65 | 74 73 20 63 61 6c 6c 65 | hook ge|ts calle|
|00000510| 64 2e 20 20 59 6f 75 20 | 64 6f 20 6e 6f 74 20 68 |d.  You |do not h|
|00000520| 61 76 65 20 74 6f 20 62 | 65 20 63 6f 6e 63 65 72 |ave to b|e concer|
|00000530| 6e 65 64 20 77 69 74 68 | 20 74 68 65 00 3b 20 2a |ned with| the.; *|
|00000540| 20 76 61 6c 75 65 20 79 | 6f 75 72 20 63 75 73 74 | value y|our cust|
|00000550| 6f 6d 20 68 6f 6f 6b 20 | 6c 65 61 76 65 73 20 69 |om hook |leaves i|
|00000560| 6e 20 74 68 65 20 45 64 | 69 74 4f 70 20 66 69 65 |n the Ed|itOp fie|
|00000570| 6c 64 2c 20 6f 6e 6c 79 | 20 69 66 20 79 6f 75 00 |ld, only| if you.|
|00000580| 3b 20 2a 20 77 72 69 74 | 65 20 61 20 67 6c 6f 62 |; * writ|e a glob|
|00000590| 61 6c 20 65 64 69 74 69 | 6e 67 20 68 6f 6f 6b 2e |al editi|ng hook.|
|000005a0| 00 3b 20 2a 00 3b 20 2a | 20 46 6f 72 20 6d 6f 73 |.; *.; *| For mos|
|000005b0| 74 20 6f 66 20 74 68 65 | 73 65 20 67 65 6e 65 72 |t of the|se gener|
|000005c0| 61 6c 20 65 64 69 74 20 | 6f 70 65 72 61 74 69 6f |al edit |operatio|
|000005d0| 6e 73 2c 20 79 6f 75 27 | 6c 6c 20 77 61 6e 74 20 |ns, you'|ll want |
|000005e0| 74 6f 20 63 6f 6d 70 61 | 72 65 00 3b 20 2a 20 74 |to compa|re.; * t|
|000005f0| 68 65 20 42 75 66 66 65 | 72 50 6f 73 20 61 6e 64 |he Buffe|rPos and|
|00000600| 20 4e 75 6d 43 68 61 72 | 73 20 6f 66 20 74 68 65 | NumChar|s of the|
|00000610| 20 53 74 72 69 6e 67 49 | 6e 66 6f 20 28 62 65 66 | StringI|nfo (bef|
|00000620| 6f 72 65 20 67 6c 6f 62 | 61 6c 20 65 64 69 74 69 |ore glob|al editi|
|00000630| 6e 67 29 00 3b 20 2a 20 | 61 6e 64 20 53 47 57 6f |ng).; * |and SGWo|
|00000640| 72 6b 20 28 61 66 74 65 | 72 20 67 6c 6f 62 61 6c |rk (afte|r global|
|00000650| 20 65 64 69 74 69 6e 67 | 29 2e 00 3b 20 2a 2f 00 | editing|)..; */.|
|00000660| 00 23 45 4f 5f 4e 4f 4f | 50 3d 28 24 30 30 30 31 |.#EO_NOO|P=($0001|
|00000670| 29 00 3b 2f 2a 20 64 69 | 64 20 6e 6f 74 68 69 6e |).;/* di|d nothin|
|00000680| 67 20 20 20 20 20 20 20 | 2a 2f 00 23 45 4f 5f 44 |g       |*/.#EO_D|
|00000690| 45 4c 42 41 43 4b 57 41 | 52 44 3d 28 24 30 30 30 |ELBACKWA|RD=($000|
|000006a0| 32 29 00 3b 2f 2a 20 64 | 65 6c 65 74 65 64 20 73 |2).;/* d|eleted s|
|000006b0| 6f 6d 65 20 63 68 61 72 | 73 20 28 6d 61 79 62 65 |ome char|s (maybe|
|000006c0| 20 30 29 2e 20 20 20 20 | 2a 2f 00 23 45 4f 5f 44 | 0).    |*/.#EO_D|
|000006d0| 45 4c 46 4f 52 57 41 52 | 44 3d 28 24 30 30 30 33 |ELFORWAR|D=($0003|
|000006e0| 29 00 3b 2f 2a 20 64 65 | 6c 65 74 65 64 20 73 6f |).;/* de|leted so|
|000006f0| 6d 65 20 63 68 61 72 61 | 63 74 65 72 73 20 75 6e |me chara|cters un|
|00000700| 64 65 72 20 61 6e 64 20 | 69 6e 20 66 72 6f 6e 74 |der and |in front|
|00000710| 20 6f 66 20 74 68 65 20 | 63 75 72 73 6f 72 20 2a | of the |cursor *|
|00000720| 2f 00 23 45 4f 5f 4d 4f | 56 45 43 55 52 53 4f 52 |/.#EO_MO|VECURSOR|
|00000730| 3d 28 24 30 30 30 34 29 | 00 3b 2f 2a 20 6d 6f 76 |=($0004)|.;/* mov|
|00000740| 65 64 20 74 68 65 20 63 | 75 72 73 6f 72 20 20 20 |ed the c|ursor   |
|00000750| 20 20 20 2a 2f 00 23 45 | 4f 5f 45 4e 54 45 52 3d |   */.#E|O_ENTER=|
|00000760| 28 24 30 30 30 35 29 00 | 3b 2f 2a 20 22 65 6e 74 |($0005).|;/* "ent|
|00000770| 65 72 22 20 6f 72 20 22 | 72 65 74 75 72 6e 22 20 |er" or "|return" |
|00000780| 6b 65 79 2c 20 74 65 72 | 6d 69 6e 61 74 65 20 20 |key, ter|minate  |
|00000790| 20 20 2a 2f 00 23 45 4f | 5f 52 45 53 45 54 3d 28 |  */.#EO|_RESET=(|
|000007a0| 24 30 30 30 36 29 00 3b | 2f 2a 20 63 75 72 72 65 |$0006).;|/* curre|
|000007b0| 6e 74 20 49 6e 74 75 69 | 74 69 6f 6e 2d 73 74 79 |nt Intui|tion-sty|
|000007c0| 6c 65 20 75 6e 64 6f 20 | 20 20 20 20 2a 2f 00 23 |le undo |    */.#|
|000007d0| 45 4f 5f 52 45 50 4c 41 | 43 45 43 48 41 52 3d 28 |EO_REPLA|CECHAR=(|
|000007e0| 24 30 30 30 37 29 00 3b | 2f 2a 20 72 65 70 6c 61 |$0007).;|/* repla|
|000007f0| 63 65 64 20 6f 6e 65 20 | 63 68 61 72 61 63 74 65 |ced one |characte|
|00000800| 72 20 61 6e 64 20 28 6d | 61 79 62 65 29 20 61 64 |r and (m|aybe) ad|
|00000810| 76 61 6e 63 65 64 20 63 | 75 72 73 6f 72 20 20 2a |vanced c|ursor  *|
|00000820| 2f 00 23 45 4f 5f 49 4e | 53 45 52 54 43 48 41 52 |/.#EO_IN|SERTCHAR|
|00000830| 3d 28 24 30 30 30 38 29 | 00 3b 2f 2a 20 69 6e 73 |=($0008)|.;/* ins|
|00000840| 65 72 74 65 64 20 6f 6e | 65 20 63 68 61 72 20 69 |erted on|e char i|
|00000850| 6e 74 6f 20 73 74 72 69 | 6e 67 20 6f 72 20 61 64 |nto stri|ng or ad|
|00000860| 64 65 64 20 6f 6e 65 20 | 61 74 20 65 6e 64 20 20 |ded one |at end  |
|00000870| 2a 2f 00 23 45 4f 5f 42 | 41 44 46 4f 52 4d 41 54 |*/.#EO_B|ADFORMAT|
|00000880| 3d 28 24 30 30 30 39 29 | 00 3b 2f 2a 20 64 69 64 |=($0009)|.;/* did|
|00000890| 6e 27 74 20 6c 69 6b 65 | 20 74 68 65 20 74 65 78 |n't like| the tex|
|000008a0| 74 20 64 61 74 61 2c 20 | 65 2e 67 2e 2c 20 42 61 |t data, |e.g., Ba|
|000008b0| 64 20 4c 4f 4e 47 49 4e | 54 20 20 20 2a 2f 00 23 |d LONGIN|T   */.#|
|000008c0| 45 4f 5f 42 49 47 43 48 | 41 4e 47 45 3d 28 24 30 |EO_BIGCH|ANGE=($0|
|000008d0| 30 30 41 29 3b 2f 2a 20 | 75 6e 75 73 65 64 20 62 |00A);/* |unused b|
|000008e0| 79 20 49 6e 74 75 69 74 | 69 6f 6e 20 2a 2f 00 3b |y Intuit|ion */.;|
|000008f0| 2f 2a 20 63 6f 6d 70 6c | 65 74 65 20 6f 72 20 6d |/* compl|ete or m|
|00000900| 61 6a 6f 72 20 63 68 61 | 6e 67 65 20 74 6f 20 74 |ajor cha|nge to t|
|00000910| 68 65 20 74 65 78 74 2c | 20 65 2e 67 2e 20 6e 65 |he text,| e.g. ne|
|00000920| 77 20 73 74 72 69 6e 67 | 20 2a 2f 00 23 45 4f 5f |w string| */.#EO_|
|00000930| 55 4e 44 4f 3d 28 24 30 | 30 30 42 29 3b 2f 2a 20 |UNDO=($0|00B);/* |
|00000940| 75 6e 75 73 65 64 20 62 | 79 20 49 6e 74 75 69 74 |unused b|y Intuit|
|00000950| 69 6f 6e 20 2a 2f 00 3b | 2f 2a 20 73 6f 6d 65 20 |ion */.;|/* some |
|00000960| 6f 74 68 65 72 20 73 74 | 79 6c 65 20 6f 66 20 75 |other st|yle of u|
|00000970| 6e 64 6f 20 20 20 20 20 | 2a 2f 00 23 45 4f 5f 43 |ndo     |*/.#EO_C|
|00000980| 4c 45 41 52 3d 28 24 30 | 30 30 43 29 00 3b 2f 2a |LEAR=($0|00C).;/*|
|00000990| 20 63 6c 65 61 72 20 74 | 68 65 20 73 74 72 69 6e | clear t|he strin|
|000009a0| 67 20 20 20 20 20 20 2a | 2f 00 23 45 4f 5f 53 50 |g      *|/.#EO_SP|
|000009b0| 45 43 49 41 4c 3d 28 24 | 30 30 30 44 29 3b 2f 2a |ECIAL=($|000D);/*|
|000009c0| 20 75 6e 75 73 65 64 20 | 62 79 20 49 6e 74 75 69 | unused |by Intui|
|000009d0| 74 69 6f 6e 20 2a 2f 00 | 3b 2f 2a 20 73 6f 6d 65 |tion */.|;/* some|
|000009e0| 20 6f 70 65 72 61 74 69 | 6f 6e 20 74 68 61 74 20 | operati|on that |
|000009f0| 64 6f 65 73 6e 27 74 20 | 66 69 74 20 69 6e 74 6f |doesn't |fit into|
|00000a00| 20 74 68 65 20 63 61 74 | 65 67 6f 72 69 65 73 20 | the cat|egories |
|00000a10| 68 65 72 65 20 2a 2f 00 | 00 00 3b 2f 2a 20 4d 6f |here */.|..;/* Mo|
|00000a20| 64 65 20 46 6c 61 67 73 | 20 64 65 66 69 6e 69 74 |de Flags| definit|
|00000a30| 69 6f 6e 73 20 28 4f 4e | 4c 59 20 66 69 72 73 74 |ions (ON|LY first|
|00000a40| 20 67 72 6f 75 70 20 61 | 6c 6c 6f 77 65 64 20 61 | group a|llowed a|
|00000a50| 73 20 49 6e 69 74 69 61 | 6c 4d 6f 64 65 73 29 20 |s Initia|lModes) |
|00000a60| 2a 2f 00 23 53 47 4d 5f | 52 45 50 4c 41 43 45 3d |*/.#SGM_|REPLACE=|
|00000a70| 28 31 80 7c 30 29 3b 2f | 2a 20 72 65 70 6c 61 63 |(1.|0);/|* replac|
|00000a80| 65 20 6d 6f 64 65 20 20 | 20 2a 2f 00 3b 2f 2a 20 |e mode  | */.;/* |
|00000a90| 70 6c 65 61 73 65 20 69 | 6e 69 74 69 61 6c 69 7a |please i|nitializ|
|00000aa0| 65 20 53 74 72 69 6e 67 | 49 6e 66 6f 20 77 69 74 |e String|Info wit|
|00000ab0| 68 20 69 6e 2d 72 61 6e | 67 65 20 76 61 6c 75 65 |h in-ran|ge value|
|00000ac0| 20 6f 66 20 42 75 66 66 | 65 72 50 6f 73 00 3b 20 | of Buff|erPos.; |
|00000ad0| 2a 20 69 66 20 79 6f 75 | 20 61 72 65 20 75 73 69 |* if you| are usi|
|00000ae0| 6e 67 20 53 47 4d 5f 52 | 45 50 4c 41 43 45 20 6d |ng SGM_R|EPLACE m|
|00000af0| 6f 64 65 2e 00 3b 20 2a | 2f 00 00 23 53 47 4d 5f |ode..; *|/..#SGM_|
|00000b00| 46 49 58 45 44 46 49 45 | 4c 44 3d 28 31 80 7c 31 |FIXEDFIE|LD=(1.|1|
|00000b10| 29 3b 2f 2a 20 66 69 78 | 65 64 20 6c 65 6e 67 74 |);/* fix|ed lengt|
|00000b20| 68 20 62 75 66 66 65 72 | 20 20 2a 2f 00 3b 2f 2a |h buffer|  */.;/*|
|00000b30| 20 61 6c 77 61 79 73 20 | 73 65 74 20 53 47 4d 5f | always |set SGM_|
|00000b40| 52 45 50 4c 41 43 45 2c | 20 74 6f 6f 20 2a 2f 00 |REPLACE,| too */.|
|00000b50| 23 53 47 4d 5f 4e 4f 46 | 49 4c 54 45 52 3d 28 31 |#SGM_NOF|ILTER=(1|
|00000b60| 80 7c 32 29 3b 2f 2a 20 | 64 6f 6e 27 74 20 66 69 |.|2);/* |don't fi|
|00000b70| 6c 74 65 72 20 63 6f 6e | 74 72 6f 6c 20 63 68 61 |lter con|trol cha|
|00000b80| 72 73 20 2a 2f 00 00 3b | 2f 2a 20 53 47 4d 5f 45 |rs */..;|/* SGM_E|
|00000b90| 58 49 54 48 45 4c 50 20 | 69 73 20 6e 65 77 20 66 |XITHELP |is new f|
|00000ba0| 6f 72 20 56 33 37 2c 20 | 61 6e 64 20 69 67 6e 6f |or V37, |and igno|
|00000bb0| 72 65 64 20 62 79 20 56 | 33 36 3a 20 2a 2f 00 23 |red by V|36: */.#|
|00000bc0| 53 47 4d 5f 45 58 49 54 | 48 45 4c 50 3d 28 31 80 |SGM_EXIT|HELP=(1.|
|00000bd0| 7c 37 29 3b 2f 2a 20 65 | 78 69 74 20 77 69 74 68 ||7);/* e|xit with|
|00000be0| 20 63 6f 64 65 20 3d 20 | 30 78 35 46 20 69 66 20 | code = |0x5F if |
|00000bf0| 48 45 4c 50 20 68 69 74 | 20 2a 2f 00 00 00 3b 2f |HELP hit| */...;/|
|00000c00| 2a 20 54 68 65 73 65 20 | 4d 6f 64 65 20 46 6c 61 |* These |Mode Fla|
|00000c10| 67 73 20 61 72 65 20 66 | 6f 72 20 69 6e 74 65 72 |gs are f|or inter|
|00000c20| 6e 61 6c 20 75 73 65 20 | 6f 6e 6c 79 20 20 20 20 |nal use |only    |
|00000c30| 2a 2f 00 23 53 47 4d 5f | 4e 4f 43 48 41 4e 47 45 |*/.#SGM_|NOCHANGE|
|00000c40| 3d 28 31 80 7c 33 29 3b | 2f 2a 20 6e 6f 20 65 64 |=(1.|3);|/* no ed|
|00000c50| 69 74 20 63 68 61 6e 67 | 65 73 20 79 65 74 20 20 |it chang|es yet  |
|00000c60| 2a 2f 00 23 53 47 4d 5f | 4e 4f 57 4f 52 4b 42 3d |*/.#SGM_|NOWORKB=|
|00000c70| 28 31 80 7c 34 29 3b 2f | 2a 20 42 75 66 66 65 72 |(1.|4);/|* Buffer|
|00000c80| 20 3d 3d 20 50 72 65 76 | 42 75 66 66 65 72 20 20 | == Prev|Buffer  |
|00000c90| 2a 2f 00 23 53 47 4d 5f | 43 4f 4e 54 52 4f 4c 3d |*/.#SGM_|CONTROL=|
|00000ca0| 28 31 80 7c 35 29 3b 2f | 2a 20 63 6f 6e 74 72 6f |(1.|5);/|* contro|
|00000cb0| 6c 20 63 68 61 72 20 65 | 73 63 61 70 65 20 6d 6f |l char e|scape mo|
|00000cc0| 64 65 20 2a 2f 00 23 53 | 47 4d 5f 4c 4f 4e 47 49 |de */.#S|GM_LONGI|
|00000cd0| 4e 54 3d 28 31 80 7c 36 | 29 3b 2f 2a 20 61 6e 20 |NT=(1.|6|);/* an |
|00000ce0| 69 6e 74 75 69 74 69 6f | 6e 20 6c 6f 6e 67 69 6e |intuitio|n longin|
|00000cf0| 74 20 67 61 64 67 65 74 | 20 2a 2f 00 00 3b 2f 2a |t gadget| */..;/*|
|00000d00| 20 53 74 72 69 6e 67 20 | 47 61 64 67 65 74 20 41 | String |Gadget A|
|00000d10| 63 74 69 6f 6e 20 46 6c | 61 67 73 20 28 70 75 74 |ction Fl|ags (put|
|00000d20| 20 69 6e 20 53 47 57 6f | 72 6b 2e 41 63 74 69 6f | in SGWo|rk.Actio|
|00000d30| 6e 73 20 62 79 20 45 64 | 69 74 48 6f 6f 6b 29 20 |ns by Ed|itHook) |
|00000d40| 2a 2f 00 23 53 47 41 5f | 55 53 45 3d 28 24 31 29 |*/.#SGA_|USE=($1)|
|00000d50| 3b 2f 2a 20 75 73 65 20 | 63 6f 6e 74 65 6e 74 73 |;/* use |contents|
|00000d60| 20 6f 66 20 53 47 57 6f | 72 6b 20 20 2a 2f 00 23 | of SGWo|rk  */.#|
|00000d70| 53 47 41 5f 45 4e 44 3d | 28 24 32 29 3b 2f 2a 20 |SGA_END=|($2);/* |
|00000d80| 74 65 72 6d 69 6e 61 74 | 65 20 67 61 64 67 65 74 |terminat|e gadget|
|00000d90| 2c 20 63 6f 64 65 20 69 | 6e 20 43 6f 64 65 20 66 |, code i|n Code f|
|00000da0| 69 65 6c 64 20 2a 2f 00 | 23 53 47 41 5f 42 45 45 |ield */.|#SGA_BEE|
|00000db0| 50 3d 28 24 34 29 3b 2f | 2a 20 66 6c 61 73 68 20 |P=($4);/|* flash |
|00000dc0| 74 68 65 20 73 63 72 65 | 65 6e 20 66 6f 72 20 74 |the scre|en for t|
|00000dd0| 68 65 20 75 73 65 72 20 | 2a 2f 00 23 53 47 41 5f |he user |*/.#SGA_|
|00000de0| 52 45 55 53 45 3d 28 24 | 38 29 3b 2f 2a 20 72 65 |REUSE=($|8);/* re|
|00000df0| 75 73 65 20 69 6e 70 75 | 74 20 65 76 65 6e 74 20 |use inpu|t event |
|00000e00| 20 20 2a 2f 00 23 53 47 | 41 5f 52 45 44 49 53 50 |  */.#SG|A_REDISP|
|00000e10| 4c 41 59 3d 28 24 31 30 | 29 3b 2f 2a 20 67 61 64 |LAY=($10|);/* gad|
|00000e20| 67 65 74 20 76 69 73 75 | 61 6c 73 20 63 68 61 6e |get visu|als chan|
|00000e30| 67 65 64 20 20 2a 2f 00 | 00 3b 2f 2a 20 4e 65 77 |ged  */.|.;/* New|
|00000e40| 20 66 6f 72 20 56 33 37 | 3a 20 2a 2f 00 23 53 47 | for V37|: */.#SG|
|00000e50| 41 5f 4e 45 58 54 41 43 | 54 49 56 45 3d 28 24 32 |A_NEXTAC|TIVE=($2|
|00000e60| 30 29 3b 2f 2a 20 4d 61 | 6b 65 20 6e 65 78 74 20 |0);/* Ma|ke next |
|00000e70| 70 6f 73 73 69 62 6c 65 | 20 67 61 64 67 65 74 20 |possible| gadget |
|00000e80| 61 63 74 69 76 65 2e 20 | 2a 2f 00 23 53 47 41 5f |active. |*/.#SGA_|
|00000e90| 50 52 45 56 41 43 54 49 | 56 45 3d 28 24 34 30 29 |PREVACTI|VE=($40)|
|00000ea0| 3b 2f 2a 20 4d 61 6b 65 | 20 70 72 65 76 69 6f 75 |;/* Make| previou|
|00000eb0| 73 20 70 6f 73 73 69 62 | 6c 65 20 67 61 64 67 65 |s possib|le gadge|
|00000ec0| 74 20 61 63 74 69 76 65 | 2e 2a 2f 00 00 3b 2f 2a |t active|.*/..;/*|
|00000ed0| 20 66 75 6e 63 74 69 6f | 6e 20 69 64 20 66 6f 72 | functio|n id for|
|00000ee0| 20 6f 6e 6c 79 20 65 78 | 69 73 74 69 6e 67 20 63 | only ex|isting c|
|00000ef0| 75 73 74 6f 6d 20 73 74 | 72 69 6e 67 20 67 61 64 |ustom st|ring gad|
|00000f00| 67 65 74 20 65 64 69 74 | 20 68 6f 6f 6b 20 2a 2f |get edit| hook */|
|00000f10| 00 00 23 53 47 48 5f 4b | 45 59 3d 28 31 29 3b 2f |..#SGH_K|EY=(1);/|
|00000f20| 2a 20 70 72 6f 63 65 73 | 73 20 65 64 69 74 69 6e |* proces|s editin|
|00000f30| 67 20 6b 65 79 73 74 72 | 6f 6b 65 20 20 2a 2f 00 |g keystr|oke  */.|
|00000f40| 23 53 47 48 5f 43 4c 49 | 43 4b 3d 28 32 29 3b 2f |#SGH_CLI|CK=(2);/|
|00000f50| 2a 20 70 72 6f 63 65 73 | 73 20 6d 6f 75 73 65 20 |* proces|s mouse |
|00000f60| 63 6c 69 63 6b 20 63 75 | 72 73 6f 72 20 70 6f 73 |click cu|rsor pos|
|00000f70| 69 74 69 6f 6e 20 2a 2f | 00 00 3b 2f 2a 20 48 65 |ition */|..;/* He|
|00000f80| 72 65 27 73 20 61 20 62 | 72 69 65 66 20 73 75 6d |re's a b|rief sum|
|00000f90| 6d 61 72 79 20 6f 66 20 | 68 6f 77 20 74 68 65 20 |mary of |how the |
|00000fa0| 63 75 73 74 6f 6d 20 73 | 74 72 69 6e 67 20 67 61 |custom s|tring ga|
|00000fb0| 64 67 65 74 20 65 64 69 | 74 20 68 6f 6f 6b 20 77 |dget edi|t hook w|
|00000fc0| 6f 72 6b 73 3a 00 3b 20 | 2a 20 59 6f 75 20 70 72 |orks:.; |* You pr|
|00000fd0| 6f 76 69 64 65 20 61 20 | 68 6f 6f 6b 20 69 6e 20 |ovide a |hook in |
|00000fe0| 53 74 72 69 6e 67 49 6e | 66 6f 2e 45 78 74 65 6e |StringIn|fo.Exten|
|00000ff0| 73 69 6f 6e 2e 45 64 69 | 74 48 6f 6f 6b 2e 00 3b |sion.Edi|tHook..;|
|00001000| 20 2a 20 54 68 65 20 68 | 6f 6f 6b 20 69 73 20 63 | * The h|ook is c|
|00001010| 61 6c 6c 65 64 20 69 6e | 20 74 68 65 20 73 74 61 |alled in| the sta|
|00001020| 6e 64 61 72 64 20 77 61 | 79 20 77 69 74 68 20 74 |ndard wa|y with t|
|00001030| 68 65 20 27 6f 62 6a 65 | 63 74 27 00 3b 20 2a 20 |he 'obje|ct'.; * |
|00001040| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 53 47 57 |a pointe|r to SGW|
|00001050| 6f 72 6b 2c 20 61 6e 64 | 20 74 68 65 20 27 6d 65 |ork, and| the 'me|
|00001060| 73 73 61 67 65 27 20 61 | 20 70 6f 69 6e 74 65 72 |ssage' a| pointer|
|00001070| 20 74 6f 20 61 20 63 6f | 6d 6d 61 6e 64 00 3b 20 | to a co|mmand.; |
|00001080| 2a 20 62 6c 6f 63 6b 2c | 20 73 74 61 72 74 69 6e |* block,| startin|
|00001090| 67 20 65 69 74 68 65 72 | 20 77 69 74 68 20 28 6c |g either| with (l|
|000010a0| 6f 6e 67 77 6f 72 64 29 | 20 53 47 48 5f 4b 45 59 |ongword)| SGH_KEY|
|000010b0| 2c 20 53 47 48 5f 43 4c | 49 43 4b 2c 00 3b 20 2a |, SGH_CL|ICK,.; *|
|000010c0| 20 6f 72 20 73 6f 6d 65 | 74 68 69 6e 67 20 6e 65 | or some|thing ne|
|000010d0| 77 2e 00 3b 20 2a 00 3b | 20 2a 20 59 6f 75 20 72 |w..; *.;| * You r|
|000010e0| 65 74 75 72 6e 20 30 20 | 69 66 20 79 6f 75 20 64 |eturn 0 |if you d|
|000010f0| 6f 6e 27 74 20 75 6e 64 | 65 72 73 74 61 6e 64 20 |on't und|erstand |
|00001100| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 28 53 47 48 |the comm|and (SGH|
|00001110| 5f 4b 45 59 20 69 73 00 | 3b 20 2a 20 72 65 71 75 |_KEY is.|; * requ|
|00001120| 69 72 65 64 20 61 6e 64 | 20 61 73 73 75 6d 65 64 |ired and| assumed|
|00001130| 29 2e 20 20 52 65 74 75 | 72 6e 20 6e 6f 6e 2d 7a |).  Retu|rn non-z|
|00001140| 65 72 6f 20 69 66 20 79 | 6f 75 20 69 6d 70 6c 65 |ero if y|ou imple|
|00001150| 6d 65 6e 74 20 74 68 65 | 00 3b 20 2a 20 63 6f 6d |ment the|.; * com|
|00001160| 6d 61 6e 64 2e 00 3b 20 | 2a 00 3b 20 2a 20 20 20 |mand..; |*.; *   |
|00001170| 53 47 48 5f 4b 45 59 3a | 00 3b 20 2a 20 54 68 65 |SGH_KEY:|.; * The|
|00001180| 72 65 20 61 72 65 20 6e | 6f 20 70 61 72 61 6d 65 |re are n|o parame|
|00001190| 74 65 72 73 20 66 6f 6c | 6c 6f 77 69 6e 67 20 74 |ters fol|lowing t|
|000011a0| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 6c 6f 6e 67 77 |he comma|nd longw|
|000011b0| 6f 72 64 2e 00 3b 20 2a | 00 3b 20 2a 20 49 6e 74 |ord..; *|.; * Int|
|000011c0| 75 69 74 69 6f 6e 20 77 | 69 6c 6c 20 70 75 74 20 |uition w|ill put |
|000011d0| 69 74 73 20 69 64 65 61 | 20 6f 66 20 70 72 6f 70 |its idea| of prop|
|000011e0| 65 72 20 76 61 6c 75 65 | 73 20 69 6e 20 74 68 65 |er value|s in the|
|000011f0| 20 53 47 57 6f 72 6b 00 | 3b 20 2a 20 62 65 66 6f | SGWork.|; * befo|
|00001200| 72 65 20 63 61 6c 6c 69 | 6e 67 20 79 6f 75 2c 20 |re calli|ng you, |
|00001210| 61 6e 64 20 69 66 20 79 | 6f 75 20 6c 65 61 76 65 |and if y|ou leave|
|00001220| 20 53 47 41 5f 55 53 45 | 20 73 65 74 20 69 6e 20 | SGA_USE| set in |
|00001230| 74 68 65 00 3b 20 2a 20 | 53 47 57 6f 72 6b 2e 41 |the.; * |SGWork.A|
|00001240| 63 74 69 6f 6e 73 20 66 | 69 65 6c 64 2c 20 49 6e |ctions f|ield, In|
|00001250| 74 75 69 74 69 6f 6e 20 | 77 69 6c 6c 20 75 73 65 |tuition |will use|
|00001260| 20 74 68 65 20 76 61 6c | 75 65 73 00 3b 20 2a 20 | the val|ues.; * |
|00001270| 66 6f 75 6e 64 20 69 6e | 20 53 47 57 6f 72 6b 20 |found in| SGWork |
|00001280| 66 69 65 6c 64 73 20 57 | 6f 72 6b 42 75 66 66 65 |fields W|orkBuffe|
|00001290| 72 2c 20 4e 75 6d 43 68 | 61 72 73 2c 20 42 75 66 |r, NumCh|ars, Buf|
|000012a0| 66 65 72 50 6f 73 2c 00 | 3b 20 2a 20 61 6e 64 20 |ferPos,.|; * and |
|000012b0| 4c 6f 6e 67 49 6e 74 2c | 20 63 6f 70 79 69 6e 67 |LongInt,| copying|
|000012c0| 20 74 68 65 20 57 6f 72 | 6b 42 75 66 66 65 72 20 | the Wor|kBuffer |
|000012d0| 62 61 63 6b 20 74 6f 20 | 74 68 65 20 53 74 72 69 |back to |the Stri|
|000012e0| 6e 67 49 6e 66 6f 00 3b | 20 2a 20 42 75 66 66 65 |ngInfo.;| * Buffe|
|000012f0| 72 2e 00 3b 20 2a 00 3b | 20 2a 20 4e 4f 54 45 20 |r..; *.;| * NOTE |
|00001300| 57 45 4c 4c 3a 20 59 6f | 75 20 6d 61 79 20 4e 4f |WELL: Yo|u may NO|
|00001310| 54 20 63 68 61 6e 67 65 | 20 6f 74 68 65 72 20 53 |T change| other S|
|00001320| 47 57 6f 72 6b 20 66 69 | 65 6c 64 73 2e 00 3b 20 |GWork fi|elds..; |
|00001330| 2a 00 3b 20 2a 20 49 66 | 20 79 6f 75 20 63 6c 65 |*.; * If| you cle|
|00001340| 61 72 20 53 47 41 5f 55 | 53 45 2c 20 74 68 65 20 |ar SGA_U|SE, the |
|00001350| 73 74 72 69 6e 67 20 67 | 61 64 67 65 74 20 77 69 |string g|adget wi|
|00001360| 6c 6c 20 62 65 20 75 6e | 63 68 61 6e 67 65 64 2e |ll be un|changed.|
|00001370| 00 3b 20 2a 00 3b 20 2a | 20 49 66 20 79 6f 75 20 |.; *.; *| If you |
|00001380| 73 65 74 20 53 47 41 5f | 45 4e 44 2c 20 49 6e 74 |set SGA_|END, Int|
|00001390| 75 69 74 69 6f 6e 20 77 | 69 6c 6c 20 74 65 72 6d |uition w|ill term|
|000013a0| 69 6e 61 74 65 20 74 68 | 65 20 61 63 74 69 76 61 |inate th|e activa|
|000013b0| 74 69 6f 6e 00 3b 20 2a | 20 6f 66 20 74 68 65 20 |tion.; *| of the |
|000013c0| 73 74 72 69 6e 67 20 67 | 61 64 67 65 74 2e 20 20 |string g|adget.  |
|000013d0| 49 66 20 79 6f 75 20 61 | 6c 73 6f 20 73 65 74 20 |If you a|lso set |
|000013e0| 53 47 41 5f 52 45 55 53 | 45 2c 20 49 6e 74 75 69 |SGA_REUS|E, Intui|
|000013f0| 74 69 6f 6e 00 3b 20 2a | 20 77 69 6c 6c 20 72 65 |tion.; *| will re|
|00001400| 75 73 65 20 74 68 65 20 | 69 6e 70 75 74 20 65 76 |use the |input ev|
|00001410| 65 6e 74 20 61 66 74 65 | 72 20 69 74 20 64 65 61 |ent afte|r it dea|
|00001420| 63 74 69 76 61 74 65 73 | 20 79 6f 75 72 20 67 61 |ctivates| your ga|
|00001430| 64 67 65 74 2e 00 3b 20 | 2a 00 3b 20 2a 20 49 6e |dget..; |*.; * In|
|00001440| 20 74 68 69 73 20 63 61 | 73 65 2c 20 49 6e 74 75 | this ca|se, Intu|
|00001450| 69 74 69 6f 6e 20 77 69 | 6c 6c 20 70 75 74 20 74 |ition wi|ll put t|
|00001460| 68 65 20 76 61 6c 75 65 | 20 66 6f 75 6e 64 20 69 |he value| found i|
|00001470| 6e 20 53 47 57 6f 72 6b | 2e 43 6f 64 65 00 3b 20 |n SGWork|.Code.; |
|00001480| 2a 20 69 6e 74 6f 20 74 | 68 65 20 49 6e 74 75 69 |* into t|he Intui|
|00001490| 4d 65 73 73 61 67 65 2e | 43 6f 64 65 20 66 69 65 |Message.|Code fie|
|000014a0| 6c 64 20 6f 66 20 74 68 | 65 20 49 44 43 4d 50 5f |ld of th|e IDCMP_|
|000014b0| 47 41 44 47 45 54 55 50 | 20 6d 65 73 73 61 67 65 |GADGETUP| message|
|000014c0| 20 69 74 00 3b 20 2a 20 | 73 65 6e 64 73 20 74 6f | it.; * |sends to|
|000014d0| 20 74 68 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | the app|lication|
|000014e0| 2e 00 3b 20 2a 00 3b 20 | 2a 20 49 66 20 79 6f 75 |..; *.; |* If you|
|000014f0| 20 73 65 74 20 53 47 41 | 5f 42 45 45 50 2c 20 49 | set SGA|_BEEP, I|
|00001500| 6e 74 75 69 74 69 6f 6e | 20 77 69 6c 6c 20 63 61 |ntuition| will ca|
|00001510| 6c 6c 20 44 69 73 70 6c | 61 79 42 65 65 70 28 29 |ll Displ|ayBeep()|
|00001520| 3b 20 75 73 65 00 3b 20 | 2a 20 74 68 69 73 20 69 |; use.; |* this i|
|00001530| 66 20 74 68 65 20 75 73 | 65 72 20 68 61 73 20 74 |f the us|er has t|
|00001540| 79 70 65 64 20 69 6e 20 | 65 72 72 6f 72 2c 20 6f |yped in |error, o|
|00001550| 72 20 62 75 66 66 65 72 | 20 69 73 20 66 75 6c 6c |r buffer| is full|
|00001560| 2e 00 3b 20 2a 00 3b 20 | 2a 20 53 65 74 20 53 47 |..; *.; |* Set SG|
|00001570| 41 5f 52 45 44 49 53 50 | 4c 41 59 20 69 66 20 74 |A_REDISP|LAY if t|
|00001580| 68 65 20 63 68 61 6e 67 | 65 73 20 74 6f 20 74 68 |he chang|es to th|
|00001590| 65 20 67 61 64 67 65 74 | 20 77 61 72 72 61 6e 74 |e gadget| warrant|
|000015a0| 20 61 00 3b 20 2a 20 67 | 61 64 67 65 74 20 72 65 | a.; * g|adget re|
|000015b0| 64 69 73 70 6c 61 79 2e | 20 20 4e 6f 74 65 3a 20 |display.|  Note: |
|000015c0| 63 75 72 73 6f 72 20 6d | 6f 76 65 6d 65 6e 74 20 |cursor m|ovement |
|000015d0| 72 65 71 75 69 72 65 73 | 20 61 20 72 65 64 69 73 |requires| a redis|
|000015e0| 70 6c 61 79 2e 00 3b 20 | 2a 00 3b 20 2a 20 53 74 |play..; |*.; * St|
|000015f0| 61 72 74 69 6e 67 20 69 | 6e 20 56 33 37 2c 20 79 |arting i|n V37, y|
|00001600| 6f 75 20 6d 61 79 20 73 | 65 74 20 53 47 41 5f 50 |ou may s|et SGA_P|
|00001610| 52 45 56 41 43 54 49 56 | 45 20 6f 72 20 53 47 41 |REVACTIV|E or SGA|
|00001620| 5f 4e 45 58 54 41 43 54 | 49 56 45 00 3b 20 2a 20 |_NEXTACT|IVE.; * |
|00001630| 77 68 65 6e 20 79 6f 75 | 20 73 65 74 20 53 47 41 |when you| set SGA|
|00001640| 5f 45 4e 44 2e 20 20 54 | 68 69 73 20 74 65 6c 6c |_END.  T|his tell|
|00001650| 73 20 49 6e 74 75 69 74 | 69 6f 6e 20 74 68 61 74 |s Intuit|ion that|
|00001660| 20 79 6f 75 20 77 61 6e | 74 00 3b 20 2a 20 74 68 | you wan|t.; * th|
|00001670| 65 20 6e 65 78 74 20 6f | 72 20 70 72 65 76 69 6f |e next o|r previo|
|00001680| 75 73 20 67 61 64 67 65 | 74 20 77 69 74 68 20 47 |us gadge|t with G|
|00001690| 46 4c 47 5f 54 41 42 43 | 59 43 4c 45 20 74 6f 20 |FLG_TABC|YCLE to |
|000016a0| 62 65 20 61 63 74 69 76 | 61 74 65 64 2e 00 3b 20 |be activ|ated..; |
|000016b0| 2a 00 3b 20 2a 20 20 20 | 53 47 48 5f 43 4c 49 43 |*.; *   |SGH_CLIC|
|000016c0| 4b 3a 00 3b 20 2a 20 54 | 68 69 73 20 68 6f 6f 6b |K:.; * T|his hook|
|000016d0| 20 63 6f 6d 6d 61 6e 64 | 20 69 73 20 63 61 6c 6c | command| is call|
|000016e0| 65 64 20 77 68 65 6e 20 | 49 6e 74 75 69 74 69 6f |ed when |Intuitio|
|000016f0| 6e 20 77 61 6e 74 73 20 | 74 6f 20 70 6f 73 69 74 |n wants |to posit|
|00001700| 69 6f 6e 00 3b 20 2a 20 | 74 68 65 20 63 75 72 73 |ion.; * |the curs|
|00001710| 6f 72 20 69 6e 20 72 65 | 73 70 6f 6e 73 65 20 74 |or in re|sponse t|
|00001720| 6f 20 61 20 6d 6f 75 73 | 65 20 63 6c 69 63 6b 20 |o a mous|e click |
|00001730| 69 6e 20 74 68 65 20 73 | 74 72 69 6e 67 20 67 61 |in the s|tring ga|
|00001740| 64 67 65 74 2e 00 3b 20 | 2a 00 3b 20 2a 20 41 67 |dget..; |*.; * Ag|
|00001750| 61 69 6e 2c 20 68 65 72 | 65 20 61 72 65 20 6e 6f |ain, her|e are no|
|00001760| 20 70 61 72 61 6d 65 74 | 65 72 73 20 66 6f 6c 6c | paramet|ers foll|
|00001770| 6f 77 69 6e 67 20 74 68 | 65 20 63 6f 6d 6d 61 6e |owing th|e comman|
|00001780| 64 20 6c 6f 6e 67 77 6f | 72 64 2e 00 3b 20 2a 00 |d longwo|rd..; *.|
|00001790| 3b 20 2a 20 54 68 69 73 | 20 74 69 6d 65 2c 20 49 |; * This| time, I|
|000017a0| 6e 74 75 69 74 69 6f 6e | 20 68 61 73 20 61 6c 72 |ntuition| has alr|
|000017b0| 65 61 64 79 20 63 61 6c | 63 75 6c 61 74 65 64 20 |eady cal|culated |
|000017c0| 74 68 65 20 6d 6f 75 73 | 65 20 70 6f 73 69 74 69 |the mous|e positi|
|000017d0| 6f 6e 00 3b 20 2a 20 63 | 68 61 72 61 63 74 65 72 |on.; * c|haracter|
|000017e0| 20 63 65 6c 6c 20 61 6e | 64 20 70 75 74 20 69 74 | cell an|d put it|
|000017f0| 20 69 6e 20 53 47 57 6f | 72 6b 2e 42 75 66 66 65 | in SGWo|rk.Buffe|
|00001800| 72 50 6f 73 2e 20 20 54 | 68 65 20 70 72 65 76 69 |rPos.  T|he previ|
|00001810| 6f 75 73 00 3b 20 2a 20 | 42 75 66 66 65 72 50 6f |ous.; * |BufferPo|
|00001820| 73 20 76 61 6c 75 65 20 | 72 65 6d 61 69 6e 73 20 |s value |remains |
|00001830| 69 6e 20 74 68 65 20 53 | 47 57 6f 72 6b 2e 53 74 |in the S|GWork.St|
|00001840| 72 69 6e 67 49 6e 66 6f | 2e 42 75 66 66 65 72 50 |ringInfo|.BufferP|
|00001850| 6f 73 2e 00 3b 20 2a 00 | 3b 20 2a 20 49 6e 74 75 |os..; *.|; * Intu|
|00001860| 69 74 69 6f 6e 20 77 69 | 6c 6c 20 61 67 61 69 6e |ition wi|ll again|
|00001870| 20 75 73 65 20 74 68 65 | 20 53 47 57 6f 72 6b 20 | use the| SGWork |
|00001880| 66 69 65 6c 64 73 20 6c | 69 73 74 65 64 20 61 62 |fields l|isted ab|
|00001890| 6f 76 65 20 66 6f 72 00 | 3b 20 2a 20 53 47 48 5f |ove for.|; * SGH_|
|000018a0| 4b 45 59 2e 20 20 4f 6e | 65 20 72 65 73 74 72 69 |KEY.  On|e restri|
|000018b0| 63 74 69 6f 6e 20 69 73 | 20 74 68 61 74 20 79 6f |ction is| that yo|
|000018c0| 75 20 61 72 65 20 4e 4f | 54 20 61 6c 6c 6f 77 65 |u are NO|T allowe|
|000018d0| 64 20 74 6f 20 73 65 74 | 00 3b 20 2a 20 53 47 41 |d to set|.; * SGA|
|000018e0| 5f 45 4e 44 20 6f 72 20 | 53 47 41 5f 52 45 55 53 |_END or |SGA_REUS|
|000018f0| 45 20 66 6f 72 20 74 68 | 69 73 20 63 6f 6d 6d 61 |E for th|is comma|
|00001900| 6e 64 2e 20 20 49 6e 74 | 75 69 74 69 6f 6e 20 77 |nd.  Int|uition w|
|00001910| 69 6c 6c 20 6e 6f 74 00 | 3b 20 2a 20 73 74 61 6e |ill not.|; * stan|
|00001920| 64 20 66 6f 72 20 61 20 | 67 61 64 67 65 74 20 77 |d for a |gadget w|
|00001930| 68 69 63 68 20 67 6f 65 | 73 20 69 6e 61 63 74 69 |hich goe|s inacti|
|00001940| 76 65 20 77 68 65 6e 20 | 79 6f 75 20 63 6c 69 63 |ve when |you clic|
|00001950| 6b 20 69 6e 20 69 74 2e | 00 3b 20 2a 00 3b 20 2a |k in it.|.; *.; *|
|00001960| 20 59 6f 75 20 73 68 6f | 75 6c 64 20 61 6c 77 61 | You sho|uld alwa|
|00001970| 79 73 20 6c 65 61 76 65 | 20 74 68 65 20 53 47 41 |ys leave| the SGA|
|00001980| 5f 52 45 44 49 53 50 4c | 41 59 20 66 6c 61 67 20 |_REDISPL|AY flag |
|00001990| 73 65 74 2c 20 73 69 6e | 63 65 20 49 6e 74 75 69 |set, sin|ce Intui|
|000019a0| 74 69 6f 6e 00 3b 20 2a | 20 75 73 65 73 20 74 68 |tion.; *| uses th|
|000019b0| 69 73 20 70 72 6f 63 65 | 73 73 69 6e 67 20 77 68 |is proce|ssing wh|
|000019c0| 65 6e 20 61 63 74 69 76 | 61 74 69 6e 67 20 61 20 |en activ|ating a |
|000019d0| 73 74 72 69 6e 67 20 67 | 61 64 67 65 74 2e 00 3b |string g|adget..;|
|000019e0| 20 2a 2f 00             |                         | */.    |        |
+--------+-------------------------+-------------------------+--------+--------+