/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / SystemCode / thinkRef.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 74 68 69 6e 6b 52 | 65 66 2e 74 63 6c 00 00 |..thinkR|ef.tcl..|
|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 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 06 3d 00 | 00 02 0c ab 91 45 2d ab |......=.|.....E-.|
|00000060| 91 45 2d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.E-.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0b 90 00 00 |........|........|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 0d 23 20 54 48 49 4e | 4b 20 52 65 66 0d 23 3d |=.# THIN|K Ref.#=|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000130| 0d 70 72 6f 63 20 74 68 | 69 6e 6b 52 65 66 4d 65 |.proc th|inkRefMe|
|00000140| 6e 75 20 7b 7d 20 7b 7d | 0d 0d 6d 65 6e 75 20 2d |nu {} {}|..menu -|
|00000150| 6e 20 24 74 68 69 6e 6b | 52 65 66 4d 65 6e 75 20 |n $think|RefMenu |
|00000160| 7b 0d 09 22 67 6f 74 6f | 52 65 66 65 72 65 6e 63 |{.."goto|Referenc|
|00000170| 65 22 0d 09 22 28 2d 22 | 0d 09 22 64 69 73 70 6c |e".."(-"|.."displ|
|00000180| 61 79 54 72 61 70 54 65 | 6d 70 6c 61 74 65 22 0d |ayTrapTe|mplate".|
|00000190| 09 22 69 6e 73 65 72 74 | 54 72 61 70 54 65 6d 70 |."insert|TrapTemp|
|000001a0| 6c 61 74 65 22 0d 09 22 | 2f 4c 3c 4f 3c 55 6c 6f |late".."|/L<O<Ulo|
|000001b0| 6f 6b 75 70 54 72 61 70 | 22 0d 7d 0d 0d 0d 0d 73 |okupTrap|".}....s|
|000001c0| 65 74 20 6c 61 73 74 54 | 72 61 70 20 7b 7d 0d 0d |et lastT|rap {}..|
|000001d0| 70 72 6f 63 20 69 6e 73 | 65 72 74 54 72 61 70 54 |proc ins|ertTrapT|
|000001e0| 65 6d 70 6c 61 74 65 20 | 7b 7d 20 7b 0d 09 67 6c |emplate |{} {..gl|
|000001f0| 6f 62 61 6c 20 6c 61 73 | 74 54 72 61 70 0d 0d 09 |obal las|tTrap...|
|00000200| 69 66 20 7b 21 5b 73 74 | 72 69 6e 67 20 6c 65 6e |if {![st|ring len|
|00000210| 67 74 68 20 5b 63 68 65 | 63 6b 52 75 6e 6e 69 6e |gth [che|ckRunnin|
|00000220| 67 20 54 68 69 6e 6b 52 | 65 66 65 72 65 6e 63 65 |g ThinkR|eference|
|00000230| 20 44 61 6e 52 20 72 65 | 66 65 72 65 6e 63 65 50 | DanR re|ferenceP|
|00000240| 61 74 68 5d 5d 7d 20 72 | 65 74 75 72 6e 0d 09 73 |ath]]} r|eturn..s|
|00000250| 65 74 20 74 65 78 74 20 | 5b 67 65 74 53 65 6c 65 |et text |[getSele|
|00000260| 63 74 5d 0d 09 69 66 20 | 7b 21 5b 73 74 72 69 6e |ct]..if |{![strin|
|00000270| 67 20 6c 65 6e 67 74 68 | 20 24 74 65 78 74 5d 7d |g length| $text]}|
|00000280| 20 7b 0d 09 09 69 66 20 | 7b 5b 63 61 74 63 68 20 | {...if |{[catch |
|00000290| 7b 70 72 6f 6d 70 74 20 | 22 54 72 61 70 20 6e 61 |{prompt |"Trap na|
|000002a0| 6d 65 3a 22 20 24 6c 61 | 73 74 54 72 61 70 7d 20 |me:" $la|stTrap} |
|000002b0| 74 65 78 74 5d 7d 20 72 | 65 74 75 72 6e 0d 09 7d |text]} r|eturn..}|
|000002c0| 20 65 6c 73 65 20 7b 0d | 09 09 64 65 6c 65 74 65 | else {.|..delete|
|000002d0| 54 65 78 74 20 5b 67 65 | 74 50 6f 73 5d 20 5b 73 |Text [ge|tPos] [s|
|000002e0| 65 6c 45 6e 64 5d 0d 09 | 7d 0d 09 73 65 74 20 6c |elEnd]..|}..set l|
|000002f0| 61 73 74 54 72 61 70 20 | 24 74 65 78 74 0d 09 73 |astTrap |$text..s|
|00000300| 65 74 20 72 65 73 20 5b | 41 45 42 75 69 6c 64 20 |et res [|AEBuild |
|00000310| 2d 72 20 7b 27 44 61 6e | 52 27 7d 20 44 61 6e 52 |-r {'Dan|R'} DanR|
|00000320| 20 7b 54 4d 50 4c 7d 20 | 22 2d 2d 2d 2d 22 20 22 | {TMPL} |"----" "|
|00000330| d2 24 74 65 78 74 d3 22 | 5d 0d 09 72 65 67 65 78 |.$text."|]..regex|
|00000340| 70 20 7b d2 2e 2a d3 7d | 20 24 72 65 73 20 6f 6e |p {..*.}| $res on|
|00000350| 65 0d 09 69 6e 73 65 72 | 74 54 65 78 74 20 5b 73 |e..inser|tText [s|
|00000360| 74 72 69 6e 67 20 74 72 | 69 6d 20 24 6f 6e 65 20 |tring tr|im $one |
|00000370| 7b d2 d3 7d 5d 0d 7d 0d | 0d 70 72 6f 63 20 64 69 |{..}].}.|.proc di|
|00000380| 73 70 6c 61 79 54 72 61 | 70 54 65 6d 70 6c 61 74 |splayTra|pTemplat|
|00000390| 65 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 6c |e {} {..|global l|
|000003a0| 61 73 74 54 72 61 70 0d | 0d 09 69 66 20 7b 21 5b |astTrap.|..if {![|
|000003b0| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 5b 63 |string l|ength [c|
|000003c0| 68 65 63 6b 52 75 6e 6e | 69 6e 67 20 54 68 69 6e |heckRunn|ing Thin|
|000003d0| 6b 52 65 66 65 72 65 6e | 63 65 20 44 61 6e 52 20 |kReferen|ce DanR |
|000003e0| 72 65 66 65 72 65 6e 63 | 65 50 61 74 68 5d 5d 7d |referenc|ePath]]}|
|000003f0| 20 72 65 74 75 72 6e 0d | 09 73 65 74 20 74 65 78 | return.|.set tex|
|00000400| 74 20 7b 7d 0d 09 63 61 | 74 63 68 20 7b 73 65 74 |t {}..ca|tch {set|
|00000410| 20 74 65 78 74 20 5b 67 | 65 74 53 65 6c 65 63 74 | text [g|etSelect|
|00000420| 5d 7d 0d 09 69 66 20 7b | 21 5b 73 74 72 69 6e 67 |]}..if {|![string|
|00000430| 20 6c 65 6e 67 74 68 20 | 24 74 65 78 74 5d 7d 20 | length |$text]} |
|00000440| 7b 0d 09 09 69 66 20 7b | 5b 63 61 74 63 68 20 7b |{...if {|[catch {|
|00000450| 70 72 6f 6d 70 74 20 22 | 54 72 61 70 20 6e 61 6d |prompt "|Trap nam|
|00000460| 65 3a 22 20 24 6c 61 73 | 74 54 72 61 70 7d 20 74 |e:" $las|tTrap} t|
|00000470| 65 78 74 5d 7d 20 72 65 | 74 75 72 6e 0d 09 7d 0d |ext]} re|turn..}.|
|00000480| 09 73 65 74 20 6c 61 73 | 74 54 72 61 70 20 24 74 |.set las|tTrap $t|
|00000490| 65 78 74 0d 0d 09 73 65 | 74 20 72 65 73 20 5b 41 |ext...se|t res [A|
|000004a0| 45 42 75 69 6c 64 20 2d | 72 20 7b 27 44 61 6e 52 |EBuild -|r {'DanR|
|000004b0| 27 7d 20 44 61 6e 52 20 | 7b 54 4d 50 4c 7d 20 22 |'} DanR |{TMPL} "|
|000004c0| 2d 2d 2d 2d 22 20 22 d2 | 24 74 65 78 74 d3 22 5d |----" ".|$text."]|
|000004d0| 0d 09 72 65 67 65 78 70 | 20 7b d2 2e 2a d3 7d 20 |..regexp| {..*.} |
|000004e0| 24 72 65 73 20 6f 6e 65 | 0d 09 61 6c 65 72 74 6e |$res one|..alertn|
|000004f0| 6f 74 65 20 5b 73 74 72 | 69 6e 67 20 74 72 69 6d |ote [str|ing trim|
|00000500| 20 24 6f 6e 65 20 7b d2 | d3 7d 5d 0d 7d 0d 0d 70 | $one {.|.}].}..p|
|00000510| 72 6f 63 20 6c 6f 6f 6b | 75 70 54 72 61 70 20 7b |roc look|upTrap {|
|00000520| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 6c 61 73 74 |} {..glo|bal last|
|00000530| 54 72 61 70 0d 0d 09 69 | 66 20 7b 21 5b 73 74 72 |Trap...i|f {![str|
|00000540| 69 6e 67 20 6c 65 6e 67 | 74 68 20 5b 63 68 65 63 |ing leng|th [chec|
|00000550| 6b 52 75 6e 6e 69 6e 67 | 20 54 68 69 6e 6b 52 65 |kRunning| ThinkRe|
|00000560| 66 65 72 65 6e 63 65 20 | 44 61 6e 52 20 72 65 66 |ference |DanR ref|
|00000570| 65 72 65 6e 63 65 50 61 | 74 68 5d 5d 7d 20 72 65 |erencePa|th]]} re|
|00000580| 74 75 72 6e 0d 09 73 65 | 74 20 74 65 78 74 20 7b |turn..se|t text {|
|00000590| 7d 0d 09 63 61 74 63 68 | 20 7b 73 65 74 20 74 65 |}..catch| {set te|
|000005a0| 78 74 20 5b 67 65 74 53 | 65 6c 65 63 74 5d 7d 0d |xt [getS|elect]}.|
|000005b0| 09 69 66 20 7b 21 5b 73 | 74 72 69 6e 67 20 6c 65 |.if {![s|tring le|
|000005c0| 6e 67 74 68 20 24 74 65 | 78 74 5d 7d 20 7b 0d 09 |ngth $te|xt]} {..|
|000005d0| 09 69 66 20 7b 5b 63 61 | 74 63 68 20 7b 70 72 6f |.if {[ca|tch {pro|
|000005e0| 6d 70 74 20 22 54 72 61 | 70 20 6e 61 6d 65 3a 22 |mpt "Tra|p name:"|
|000005f0| 20 24 6c 61 73 74 54 72 | 61 70 7d 20 74 65 78 74 | $lastTr|ap} text|
|00000600| 5d 7d 20 72 65 74 75 72 | 6e 0d 09 7d 0d 09 73 65 |]} retur|n..}..se|
|00000610| 74 20 6c 61 73 74 54 72 | 61 70 20 24 74 65 78 74 |t lastTr|ap $text|
|00000620| 0d 09 73 65 74 20 6e 75 | 6d 20 30 0d 09 41 45 42 |..set nu|m 0..AEB|
|00000630| 75 69 6c 64 20 7b 27 44 | 61 6e 52 27 7d 20 44 61 |uild {'D|anR'} Da|
|00000640| 6e 52 20 7b 52 45 46 20 | 7d 20 22 2d 2d 2d 2d 22 |nR {REF |} "----"|
|00000650| 20 22 d2 24 74 65 78 74 | d3 22 0d 7d 0d 0d 70 72 | ".$text|.".}..pr|
|00000660| 6f 63 20 67 6f 74 6f 52 | 65 66 65 72 65 6e 63 65 |oc gotoR|eference|
|00000670| 20 7b 7d 20 7b 0d 09 63 | 61 74 63 68 20 7b 73 77 | {} {..c|atch {sw|
|00000680| 69 74 63 68 54 6f 20 5b | 63 68 65 63 6b 52 75 6e |itchTo [|checkRun|
|00000690| 6e 69 6e 67 20 54 68 69 | 6e 6b 52 65 66 65 72 65 |ning Thi|nkRefere|
|000006a0| 6e 63 65 20 44 61 6e 52 | 20 72 65 66 65 72 65 6e |nce DanR| referen|
|000006b0| 63 65 50 61 74 68 5d 7d | 0d 7d 0d 0d 0d 00 00 00 |cePath]}|.}......|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 ca | 00 00 00 ca 00 00 00 42 |........|.......B|
|00000710| 00 12 4e 69 6b 69 00 00 | 00 1e 00 00 ff ff 00 00 |..Niki..|........|
|00000720| 00 00 00 00 00 00 00 00 | ff ff 00 00 00 08 00 7c |........|.......||
|00000730| 0c 74 68 69 6e 6b 52 65 | 66 2e 74 63 6c 65 02 00 |.thinkRe|f.tcle..|
|00000740| 00 00 54 45 58 54 41 4c | 46 41 01 00 00 00 00 00 |..TEXTAL|FA......|
|00000750| 00 00 54 45 58 54 41 4c | 46 41 01 00 00 00 00 00 |..TEXTAL|FA......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 ab 7b cf db 00 00 | 06 3d 00 00 02 0c 92 4f |...{....|.=.....O|
|00000780| 87 e7 5f b6 e3 df 6c f0 | 0f 41 d0 a9 47 32 84 35 |.._...l.|.A..G2.5|
|00000790| f4 ea a4 27 22 1f 49 16 | 80 6d e2 f1 55 22 8f 8e |...'".I.|.m..U"..|
|000007a0| ef 42 15 c4 15 c1 5a 1a | 64 23 a4 1f 02 d7 7f b6 |.B....Z.|d#......|
|000007b0| 90 01 51 14 2b 20 96 7a | 51 05 20 df 12 52 06 bb |..Q.+ .z|Q. ..R..|
|000007c0| f7 c4 b2 99 72 a4 ec e5 | e7 d2 cf f2 4d 2e 25 cb |....r...|....M.%.|
|000007d0| 54 20 2f f1 93 21 bc d4 | 0f b5 89 a9 d5 73 eb 05 |T /..!..|.....s..|
|000007e0| b4 ae 25 7f ea 77 4e 59 | bb 72 91 1c d2 2b 42 94 |..%..wNY|.r...+B.|
|000007f0| 18 f8 8b 84 8f 4a a6 93 | 02 20 e9 9b da 05 f8 6e |.....J..|. .....n|
|00000800| 00 00 00 7a 00 05 00 00 | 02 f9 00 00 02 f9 13 64 |...z....|.......d|
|00000810| 69 73 70 6c 61 79 54 72 | 61 70 54 65 6d 70 6c 61 |isplayTr|apTempla|
|00000820| 74 65 00 00 05 de 00 00 | 05 de 0d 67 6f 74 6f 52 |te......|...gotoR|
|00000830| 65 66 65 72 65 6e 63 65 | 00 00 01 50 00 00 01 50 |eference|...P...P|
|00000840| 13 69 6e 73 65 72 74 54 | 72 61 70 54 65 6d 70 6c |.insertT|rapTempl|
|00000850| 61 74 65 00 00 00 04 8f | 00 00 04 8f 0b 6c 6f 6f |ate.....|.....loo|
|00000860| 6b 75 70 54 72 61 70 00 | 00 00 00 b1 00 00 00 b1 |kupTrap.|........|
|00000870| 0d 74 68 69 6e 6b 52 65 | 66 4d 65 6e 75 00 00 00 |.thinkRe|fMenu...|
|00000880| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 53 d7 10 00 00 |.H..Mona|co.S....|
|00000890| 11 a2 00 49 03 74 00 67 | a9 c0 24 00 04 44 00 44 |...I.t.g|..$..D.D|
|000008a0| 64 64 ff fc 00 04 00 04 | 00 28 00 02 02 5c 03 38 |dd......|.(...\.8|
|000008b0| 00 28 00 02 02 5c 03 38 | ab fc fc 2e 00 00 04 8f |.(...\.8|........|
|000008c0| 00 00 04 8f 00 00 01 7e | 01 00 00 00 01 00 00 00 |.......~|........|
|000008d0| 01 ca 00 00 00 ca 00 00 | 00 42 00 40 1d 48 11 a2 |........|.B.@.H..|
|000008e0| 00 00 00 1c 00 3e 00 00 | 4d 50 53 52 00 01 00 0a |.....>..|MPSR....|
|000008f0| 03 ef 00 00 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|00000900| 00 00 00 7e 00 53 d8 28 | 03 74 61 62 00 00 00 00 |...~.S.(|.tab....|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+