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

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 63 6c 69 70 73 2e | 74 63 6c 00 00 00 00 00 |..clips.|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 04 c7 00 | 00 01 e6 a9 a2 a2 a2 a9 |........|........|
|00000060| a2 a2 a2 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 de 79 00 00 |........|.....y..|
|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 0d 23 |========|======.#|
|000000d0| 09 4e 61 6d 65 64 20 43 | 6c 69 70 62 6f 61 72 64 |.Named C|lipboard|
|000000e0| 73 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |s.#=====|========|
|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 3d |========|========|
|00000130| 0d 0d 70 72 6f 63 20 63 | 6f 70 79 4e 61 6d 65 64 |..proc c|opyNamed|
|00000140| 43 6c 69 70 62 6f 61 72 | 64 20 7b 7d 20 7b 0d 09 |Clipboar|d {} {..|
|00000150| 67 6c 6f 62 61 6c 20 63 | 6c 69 70 42 6f 61 72 64 |global c|lipBoard|
|00000160| 73 0d 09 67 6c 6f 62 61 | 6c 20 70 61 73 74 65 49 |s..globa|l pasteI|
|00000170| 74 65 6d 4e 75 6d 0d 09 | 73 65 74 20 74 65 78 74 |temNum..|set text|
|00000180| 20 5b 67 65 74 54 65 78 | 74 20 5b 67 65 74 50 6f | [getTex|t [getPo|
|00000190| 73 5d 20 5b 73 65 6c 45 | 6e 64 5d 5d 0d 09 69 66 |s] [selE|nd]]..if|
|000001a0| 20 7b 21 5b 63 61 74 63 | 68 20 7b 70 72 6f 6d 70 | {![catc|h {promp|
|000001b0| 74 20 7b 43 6c 69 70 20 | 6e 61 6d 65 3f 7d 20 5b |t {Clip |name?} [|
|000001c0| 6c 69 6e 64 65 78 20 24 | 74 65 78 74 20 30 5d 7d |lindex $|text 0]}|
|000001d0| 20 6e 61 6d 65 5d 7d 20 | 74 68 65 6e 20 7b 0d 09 | name]} |then {..|
|000001e0| 09 73 65 74 20 63 6c 69 | 70 42 6f 61 72 64 73 28 |.set cli|pBoards(|
|000001f0| 24 6e 61 6d 65 29 20 24 | 74 65 78 74 0d 09 09 65 |$name) $|text...e|
|00000200| 6e 61 62 6c 65 4d 65 6e | 75 49 74 65 6d 20 22 4e |nableMen|uItem "N|
|00000210| 61 6d 65 64 43 6c 69 70 | 62 6f 61 72 64 73 22 20 |amedClip|boards" |
|00000220| 22 70 61 73 74 65 22 20 | 6f 6e 0d 09 7d 0d 7d 0d |"paste" |on..}.}.|
|00000230| 0d 70 72 6f 63 20 63 75 | 74 4e 61 6d 65 64 43 6c |.proc cu|tNamedCl|
|00000240| 69 70 62 6f 61 72 64 20 | 7b 7d 20 7b 0d 09 67 6c |ipboard |{} {..gl|
|00000250| 6f 62 61 6c 20 63 6c 69 | 70 42 6f 61 72 64 73 0d |obal cli|pBoards.|
|00000260| 09 67 6c 6f 62 61 6c 20 | 70 61 73 74 65 49 74 65 |.global |pasteIte|
|00000270| 6d 4e 75 6d 0d 09 73 65 | 74 20 74 65 78 74 20 5b |mNum..se|t text [|
|00000280| 67 65 74 53 65 6c 65 63 | 74 5d 0d 09 69 66 20 7b |getSelec|t]..if {|
|00000290| 21 5b 63 61 74 63 68 20 | 7b 70 72 6f 6d 70 74 20 |![catch |{prompt |
|000002a0| 7b 43 6c 69 70 20 6e 61 | 6d 65 3f 7d 20 5b 6c 69 |{Clip na|me?} [li|
|000002b0| 6e 64 65 78 20 24 74 65 | 78 74 20 30 5d 7d 20 6e |ndex $te|xt 0]} n|
|000002c0| 61 6d 65 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 64 |ame]} th|en {...d|
|000002d0| 65 6c 65 74 65 54 65 78 | 74 20 5b 67 65 74 50 6f |eleteTex|t [getPo|
|000002e0| 73 5d 20 5b 73 65 6c 45 | 6e 64 5d 0d 09 09 73 65 |s] [selE|nd]...se|
|000002f0| 74 20 63 6c 69 70 42 6f | 61 72 64 73 28 24 6e 61 |t clipBo|ards($na|
|00000300| 6d 65 29 20 24 74 65 78 | 74 0d 09 09 65 6e 61 62 |me) $tex|t...enab|
|00000310| 6c 65 4d 65 6e 75 49 74 | 65 6d 20 22 4e 61 6d 65 |leMenuIt|em "Name|
|00000320| 64 43 6c 69 70 62 6f 61 | 72 64 73 22 20 22 70 61 |dClipboa|rds" "pa|
|00000330| 73 74 65 22 20 6f 6e 0d | 09 7d 0d 7d 0d 0d 70 72 |ste" on.|.}.}..pr|
|00000340| 6f 63 20 70 61 73 74 65 | 4e 61 6d 65 64 43 6c 69 |oc paste|NamedCli|
|00000350| 70 62 6f 61 72 64 20 7b | 7d 20 7b 0d 20 20 20 20 |pboard {|} {.    |
|00000360| 67 6c 6f 62 61 6c 20 63 | 6c 69 70 42 6f 61 72 64 |global c|lipBoard|
|00000370| 73 0d 09 73 65 74 20 69 | 6e 64 20 5b 61 72 72 61 |s..set i|nd [arra|
|00000380| 79 20 73 74 61 72 74 73 | 65 61 72 63 68 20 63 6c |y starts|earch cl|
|00000390| 69 70 42 6f 61 72 64 73 | 5d 0d 09 73 65 74 20 72 |ipBoards|]..set r|
|000003a0| 65 73 20 5b 61 72 72 61 | 79 20 6e 65 78 74 65 6c |es [arra|y nextel|
|000003b0| 65 6d 65 6e 74 20 63 6c | 69 70 42 6f 61 72 64 73 |ement cl|ipBoards|
|000003c0| 20 24 69 6e 64 5d 0d 09 | 61 72 72 61 79 20 64 6f | $ind]..|array do|
|000003d0| 6e 65 73 65 61 72 63 68 | 20 63 6c 69 70 42 6f 61 |nesearch| clipBoa|
|000003e0| 72 64 73 20 24 69 6e 64 | 0d 20 20 20 20 69 66 20 |rds $ind|.    if |
|000003f0| 7b 21 5b 63 61 74 63 68 | 20 7b 65 76 61 6c 20 70 |{![catch| {eval p|
|00000400| 72 6f 6d 70 74 20 7b 7b | 43 6c 69 70 20 6e 61 6d |rompt {{|Clip nam|
|00000410| 65 3f 7d 7d 20 22 24 72 | 65 73 22 20 43 6c 69 70 |e?}} "$r|es" Clip|
|00000420| 73 20 5b 61 72 72 61 79 | 20 6e 61 6d 65 73 20 63 |s [array| names c|
|00000430| 6c 69 70 42 6f 61 72 64 | 73 5d 7d 20 6e 61 6d 65 |lipBoard|s]} name|
|00000440| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 69 66 20 7b |]} then |{...if {|
|00000450| 5b 63 61 74 63 68 20 7b | 73 65 74 20 74 65 78 74 |[catch {|set text|
|00000460| 20 24 63 6c 69 70 42 6f | 61 72 64 73 28 24 6e 61 | $clipBo|ards($na|
|00000470| 6d 65 29 7d 5d 7d 20 74 | 68 65 6e 20 7b 0d 09 09 |me)}]} t|hen {...|
|00000480| 09 61 6c 65 72 74 6e 6f | 74 65 20 22 4e 6f 20 73 |.alertno|te "No s|
|00000490| 75 63 68 20 63 6c 69 70 | 62 6f 61 72 64 2e 22 0d |uch clip|board.".|
|000004a0| 09 09 09 72 65 74 75 72 | 6e 0d 09 09 7d 0d 20 20 |...retur|n...}.  |
|000004b0| 20 20 20 20 20 20 69 66 | 20 7b 5b 67 65 74 53 65 |      if| {[getSe|
|000004c0| 6c 65 63 74 5d 20 3d 3d | 20 22 22 20 7d 20 74 68 |lect] ==| "" } th|
|000004d0| 65 6e 20 7b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |en {.   |        |
|000004e0| 20 69 6e 73 65 72 74 54 | 65 78 74 20 24 74 65 78 | insertT|ext $tex|
|000004f0| 74 0d 20 20 20 20 20 20 | 20 20 7d 20 65 6c 73 65 |t.      |  } else|
|00000500| 20 7b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 72 | {.     |       r|
|00000510| 65 70 6c 61 63 65 54 65 | 78 74 20 5b 67 65 74 50 |eplaceTe|xt [getP|
|00000520| 6f 73 5d 20 5b 73 65 6c | 45 6e 64 5d 20 20 24 74 |os] [sel|End]  $t|
|00000530| 65 78 74 0d 20 20 20 20 | 20 20 20 20 7d 0d 20 20 |ext.    |    }.  |
|00000540| 20 20 7d 20 0d 7d 0d 00 | 00 00 00 00 00 00 00 00 |  } .}..|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 a4 | 00 00 00 a4 00 00 00 42 |........|.......B|
|00000590| 00 00 01 f7 00 4d 03 00 | 00 00 00 00 00 00 00 00 |.....M..|........|
|000005a0| 00 00 00 02 08 4d 61 63 | 58 20 31 2e 31 00 00 00 |.....Mac|X 1.1...|
|000005b0| 09 63 6c 69 70 73 2e 74 | 63 6c 02 00 00 00 54 45 |.clips.t|cl....TE|
|000005c0| 58 54 41 4c 46 41 01 00 | 00 00 00 c0 00 00 00 01 |XTALFA..|........|
|000005d0| 00 00 54 45 58 54 41 4c | 46 41 01 00 00 00 00 c0 |..TEXTAL|FA......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 a9 a2 6a 62 00 00 | 04 c7 00 00 01 e6 aa 01 |....jb..|........|
|00000600| a7 80 a4 f8 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 32 46 | 01 71 00 00 00 00 00 00 |......2F|.q......|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 0a 00 00 00 | 01 f7 04 4d 61 63 58 81 |........|...MacX.|
|00000650| 02 00 00 00 41 50 50 4c | 4d 61 63 58 20 00 00 00 |....APPL|MacX ...|
|00000660| 00 00 00 00 00 00 01 f8 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 0b 83 95 | 00 0b 88 00 a3 8a aa 01 |........|........|
|00000680| 00 00 00 54 00 03 00 00 | 00 b2 00 00 00 b2 13 63 |...T....|.......c|
|00000690| 6f 70 79 4e 61 6d 65 64 | 43 6c 69 70 62 6f 61 72 |opyNamed|Clipboar|
|000006a0| 64 00 00 00 01 b1 00 00 | 01 b1 11 63 75 74 4e 61 |d.......|...cutNa|
|000006b0| 6d 65 64 43 6c 69 70 62 | 6f 61 72 64 00 00 02 be |medClipb|oard....|
|000006c0| 00 00 02 be 13 70 61 73 | 74 65 4e 61 6d 65 64 43 |.....pas|teNamedC|
|000006d0| 6c 69 70 62 6f 61 72 64 | 00 00 00 48 00 09 4d 6f |lipboard|...H..Mo|
|000006e0| 6e 61 63 6f 00 52 36 90 | 00 00 11 a2 00 49 03 74 |naco.R6.|.....I.t|
|000006f0| 00 67 a9 c0 24 00 04 44 | 00 44 64 64 ff fc 00 04 |.g..$..D|.Ddd....|
|00000700| 00 04 00 2a 00 03 01 dd | 02 7d 00 2a 00 03 01 dd |...*....|.}.*....|
|00000710| 02 7d ab fc fa f2 00 00 | 00 e2 00 00 00 e2 00 00 |.}......|........|
|00000720| 00 e2 01 00 00 00 01 00 | 00 00 01 a4 00 00 00 a4 |........|........|
|00000730| 00 00 00 42 00 40 1d 48 | 11 a2 00 00 00 1c 00 3e |...B.@.H|.......>|
|00000740| 00 00 4d 50 53 52 00 01 | 00 0a 03 ef 00 00 00 00 |..MPSR..|........|
|00000750| 00 00 00 52 0e 90 03 ed | ff ff 00 00 00 58 00 52 |...R....|.....X.R|
|00000760| 0e 8c 03 74 61 62 00 00 | 00 00 00 00 00 00 00 00 |...tab..|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+