/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / appleEvents.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 61 70 70 6c 65 45 | 76 65 6e 74 73 2e 74 63 |..appleE|vents.tc|
|00000010| 6c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |l.......|........|
|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 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 0c 70 00 | 00 02 95 aa 94 c9 e7 aa |......p.|........|
|00000060| 94 c9 e7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 13 f2 00 00 |........|........|
|00000080| 0d 23 20 6d 61 6b 65 20 | 61 6c 69 61 73 20 6c 69 |.# make |alias li|
|00000090| 73 74 20 74 6f 20 70 61 | 73 73 20 74 6f 20 41 45 |st to pa|ss to AE|
|000000a0| 42 75 69 6c 64 0d 70 72 | 6f 63 20 6d 61 6b 65 41 |Build.pr|oc makeA|
|000000b0| 6c 69 73 20 7b 6e 61 6d | 65 7d 20 7b 0d 09 63 6f |lis {nam|e} {..co|
|000000c0| 6e 63 61 74 20 7b 5b 61 | 6c 69 73 28 c7 7d 20 5b |ncat {[a|lis(.} [|
|000000d0| 63 6f 65 72 63 65 20 54 | 45 58 54 20 24 6e 61 6d |coerce T|EXT $nam|
|000000e0| 65 20 2d 78 20 61 6c 69 | 73 5d 20 7b c8 29 5d 7d |e -x ali|s] {.)]}|
|000000f0| 09 0d 7d 0d 0d 0d 0d 23 | 20 51 75 65 75 65 64 20 |..}....#| Queued |
|00000100| 72 65 70 6c 69 65 73 20 | 61 72 65 20 70 61 73 73 |replies |are pass|
|00000110| 65 64 20 74 68 72 6f 75 | 67 68 20 41 45 50 72 69 |ed throu|gh AEPri|
|00000120| 6e 74 20 61 6e 64 20 74 | 68 65 6e 20 74 6f 20 74 |nt and t|hen to t|
|00000130| 68 69 73 20 72 6f 75 74 | 69 6e 65 2e 0d 70 72 6f |his rout|ine..pro|
|00000140| 63 20 68 61 6e 64 6c 65 | 52 65 70 6c 79 20 7b 72 |c handle|Reply {r|
|00000150| 65 70 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 41 4c |ep} {..g|lobal AL|
|00000160| 50 48 41 20 6c 61 73 74 | 52 65 70 6c 79 0d 23 09 |PHA last|Reply.#.|
|00000170| 73 77 69 74 63 68 54 6f | 20 24 41 4c 50 48 41 0d |switchTo| $ALPHA.|
|00000180| 09 73 65 74 20 6c 61 73 | 74 52 65 70 6c 79 20 24 |.set las|tReply $|
|00000190| 72 65 70 0d 7d 0d 0d 0d | 23 20 52 65 74 75 72 6e |rep.}...|# Return|
|000001a0| 20 61 6e 20 6f 62 6a 65 | 63 74 20 72 65 63 6f 72 | an obje|ct recor|
|000001b0| 64 20 73 70 65 63 69 66 | 79 69 6e 67 20 74 68 65 |d specif|ying the|
|000001c0| 20 64 65 73 69 72 65 64 | 20 74 68 69 6e 6b 20 70 | desired| think p|
|000001d0| 72 6f 6a 65 63 74 20 66 | 69 6c 65 2e 0d 70 72 6f |roject f|ile..pro|
|000001e0| 63 20 66 69 6c 65 4f 62 | 6a 65 63 74 20 7b 6e 61 |c fileOb|ject {na|
|000001f0| 6d 65 7d 20 7b 0d 09 6a | 6f 69 6e 20 5b 63 6f 6e |me} {..j|oin [con|
|00000200| 63 61 74 20 7b 6f 62 6a | 5c 7b 77 61 6e 74 3a 74 |cat {obj|\{want:t|
|00000210| 79 70 65 28 27 53 46 49 | 4c 27 29 2c 20 66 72 6f |ype('SFI|L'), fro|
|00000220| 6d 3a 27 6e 75 6c 6c 27 | 28 29 2c 20 66 6f 72 6d |m:'null'|(), form|
|00000230| 3a 27 6e 61 6d 65 27 2c | 20 73 65 6c 64 3a d2 7d |:'name',| seld:.}|
|00000240| 20 5b 66 69 6c 65 20 74 | 61 69 6c 20 24 6e 61 6d | [file t|ail $nam|
|00000250| 65 5d 20 7b d3 5c 7d 7d | 5d 20 22 22 0d 7d 0d 0d |e] {.\}}|] "".}..|
|00000260| 0d 70 72 6f 63 20 73 65 | 6e 64 4f 70 65 6e 45 76 |.proc se|ndOpenEv|
|00000270| 65 6e 74 20 7b 66 69 6c | 6c 65 72 20 61 70 70 6e |ent {fil|ler appn|
|00000280| 61 6d 65 20 66 6e 61 6d | 65 7d 20 7b 0d 09 41 45 |ame fnam|e} {..AE|
|00000290| 42 75 69 6c 64 20 24 61 | 70 70 6e 61 6d 65 20 61 |Build $a|ppname a|
|000002a0| 65 76 74 20 6f 64 6f 63 | 20 22 2d 2d 2d 2d 22 20 |evt odoc| "----" |
|000002b0| 5b 63 6f 6e 63 61 74 20 | 7b 5b 61 6c 69 73 28 c7 |[concat |{[alis(.|
|000002c0| 7d 20 5b 63 6f 65 72 63 | 65 20 54 45 58 54 20 24 |} [coerc|e TEXT $|
|000002d0| 66 6e 61 6d 65 20 2d 78 | 20 61 6c 69 73 5d 20 7b |fname -x| alis] {|
|000002e0| c8 29 5d 7d 5d 0d 7d 0d | 0d 0d 23 3d 3d 3d 3d 3d |.)]}].}.|..#=====|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 23 20 4d 6f |========|===.# Mo|
|00000340| 73 74 20 6f 66 20 74 68 | 65 20 72 6f 75 74 69 6e |st of th|e routin|
|00000350| 65 73 20 62 65 6c 6f 77 | 20 62 79 20 54 6f 6d 20 |es below| by Tom |
|00000360| 50 6f 6c 6c 61 72 64 0d | 23 3d 3d 3d 3d 3d 3d 3d |Pollard.|#=======|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0d 70 72 6f 63 20 |========|=..proc |
|000003c0| 41 45 41 62 73 50 6f 73 | 20 7b 70 6f 73 4e 61 6d |AEAbsPos| {posNam|
|000003d0| 65 7d 20 7b 0d 23 20 28 | 77 6f 75 6c 64 20 6c 69 |e} {.# (|would li|
|000003e0| 6b 65 20 74 6f 20 62 65 | 20 61 62 6c 65 20 74 6f |ke to be| able to|
|000003f0| 20 75 73 65 20 27 66 69 | 72 73 74 27 20 61 6e 64 | use 'fi|rst' and|
|00000400| 20 27 6c 61 73 74 27 20 | 61 73 20 77 65 6c 6c 2c | 'last' |as well,|
|00000410| 20 62 75 74 20 68 61 76 | 65 6e 27 74 20 79 65 74 | but hav|en't yet|
|00000420| 0d 23 20 66 69 67 75 72 | 65 64 20 6f 75 74 20 74 |.# figur|ed out t|
|00000430| 68 65 20 63 6f 72 72 65 | 63 74 20 41 45 42 75 69 |he corre|ct AEBui|
|00000440| 6c 64 20 73 79 6e 74 61 | 78 2e 20 20 22 73 65 6c |ld synta|x.  "sel|
|00000450| 64 3a 61 62 73 6f 28 27 | 66 69 72 73 27 29 22 20 |d:abso('|firs')" |
|00000460| 64 6f 65 73 6e 27 74 20 | 77 6f 72 6b 2e 29 0d 09 |doesn't |work.)..|
|00000470| 69 66 20 7b 24 70 6f 73 | 4e 61 6d 65 20 3e 20 30 |if {$pos|Name > 0|
|00000480| 7d 20 7b 0d 09 09 72 65 | 74 75 72 6e 20 22 66 6f |} {...re|turn "fo|
|00000490| 72 6d 3a 69 6e 64 78 2c | 20 73 65 6c 64 3a 6c 6f |rm:indx,| seld:lo|
|000004a0| 6e 67 28 24 70 6f 73 4e | 61 6d 65 29 22 0d 09 7d |ng($posN|ame)"..}|
|000004b0| 20 65 6c 73 65 20 7b 0d | 09 09 65 72 72 6f 72 20 | else {.|..error |
|000004c0| 22 41 45 41 62 73 50 6f | 73 3a 20 62 61 64 20 61 |"AEAbsPo|s: bad a|
|000004d0| 72 67 75 6d 65 6e 74 22 | 0d 09 7d 0d 7d 0d 70 72 |rgument"|..}.}.pr|
|000004e0| 6f 63 20 41 45 4e 61 6d | 65 20 7b 6e 61 6d 65 7d |oc AENam|e {name}|
|000004f0| 20 7b 0d 09 72 65 74 75 | 72 6e 20 22 66 6f 72 6d | {..retu|rn "form|
|00000500| 3a 27 6e 61 6d 65 27 2c | 20 73 65 6c 64 3a 5b 63 |:'name',| seld:[c|
|00000510| 75 72 6c 79 71 20 24 6e | 61 6d 65 5d 22 0d 7d 0d |urlyq $n|ame]".}.|
|00000520| 70 72 6f 63 20 41 45 57 | 69 6e 42 79 4e 61 6d 65 |proc AEW|inByName|
|00000530| 20 7b 6e 61 6d 65 7d 20 | 7b 0d 09 72 65 74 75 72 | {name} |{..retur|
|00000540| 6e 20 22 6f 62 6a 7b 77 | 61 6e 74 3a 74 79 70 65 |n "obj{w|ant:type|
|00000550| 28 27 63 77 69 6e 27 29 | 2c 20 66 72 6f 6d 3a 27 |('cwin')|, from:'|
|00000560| 6e 75 6c 6c 27 28 29 2c | 20 5b 41 45 4e 61 6d 65 |null'(),| [AEName|
|00000570| 20 24 6e 61 6d 65 5d 20 | 7d 20 22 0d 7d 0d 70 72 | $name] |} ".}.pr|
|00000580| 6f 63 20 41 45 57 69 6e | 42 79 50 6f 73 20 7b 61 |oc AEWin|ByPos {a|
|00000590| 62 73 50 6f 73 7d 20 7b | 0d 09 72 65 74 75 72 6e |bsPos} {|..return|
|000005a0| 20 22 6f 62 6a 7b 77 61 | 6e 74 3a 74 79 70 65 28 | "obj{wa|nt:type(|
|000005b0| 27 63 77 69 6e 27 29 2c | 20 66 72 6f 6d 3a 27 6e |'cwin'),| from:'n|
|000005c0| 75 6c 6c 27 28 29 2c 20 | 5b 41 45 41 62 73 50 6f |ull'(), |[AEAbsPo|
|000005d0| 73 20 24 61 62 73 50 6f | 73 5d 20 7d 20 22 0d 7d |s $absPo|s] } ".}|
|000005e0| 0d 70 72 6f 63 20 41 45 | 4c 69 6e 65 52 61 6e 67 |.proc AE|LineRang|
|000005f0| 65 20 7b 61 62 73 50 6f | 73 31 20 61 62 73 50 6f |e {absPo|s1 absPo|
|00000600| 73 32 7d 20 7b 0d 09 73 | 65 74 20 6c 69 6e 65 4f |s2} {..s|et lineO|
|00000610| 62 6a 31 20 22 6f 62 6a | 7b 20 77 61 6e 74 3a 74 |bj1 "obj|{ want:t|
|00000620| 79 70 65 28 27 63 6c 69 | 6e 27 29 2c 20 66 72 6f |ype('cli|n'), fro|
|00000630| 6d 3a 27 63 63 6e 74 27 | 28 29 2c 20 5b 41 45 41 |m:'ccnt'|(), [AEA|
|00000640| 62 73 50 6f 73 20 24 61 | 62 73 50 6f 73 31 5d 20 |bsPos $a|bsPos1] |
|00000650| 7d 22 0d 09 73 65 74 20 | 6c 69 6e 65 4f 62 6a 32 |}"..set |lineObj2|
|00000660| 20 22 6f 62 6a 7b 20 77 | 61 6e 74 3a 74 79 70 65 | "obj{ w|ant:type|
|00000670| 28 27 63 6c 69 6e 27 29 | 2c 20 66 72 6f 6d 3a 27 |('clin')|, from:'|
|00000680| 63 63 6e 74 27 28 29 2c | 20 5b 41 45 41 62 73 50 |ccnt'(),| [AEAbsP|
|00000690| 6f 73 20 24 61 62 73 50 | 6f 73 32 5d 20 7d 22 0d |os $absP|os2] }".|
|000006a0| 09 72 65 74 75 72 6e 20 | 22 66 6f 72 6d 3a 27 72 |.return |"form:'r|
|000006b0| 61 6e 67 27 2c 20 73 65 | 6c 64 3a 72 61 6e 67 7b |ang', se|ld:rang{|
|000006c0| 73 74 61 72 3a 24 6c 69 | 6e 65 4f 62 6a 31 2c 20 |star:$li|neObj1, |
|000006d0| 73 74 6f 70 3a 24 6c 69 | 6e 65 4f 62 6a 32 20 7d |stop:$li|neObj2 }|
|000006e0| 20 22 0d 7d 0d 0d 23 20 | 51 75 69 74 20 61 6e 20 | ".}..# |Quit an |
|000006f0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2e 0d 70 72 6f |applicat|ion..pro|
|00000700| 63 20 73 65 6e 64 51 75 | 69 74 45 76 65 6e 74 20 |c sendQu|itEvent |
|00000710| 7b 61 70 70 6e 61 6d 65 | 7d 20 7b 0d 09 41 45 42 |{appname|} {..AEB|
|00000720| 75 69 6c 64 20 24 61 70 | 70 6e 61 6d 65 20 22 61 |uild $ap|pname "a|
|00000730| 65 76 74 22 20 22 71 75 | 69 74 22 20 0d 7d 0d 0d |evt" "qu|it" .}..|
|00000740| 23 20 43 6c 6f 73 65 20 | 6f 6e 65 20 6f 66 20 61 |# Close |one of a|
|00000750| 6e 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 27 73 20 |n applic|ation's |
|00000760| 77 69 6e 64 6f 77 73 2c | 20 64 65 73 69 67 6e 61 |windows,| designa|
|00000770| 74 65 64 20 62 79 20 6e | 75 6d 62 65 72 2e 0d 70 |ted by n|umber..p|
|00000780| 72 6f 63 20 73 65 6e 64 | 43 6c 6f 73 65 57 69 6e |roc send|CloseWin|
|00000790| 4e 75 6d 20 7b 61 70 70 | 6e 61 6d 65 20 6e 75 6d |Num {app|name num|
|000007a0| 7d 20 7b 0d 09 41 45 42 | 75 69 6c 64 20 24 61 70 |} {..AEB|uild $ap|
|000007b0| 70 6e 61 6d 65 20 22 63 | 6f 72 65 22 20 22 63 6c |pname "c|ore" "cl|
|000007c0| 6f 73 22 20 22 2d 2d 2d | 2d 22 20 5b 41 45 57 69 |os" "---|-" [AEWi|
|000007d0| 6e 42 79 50 6f 73 20 24 | 6e 75 6d 5d 0d 7d 0d 0d |nByPos $|num].}..|
|000007e0| 23 20 43 6c 6f 73 65 20 | 6f 6e 65 20 6f 66 20 61 |# Close |one of a|
|000007f0| 6e 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 27 73 20 |n applic|ation's |
|00000800| 77 69 6e 64 6f 77 73 2c | 20 64 65 73 69 67 6e 61 |windows,| designa|
|00000810| 74 65 64 20 62 79 20 6e | 61 6d 65 2e 0d 70 72 6f |ted by n|ame..pro|
|00000820| 63 20 73 65 6e 64 43 6c | 6f 73 65 57 69 6e 4e 61 |c sendCl|oseWinNa|
|00000830| 6d 65 20 7b 61 70 70 6e | 61 6d 65 20 6e 61 6d 65 |me {appn|ame name|
|00000840| 7d 20 7b 0d 09 41 45 42 | 75 69 6c 64 20 24 61 70 |} {..AEB|uild $ap|
|00000850| 70 6e 61 6d 65 20 22 63 | 6f 72 65 22 20 22 63 6c |pname "c|ore" "cl|
|00000860| 6f 73 22 20 22 2d 2d 2d | 2d 22 20 5b 41 45 57 69 |os" "---|-" [AEWi|
|00000870| 6e 42 79 4e 61 6d 65 20 | 24 6e 61 6d 65 5d 0d 7d |nByName |$name].}|
|00000880| 0d 0d 23 20 4f 62 74 61 | 69 6e 20 74 68 65 20 6e |..# Obta|in the n|
|00000890| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 69 |umber of| lines i|
|000008a0| 6e 20 6f 6e 65 20 6f 66 | 20 61 6e 20 61 70 70 6c |n one of| an appl|
|000008b0| 69 63 61 74 69 6f 6e 27 | 73 0d 23 20 77 69 6e 64 |ication'|s.# wind|
|000008c0| 6f 77 73 2c 20 64 65 73 | 69 67 6e 61 74 65 64 20 |ows, des|ignated |
|000008d0| 62 79 20 6e 61 6d 65 2e | 0d 70 72 6f 63 20 73 65 |by name.|.proc se|
|000008e0| 6e 64 43 6f 75 6e 74 4c | 69 6e 65 73 20 7b 61 70 |ndCountL|ines {ap|
|000008f0| 70 6e 61 6d 65 20 6e 61 | 6d 65 7d 20 7b 0d 09 73 |pname na|me} {..s|
|00000900| 65 74 20 77 69 6e 4f 62 | 6a 20 5b 41 45 57 69 6e |et winOb|j [AEWin|
|00000910| 42 79 4e 61 6d 65 20 24 | 6e 61 6d 65 5d 0d 09 73 |ByName $|name]..s|
|00000920| 65 74 20 72 65 73 20 5b | 41 45 42 75 69 6c 64 20 |et res [|AEBuild |
|00000930| 2d 72 20 24 61 70 70 6e | 61 6d 65 20 22 63 6f 72 |-r $appn|ame "cor|
|00000940| 65 22 20 22 63 6e 74 65 | 22 20 22 2d 2d 2d 2d 22 |e" "cnte|" "----"|
|00000950| 20 24 77 69 6e 4f 62 6a | 20 6b 6f 63 6c 20 74 79 | $winObj| kocl ty|
|00000960| 70 65 28 27 63 6c 69 6e | 27 29 5d 09 0d 09 69 66 |pe('clin|')]...if|
|00000970| 20 7b 5b 72 65 67 65 78 | 70 20 7b 3a 28 2e 2a 29 | {[regex|p {:(.*)|
|00000980| 5c 7d 7d 20 24 72 65 73 | 20 61 6c 6c 6f 66 69 74 |\}} $res| allofit|
|00000990| 20 6e 6c 69 6e 65 73 5d | 7d 20 7b 0d 09 09 72 65 | nlines]|} {...re|
|000009a0| 74 75 72 6e 20 24 6e 6c | 69 6e 65 73 0d 09 7d 20 |turn $nl|ines..} |
|000009b0| 65 6c 73 65 20 7b 0d 09 | 09 72 65 74 75 72 6e 20 |else {..|.return |
|000009c0| 30 0d 09 7d 0d 7d 0d 0d | 23 20 47 65 74 20 61 20 |0..}.}..|# Get a |
|000009d0| 73 65 6c 65 63 74 65 64 | 20 72 61 6e 67 65 20 6f |selected| range o|
|000009e0| 66 20 6c 69 6e 65 73 20 | 66 72 6f 6d 20 6f 6e 65 |f lines |from one|
|000009f0| 20 6f 66 20 61 6e 20 61 | 70 70 6c 69 63 61 74 69 | of an a|pplicati|
|00000a00| 6f 6e 27 73 0d 23 20 77 | 69 6e 64 6f 77 73 2c 20 |on's.# w|indows, |
|00000a10| 64 65 73 69 67 6e 61 74 | 65 64 20 62 79 20 6e 61 |designat|ed by na|
|00000a20| 6d 65 2e 20 20 49 66 20 | 24 6c 61 73 74 20 69 73 |me.  If |$last is|
|00000a30| 20 6d 69 73 73 69 6e 67 | 2c 20 74 68 65 6e 20 61 | missing|, then a|
|00000a40| 20 73 69 6e 67 6c 65 0d | 23 20 6c 69 6e 65 20 69 | single.|# line i|
|00000a50| 73 20 72 65 74 75 72 6e | 65 64 3b 20 69 66 20 62 |s return|ed; if b|
|00000a60| 6f 74 68 20 24 66 69 72 | 73 74 20 61 6e 64 20 24 |oth $fir|st and $|
|00000a70| 6c 61 73 74 20 61 72 65 | 20 6d 69 73 73 69 6e 67 |last are| missing|
|00000a80| 2c 20 74 68 65 6e 0d 23 | 20 74 68 65 20 63 6f 6d |, then.#| the com|
|00000a90| 70 6c 65 74 65 20 77 69 | 6e 64 6f 77 20 63 6f 6e |plete wi|ndow con|
|00000aa0| 74 65 6e 74 73 20 61 72 | 65 20 72 65 74 75 72 6e |tents ar|e return|
|00000ab0| 65 64 2e 0d 70 72 6f 63 | 20 73 65 6e 64 47 65 74 |ed..proc| sendGet|
|00000ac0| 54 65 78 74 20 7b 61 70 | 70 6e 61 6d 65 20 6e 61 |Text {ap|pname na|
|00000ad0| 6d 65 20 7b 66 69 72 73 | 74 20 7b 6d 69 73 73 69 |me {firs|t {missi|
|00000ae0| 6e 67 7d 7d 20 7b 6c 61 | 73 74 20 7b 6d 69 73 73 |ng}} {la|st {miss|
|00000af0| 69 6e 67 7d 7d 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |ing}}} {|..global|
|00000b00| 20 41 4c 50 48 41 0d 09 | 73 65 74 20 77 69 6e 4f | ALPHA..|set winO|
|00000b10| 62 6a 20 5b 41 45 57 69 | 6e 42 79 4e 61 6d 65 20 |bj [AEWi|nByName |
|00000b20| 24 6e 61 6d 65 5d 0d 09 | 69 66 20 7b 24 66 69 72 |$name]..|if {$fir|
|00000b30| 73 74 20 21 3d 20 22 6d | 69 73 73 69 6e 67 22 7d |st != "m|issing"}|
|00000b40| 20 7b 0d 09 09 69 66 20 | 7b 24 6c 61 73 74 20 21 | {...if |{$last !|
|00000b50| 3d 20 22 6d 69 73 73 69 | 6e 67 22 7d 20 7b 0d 09 |= "missi|ng"} {..|
|00000b60| 09 09 73 65 74 20 72 61 | 6e 67 44 65 73 63 20 5b |..set ra|ngDesc [|
|00000b70| 41 45 4c 69 6e 65 52 61 | 6e 67 65 20 24 66 69 72 |AELineRa|nge $fir|
|00000b80| 73 74 20 24 6c 61 73 74 | 5d 0d 09 09 7d 20 65 6c |st $last|]...} el|
|00000b90| 73 65 20 7b 0d 09 09 09 | 73 65 74 20 72 61 6e 67 |se {....|set rang|
|00000ba0| 44 65 73 63 20 5b 41 45 | 41 62 73 50 6f 73 20 24 |Desc [AE|AbsPos $|
|00000bb0| 66 69 72 73 74 5d 0d 09 | 09 7d 0d 09 09 73 65 74 |first]..|.}...set|
|00000bc0| 20 6f 62 6a 44 65 73 63 | 20 22 6f 62 6a 7b 77 61 | objDesc| "obj{wa|
|00000bd0| 6e 74 3a 74 79 70 65 28 | 27 63 6c 69 6e 27 29 2c |nt:type(|'clin'),|
|00000be0| 20 66 72 6f 6d 3a 24 77 | 69 6e 4f 62 6a 2c 20 24 | from:$w|inObj, $|
|00000bf0| 72 61 6e 67 44 65 73 63 | 20 7d 22 0d 09 7d 20 65 |rangDesc| }"..} e|
|00000c00| 6c 73 65 20 7b 0d 09 09 | 73 65 74 20 6f 62 6a 44 |lse {...|set objD|
|00000c10| 65 73 63 20 22 6f 62 6a | 7b 77 61 6e 74 3a 74 79 |esc "obj|{want:ty|
|00000c20| 70 65 28 27 63 74 78 74 | 27 29 2c 20 66 72 6f 6d |pe('ctxt|'), from|
|00000c30| 3a 24 77 69 6e 4f 62 6a | 2c 20 66 6f 72 6d 3a 27 |:$winObj|, form:'|
|00000c40| 69 6e 64 78 27 2c 20 73 | 65 6c 64 3a 61 62 73 6f |indx', s|eld:abso|
|00000c50| 28 27 61 6c 6c 27 29 20 | 7d 22 0d 09 7d 0d 09 73 |('all') |}"..}..s|
|00000c60| 65 74 20 72 65 73 20 5b | 41 45 42 75 69 6c 64 20 |et res [|AEBuild |
|00000c70| 2d 72 20 24 61 70 70 6e | 61 6d 65 20 22 63 6f 72 |-r $appn|ame "cor|
|00000c80| 65 22 20 22 67 65 74 64 | 22 20 22 2d 2d 2d 2d 22 |e" "getd|" "----"|
|00000c90| 20 24 6f 62 6a 44 65 73 | 63 5d 09 0d 09 69 66 20 | $objDes|c]...if |
|00000ca0| 7b 21 5b 72 65 67 65 78 | 70 20 7b d2 2e 2a d3 7d |{![regex|p {..*.}|
|00000cb0| 20 24 72 65 73 20 74 65 | 78 74 5d 7d 20 7b 20 73 | $res te|xt]} { s|
|00000cc0| 65 74 20 74 65 78 74 20 | 7b 7d 20 7d 0d 09 72 65 |et text |{} }..re|
|00000cd0| 74 75 72 6e 20 5b 73 74 | 72 69 6e 67 20 74 72 69 |turn [st|ring tri|
|00000ce0| 6d 20 24 74 65 78 74 20 | 7b d2 d3 7d 5d 0d 7d 0d |m $text |{..}].}.|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 01 00 00 00 02 50 | 00 00 01 50 00 00 00 45 |.......P|...P...E|
|00000d10| 4f 4e 4c 59 5f 57 49 4e | 28 66 72 6f 6e 74 57 69 |ONLY_WIN|(frontWi|
|00000d20| 6e 2c 20 54 52 55 45 29 | 3b 0d 09 65 78 65 63 75 |n, TRUE)|;..execu|
|00000d30| 0f 61 70 70 6c 65 45 76 | 65 6e 74 73 2e 74 63 6c |.appleEv|ents.tcl|
|00000d40| 02 00 02 00 54 45 58 54 | 41 4c 46 41 01 00 ff ff |....TEXT|ALFA....|
|00000d50| 02 00 54 45 58 54 41 4c | 46 41 01 00 ff ff ff ff |..TEXTAL|FA......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 aa 11 0c 1b 00 00 | 0c 70 00 00 02 95 65 78 |........|.p....ex|
|00000d80| 74 4c 69 6e 65 53 74 61 | 72 74 28 66 72 6f 6e 74 |tLineSta|rt(front|
|00000d90| 57 69 6e 2c 20 31 29 29 | 3b 0d 7d 0d 0d 0d 70 61 |Win, 1))|;.}...pa|
|00000da0| 73 63 61 6c 0d 4f 53 45 | 72 72 0d 68 61 6e 64 6c |scal.OSE|rr.handl|
|00000db0| 65 54 68 69 6e 6b 52 65 | 70 6c 79 28 72 65 70 6c |eThinkRe|ply(repl|
|00000dc0| 79 2c 20 72 65 70 6c 79 | 32 2c 20 74 68 65 52 65 |y, reply|2, theRe|
|00000dd0| 66 43 6f 6e 29 0d 41 70 | 70 6c 65 45 76 65 6e 74 |fCon).Ap|pleEvent|
|00000de0| 20 2a 72 65 70 6c 79 2c | 20 2a 72 65 70 6c 79 32 | *reply,| *reply2|
|00000df0| 3b 0d 6c 6f 6e 67 20 74 | 68 65 52 65 66 43 6f 6e |;.long t|heRefCon|
|00000e00| 00 00 01 00 00 91 ad f8 | 00 00 00 00 00 00 00 77 |........|.......w|
|00000e10| 00 00 00 cd 00 91 ae 0a | 00 91 ad e6 00 00 00 45 |........|.......E|
|00000e20| 00 00 00 21 00 91 ae 1c | 00 91 ad f8 00 00 00 01 |...!....|........|
|00000e30| 00 00 01 99 00 91 ae 2e | 00 91 ae 0a 00 00 00 04 |........|........|
|00000e40| 00 00 00 21 00 91 ae 40 | 00 91 ae 1c 00 00 00 16 |...!...@|........|
|00000e50| 00 00 01 99 00 91 ae 52 | 00 91 ae 2e 00 00 00 06 |.......R|........|
|00000e60| 00 00 00 21 00 91 ae 64 | 00 91 ae 40 00 00 00 48 |...!...d|...@...H|
|00000e70| 00 00 00 cd 00 91 ae 76 | 00 91 ae 52 00 00 00 44 |.......v|...R...D|
|00000e80| 00 00 00 21 00 91 b1 a0 | 00 91 ae 64 00 00 00 01 |...!....|...d....|
|00000e90| 00 00 01 99 00 91 b1 b2 | 00 91 ae 76 00 00 00 04 |........|...v....|
|00000ea0| 00 00 00 21 00 91 b1 c4 | 00 91 b1 a0 00 00 00 16 |...!....|........|
|00000eb0| 00 00 01 99 00 91 b1 d6 | 00 91 b1 b2 00 00 00 04 |........|........|
|00000ec0| 00 00 00 21 00 91 b2 44 | 00 91 b1 c4 00 00 00 02 |...!...D|........|
|00000ed0| 00 00 01 99 00 91 b2 56 | 00 91 b1 d6 00 00 00 06 |.......V|........|
|00000ee0| 00 00 00 21 00 91 b2 68 | 00 91 b2 44 00 00 00 3f |...!...h|...D...?|
|00000ef0| 00 00 01 99 00 00 00 00 | 00 91 b2 56 00 00 00 04 |........|...V....|
|00000f00| 00 00 00 21 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |...!...H|..Monaco|
|00000f10| 00 00 00 dd c7 e8 00 00 | 00 00 00 f4 ba 4c 00 03 |........|.....L..|
|00000f20| 2f 0a 03 0d 00 eb bd 50 | 00 00 00 04 00 04 00 28 |/......P|.......(|
|00000f30| 00 03 01 ca 02 79 00 28 | 00 03 01 ca 02 79 00 05 |.....y.(|.....y..|
|00000f40| d1 e6 00 00 00 bd 00 00 | 00 bd 00 00 00 00 01 00 |........|........|
|00000f50| 00 00 01 00 00 00 02 50 | 00 00 01 50 00 00 00 45 |.......P|...P...E|
|00000f60| 00 dd c7 e8 12 bc 00 00 | 00 1c 00 3e 00 00 4d 50 |........|...>..MP|
|00000f70| 53 52 00 01 00 0a 02 9a | 00 00 00 00 00 00 00 00 |SR......|........|
|00000f80| 00 00 03 ed ff ff 00 00 | 01 04 00 e2 32 c8 06 63 |........|....2..c|
|00000f90| 6f 6c 6f 72 73 00 00 00 | 00 00 00 00 00 00 00 00 |olors...|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+