home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1995-07-16 | 20.9 KB | [TEXT/ALFA] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Sun Jul 16 02:30:15 1995, modified Sun Jul 16 02:30:15 1995, creator Alpha editor, type ASCII, 20253 bytes "modes.tcl" , at 0x4f9d 876 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [ALFA] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 6d 6f 64 65 73 2e | 74 63 6c 00 00 00 00 00 |..modes.|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 4f 1d 00 | 00 03 6c ac 2e 62 77 ac |.....O..|..l..bw.|
|00000060| 2e 62 77 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.bw.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8d 07 00 00 |........|........|
|00000080| 23 20 4e 65 77 20 6d 6f | 64 65 73 20 63 61 6e 20 |# New mo|des can |
|00000090| 62 65 20 73 70 65 63 69 | 66 69 65 64 20 62 79 20 |be speci|fied by |
|000000a0| 61 70 70 65 6e 64 69 6e | 67 20 74 6f 20 74 68 65 |appendin|g to the|
|000000b0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 76 61 72 73 2e | followi|ng vars.|
|000000c0| 0d 23 20 61 72 65 20 6e | 6f 20 6c 6f 6e 67 65 72 |.# are n|o longer|
|000000d0| 20 61 6e 79 20 70 72 6f | 63 73 20 73 75 63 68 20 | any pro|cs such |
|000000e0| 61 73 20 27 73 65 74 54 | 65 78 74 4d 6f 64 65 27 |as 'setT|extMode'|
|000000f0| 20 65 74 63 2e 0d 0d 23 | 20 27 6d 6f 64 65 27 20 | etc...#| 'mode' |
|00000100| 69 73 20 6e 6f 74 68 69 | 6e 67 20 77 68 65 6e 20 |is nothi|ng when |
|00000110| 77 65 20 73 74 61 72 74 | 20 75 70 2e 0d 73 65 74 |we start| up..set|
|00000120| 20 6d 6f 64 65 20 22 22 | 0d 0d 73 65 74 20 77 68 | mode ""|..set wh|
|00000130| 69 63 68 49 6e 66 6f 20 | 6d 6f 64 65 0d 0d 23 3d |ichInfo |mode..#=|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000190| 23 20 54 68 65 20 6e 65 | 78 74 20 74 77 6f 20 70 |# The ne|xt two p|
|000001a0| 72 6f 63 73 20 61 72 65 | 20 63 61 6c 6c 65 64 20 |rocs are| called |
|000001b0| 62 79 20 41 6c 70 68 61 | 20 74 6f 20 68 61 6e 64 |by Alpha| to hand|
|000001c0| 6c 65 20 74 68 65 20 6d | 6f 64 65 20 66 6c 61 67 |le the m|ode flag|
|000001d0| 73 20 70 6f 70 75 70 20 | 6d 65 6e 75 2e 0d 23 3d |s popup |menu..#=|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000230| 0d 70 72 6f 63 20 67 65 | 74 4d 6f 64 65 56 61 6c |.proc ge|tModeVal|
|00000240| 75 65 73 41 6c 70 68 61 | 20 7b 7d 20 7b 0d 09 67 |uesAlpha| {} {..g|
|00000250| 6c 6f 62 61 6c 20 6d 6f | 64 65 0d 09 67 6c 6f 62 |lobal mo|de..glob|
|00000260| 61 6c 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |al ${mod|e}modeVa|
|00000270| 72 73 0d 09 67 6c 6f 62 | 61 6c 20 61 6c 6c 46 6c |rs..glob|al allFl|
|00000280| 61 67 73 0d 09 67 6c 6f | 62 61 6c 20 77 68 69 63 |ags..glo|bal whic|
|00000290| 68 49 6e 66 6f 0d 09 73 | 65 74 20 66 76 61 6c 73 |hInfo..s|et fvals|
|000002a0| 20 7b 7d 0d 09 73 65 74 | 20 76 76 61 6c 73 20 7b | {}..set| vvals {|
|000002b0| 7d 0d 0d 09 69 66 20 7b | 24 77 68 69 63 68 49 6e |}...if {|$whichIn|
|000002c0| 66 6f 20 3d 3d 20 22 6d | 6f 64 65 22 7d 20 7b 0d |fo == "m|ode"} {.|
|000002d0| 09 09 69 66 20 7b 5b 69 | 6e 66 6f 20 65 78 69 73 |..if {[i|nfo exis|
|000002e0| 74 73 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |ts ${mod|e}modeVa|
|000002f0| 72 73 5d 7d 20 7b 0d 09 | 09 09 73 65 74 20 76 61 |rs]} {..|..set va|
|00000300| 72 73 20 5b 6c 73 6f 72 | 74 20 5b 61 72 72 61 79 |rs [lsor|t [array|
|00000310| 20 6e 61 6d 65 73 20 24 | 7b 6d 6f 64 65 7d 6d 6f | names $|{mode}mo|
|00000320| 64 65 56 61 72 73 5d 5d | 0d 09 09 09 66 6f 72 65 |deVars]]|....fore|
|00000330| 61 63 68 20 76 20 24 76 | 61 72 73 20 7b 0d 09 09 |ach v $v|ars {...|
|00000340| 09 09 69 66 20 7b 5b 6c | 73 65 61 72 63 68 20 24 |..if {[l|search $|
|00000350| 61 6c 6c 46 6c 61 67 73 | 20 24 76 5d 20 3e 3d 20 |allFlags| $v] >= |
|00000360| 30 7d 20 7b 0d 09 09 09 | 09 09 6c 61 70 70 65 6e |0} {....|..lappen|
|00000370| 64 20 66 76 61 6c 73 20 | 24 76 20 5b 73 65 74 20 |d fvals |$v [set |
|00000380| 24 7b 6d 6f 64 65 7d 6d | 6f 64 65 56 61 72 73 28 |${mode}m|odeVars(|
|00000390| 24 76 29 5d 0d 09 09 09 | 09 7d 20 65 6c 73 65 20 |$v)]....|.} else |
|000003a0| 7b 0d 09 09 09 09 09 6c | 61 70 70 65 6e 64 20 76 |{......l|append v|
|000003b0| 76 61 6c 73 20 24 76 20 | 30 0d 09 09 09 09 7d 0d |vals $v |0.....}.|
|000003c0| 09 09 09 7d 0d 09 09 7d | 0d 09 09 72 65 74 75 72 |...}...}|...retur|
|000003d0| 6e 20 5b 63 6f 6e 63 61 | 74 20 24 66 76 61 6c 73 |n [conca|t $fvals|
|000003e0| 20 7b 2d 7d 20 30 20 24 | 76 76 61 6c 73 20 7b 7b | {-} 0 $|vvals {{|
|000003f0| 28 2d 7d 20 30 20 22 53 | 65 74 20 4d 6f 64 65 20 |(-} 0 "S|et Mode |
|00000400| 4d 65 6e 75 73 c9 22 20 | 30 20 22 43 68 61 6e 67 |Menus." |0 "Chang|
|00000410| 65 20 4d 6f 64 65 20 56 | 61 72 73 c9 22 20 30 20 |e Mode V|ars." 0 |
|00000420| 22 44 65 73 63 72 69 62 | 65 20 4d 6f 64 65 22 20 |"Describ|e Mode" |
|00000430| 30 20 7b 28 2d 7d 20 30 | 20 22 28 4d 6f 64 65 20 |0 {(-} 0| "(Mode |
|00000440| 49 6e 66 6f 22 20 30 20 | 22 46 69 6c 65 20 49 6e |Info" 0 |"File In|
|00000450| 66 6f 22 20 30 7d 5d 0d | 09 7d 20 65 6c 73 65 20 |fo" 0}].|.} else |
|00000460| 7b 0d 09 09 67 65 74 57 | 69 6e 49 6e 66 6f 20 62 |{...getW|inInfo b|
|00000470| 6c 61 68 0d 09 09 6c 61 | 70 70 65 6e 64 20 6d 20 |lah...la|ppend m |
|00000480| 22 4d 61 63 22 20 5b 65 | 78 70 72 20 7b 24 62 6c |"Mac" [e|xpr {$bl|
|00000490| 61 68 28 70 6c 61 74 66 | 6f 72 6d 29 20 3d 3d 20 |ah(platf|orm) == |
|000004a0| 22 6d 61 63 22 7d 5d 0d | 09 09 6c 61 70 70 65 6e |"mac"}].|..lappen|
|000004b0| 64 20 6d 20 22 55 4e 49 | 58 22 20 5b 65 78 70 72 |d m "UNI|X" [expr|
|000004c0| 20 7b 24 62 6c 61 68 28 | 70 6c 61 74 66 6f 72 6d | {$blah(|platform|
|000004d0| 29 20 3d 3d 20 22 75 6e | 69 78 22 7d 5d 0d 09 09 |) == "un|ix"}]...|
|000004e0| 6c 61 70 70 65 6e 64 20 | 6d 20 22 49 42 4d 22 20 |lappend |m "IBM" |
|000004f0| 5b 65 78 70 72 20 7b 24 | 62 6c 61 68 28 70 6c 61 |[expr {$|blah(pla|
|00000500| 74 66 6f 72 6d 29 20 3d | 3d 20 22 69 62 6d 22 7d |tform) =|= "ibm"}|
|00000510| 5d 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |] {(-} 0|...lappe|
|00000520| 6e 64 20 6d 20 22 4d 50 | 57 22 20 5b 65 78 70 72 |nd m "MP|W" [expr|
|00000530| 20 7b 24 62 6c 61 68 28 | 73 74 61 74 65 29 20 3d | {$blah(|state) =|
|00000540| 3d 20 22 6d 70 77 22 7d | 5d 0d 09 09 6c 61 70 70 |= "mpw"}|]...lapp|
|00000550| 65 6e 64 20 6d 20 22 54 | 68 69 6e 6b 22 20 5b 65 |end m "T|hink" [e|
|00000560| 78 70 72 20 7b 24 62 6c | 61 68 28 73 74 61 74 65 |xpr {$bl|ah(state|
|00000570| 29 20 3d 3d 20 22 74 68 | 69 6e 6b 22 7d 5d 0d 09 |) == "th|ink"}]..|
|00000580| 09 6c 61 70 70 65 6e 64 | 20 6d 20 22 4e 6f 6e 65 |.lappend| m "None|
|00000590| 22 20 5b 65 78 70 72 20 | 7b 24 62 6c 61 68 28 73 |" [expr |{$blah(s|
|000005a0| 74 61 74 65 29 20 3d 3d | 20 22 6e 6f 6e 65 22 7d |tate) ==| "none"}|
|000005b0| 5d 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |] {(-} 0|...lappe|
|000005c0| 6e 64 20 6d 20 22 52 65 | 61 64 20 4f 6e 6c 79 22 |nd m "Re|ad Only"|
|000005d0| 20 24 62 6c 61 68 28 72 | 65 61 64 2d 6f 6e 6c 79 | $blah(r|ead-only|
|000005e0| 29 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |) {(-} 0|...lappe|
|000005f0| 6e 64 20 6d 20 22 54 61 | 62 20 53 69 7a 65 22 20 |nd m "Ta|b Size" |
|00000600| 30 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |0 {(-} 0|...lappe|
|00000610| 6e 64 20 6d 20 22 4d 6f | 64 65 20 49 6e 66 6f 22 |nd m "Mo|de Info"|
|00000620| 20 30 20 22 28 46 69 6c | 65 20 49 6e 66 6f 22 20 | 0 "(Fil|e Info" |
|00000630| 30 0d 09 09 72 65 74 75 | 72 6e 20 24 6d 0d 09 7d |0...retu|rn $m..}|
|00000640| 0d 7d 0d 0d 0d 70 72 6f | 63 20 73 65 74 4d 6f 64 |.}...pro|c setMod|
|00000650| 65 56 61 72 41 6c 70 68 | 61 20 7b 76 61 72 7d 20 |eVarAlph|a {var} |
|00000660| 7b 0d 09 67 6c 6f 62 61 | 6c 20 6d 6f 64 65 20 61 |{..globa|l mode a|
|00000670| 6c 6c 46 6c 61 67 73 20 | 6d 6f 64 65 56 61 72 73 |llFlags |modeVars|
|00000680| 20 6d 6f 64 69 66 69 65 | 64 4d 6f 64 65 56 61 72 | modifie|dModeVar|
|00000690| 73 0d 09 67 6c 6f 62 61 | 6c 20 77 68 69 63 68 49 |s..globa|l whichI|
|000006a0| 6e 66 6f 0d 09 67 6c 6f | 62 61 6c 20 24 7b 6d 6f |nfo..glo|bal ${mo|
|000006b0| 64 65 7d 6d 6f 64 65 56 | 61 72 73 0d 09 0d 09 69 |de}modeV|ars....i|
|000006c0| 66 20 7b 24 77 68 69 63 | 68 49 6e 66 6f 20 3d 3d |f {$whic|hInfo ==|
|000006d0| 20 22 66 69 6c 65 22 7d | 20 7b 0d 09 09 73 65 74 | "file"}| {...set|
|000006e0| 20 76 61 72 20 5b 73 74 | 72 69 6e 67 20 74 6f 6c | var [st|ring tol|
|000006f0| 6f 77 65 72 20 24 76 61 | 72 5d 0d 09 09 73 77 69 |ower $va|r]...swi|
|00000700| 74 63 68 20 24 76 61 72 | 20 7b 0d 09 09 09 22 75 |tch $var| {...."u|
|00000710| 6e 69 78 22 09 09 2d 0d | 09 09 09 22 6d 61 63 22 |nix"..-.|..."mac"|
|00000720| 09 09 2d 0d 09 09 09 22 | 69 62 6d 22 09 09 7b 20 |..-...."|ibm"..{ |
|00000730| 73 65 74 57 69 6e 49 6e | 66 6f 20 70 6c 61 74 66 |setWinIn|fo platf|
|00000740| 6f 72 6d 20 24 76 61 72 | 20 7d 0d 09 09 09 22 6d |orm $var| }...."m|
|00000750| 70 77 22 09 09 2d 0d 09 | 09 09 22 74 68 69 6e 6b |pw"..-..|.."think|
|00000760| 22 09 09 2d 0d 09 09 09 | 22 6e 6f 6e 65 22 09 09 |"..-....|"none"..|
|00000770| 7b 20 73 65 74 57 69 6e | 49 6e 66 6f 20 73 74 61 |{ setWin|Info sta|
|00000780| 74 65 20 24 76 61 72 20 | 7d 0d 09 09 09 22 6d 6f |te $var |}...."mo|
|00000790| 64 65 20 69 6e 66 6f 22 | 09 7b 20 73 65 74 20 77 |de info"|.{ set w|
|000007a0| 68 69 63 68 49 6e 66 6f | 20 6d 6f 64 65 20 7d 0d |hichInfo| mode }.|
|000007b0| 09 09 09 22 74 61 62 20 | 73 69 7a 65 22 20 20 7b |..."tab |size" {|
|000007c0| 0d 09 09 09 09 67 65 74 | 57 69 6e 49 6e 66 6f 20 |.....get|WinInfo |
|000007d0| 61 72 72 0d 09 09 09 09 | 69 66 20 7b 21 5b 63 61 |arr.....|if {![ca|
|000007e0| 74 63 68 20 7b 70 72 6f | 6d 70 74 20 22 4e 65 77 |tch {pro|mpt "New|
|000007f0| 20 74 61 62 20 73 69 7a | 65 3f 22 20 24 61 72 72 | tab siz|e?" $arr|
|00000800| 28 74 61 62 73 69 7a 65 | 29 7d 20 72 65 73 5d 7d |(tabsize|)} res]}|
|00000810| 20 7b 0d 09 09 09 09 09 | 73 65 74 57 69 6e 49 6e | {......|setWinIn|
|00000820| 66 6f 20 74 61 62 73 69 | 7a 65 20 24 72 65 73 0d |fo tabsi|ze $res.|
|00000830| 09 09 09 09 7d 0d 09 09 | 09 7d 0d 09 09 09 22 72 |....}...|.}...."r|
|00000840| 65 61 64 20 6f 6e 6c 79 | 22 09 7b 20 0d 09 09 09 |ead only|".{ ....|
|00000850| 09 67 65 74 57 69 6e 49 | 6e 66 6f 20 62 0d 09 09 |.getWinI|nfo b...|
|00000860| 09 09 73 65 74 57 69 6e | 49 6e 66 6f 20 72 65 61 |..setWin|Info rea|
|00000870| 64 2d 6f 6e 6c 79 20 5b | 65 78 70 72 20 2d 31 20 |d-only [|expr -1 |
|00000880| 2a 20 28 24 62 28 72 65 | 61 64 2d 6f 6e 6c 79 29 |* ($b(re|ad-only)|
|00000890| 20 2d 20 31 29 5d 7d 0d | 09 09 7d 0d 09 09 72 65 | - 1)]}.|..}...re|
|000008a0| 74 75 72 6e 0d 09 7d 0d | 09 09 09 0d 09 69 66 20 |turn..}.|.....if |
|000008b0| 7b 24 76 61 72 20 3d 3d | 20 22 53 65 74 20 4d 6f |{$var ==| "Set Mo|
|000008c0| 64 65 20 4d 65 6e 75 73 | c9 22 7d 20 7b 0d 09 09 |de Menus|."} {...|
|000008d0| 73 65 74 4d 6f 64 65 4d | 65 6e 75 73 0d 09 7d 20 |setModeM|enus..} |
|000008e0| 65 6c 73 65 69 66 20 7b | 24 76 61 72 20 3d 3d 20 |elseif {|$var == |
|000008f0| 22 46 69 6c 65 20 49 6e | 66 6f 22 7d 20 7b 0d 09 |"File In|fo"} {..|
|00000900| 09 73 65 74 20 77 68 69 | 63 68 49 6e 66 6f 20 66 |.set whi|chInfo f|
|00000910| 69 6c 65 0d 09 7d 20 65 | 6c 73 65 69 66 20 7b 24 |ile..} e|lseif {$|
|00000920| 76 61 72 20 3d 3d 20 22 | 4d 6f 64 65 20 49 6e 66 |var == "|Mode Inf|
|00000930| 6f 22 7d 20 7b 0d 09 09 | 73 65 74 20 77 68 69 63 |o"} {...|set whic|
|00000940| 68 49 6e 66 6f 20 6d 6f | 64 65 0d 09 7d 20 65 6c |hInfo mo|de..} el|
|00000950| 73 65 69 66 20 7b 24 76 | 61 72 20 3d 3d 20 22 43 |seif {$v|ar == "C|
|00000960| 68 61 6e 67 65 20 4d 6f | 64 65 20 56 61 72 73 c9 |hange Mo|de Vars.|
|00000970| 22 7d 20 7b 0d 09 09 73 | 65 74 20 6d 76 61 72 73 |"} {...s|et mvars|
|00000980| 20 7b 7d 0d 09 09 63 61 | 74 63 68 20 7b 73 65 74 | {}...ca|tch {set|
|00000990| 20 6d 76 61 72 73 20 5b | 61 72 72 61 79 20 6e 61 | mvars [|array na|
|000009a0| 6d 65 73 20 24 7b 6d 6f | 64 65 7d 6d 6f 64 65 56 |mes ${mo|de}modeV|
|000009b0| 61 72 73 5d 7d 0d 09 09 | 73 65 74 20 76 61 72 73 |ars]}...|set vars|
|000009c0| 20 5b 6c 69 73 74 70 69 | 63 6b 20 2d 6c 20 2d 4c | [listpi|ck -l -L|
|000009d0| 20 24 6d 76 61 72 73 20 | 2d 70 20 22 53 65 74 20 | $mvars |-p "Set |
|000009e0| 6d 6f 64 65 20 76 61 72 | 73 20 66 6f 72 20 27 24 |mode var|s for '$|
|000009f0| 6d 6f 64 65 27 3a 22 20 | 5b 6c 73 6f 72 74 20 24 |mode':" |[lsort $|
|00000a00| 6d 6f 64 65 56 61 72 73 | 5d 5d 0d 09 09 69 66 20 |modeVars|]]...if |
|00000a10| 7b 21 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |{![strin|g length|
|00000a20| 20 24 76 61 72 73 5d 7d | 20 72 65 74 75 72 6e 0d | $vars]}| return.|
|00000a30| 09 09 0d 09 09 63 61 74 | 63 68 20 7b 75 6e 73 65 |.....cat|ch {unse|
|00000a40| 74 20 24 7b 6d 6f 64 65 | 7d 6d 6f 64 65 56 61 72 |t ${mode|}modeVar|
|00000a50| 73 7d 0d 09 09 66 6f 72 | 65 61 63 68 20 76 20 24 |s}...for|each v $|
|00000a60| 76 61 72 73 20 7b 0d 09 | 09 09 67 6c 6f 62 61 6c |vars {..|..global|
|00000a70| 20 24 76 0d 09 09 09 73 | 65 74 20 24 7b 6d 6f 64 | $v....s|et ${mod|
|00000a80| 65 7d 6d 6f 64 65 56 61 | 72 73 28 24 76 29 20 5b |e}modeVa|rs($v) [|
|00000a90| 73 65 74 20 24 76 5d 0d | 09 09 7d 0d 09 7d 20 65 |set $v].|..}..} e|
|00000aa0| 6c 73 65 69 66 20 7b 24 | 76 61 72 20 3d 3d 20 22 |lseif {$|var == "|
|00000ab0| 44 65 73 63 72 69 62 65 | 20 4d 6f 64 65 22 7d 20 |Describe| Mode"} |
|00000ac0| 7b 0d 09 09 64 65 73 63 | 72 69 62 65 4d 6f 64 65 |{...desc|ribeMode|
|00000ad0| 0d 09 7d 20 65 6c 73 65 | 69 66 20 7b 5b 6c 73 65 |..} else|if {[lse|
|00000ae0| 61 72 63 68 20 24 61 6c | 6c 46 6c 61 67 73 20 24 |arch $al|lFlags $|
|00000af0| 76 61 72 5d 20 3e 3d 20 | 30 7d 20 7b 0d 09 09 67 |var] >= |0} {...g|
|00000b00| 6c 6f 62 61 6c 20 24 76 | 61 72 0d 09 09 73 65 74 |lobal $v|ar...set|
|00000b10| 20 24 7b 6d 6f 64 65 7d | 6d 6f 64 65 56 61 72 73 | ${mode}|modeVars|
|00000b20| 28 24 76 61 72 29 20 5b | 73 65 74 20 24 76 61 72 |($var) [|set $var|
|00000b30| 20 5b 65 78 70 72 20 2d | 31 20 2a 20 28 5b 73 65 | [expr -|1 * ([se|
|00000b40| 74 20 24 7b 6d 6f 64 65 | 7d 6d 6f 64 65 56 61 72 |t ${mode|}modeVar|
|00000b50| 73 28 24 76 61 72 29 5d | 20 2d 20 31 29 5d 5d 0d |s($var)]| - 1)]].|
|00000b60| 09 09 6c 61 70 70 65 6e | 64 20 6d 6f 64 69 66 69 |..lappen|d modifi|
|00000b70| 65 64 4d 6f 64 65 56 61 | 72 73 20 5b 6c 69 73 74 |edModeVa|rs [list|
|00000b80| 20 24 76 61 72 20 24 7b | 6d 6f 64 65 7d 6d 6f 64 | $var ${|mode}mod|
|00000b90| 65 56 61 72 73 5d 0d 09 | 7d 20 65 6c 73 65 20 7b |eVars]..|} else {|
|00000ba0| 0d 09 09 67 6c 6f 62 61 | 6c 20 24 76 61 72 0d 09 |...globa|l $var..|
|00000bb0| 09 73 65 74 20 72 65 73 | 20 5b 70 72 6f 6d 70 74 |.set res| [prompt|
|00000bc0| 20 22 4e 65 77 20 76 61 | 6c 75 65 20 6f 66 20 27 | "New va|lue of '|
|00000bd0| 24 76 61 72 27 3a 22 20 | 5b 73 65 74 20 24 7b 6d |$var':" |[set ${m|
|00000be0| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 28 24 76 61 |ode}mode|Vars($va|
|00000bf0| 72 29 5d 5d 0d 09 09 73 | 65 74 20 24 7b 6d 6f 64 |r)]]...s|et ${mod|
|00000c00| 65 7d 6d 6f 64 65 56 61 | 72 73 28 24 76 61 72 29 |e}modeVa|rs($var)|
|00000c10| 20 24 72 65 73 0d 09 09 | 73 65 74 20 24 76 61 72 | $res...|set $var|
|00000c20| 20 24 72 65 73 0d 09 09 | 6c 61 70 70 65 6e 64 20 | $res...|lappend |
|00000c30| 6d 6f 64 69 66 69 65 64 | 4d 6f 64 65 56 61 72 73 |modified|ModeVars|
|00000c40| 20 5b 6c 69 73 74 20 24 | 76 61 72 20 24 7b 6d 6f | [list $|var ${mo|
|00000c50| 64 65 7d 6d 6f 64 65 56 | 61 72 73 5d 0d 09 7d 0d |de}modeV|ars]..}.|
|00000c60| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00000c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cb0| 3d 3d 3d 3d 0d 0d 0d 23 | 20 53 75 66 66 69 78 65 |====...#| Suffixe|
|00000cc0| 73 20 75 73 65 64 20 74 | 6f 20 69 6e 69 74 69 61 |s used t|o initia|
|00000cd0| 6c 6c 79 20 64 65 74 65 | 72 6d 69 6e 65 20 6d 6f |lly dete|rmine mo|
|00000ce0| 64 65 20 66 6f 72 20 6e | 65 77 20 77 69 6e 64 6f |de for n|ew windo|
|00000cf0| 77 2e 0d 73 65 74 20 6d | 6f 64 65 53 75 66 66 69 |w..set m|odeSuffi|
|00000d00| 78 65 73 20 7b 20 64 65 | 66 61 75 6c 74 20 7b 20 |xes { de|fault { |
|00000d10| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 54 65 78 74 |set winM|ode Text|
|00000d20| 20 7d 20 7d 0d 0d 0d 23 | 20 54 68 65 20 73 65 74 | } }...#| The set|
|00000d30| 20 6f 66 20 6d 65 6e 75 | 73 20 74 68 61 74 20 74 | of menu|s that t|
|00000d40| 68 65 20 6d 6f 64 65 73 | 20 6d 61 79 20 63 68 6f |he modes| may cho|
|00000d50| 6f 73 65 20 74 6f 20 75 | 73 65 2e 0d 73 65 74 20 |ose to u|se..set |
|00000d60| 61 6c 6c 4d 6f 64 65 4d | 65 6e 75 73 20 7b 20 09 |allModeM|enus { .|
|00000d70| 74 68 69 6e 6b 4d 65 6e | 75 20 63 77 61 72 72 69 |thinkMen|u cwarri|
|00000d80| 6f 72 4d 65 6e 75 20 74 | 6f 6f 6c 73 65 72 76 65 |orMenu t|oolserve|
|00000d90| 72 4d 65 6e 75 0d 09 09 | 09 09 09 6c 61 74 65 78 |rMenu...|...latex|
|00000da0| 4d 65 6e 75 20 74 68 69 | 6e 6b 52 65 66 4d 65 6e |Menu thi|nkRefMen|
|00000db0| 75 20 74 6f 6f 6c 62 6f | 78 52 65 66 4d 65 6e 75 |u toolbo|xRefMenu|
|00000dc0| 20 74 63 6c 4d 65 6e 75 | 20 70 65 72 6c 4d 65 6e | tclMenu| perlMen|
|00000dd0| 75 20 7d 0d 0d 73 65 74 | 20 6d 6f 64 65 56 61 72 |u }..set| modeVar|
|00000de0| 73 20 7b 20 7d 0d 0d 0d | 23 20 54 68 65 20 64 75 |s { }...|# The du|
|00000df0| 6d 6d 79 20 70 72 6f 63 | 20 66 6f 72 20 61 20 6d |mmy proc| for a m|
|00000e00| 6f 64 65 20 69 73 20 63 | 61 6c 6c 65 64 20 77 68 |ode is c|alled wh|
|00000e10| 65 6e 65 76 65 72 20 77 | 65 20 63 68 61 6e 67 65 |enever w|e change|
|00000e20| 20 74 6f 20 74 68 61 74 | 20 6d 6f 64 65 2c 0d 23 | to that| mode,.#|
|00000e30| 20 73 6f 20 74 68 61 74 | 20 74 68 65 20 61 75 74 | so that| the aut|
|00000e40| 6f 6c 6f 61 64 69 6e 67 | 20 66 61 63 69 6c 69 74 |oloading| facilit|
|00000e50| 79 20 77 69 6c 6c 20 6c | 6f 61 64 20 74 68 65 20 |y will l|oad the |
|00000e60| 63 6f 72 72 65 63 74 20 | 66 69 6c 65 2c 20 69 66 |correct |file, if|
|00000e70| 0d 23 20 6e 65 63 65 73 | 73 61 72 79 2e 0d 0d 23 |.# neces|sary...#|
|00000e80| 20 54 68 65 20 6c 69 73 | 74 20 6f 66 20 6d 6f 64 | The lis|t of mod|
|00000e90| 65 73 2e 0d 73 65 74 20 | 6d 6f 64 65 73 20 09 09 |es..set |modes ..|
|00000ea0| 7b 7d 0d 73 65 74 20 6c | 61 73 74 4d 6f 64 65 20 |{}.set l|astMode |
|00000eb0| 09 30 0d 0d 23 20 43 61 | 6e 20 62 65 20 75 73 65 |.0..# Ca|n be use|
|00000ec0| 64 20 74 6f 20 61 64 64 | 20 6e 65 77 20 6d 6f 64 |d to add| new mod|
|00000ed0| 65 2d 73 70 65 63 69 66 | 69 63 20 66 6c 61 67 73 |e-specif|ic flags|
|00000ee0| 20 61 6e 64 20 76 61 72 | 69 61 62 6c 65 73 20 28 | and var|iables (|
|00000ef0| 73 65 65 20 74 68 69 6e | 6b 2e 74 63 6c 20 66 6f |see thin|k.tcl fo|
|00000f00| 72 20 65 78 61 6d 70 6c | 65 29 2e 0d 70 72 6f 63 |r exampl|e)..proc|
|00000f10| 20 6e 65 77 4d 6f 64 65 | 56 61 72 20 7b 6d 6f 64 | newMode|Var {mod|
|00000f20| 65 20 76 61 72 20 76 61 | 6c 20 69 73 46 6c 61 67 |e var va|l isFlag|
|00000f30| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 24 7b 6d 6f |} {..glo|bal ${mo|
|00000f40| 64 65 7d 6d 6f 64 65 56 | 61 72 73 20 6d 6f 64 65 |de}modeV|ars mode|
|00000f50| 56 61 72 73 20 61 6c 6c | 46 6c 61 67 73 20 24 76 |Vars all|Flags $v|
|00000f60| 61 72 0d 09 0d 09 69 66 | 20 7b 21 5b 69 6e 66 6f |ar....if| {![info|
|00000f70| 20 65 78 69 73 74 73 20 | 6d 6f 64 65 56 61 72 73 | exists |modeVars|
|00000f80| 5d 20 7c 7c 20 5b 6c 73 | 65 61 72 63 68 20 24 6d |] || [ls|earch $m|
|00000f90| 6f 64 65 56 61 72 73 20 | 24 76 61 72 5d 20 3c 20 |odeVars |$var] < |
|00000fa0| 30 7d 20 7b 0d 09 09 6c | 61 70 70 65 6e 64 20 6d |0} {...l|append m|
|00000fb0| 6f 64 65 56 61 72 73 20 | 24 76 61 72 0d 09 7d 0d |odeVars |$var..}.|
|00000fc0| 09 69 66 20 7b 21 5b 69 | 6e 66 6f 20 65 78 69 73 |.if {![i|nfo exis|
|00000fd0| 74 73 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |ts ${mod|e}modeVa|
|00000fe0| 72 73 28 24 76 61 72 29 | 5d 7d 20 7b 0d 09 09 73 |rs($var)|]} {...s|
|00000ff0| 65 74 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |et ${mod|e}modeVa|
|00001000| 72 73 28 24 76 61 72 29 | 20 24 76 61 6c 0d 09 09 |rs($var)| $val...|
|00001010| 69 66 20 7b 21 5b 69 6e | 66 6f 20 65 78 69 73 74 |if {![in|fo exist|
|00001020| 73 20 24 76 61 72 5d 7d | 20 7b 0d 09 09 09 73 65 |s $var]}| {....se|
|00001030| 74 20 24 76 61 72 20 24 | 76 61 6c 0d 09 09 7d 0d |t $var $|val...}.|
|00001040| 09 7d 0d 09 69 66 20 7b | 24 69 73 46 6c 61 67 20 |.}..if {|$isFlag |
|00001050| 26 26 20 28 21 5b 69 6e | 66 6f 20 65 78 69 73 74 |&& (![in|fo exist|
|00001060| 73 20 61 6c 6c 46 6c 61 | 67 73 5d 20 7c 7c 20 28 |s allFla|gs] || (|
|00001070| 5b 6c 73 65 61 72 63 68 | 20 24 61 6c 6c 46 6c 61 |[lsearch| $allFla|
|00001080| 67 73 20 24 76 61 72 5d | 20 3c 20 30 29 29 7d 20 |gs $var]| < 0))} |
|00001090| 7b 0d 09 09 6c 61 70 70 | 65 6e 64 20 61 6c 6c 46 |{...lapp|end allF|
|000010a0| 6c 61 67 73 20 24 76 61 | 72 0d 09 7d 0d 7d 0d 0d |lags $va|r..}.}..|
|000010b0| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|000010c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001100| 3d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 73 20 |=.lappen|d modes |
|00001110| 43 0d 73 65 74 20 64 75 | 6d 6d 79 50 72 6f 63 28 |C.set du|mmyProc(|
|00001120| 43 29 09 09 09 09 64 75 | 6d 6d 79 43 0d 6c 61 70 |C)....du|mmyC.lap|
|00001130| 70 65 6e 64 20 6d 6f 64 | 65 53 75 66 66 69 78 65 |pend mod|eSuffixe|
|00001140| 73 09 20 09 09 7b 2a 2e | 68 7d 20 7b 20 73 65 74 |s. ..{*.|h} { set|
|00001150| 20 77 69 6e 4d 6f 64 65 | 20 43 20 7d 0d 6c 61 70 | winMode| C }.lap|
|00001160| 70 65 6e 64 20 6d 6f 64 | 65 53 75 66 66 69 78 65 |pend mod|eSuffixe|
|00001170| 73 09 09 09 7b 2a 2e 63 | 7d 20 7b 20 73 65 74 20 |s...{*.c|} { set |
|00001180| 77 69 6e 4d 6f 64 65 20 | 43 20 7d 0d 6c 61 70 70 |winMode |C }.lapp|
|00001190| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|000011a0| 09 09 09 7b 2a 2e 72 7d | 20 7b 20 73 65 74 20 77 |...{*.r}| { set w|
|000011b0| 69 6e 4d 6f 64 65 20 43 | 20 7d 0d 73 65 74 20 6d |inMode C| }.set m|
|000011c0| 6f 64 65 4d 65 6e 75 73 | 28 43 29 20 09 09 09 09 |odeMenus|(C) ....|
|000011d0| 7b 20 74 68 69 6e 6b 4d | 65 6e 75 20 63 77 61 72 |{ thinkM|enu cwar|
|000011e0| 72 69 6f 72 4d 65 6e 75 | 20 74 68 69 6e 6b 52 65 |riorMenu| thinkRe|
|000011f0| 66 4d 65 6e 75 20 74 6f | 6f 6c 62 6f 78 52 65 66 |fMenu to|olboxRef|
|00001200| 4d 65 6e 75 7d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |Menu}..#|========|
|00001210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001250| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 6c 61 70 70 65 6e 64 |========|.lappend|
|00001260| 20 6d 6f 64 65 73 20 43 | 2b 2b 0d 73 65 74 20 64 | modes C|++.set d|
|00001270| 75 6d 6d 79 50 72 6f 63 | 28 43 2b 2b 29 09 09 09 |ummyProc|(C++)...|
|00001280| 09 64 75 6d 6d 79 43 2b | 2b 0d 6c 61 70 70 65 6e |.dummyC+|+.lappen|
|00001290| 64 20 6d 6f 64 65 53 75 | 66 66 69 78 65 73 09 09 |d modeSu|ffixes..|
|000012a0| 20 09 7b 2a 2e 48 7d 20 | 7b 20 73 65 74 20 77 69 | .{*.H} |{ set wi|
|000012b0| 6e 4d 6f 64 65 20 43 2b | 2b 20 7d 0d 6c 61 70 70 |nMode C+|+ }.lapp|
|000012c0| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|000012d0| 09 09 09 7b 2a 2e 63 63 | 7d 20 7b 20 73 65 74 20 |...{*.cc|} { set |
|000012e0| 77 69 6e 4d 6f 64 65 20 | 43 2b 2b 20 7d 0d 6c 61 |winMode |C++ }.la|
|000012f0| 70 70 65 6e 64 20 6d 6f | 64 65 53 75 66 66 69 78 |ppend mo|deSuffix|
|00001300| 65 73 09 09 09 7b 2a 2e | 63 70 7d 20 7b 20 73 65 |es...{*.|cp} { se|
|00001310| 74 20 77 69 6e 4d 6f 64 | 65 20 43 2b 2b 20 7d 0d |t winMod|e C++ }.|
|00001320| 6c 61 70 70 65 6e 64 20 | 6d 6f 64 65 53 75 66 66 |lappend |modeSuff|
|00001330| 69 78 65 73 09 09 09 7b | 2a 2e 63 70 70 7d 20 7b |ixes...{|*.cpp} {|
|00001340| 20 73 65 74 20 77 69 6e | 4d 6f 64 65 20 43 2b 2b | set win|Mode C++|
|00001350| 20 7d 0d 6c 61 70 70 65 | 6e 64 20 6d 6f 64 65 53 | }.lappe|nd modeS|
|00001360| 75 66 66 69 78 65 73 09 | 09 09 7b 2a 2e 43 50 50 |uffixes.|..{*.CPP|
|00001370| 7d 20 7b 20 73 65 74 20 | 77 69 6e 4d 6f 64 65 20 |} { set |winMode |
|00001380| 43 2b 2b 20 7d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |C++ }.la|ppend mo|
|00001390| 64 65 53 75 66 66 69 78 | 65 73 09 09 09 7b 2a 2e |deSuffix|es...{*.|
|000013a0| 43 7d 20 7b 20 73 65 74 | 20 77 69 6e 4d 6f 64 65 |C} { set| winMode|
|000013b0| 20 43 2b 2b 20 7d 0d 73 | 65 74 20 6d 6f 64 65 4d | C++ }.s|et modeM|
|000013c0| 65 6e 75 73 28 43 2b 2b | 29 20 09 09 09 09 7b 20 |enus(C++|) ....{ |
|000013d0| 74 68 69 6e 6b 4d 65 6e | 75 20 63 77 61 72 72 69 |thinkMen|u cwarri|
|000013e0| 6f 72 4d 65 6e 75 20 74 | 68 69 6e 6b 52 65 66 4d |orMenu t|hinkRefM|
|000013f0| 65 6e 75 20 74 6f 6f 6c | 62 6f 78 52 65 66 4d 65 |enu tool|boxRefMe|
|00001400| 6e 75 7d 0d 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |nu}..#==|========|
|00001410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001450| 3d 3d 3d 3d 3d 0d 0d 23 | 23 23 23 23 23 23 23 23 |=====..#|########|
|00001460| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001470| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001480| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001490| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000014a0| 23 23 23 23 0d 23 20 50 | 4c 2f 53 51 4c 20 6d 6f |####.# P|L/SQL mo|
|000014b0| 64 65 20 62 79 20 4a 6f | 65 6c 20 44 2e 20 45 6c |de by Jo|el D. El|
|000014c0| 6b 69 6e 73 0d 23 23 23 | 23 23 23 23 23 23 23 23 |kins.###|########|
|000014d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000014e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000014f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001500| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001510| 23 23 0d 6c 61 70 70 65 | 6e 64 20 6d 6f 64 65 73 |##.lappe|nd modes|
|00001520| 20 53 51 4c 0d 73 65 74 | 20 6d 6f 64 65 4d 65 6e | SQL.set| modeMen|
|00001530| 75 73 28 53 51 4c 29 09 | 09 09 09 09 09 7b 20 7d |us(SQL).|.....{ }|
|00001540| 0d 73 65 74 20 64 75 6d | 6d 79 50 72 6f 63 28 53 |.set dum|myProc(S|
|00001550| 51 4c 29 09 09 09 09 09 | 09 64 75 6d 6d 79 53 51 |QL).....|.dummySQ|
|00001560| 4c 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 53 75 |L.lappen|d modeSu|
|00001570| 66 66 69 78 65 73 09 09 | 09 09 09 7b 2a 2e 73 71 |ffixes..|...{*.sq|
|00001580| 6c 7d 20 7b 20 73 65 74 | 20 77 69 6e 4d 6f 64 65 |l} { set| winMode|
|00001590| 20 53 51 4c 20 7d 0d 6c | 61 70 70 65 6e 64 20 6d | SQL }.l|append m|
|000015a0| 6f 64 65 53 75 66 66 69 | 78 65 73 09 09 09 09 09 |odeSuffi|xes.....|
|000015b0| 7b 2a 2e 53 51 4c 7d 20 | 7b 20 73 65 74 20 77 69 |{*.SQL} |{ set wi|
|000015c0| 6e 4d 6f 64 65 20 53 51 | 4c 20 7d 0d 6c 61 70 70 |nMode SQ|L }.lapp|
|000015d0| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|000015e0| 09 09 09 09 09 7b 2a 2e | 70 6b 67 7d 09 7b 20 73 |.....{*.|pkg}.{ s|
|000015f0| 65 74 20 77 69 6e 4d 6f | 64 65 20 53 51 4c 20 7d |et winMo|de SQL }|
|00001600| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|00001610| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001620| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001630| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001650| 3d 3d 3d 0d 6c 61 70 70 | 65 6e 64 20 6d 6f 64 65 |===.lapp|end mode|
|00001660| 73 20 53 68 65 6c 0d 73 | 65 74 20 64 75 6d 6d 79 |s Shel.s|et dummy|
|00001670| 50 72 6f 63 28 53 68 65 | 6c 29 09 09 09 09 64 75 |Proc(She|l)....du|
|00001680| 6d 6d 79 53 68 65 6c 0d | 73 65 74 20 6d 6f 64 65 |mmyShel.|set mode|
|00001690| 4d 65 6e 75 73 28 53 68 | 65 6c 29 20 09 09 09 7b |Menus(Sh|el) ...{|
|000016a0| 20 74 63 6c 4d 65 6e 75 | 20 7d 0d 6c 61 70 70 65 | tclMenu| }.lappe|
|000016b0| 6e 64 20 6d 6f 64 65 53 | 75 66 66 69 78 65 73 09 |nd modeS|uffixes.|
|000016c0| 09 09 7b 2a 74 63 6c 5c | 20 73 68 2a 7d 20 7b 73 |..{*tcl\| sh*} {s|
|000016d0| 65 74 20 77 69 6e 4d 6f | 64 65 20 53 68 65 6c 7d |et winMo|de Shel}|
|000016e0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 53 68 65 6c |.newMode|Var Shel|
|000016f0| 20 77 6f 72 64 42 72 65 | 61 6b 20 7b 28 5c 24 29 | wordBre|ak {(\$)|
|00001700| 3f 5b 61 2d 7a 41 2d 5a | 30 2d 39 5f 2e 5d 2b 7d |?[a-zA-Z|0-9_.]+}|
|00001710| 20 30 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 53 68 | 0.newMo|deVar Sh|
|00001720| 65 6c 20 77 6f 72 64 57 | 72 61 70 20 7b 30 7d 20 |el wordW|rap {0} |
|00001730| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 53 68 65 |1.newMod|eVar She|
|00001740| 6c 20 77 6f 72 64 42 72 | 65 61 6b 50 72 65 66 61 |l wordBr|eakPrefa|
|00001750| 63 65 20 7b 5b 5e 61 2d | 7a 41 2d 5a 30 2d 39 5f |ce {[^a-|zA-Z0-9_|
|00001760| 5c 24 5d 7d 20 30 0d 6e | 65 77 4d 6f 64 65 56 61 |\$]} 0.n|ewModeVa|
|00001770| 72 20 53 68 65 6c 20 61 | 75 74 6f 4d 61 72 6b 09 |r Shel a|utoMark.|
|00001780| 30 09 31 0d 72 65 67 4d | 6f 64 65 4b 65 79 77 6f |0.1.regM|odeKeywo|
|00001790| 72 64 73 20 2d 6d 20 7b | c7 7d 20 53 68 65 6c 20 |rds -m {|.} Shel |
|000017a0| 7b 7d 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |{}..#===|========|
|000017b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017f0| 3d 3d 3d 3d 0d 23 09 41 | 70 70 6c 65 53 63 72 69 |====.#.A|ppleScri|
|00001800| 70 74 20 6d 6f 64 65 0d | 6c 61 70 70 65 6e 64 20 |pt mode.|lappend |
|00001810| 6d 6f 64 65 73 20 53 63 | 72 70 0d 73 65 74 20 64 |modes Sc|rp.set d|
|00001820| 75 6d 6d 79 50 72 6f 63 | 28 53 63 72 70 29 09 09 |ummyProc|(Scrp)..|
|00001830| 09 09 64 75 6d 6d 79 53 | 63 72 70 0d 6c 61 70 70 |..dummyS|crp.lapp|
|00001840| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|00001850| 09 20 09 09 7b 2a 2e 73 | 63 72 69 70 74 7d 20 7b |. ..{*.s|cript} {|
|00001860| 20 73 65 74 20 77 69 6e | 4d 6f 64 65 20 53 63 72 | set win|Mode Scr|
|00001870| 70 20 7d 0d 73 65 74 20 | 6d 6f 64 65 4d 65 6e 75 |p }.set |modeMenu|
|00001880| 73 28 53 63 72 70 29 20 | 09 09 09 7b 20 7d 0d 0d |s(Scrp) |...{ }..|
|00001890| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|000018a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018e0| 3d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 73 20 |=.lappen|d modes |
|000018f0| 54 65 78 74 0d 73 65 74 | 20 6d 6f 64 65 4d 65 6e |Text.set| modeMen|
|00001900| 75 73 28 54 65 78 74 29 | 09 09 09 09 7b 20 7d 0d |us(Text)|....{ }.|
|00001910| 6e 65 77 4d 6f 64 65 56 | 61 72 20 54 65 78 74 20 |newModeV|ar Text |
|00001920| 6c 65 66 74 46 69 6c 6c | 43 6f 6c 75 6d 6e 20 7b |leftFill|Column {|
|00001930| 30 7d 20 30 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |0} 0.new|ModeVar |
|00001940| 54 65 78 74 20 73 75 66 | 66 69 78 53 74 72 69 6e |Text suf|fixStrin|
|00001950| 67 20 7b 20 3c 2d 2d 7d | 20 30 0d 6e 65 77 4d 6f |g { <--}| 0.newMo|
|00001960| 64 65 56 61 72 20 54 65 | 78 74 20 70 72 65 66 69 |deVar Te|xt prefi|
|00001970| 78 53 74 72 69 6e 67 20 | 7b 3e 20 7d 20 30 0d 6e |xString |{> } 0.n|
|00001980| 65 77 4d 6f 64 65 56 61 | 72 20 54 65 78 74 20 66 |ewModeVa|r Text f|
|00001990| 69 6c 6c 43 6f 6c 75 6d | 6e 20 7b 37 35 7d 20 30 |illColum|n {75} 0|
|000019a0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 54 65 78 74 |.newMode|Var Text|
|000019b0| 20 77 6f 72 64 57 72 61 | 70 20 7b 31 7d 20 31 0d | wordWra|p {1} 1.|
|000019c0| 6e 65 77 4d 6f 64 65 56 | 61 72 20 54 65 78 74 20 |newModeV|ar Text |
|000019d0| 77 6f 72 64 42 72 65 61 | 6b 20 7b 5b 61 2d 7a 41 |wordBrea|k {[a-zA|
|000019e0| 2d 5a 30 2d 39 5f 5d 2b | 7d 20 30 0d 6e 65 77 4d |-Z0-9_]+|} 0.newM|
|000019f0| 6f 64 65 56 61 72 20 54 | 65 78 74 20 77 6f 72 64 |odeVar T|ext word|
|00001a00| 42 72 65 61 6b 50 72 65 | 66 61 63 65 20 7b 28 5b |BreakPre|face {([|
|00001a10| 5e 61 2d 7a 41 2d 5a 30 | 2d 39 5f 5d 29 7d 20 30 |^a-zA-Z0|-9_])} 0|
|00001a20| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 54 65 78 74 |.newMode|Var Text|
|00001a30| 20 77 72 61 70 42 72 65 | 61 6b 20 7b 5b 61 2d 7a | wrapBre|ak {[a-z|
|00001a40| 41 2d 5a 30 2d 39 5f 5d | 2b 7d 20 30 0d 6e 65 77 |A-Z0-9_]|+} 0.new|
|00001a50| 4d 6f 64 65 56 61 72 20 | 54 65 78 74 20 77 72 61 |ModeVar |Text wra|
|00001a60| 70 42 72 65 61 6b 50 72 | 65 66 61 63 65 20 7b 28 |pBreakPr|eface {(|
|00001a70| 5b 5e 61 2d 7a 41 2d 5a | 30 2d 39 5f 5d 29 7d 20 |[^a-zA-Z|0-9_])} |
|00001a80| 30 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 54 65 78 |0.newMod|eVar Tex|
|00001a90| 74 20 61 75 74 6f 4d 61 | 72 6b 09 30 09 31 0d 0d |t autoMa|rk.0.1..|
|00001aa0| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00001ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ac0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ad0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ae0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001af0| 3d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 73 20 |=.lappen|d modes |
|00001b00| 50 53 0d 6c 61 70 70 65 | 6e 64 20 6d 6f 64 65 53 |PS.lappe|nd modeS|
|00001b10| 75 66 66 69 78 65 73 09 | 09 09 7b 2a 2e 70 73 7d |uffixes.|..{*.ps}|
|00001b20| 20 7b 20 73 65 74 20 77 | 69 6e 4d 6f 64 65 20 50 | { set w|inMode P|
|00001b30| 53 20 7d 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 50 |S }.newM|odeVar P|
|00001b40| 53 20 70 72 65 66 69 78 | 53 74 72 69 6e 67 20 7b |S prefix|String {|
|00001b50| 25 20 7d 20 30 20 0d 73 | 65 74 20 50 53 4b 65 79 |% } 0 .s|et PSKey|
|00001b60| 57 6f 72 64 73 20 7b 0d | 09 64 65 66 20 62 65 67 |Words {.|.def beg|
|00001b70| 69 6e 20 65 6e 64 20 64 | 69 63 74 20 6c 6f 61 64 |in end d|ict load|
|00001b80| 0d 09 65 78 65 63 20 69 | 66 20 69 66 65 6c 73 65 |..exec i|f ifelse|
|00001b90| 20 66 6f 72 20 72 65 70 | 65 61 74 20 6c 6f 6f 70 | for rep|eat loop|
|00001ba0| 20 65 78 69 74 20 73 74 | 6f 70 20 73 74 6f 70 70 | exit st|op stopp|
|00001bb0| 65 64 20 63 6f 75 6e 74 | 65 78 65 63 73 74 61 63 |ed count|execstac|
|00001bc0| 6b 20 65 78 65 63 73 74 | 61 63 6b 20 71 75 69 74 |k execst|ack quit|
|00001bd0| 20 73 74 61 72 74 0d 09 | 67 73 61 76 65 20 67 72 | start..|gsave gr|
|00001be0| 65 73 74 6f 72 65 20 67 | 72 65 73 74 6f 72 65 61 |estore g|restorea|
|00001bf0| 6c 6c 20 69 6e 69 74 67 | 72 61 70 68 69 63 73 20 |ll initg|raphics |
|00001c00| 0d 09 6e 65 77 70 61 74 | 68 20 65 72 61 73 65 70 |..newpat|h erasep|
|00001c10| 61 67 65 20 66 69 6c 6c | 20 65 6f 66 69 6c 6c 20 |age fill| eofill |
|00001c20| 73 74 72 6f 6b 65 20 69 | 6d 61 67 65 20 69 6d 61 |stroke i|mage ima|
|00001c30| 67 65 6d 61 73 6b 20 73 | 68 6f 77 70 61 67 65 20 |gemask s|howpage |
|00001c40| 63 6f 70 79 70 61 67 65 | 0d 7d 0d 69 66 20 7b 5b |copypage|.}.if {[|
|00001c50| 69 6e 66 6f 20 65 78 69 | 73 74 73 20 50 53 77 6f |info exi|sts PSwo|
|00001c60| 72 64 73 5d 7d 20 7b 73 | 65 74 20 50 53 4b 65 79 |rds]} {s|et PSKey|
|00001c70| 57 6f 72 64 73 20 5b 63 | 6f 6e 63 61 74 20 24 50 |Words [c|oncat $P|
|00001c80| 53 4b 65 79 57 6f 72 64 | 73 20 24 50 53 77 6f 72 |SKeyWord|s $PSwor|
|00001c90| 64 73 5d 7d 0d 72 65 67 | 4d 6f 64 65 4b 65 79 77 |ds]}.reg|ModeKeyw|
|00001ca0| 6f 72 64 73 20 2d 65 20 | 7b 25 7d 20 2d 6d 20 7b |ords -e |{%} -m {|
|00001cb0| 2f 7d 20 20 2d 63 20 72 | 65 64 20 2d 6b 20 62 6c |/} -c r|ed -k bl|
|00001cc0| 75 65 20 50 53 20 24 50 | 53 4b 65 79 57 6f 72 64 |ue PS $P|SKeyWord|
|00001cd0| 73 20 2d 69 20 22 5c 7d | 22 20 2d 69 20 22 5c 7b |s -i "\}|" -i "\{|
|00001ce0| 22 20 2d 69 20 7b 5b 7d | 20 2d 69 20 7b 5d 7d 20 |" -i {[}| -i {]} |
|00001cf0| 2d 49 20 67 72 65 65 6e | 0d 75 6e 73 65 74 20 50 |-I green|.unset P|
|00001d00| 53 4b 65 79 57 6f 72 64 | 73 0d 0d 23 3d 3d 3d 3d |SKeyWord|s..#====|
|00001d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 6c 61 70 |========|====.lap|
|00001d60| 70 65 6e 64 20 6d 6f 64 | 65 73 20 46 6f 72 74 0d |pend mod|es Fort.|
|00001d70| 6c 61 70 70 65 6e 64 20 | 6d 6f 64 65 53 75 66 66 |lappend |modeSuff|
|00001d80| 69 78 65 73 09 09 09 7b | 2a 2e 66 7d 20 7b 20 73 |ixes...{|*.f} { s|
|00001d90| 65 74 20 77 69 6e 4d 6f | 64 65 20 46 6f 72 74 20 |et winMo|de Fort |
|00001da0| 7d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 53 75 |}.lappen|d modeSu|
|00001db0| 66 66 69 78 65 73 09 09 | 09 7b 2a 2e 69 6e 63 7d |ffixes..|.{*.inc}|
|00001dc0| 20 7b 20 73 65 74 20 77 | 69 6e 4d 6f 64 65 20 46 | { set w|inMode F|
|00001dd0| 6f 72 74 20 7d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |ort }.la|ppend mo|
|00001de0| 64 65 53 75 66 66 69 78 | 65 73 09 09 09 7b 2a 2e |deSuffix|es...{*.|
|00001df0| 49 4e 43 7d 20 7b 20 73 | 65 74 20 77 69 6e 4d 6f |INC} { s|et winMo|
|00001e00| 64 65 20 46 6f 72 74 20 | 7d 0d 6c 61 70 70 65 6e |de Fort |}.lappen|
|00001e10| 64 20 6d 6f 64 65 53 75 | 66 66 69 78 65 73 09 09 |d modeSu|ffixes..|
|00001e20| 09 7b 2a 2e 66 63 6d 7d | 20 7b 20 73 65 74 20 77 |.{*.fcm}| { set w|
|00001e30| 69 6e 4d 6f 64 65 20 46 | 6f 72 74 20 7d 0d 6c 61 |inMode F|ort }.la|
|00001e40| 70 70 65 6e 64 20 6d 6f | 64 65 53 75 66 66 69 78 |ppend mo|deSuffix|
|00001e50| 65 73 09 09 09 7b 2a 2e | 66 6f 72 7d 20 7b 20 73 |es...{*.|for} { s|
|00001e60| 65 74 20 77 69 6e 4d 6f | 64 65 20 46 6f 72 74 20 |et winMo|de Fort |
|00001e70| 7d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 53 75 |}.lappen|d modeSu|
|00001e80| 66 66 69 78 65 73 09 09 | 09 7b 2a 2e 46 4f 52 7d |ffixes..|.{*.FOR}|
|00001e90| 20 7b 20 73 65 74 20 77 | 69 6e 4d 6f 64 65 20 46 | { set w|inMode F|
|00001ea0| 6f 72 74 20 7d 0d 73 65 | 74 20 64 75 6d 6d 79 50 |ort }.se|t dummyP|
|00001eb0| 72 6f 63 28 46 6f 72 74 | 29 09 09 09 09 64 75 6d |roc(Fort|)....dum|
|00001ec0| 6d 79 46 6f 72 74 0d 73 | 65 74 20 6d 6f 64 65 4d |myFort.s|et modeM|
|00001ed0| 65 6e 75 73 28 46 6f 72 | 74 29 20 09 09 09 7b 20 |enus(For|t) ...{ |
|00001ee0| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00001ef0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f30| 3d 3d 3d 3d 0d 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |====.lap|pend mod|
|00001f40| 65 73 20 50 61 73 63 0d | 6c 61 70 70 65 6e 64 20 |es Pasc.|lappend |
|00001f50| 6d 6f 64 65 53 75 66 66 | 69 78 65 73 09 20 09 09 |modeSuff|ixes. ..|
|00001f60| 7b 2a 2e 70 7d 20 7b 20 | 73 65 74 20 77 69 6e 4d |{*.p} { |set winM|
|00001f70| 6f 64 65 20 50 61 73 63 | 20 7d 0d 73 65 74 20 64 |ode Pasc| }.set d|
|00001f80| 75 6d 6d 79 50 72 6f 63 | 28 50 61 73 63 29 09 09 |ummyProc|(Pasc)..|
|00001f90| 09 09 64 75 6d 6d 79 50 | 61 73 63 61 6c 0d 73 65 |..dummyP|ascal.se|
|00001fa0| 74 20 6d 6f 64 65 4d 65 | 6e 75 73 28 50 61 73 63 |t modeMe|nus(Pasc|
|00001fb0| 29 09 09 09 09 7b 20 74 | 68 69 6e 6b 52 65 66 4d |)....{ t|hinkRefM|
|00001fc0| 65 6e 75 20 74 6f 6f 6c | 62 6f 78 52 65 66 4d 65 |enu tool|boxRefMe|
|00001fd0| 6e 75 7d 0d 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |nu}..#==|========|
|00001fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002000| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002020| 3d 3d 3d 0d 6c 61 70 70 | 65 6e 64 20 6d 6f 64 65 |===.lapp|end mode|
|00002030| 73 20 54 63 6c 0d 73 65 | 74 20 64 75 6d 6d 79 50 |s Tcl.se|t dummyP|
|00002040| 72 6f 63 28 54 63 6c 29 | 09 09 09 09 64 75 6d 6d |roc(Tcl)|....dumm|
|00002050| 79 54 63 6c 0d 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |yTcl.lap|pend mod|
|00002060| 65 53 75 66 66 69 78 65 | 73 09 09 09 7b 2a 2e 74 |eSuffixe|s...{*.t|
|00002070| 63 6c 7d 20 7b 20 73 65 | 74 20 77 69 6e 4d 6f 64 |cl} { se|t winMod|
|00002080| 65 20 54 63 6c 20 7d 0d | 73 65 74 20 6d 6f 64 65 |e Tcl }.|set mode|
|00002090| 4d 65 6e 75 73 28 54 63 | 6c 29 20 09 09 09 09 7b |Menus(Tc|l) ....{|
|000020a0| 20 74 63 6c 4d 65 6e 75 | 20 7d 0d 0d 23 3d 3d 3d | tclMenu| }..#===|
|000020b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 6c 61 |========|=====.la|
|00002100| 70 70 65 6e 64 20 6d 6f | 64 65 73 20 4d 50 57 0d |ppend mo|des MPW.|
|00002110| 73 65 74 20 6d 6f 64 65 | 4d 65 6e 75 73 28 4d 50 |set mode|Menus(MP|
|00002120| 57 29 20 09 09 09 09 7b | 20 7d 0d 6c 61 70 70 65 |W) ....{| }.lappe|
|00002130| 6e 64 20 6d 6f 64 65 53 | 75 66 66 69 78 65 73 09 |nd modeS|uffixes.|
|00002140| 09 09 7b 2a 54 6f 6f 6c | 73 65 72 76 65 72 5c 20 |..{*Tool|server\ |
|00002150| 2a 7d 20 7b 20 73 65 74 | 20 77 69 6e 4d 6f 64 65 |*} { set| winMode|
|00002160| 20 4d 50 57 20 7d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d | MPW }..|#=======|
|00002170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 6c 61 70 70 65 6e |========|=.lappen|
|000021c0| 64 20 6d 6f 64 65 73 20 | 42 72 77 73 0d 73 65 74 |d modes |Brws.set|
|000021d0| 20 6d 6f 64 65 4d 65 6e | 75 73 28 42 72 77 73 29 | modeMen|us(Brws)|
|000021e0| 20 09 09 09 7b 20 7d 0d | 73 65 74 20 64 75 6d 6d | ...{ }.|set dumm|
|000021f0| 79 50 72 6f 63 28 42 72 | 77 73 29 09 09 09 09 64 |yProc(Br|ws)....d|
|00002200| 75 6d 6d 79 42 72 77 73 | 0d 23 3d 3d 3d 3d 3d 3d |ummyBrws|.#======|
|00002210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 6c 61 70 70 65 |========|==.lappe|
|00002260| 6e 64 20 6d 6f 64 65 73 | 20 44 69 66 66 0d 73 65 |nd modes| Diff.se|
|00002270| 74 20 6d 6f 64 65 4d 65 | 6e 75 73 28 44 69 66 66 |t modeMe|nus(Diff|
|00002280| 29 20 09 09 09 7b 20 7d | 0d 23 3d 3d 3d 3d 3d 3d |) ...{ }|.#======|
|00002290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000022a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000022b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000022c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000022d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 41 64 61 |========|==.# Ada|
|000022e0| 20 6d 6f 64 65 20 64 65 | 66 69 6e 69 74 69 6f 6e | mode de|finition|
|000022f0| 20 21 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | !.#====|========|
|00002300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002340| 3d 3d 3d 3d 0d 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |====.lap|pend mod|
|00002350| 65 73 20 41 64 61 0d 73 | 65 74 20 64 75 6d 6d 79 |es Ada.s|et dummy|
|00002360| 50 72 6f 63 28 41 64 61 | 29 09 09 09 09 44 55 4d |Proc(Ada|)....DUM|
|00002370| 4d 59 5f 41 44 41 0d 73 | 65 74 20 6d 6f 64 65 4d |MY_ADA.s|et modeM|
|00002380| 65 6e 75 73 28 41 64 61 | 29 20 09 09 09 09 7b 20 |enus(Ada|) ....{ |
|00002390| 7d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 53 75 |}.lappen|d modeSu|
|000023a0| 66 66 69 78 65 73 09 20 | 09 09 7b 2a 2e 61 64 61 |ffixes. |..{*.ada|
|000023b0| 7d 20 7b 20 73 65 74 20 | 77 69 6e 4d 6f 64 65 20 |} { set |winMode |
|000023c0| 41 64 61 20 7d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |Ada }.la|ppend mo|
|000023d0| 64 65 53 75 66 66 69 78 | 65 73 09 09 09 7b 2a 2e |deSuffix|es...{*.|
|000023e0| 61 64 73 7d 20 7b 20 73 | 65 74 20 77 69 6e 4d 6f |ads} { s|et winMo|
|000023f0| 64 65 20 41 64 61 20 7d | 0d 6c 61 70 70 65 6e 64 |de Ada }|.lappend|
|00002400| 20 6d 6f 64 65 53 75 66 | 66 69 78 65 73 09 09 09 | modeSuf|fixes...|
|00002410| 7b 2a 2e 61 64 62 7d 20 | 7b 20 73 65 74 20 77 69 |{*.adb} |{ set wi|
|00002420| 6e 4d 6f 64 65 20 41 64 | 61 20 7d 0d 23 20 6f 6e |nMode Ad|a }.# on|
|00002430| 6c 79 20 66 6f 72 20 6d | 79 20 47 4e 41 54 20 73 |ly for m|y GNAT s|
|00002440| 70 65 63 69 66 69 63 20 | 66 69 6c 65 73 0d 6c 61 |pecific |files.la|
|00002450| 70 70 65 6e 64 20 6d 6f | 64 65 53 75 66 66 69 78 |ppend mo|deSuffix|
|00002460| 65 73 09 09 09 7b 2a 2e | 67 6e 61 74 7d 20 7b 20 |es...{*.|gnat} { |
|00002470| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 41 64 61 20 |set winM|ode Ada |
|00002480| 7d 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 41 64 61 |}.newMod|eVar Ada|
|00002490| 20 65 6c 65 63 52 42 72 | 61 63 65 20 7b 31 7d 20 | elecRBr|ace {1} |
|000024a0| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 41 64 61 |1.newMod|eVar Ada|
|000024b0| 20 6c 65 66 74 46 69 6c | 6c 43 6f 6c 75 6d 6e 20 | leftFil|lColumn |
|000024c0| 7b 33 7d 20 30 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{3} 0.ne|wModeVar|
|000024d0| 20 41 64 61 20 70 72 65 | 66 69 78 53 74 72 69 6e | Ada pre|fixStrin|
|000024e0| 67 20 7b 2d 2d 20 7d 20 | 30 20 0d 6e 65 77 4d 6f |g {-- } |0 .newMo|
|000024f0| 64 65 56 61 72 20 41 64 | 61 20 65 6c 65 63 74 72 |deVar Ad|a electr|
|00002500| 69 63 53 65 6d 69 20 7b | 31 7d 20 31 0d 6e 65 77 |icSemi {|1} 1.new|
|00002510| 4d 6f 64 65 56 61 72 20 | 41 64 61 20 77 6f 72 64 |ModeVar |Ada word|
|00002520| 42 72 65 61 6b 20 7b 5b | 61 2d 7a 41 2d 5a 30 2d |Break {[|a-zA-Z0-|
|00002530| 39 5f 5d 2b 7d 20 30 0d | 6e 65 77 4d 6f 64 65 56 |9_]+} 0.|newModeV|
|00002540| 61 72 20 41 64 61 20 65 | 6c 65 63 4c 42 72 61 63 |ar Ada e|lecLBrac|
|00002550| 65 20 7b 31 7d 20 31 0d | 6e 65 77 4d 6f 64 65 56 |e {1} 1.|newModeV|
|00002560| 61 72 20 41 64 61 20 77 | 6f 72 64 57 72 61 70 20 |ar Ada w|ordWrap |
|00002570| 7b 30 7d 20 31 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{0} 1.ne|wModeVar|
|00002580| 20 41 64 61 20 66 75 6e | 63 45 78 70 72 20 7b 5e | Ada fun|cExpr {^|
|00002590| 5b 5e 20 5c 74 5c 28 23 | 5c 72 2f 40 5d 2e 2a 5c |[^ \t\(#|\r/@].*\|
|000025a0| 28 2e 2a 5c 29 24 7d 20 | 30 0d 6e 65 77 4d 6f 64 |(.*\)$} |0.newMod|
|000025b0| 65 56 61 72 20 41 64 61 | 20 77 6f 72 64 42 72 65 |eVar Ada| wordBre|
|000025c0| 61 6b 50 72 65 66 61 63 | 65 20 7b 7d 20 30 0d 6e |akPrefac|e {} 0.n|
|000025d0| 65 77 4d 6f 64 65 56 61 | 72 20 41 64 61 20 6f 70 |ewModeVa|r Ada op|
|000025e0| 74 69 6f 6e 49 73 4d 65 | 74 61 20 7b 31 7d 20 31 |tionIsMe|ta {1} 1|
|000025f0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 41 64 61 20 |.newMode|Var Ada |
|00002600| 65 6c 65 63 74 72 69 63 | 54 61 62 20 7b 30 7d 20 |electric|Tab {0} |
|00002610| 31 0d 0d 73 65 74 20 61 | 64 61 43 6f 6d 6d 65 6e |1..set a|daCommen|
|00002620| 74 52 65 67 65 78 70 09 | 7b 2f 5c 2a 28 28 5b 5e |tRegexp.|{/\*(([^|
|00002630| 2a 5d 2f 29 7c 5b 5e 2a | 5d 7c 5c 72 29 2a 5c 2a |*]/)|[^*|]|\r)*\*|
|00002640| 2f 7d 0d 73 65 74 20 61 | 64 61 50 72 65 52 65 67 |/}.set a|daPreReg|
|00002650| 65 78 70 09 09 7b 5e 5c | 23 5b 5c 74 20 5d 2a 5b |exp..{^\|#[\t ]*[|
|00002660| 61 2d 7a 5d 2a 7d 0d 73 | 65 74 20 61 64 61 4b 65 |a-z]*}.s|et adaKe|
|00002670| 79 57 6f 72 64 73 09 09 | 7b 0d 09 61 62 6f 72 74 |yWords..|{..abort|
|00002680| 20 61 62 73 20 61 63 63 | 65 70 74 20 61 63 63 65 | abs acc|ept acce|
|00002690| 73 73 20 61 6c 6c 20 61 | 6e 64 20 61 72 72 61 79 |ss all a|nd array|
|000026a0| 20 61 74 20 62 65 67 69 | 6e 20 62 6f 64 79 20 63 | at begi|n body c|
|000026b0| 61 73 65 20 63 6f 6e 73 | 74 61 6e 74 0d 09 64 65 |ase cons|tant..de|
|000026c0| 63 6c 61 72 65 20 64 65 | 6c 61 79 20 64 65 6c 74 |clare de|lay delt|
|000026d0| 61 20 64 69 67 69 74 73 | 20 64 6f 20 65 6c 73 65 |a digits| do else|
|000026e0| 20 65 6c 73 69 66 20 65 | 6e 64 20 65 6e 74 72 79 | elsif e|nd entry|
|000026f0| 20 65 78 63 65 70 74 69 | 6f 6e 20 65 78 69 74 0d | excepti|on exit.|
|00002700| 09 66 6f 72 20 66 75 6e | 63 74 69 6f 6e 20 67 65 |.for fun|ction ge|
|00002710| 6e 65 72 69 63 20 67 6f | 74 6f 20 6f 74 68 65 72 |neric go|to other|
|00002720| 73 20 69 66 20 69 6e 20 | 69 73 20 6c 69 6d 69 74 |s if in |is limit|
|00002730| 65 64 20 6c 6f 6f 70 20 | 6d 6f 64 20 6e 65 77 20 |ed loop |mod new |
|00002740| 6e 6f 74 0d 09 6e 75 6c | 6c 20 6f 66 20 6f 72 20 |not..nul|l of or |
|00002750| 73 75 62 74 79 70 65 20 | 6f 75 74 20 70 61 63 6b |subtype |out pack|
|00002760| 61 67 65 20 70 72 61 67 | 6d 61 20 70 72 69 76 61 |age prag|ma priva|
|00002770| 74 65 20 70 72 6f 63 65 | 64 75 72 65 20 72 61 69 |te proce|dure rai|
|00002780| 73 65 20 72 61 6e 67 65 | 0d 09 72 65 63 6f 72 64 |se range|..record|
|00002790| 20 72 65 6d 20 72 65 6e | 61 6d 65 73 20 72 65 74 | rem ren|ames ret|
|000027a0| 75 72 6e 20 72 65 76 65 | 72 73 65 20 73 65 6c 65 |urn reve|rse sele|
|000027b0| 63 74 20 73 65 70 61 72 | 61 74 65 20 74 61 73 6b |ct separ|ate task|
|000027c0| 20 74 65 72 6d 69 6e 61 | 74 65 0d 09 74 68 65 6e | termina|te..then|
|000027d0| 20 74 79 70 65 20 75 73 | 65 20 77 68 65 6e 20 77 | type us|e when w|
|000027e0| 68 69 6c 65 20 77 69 74 | 68 20 78 6f 72 20 3d 20 |hile wit|h xor = |
|000027f0| 2f 3d 20 20 3a 3d 20 3e | 20 3c 0d 09 7d 0d 72 65 |/= := >| <..}.re|
|00002800| 67 4d 6f 64 65 4b 65 79 | 77 6f 72 64 73 20 2d 65 |gModeKey|words -e|
|00002810| 20 7b 2d 2d 7d 20 2d 63 | 20 63 79 61 6e 20 2d 6b | {--} -c| cyan -k|
|00002820| 20 62 6c 75 65 20 41 64 | 61 20 24 61 64 61 4b 65 | blue Ad|a $adaKe|
|00002830| 79 57 6f 72 64 73 20 2d | 69 20 22 29 22 20 2d 69 |yWords -|i ")" -i|
|00002840| 20 22 28 22 20 2d 69 20 | 22 3a 22 20 2d 69 20 22 | "(" -i |":" -i "|
|00002850| 3b 22 20 2d 69 20 22 2c | 22 20 2d 69 20 22 2e 22 |;" -i ",|" -i "."|
|00002860| 20 2d 49 20 72 65 64 0d | 23 3d 3d 3d 3d 3d 3d 3d | -I red.|#=======|
|00002870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0d 70 72 6f 63 20 |========|=..proc |
|000028c0| 62 75 69 6c 64 46 6c 61 | 67 73 56 61 72 73 20 7b |buildFla|gsVars {|
|000028d0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 61 6c 6c 46 |} {..glo|bal allF|
|000028e0| 6c 61 67 73 20 61 6c 6c | 56 61 72 73 20 6d 6f 64 |lags all|Vars mod|
|000028f0| 65 56 61 72 73 0d 09 0d | 09 73 65 74 20 66 73 20 |eVars...|.set fs |
|00002900| 7b 7d 0d 09 66 6f 72 65 | 61 63 68 20 66 20 5b 6c |{}..fore|ach f [l|
|00002910| 73 6f 72 74 20 24 61 6c | 6c 46 6c 61 67 73 5d 20 |sort $al|lFlags] |
|00002920| 7b 0d 09 09 69 66 20 7b | 5b 6c 73 65 61 72 63 68 |{...if {|[lsearch|
|00002930| 20 24 6d 6f 64 65 56 61 | 72 73 20 24 66 5d 20 3c | $modeVa|rs $f] <|
|00002940| 20 30 7d 20 7b 0d 23 20 | 09 09 09 6c 61 70 70 65 | 0} {.# |...lappe|
|00002950| 6e 64 20 66 73 20 22 3c | 45 3c 53 3f 20 24 66 22 |nd fs "<|E<S? $f"|
|00002960| 0d 23 20 09 09 09 6c 61 | 70 70 65 6e 64 20 66 73 |.# ...la|ppend fs|
|00002970| 20 22 3c 53 24 66 22 0d | 20 20 09 09 09 6c 61 70 | "<S$f".| ...lap|
|00002980| 70 65 6e 64 20 66 6c 61 | 67 73 20 24 66 0d 09 09 |pend fla|gs $f...|
|00002990| 7d 0d 09 7d 0d 09 6d 65 | 6e 75 20 2d 6d 20 2d 6e |}..}..me|nu -m -n|
|000029a0| 20 66 6c 61 67 73 20 2d | 70 20 65 64 69 74 46 6c | flags -|p editFl|
|000029b0| 61 67 20 24 66 6c 61 67 | 73 0d 09 65 76 61 6c 20 |ag $flag|s..eval |
|000029c0| 67 6c 6f 62 61 6c 20 24 | 66 6c 61 67 73 0d 09 66 |global $|flags..f|
|000029d0| 6f 72 65 61 63 68 20 66 | 20 24 66 6c 61 67 73 20 |oreach f| $flags |
|000029e0| 7b 0d 09 09 6d 61 72 6b | 4d 65 6e 75 49 74 65 6d |{...mark|MenuItem|
|000029f0| 20 66 6c 61 67 73 20 24 | 66 20 5b 73 65 74 20 24 | flags $|f [set $|
|00002a00| 66 5d 0d 09 7d 0d 0d 09 | 73 65 74 20 66 73 20 7b |f]..}...|set fs {|
|00002a10| 7d 0d 09 73 65 74 20 66 | 6c 61 67 73 20 7b 7d 0d |}..set f|lags {}.|
|00002a20| 09 66 6f 72 65 61 63 68 | 20 66 20 5b 6c 73 6f 72 |.foreach| f [lsor|
|00002a30| 74 20 24 61 6c 6c 56 61 | 72 73 5d 20 7b 0d 09 09 |t $allVa|rs] {...|
|00002a40| 69 66 20 7b 5b 6c 73 65 | 61 72 63 68 20 24 6d 6f |if {[lse|arch $mo|
|00002a50| 64 65 56 61 72 73 20 24 | 66 5d 20 3c 20 30 7d 20 |deVars $|f] < 0} |
|00002a60| 7b 0d 23 20 09 09 09 6c | 61 70 70 65 6e 64 20 66 |{.# ...l|append f|
|00002a70| 73 20 22 3c 45 3c 53 3f | 20 24 66 22 0d 23 20 09 |s "<E<S?| $f".# .|
|00002a80| 09 09 6c 61 70 70 65 6e | 64 20 66 73 20 22 3c 53 |..lappen|d fs "<S|
|00002a90| 24 66 22 0d 09 09 09 6c | 61 70 70 65 6e 64 20 66 |$f"....l|append f|
|00002aa0| 73 20 22 24 66 22 0d 09 | 09 7d 0d 09 7d 0d 09 6d |s "$f"..|.}..}..m|
|00002ab0| 65 6e 75 20 2d 6d 20 2d | 6e 20 76 61 72 73 20 2d |enu -m -|n vars -|
|00002ac0| 70 20 65 64 69 74 56 61 | 72 20 24 66 73 0d 7d 0d |p editVa|r $fs.}.|
|00002ad0| 0d 0d 70 72 6f 63 20 73 | 61 76 65 56 61 72 56 61 |..proc s|aveVarVa|
|00002ae0| 6c 75 65 73 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |lues {} |{..globa|
|00002af0| 6c 20 6d 6f 64 65 73 20 | 48 4f 4d 45 0d 09 69 66 |l modes |HOME..if|
|00002b00| 20 7b 5b 61 73 6b 79 65 | 73 6e 6f 20 22 53 61 76 | {[askye|sno "Sav|
|00002b10| 65 20 76 61 72 69 61 62 | 6c 65 73 20 61 6e 64 20 |e variab|les and |
|00002b20| 76 61 6c 75 65 73 20 74 | 6f 20 5c 22 24 48 4f 4d |values t|o \"$HOM|
|00002b30| 45 3a 61 6c 70 68 61 46 | 6c 61 67 73 2e 74 63 6c |E:alphaF|lags.tcl|
|00002b40| 5c 22 3f 22 5d 20 3d 3d | 20 22 79 65 73 22 7d 20 |\"?"] ==| "yes"} |
|00002b50| 7b 0d 09 09 73 65 74 20 | 6c 69 6e 65 73 20 7b 7d |{...set |lines {}|
|00002b60| 0d 09 09 66 6f 72 65 61 | 63 68 20 6d 20 24 6d 6f |...forea|ch m $mo|
|00002b70| 64 65 73 20 7b 0d 09 09 | 09 67 6c 6f 62 61 6c 20 |des {...|.global |
|00002b80| 24 7b 6d 7d 6d 6f 64 65 | 56 61 72 73 0d 09 09 09 |${m}mode|Vars....|
|00002b90| 0d 09 09 09 69 66 20 7b | 5b 69 6e 66 6f 20 65 78 |....if {|[info ex|
|00002ba0| 69 73 74 73 20 24 7b 6d | 7d 6d 6f 64 65 56 61 72 |ists ${m|}modeVar|
|00002bb0| 73 5d 7d 20 7b 0d 09 09 | 09 09 66 6f 72 65 61 63 |s]} {...|..foreac|
|00002bc0| 68 20 76 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |h v [arr|ay names|
|00002bd0| 20 24 7b 6d 7d 6d 6f 64 | 65 56 61 72 73 5d 20 7b | ${m}mod|eVars] {|
|00002be0| 0d 09 09 09 09 09 61 70 | 70 65 6e 64 20 6c 69 6e |......ap|pend lin|
|00002bf0| 65 73 20 22 73 65 74 20 | 24 7b 6d 7d 6d 6f 64 65 |es "set |${m}mode|
|00002c00| 56 61 72 73 28 24 76 29 | 5c 74 5c 74 5c 7b 5b 73 |Vars($v)|\t\t\{[s|
|00002c10| 65 74 20 24 7b 6d 7d 6d | 6f 64 65 56 61 72 73 28 |et ${m}m|odeVars(|
|00002c20| 24 76 29 5d 5c 7d 5c 72 | 22 0d 09 09 09 09 7d 0d |$v)]\}\r|".....}.|
|00002c30| 09 09 09 09 61 70 70 65 | 6e 64 20 6c 69 6e 65 73 |....appe|nd lines|
|00002c40| 20 22 5c 72 22 0d 09 09 | 09 7d 0d 09 09 7d 0d 09 | "\r"...|.}...}..|
|00002c50| 09 0d 09 09 61 70 70 65 | 6e 64 20 6c 69 6e 65 73 |....appe|nd lines|
|00002c60| 20 22 5c 72 5c 72 22 0d | 09 09 67 6c 6f 62 61 6c | "\r\r".|..global|
|00002c70| 20 61 6c 6c 46 6c 61 67 | 73 20 61 6c 6c 56 61 72 | allFlag|s allVar|
|00002c80| 73 0d 09 09 73 65 74 20 | 76 61 72 73 20 5b 6c 73 |s...set |vars [ls|
|00002c90| 6f 72 74 20 5b 63 6f 6e | 63 61 74 20 24 61 6c 6c |ort [con|cat $all|
|00002ca0| 46 6c 61 67 73 20 24 61 | 6c 6c 56 61 72 73 5d 5d |Flags $a|llVars]]|
|00002cb0| 0d 09 09 65 76 61 6c 20 | 67 6c 6f 62 61 6c 20 24 |...eval |global $|
|00002cc0| 76 61 72 73 0d 09 09 66 | 6f 72 65 61 63 68 20 66 |vars...f|oreach f|
|00002cd0| 20 24 76 61 72 73 20 7b | 0d 09 09 09 61 70 70 65 | $vars {|....appe|
|00002ce0| 6e 64 20 6c 69 6e 65 73 | 20 22 73 65 74 20 24 66 |nd lines| "set $f|
|00002cf0| 5c 74 5c 74 5c 7b 5b 73 | 65 74 20 24 66 5d 5c 7d |\t\t\{[s|et $f]\}|
|00002d00| 5c 72 22 0d 09 09 7d 0d | 0d 09 09 73 65 74 20 66 |\r"...}.|...set f|
|00002d10| 64 20 5b 6f 70 65 6e 20 | 22 24 48 4f 4d 45 3a 61 |d [open |"$HOME:a|
|00002d20| 6c 70 68 61 46 6c 61 67 | 73 2e 74 63 6c 22 20 22 |lphaFlag|s.tcl" "|
|00002d30| 77 22 5d 0d 09 09 70 75 | 74 73 20 24 66 64 20 24 |w"]...pu|ts $fd $|
|00002d40| 6c 69 6e 65 73 0d 09 09 | 63 6c 6f 73 65 20 24 66 |lines...|close $f|
|00002d50| 64 0d 09 09 6d 65 73 73 | 61 67 65 20 22 4e 65 77 |d...mess|age "New|
|00002d60| 20 27 24 48 4f 4d 45 3a | 61 6c 70 68 61 46 6c 61 | '$HOME:|alphaFla|
|00002d70| 67 73 2e 74 63 6c 27 20 | 77 72 69 74 74 65 6e 2e |gs.tcl' |written.|
|00002d80| 22 0d 09 7d 0d 7d 0d 0d | 0d 23 3d 3d 3d 3d 3d 3d |"..}.}..|.#======|
|00002d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002dc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 0d 70 72 6f 63 |========|==..proc|
|00002de0| 20 73 65 74 57 69 6e 4d | 6f 64 65 20 6e 61 6d 65 | setWinM|ode name|
|00002df0| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 77 69 6e 4d 6f | {..glob|al winMo|
|00002e00| 64 65 73 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |des mode|Suffixes|
|00002e10| 0d 09 73 65 74 20 6e 6d | 20 5b 66 69 6c 65 20 74 |..set nm| [file t|
|00002e20| 61 69 6c 20 24 6e 61 6d | 65 5d 0d 09 69 66 20 7b |ail $nam|e]..if {|
|00002e30| 5b 73 65 74 20 66 69 72 | 73 74 20 5b 73 74 72 69 |[set fir|st [stri|
|00002e40| 6e 67 20 6c 61 73 74 20 | 22 20 3c 22 20 24 6e 6d |ng last |" <" $nm|
|00002e50| 5d 5d 20 3e 3d 20 30 7d | 20 7b 0d 09 09 73 65 74 |]] >= 0}| {...set|
|00002e60| 20 72 6e 61 6d 65 20 5b | 73 74 72 69 6e 67 20 72 | rname [|string r|
|00002e70| 61 6e 67 65 20 24 6e 6d | 20 30 20 5b 65 78 70 72 |ange $nm| 0 [expr|
|00002e80| 20 24 66 69 72 73 74 20 | 2d 20 31 5d 5d 0d 09 7d | $first |- 1]]..}|
|00002e90| 20 65 6c 73 65 20 7b 0d | 09 09 73 65 74 20 72 6e | else {.|..set rn|
|00002ea0| 61 6d 65 20 24 6e 6d 0d | 09 7d 0d 09 63 61 73 65 |ame $nm.|.}..case|
|00002eb0| 20 24 72 6e 61 6d 65 20 | 69 6e 20 24 6d 6f 64 65 | $rname |in $mode|
|00002ec0| 53 75 66 66 69 78 65 73 | 0d 09 73 65 74 20 77 69 |Suffixes|..set wi|
|00002ed0| 6e 4d 6f 64 65 73 28 24 | 6e 61 6d 65 29 20 24 77 |nModes($|name) $w|
|00002ee0| 69 6e 4d 6f 64 65 0d 7d | 0d 0d 0d 0d 70 72 6f 63 |inMode.}|....proc|
|00002ef0| 20 6e 65 77 4d 6f 64 65 | 20 6d 6f 64 65 20 7b 0d | newMode| mode {.|
|00002f00| 09 67 6c 6f 62 61 6c 20 | 77 69 6e 4d 6f 64 65 73 |.global |winModes|
|00002f10| 20 6d 6f 64 65 50 72 6f | 63 73 0d 09 0d 09 73 65 | modePro|cs....se|
|00002f20| 74 20 6e 61 6d 65 20 5b | 6c 69 6e 64 65 78 20 5b |t name [|lindex [|
|00002f30| 77 69 6e 4e 61 6d 65 73 | 20 2d 66 5d 20 30 5d 0d |winNames| -f] 0].|
|00002f40| 09 63 68 61 6e 67 65 4d | 6f 64 65 20 24 6d 6f 64 |.changeM|ode $mod|
|00002f50| 65 0d 09 73 65 74 20 77 | 69 6e 4d 6f 64 65 73 28 |e..set w|inModes(|
|00002f60| 24 6e 61 6d 65 29 20 24 | 6d 6f 64 65 0d 7d 0d 0d |$name) $|mode.}..|
|00002f70| 0d 70 72 6f 63 20 64 65 | 61 63 74 69 76 61 74 65 |.proc de|activate|
|00002f80| 48 6f 6f 6b 20 6e 61 6d | 65 20 7b 0d 7d 0d 0d 70 |Hook nam|e {.}..p|
|00002f90| 72 6f 63 20 73 75 73 70 | 65 6e 64 48 6f 6f 6b 20 |roc susp|endHook |
|00002fa0| 6e 61 6d 65 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 69 |name {..|global i|
|00002fb0| 63 6f 6e 69 66 79 4f 6e | 53 77 69 74 63 68 0d 09 |conifyOn|Switch..|
|00002fc0| 67 6c 6f 62 61 6c 20 73 | 75 73 70 49 63 6f 6e 65 |global s|uspIcone|
|00002fd0| 64 0d 09 69 66 20 7b 24 | 69 63 6f 6e 69 66 79 4f |d..if {$|iconifyO|
|00002fe0| 6e 53 77 69 74 63 68 7d | 20 7b 0d 09 09 73 65 74 |nSwitch}| {...set|
|00002ff0| 20 77 69 6e 73 20 5b 77 | 69 6e 4e 61 6d 65 73 20 | wins [w|inNames |
|00003000| 2d 66 5d 0d 09 09 73 65 | 74 20 73 75 73 70 49 63 |-f]...se|t suspIc|
|00003010| 6f 6e 65 64 20 22 22 0d | 09 09 66 6f 72 65 61 63 |oned "".|..foreac|
|00003020| 68 20 77 69 6e 20 24 77 | 69 6e 73 20 7b 0d 09 09 |h win $w|ins {...|
|00003030| 09 69 66 20 7b 21 5b 69 | 63 6f 6e 20 2d 66 20 22 |.if {![i|con -f "|
|00003040| 24 77 69 6e 22 20 2d 71 | 5d 7d 20 7b 0d 09 09 09 |$win" -q|]} {....|
|00003050| 09 6c 61 70 70 65 6e 64 | 20 73 75 73 70 49 63 6f |.lappend| suspIco|
|00003060| 6e 65 64 20 24 77 69 6e | 0d 09 09 09 09 69 63 6f |ned $win|.....ico|
|00003070| 6e 20 2d 66 20 22 24 77 | 69 6e 22 20 2d 74 0d 09 |n -f "$w|in" -t..|
|00003080| 09 09 7d 0d 09 09 7d 0d | 09 09 73 65 74 20 73 75 |..}...}.|..set su|
|00003090| 73 70 49 63 6f 6e 65 64 | 20 5b 6c 72 65 76 65 72 |spIconed| [lrever|
|000030a0| 73 65 20 24 73 75 73 70 | 49 63 6f 6e 65 64 5d 0d |se $susp|Iconed].|
|000030b0| 09 7d 0d 7d 0d 0d 0d 73 | 65 74 20 6b 69 6c 6c 43 |.}.}...s|et killC|
|000030c0| 6f 6d 70 69 6c 65 72 45 | 72 72 6f 72 73 20 30 0d |ompilerE|rrors 0.|
|000030d0| 0d 70 72 6f 63 20 72 65 | 73 75 6d 65 48 6f 6f 6b |.proc re|sumeHook|
|000030e0| 20 6e 61 6d 65 20 7b 0d | 09 67 6c 6f 62 61 6c 20 | name {.|.global |
|000030f0| 69 63 6f 6e 69 66 79 4f | 6e 53 77 69 74 63 68 20 |iconifyO|nSwitch |
|00003100| 72 65 73 75 6d 65 52 65 | 76 65 72 74 20 73 75 73 |resumeRe|vert sus|
|00003110| 70 49 63 6f 6e 65 64 20 | 6b 69 6c 6c 43 6f 6d 70 |pIconed |killComp|
|00003120| 69 6c 65 72 45 72 72 6f | 72 73 0d 0d 09 69 66 20 |ilerErro|rs...if |
|00003130| 7b 24 6b 69 6c 6c 43 6f | 6d 70 69 6c 65 72 45 72 |{$killCo|mpilerEr|
|00003140| 72 6f 72 73 7d 20 7b 0d | 09 09 73 65 74 20 77 69 |rors} {.|..set wi|
|00003150| 6e 73 20 5b 77 69 6e 4e | 61 6d 65 73 20 2d 66 5d |ns [winN|ames -f]|
|00003160| 0d 09 09 69 66 20 7b 5b | 73 65 74 20 72 65 73 20 |...if {[|set res |
|00003170| 5b 6c 73 65 61 72 63 68 | 20 24 77 69 6e 73 20 22 |[lsearch| $wins "|
|00003180| 2a 43 6f 6d 70 69 6c 65 | 72 20 45 72 72 6f 72 73 |*Compile|r Errors|
|00003190| 2a 22 5d 5d 20 3e 3d 20 | 30 7d 20 7b 0d 09 09 09 |*"]] >= |0} {....|
|000031a0| 62 72 69 6e 67 54 6f 46 | 72 6f 6e 74 20 5b 6c 69 |bringToF|ront [li|
|000031b0| 6e 64 65 78 20 24 77 69 | 6e 73 20 24 72 65 73 5d |ndex $wi|ns $res]|
|000031c0| 0d 09 09 09 6b 69 6c 6c | 57 69 6e 64 6f 77 0d 09 |....kill|Window..|
|000031d0| 09 7d 0d 09 7d 0d 09 0d | 09 69 66 20 7b 24 69 63 |.}..}...|.if {$ic|
|000031e0| 6f 6e 69 66 79 4f 6e 53 | 77 69 74 63 68 20 26 26 |onifyOnS|witch &&|
|000031f0| 20 5b 69 6e 66 6f 20 65 | 78 69 73 74 73 20 73 75 | [info e|xists su|
|00003200| 73 70 49 63 6f 6e 65 64 | 5d 7d 20 7b 0d 09 09 73 |spIconed|]} {...s|
|00003210| 65 74 20 77 69 6e 73 20 | 5b 77 69 6e 4e 61 6d 65 |et wins |[winName|
|00003220| 73 20 2d 66 5d 0d 09 09 | 66 6f 72 65 61 63 68 20 |s -f]...|foreach |
|00003230| 77 69 6e 20 24 73 75 73 | 70 49 63 6f 6e 65 64 20 |win $sus|pIconed |
|00003240| 7b 0d 09 09 09 69 63 6f | 6e 20 2d 66 20 22 24 77 |{....ico|n -f "$w|
|00003250| 69 6e 22 20 2d 6f 0d 09 | 09 7d 0d 09 09 75 6e 73 |in" -o..|.}...uns|
|00003260| 65 74 20 73 75 73 70 49 | 63 6f 6e 65 64 0d 09 7d |et suspI|coned..}|
|00003270| 0d 09 69 66 20 7b 24 72 | 65 73 75 6d 65 52 65 76 |..if {$r|esumeRev|
|00003280| 65 72 74 7d 20 7b 0d 09 | 09 73 65 74 20 72 65 73 |ert} {..|.set res|
|00003290| 75 6d 65 52 65 76 65 72 | 74 20 30 0d 09 09 72 65 |umeRever|t 0...re|
|000032a0| 76 65 72 74 0d 09 7d 0d | 7d 0d 0d 0d 0d 23 20 48 |vert..}.|}....# H|
|000032b0| 61 6e 64 6c 65 73 20 64 | 79 6e 61 6d 69 63 61 6c |andles d|ynamical|
|000032c0| 6c 79 20 61 64 64 69 6e | 67 20 61 6e 64 20 64 65 |ly addin|g and de|
|000032d0| 6c 65 74 69 6e 67 20 77 | 69 6e 64 6f 77 20 6e 61 |leting w|indow na|
|000032e0| 6d 65 73 20 66 72 6f 6d | 20 6d 65 6e 75 2e 0d 70 |mes from| menu..p|
|000032f0| 72 6f 63 20 61 64 64 57 | 69 6e 4e 61 6d 65 20 6e |roc addW|inName n|
|00003300| 61 6d 65 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 77 69 |ame {..g|lobal wi|
|00003310| 6e 4e 61 6d 65 54 6f 4e | 75 6d 20 77 69 6e 4d 65 |nNameToN|um winMe|
|00003320| 6e 75 20 77 69 6e 4e 75 | 6d 54 6f 4e 61 6d 65 0d |nu winNu|mToName.|
|00003330| 09 0d 09 66 6f 72 20 7b | 73 65 74 20 69 20 30 7d |...for {|set i 0}|
|00003340| 20 7b 24 69 3c 31 30 30 | 7d 20 7b 69 6e 63 72 20 | {$i<100|} {incr |
|00003350| 69 7d 20 7b 0d 09 09 69 | 66 20 7b 5b 63 61 74 63 |i} {...i|f {[catc|
|00003360| 68 20 7b 73 65 74 20 6e | 6d 20 24 77 69 6e 4e 75 |h {set n|m $winNu|
|00003370| 6d 54 6f 4e 61 6d 65 28 | 24 69 29 7d 20 72 65 73 |mToName(|$i)} res|
|00003380| 5d 20 3d 3d 20 22 31 22 | 7d 20 7b 0d 09 09 09 72 |] == "1"|} {....r|
|00003390| 65 67 65 78 70 20 7b 5b | 5e 3a 5d 2a 24 7d 20 24 |egexp {[|^:]*$} $|
|000033a0| 6e 61 6d 65 20 6e 6d 0d | 09 09 09 69 66 20 7b 24 |name nm.|...if {$|
|000033b0| 69 20 3c 20 31 30 7d 20 | 7b 0d 09 09 09 09 61 64 |i < 10} |{.....ad|
|000033c0| 64 4d 65 6e 75 49 74 65 | 6d 20 2d 6d 20 2d 6c 20 |dMenuIte|m -m -l |
|000033d0| 22 2f 24 69 22 20 24 77 | 69 6e 4d 65 6e 75 20 24 |"/$i" $w|inMenu $|
|000033e0| 6e 6d 0d 09 09 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |nm....} |else {..|
|000033f0| 09 09 09 61 64 64 4d 65 | 6e 75 49 74 65 6d 20 2d |...addMe|nuItem -|
|00003400| 6d 20 2d 6c 20 22 22 20 | 24 77 69 6e 4d 65 6e 75 |m -l "" |$winMenu|
|00003410| 20 24 6e 6d 0d 09 09 09 | 7d 0d 09 09 09 73 65 74 | $nm....|}....set|
|00003420| 20 77 69 6e 4e 75 6d 54 | 6f 4e 61 6d 65 28 24 69 | winNumT|oName($i|
|00003430| 29 20 24 6e 61 6d 65 0d | 09 09 09 73 65 74 20 77 |) $name.|...set w|
|00003440| 69 6e 4e 61 6d 65 54 6f | 4e 75 6d 28 24 6e 61 6d |inNameTo|Num($nam|
|00003450| 65 29 20 24 69 0d 09 09 | 09 72 65 74 75 72 6e 0d |e) $i...|.return.|
|00003460| 09 09 7d 0d 09 7d 0d 7d | 0d 0d 70 72 6f 63 20 72 |..}..}.}|..proc r|
|00003470| 65 6d 6f 76 65 57 69 6e | 4e 61 6d 65 20 6e 61 6d |emoveWin|Name nam|
|00003480| 65 20 7b 0d 09 67 6c 6f | 62 61 6c 20 77 69 6e 4e |e {..glo|bal winN|
|00003490| 61 6d 65 54 6f 4e 75 6d | 20 77 69 6e 4e 75 6d 54 |ameToNum| winNumT|
|000034a0| 6f 4e 61 6d 65 20 77 69 | 6e 4d 65 6e 75 0d 09 0d |oName wi|nMenu...|
|000034b0| 09 73 65 74 20 6e 75 6d | 20 24 77 69 6e 4e 61 6d |.set num| $winNam|
|000034c0| 65 54 6f 4e 75 6d 28 24 | 6e 61 6d 65 29 0d 09 75 |eToNum($|name)..u|
|000034d0| 6e 73 65 74 20 77 69 6e | 4e 75 6d 54 6f 4e 61 6d |nset win|NumToNam|
|000034e0| 65 28 24 6e 75 6d 29 0d | 09 75 6e 73 65 74 20 77 |e($num).|.unset w|
|000034f0| 69 6e 4e 61 6d 65 54 6f | 4e 75 6d 28 24 6e 61 6d |inNameTo|Num($nam|
|00003500| 65 29 0d 09 72 65 67 65 | 78 70 20 7b 5b 5e 3a 5d |e)..rege|xp {[^:]|
|00003510| 2a 24 7d 20 24 6e 61 6d | 65 20 6e 6d 0d 09 64 65 |*$} $nam|e nm..de|
|00003520| 6c 65 74 65 4d 65 6e 75 | 49 74 65 6d 20 2d 6d 20 |leteMenu|Item -m |
|00003530| 24 77 69 6e 4d 65 6e 75 | 20 24 6e 6d 0d 7d 0d 0d |$winMenu| $nm.}..|
|00003540| 0d 70 72 6f 63 20 6d 65 | 6e 75 57 69 6e 20 7b 6d |.proc me|nuWin {m|
|00003550| 65 6e 75 20 6e 61 6d 65 | 7d 20 7b 0d 09 67 6c 6f |enu name|} {..glo|
|00003560| 62 61 6c 20 77 69 6e 4e | 61 6d 65 54 6f 4e 75 6d |bal winN|ameToNum|
|00003570| 0d 0d 09 73 65 74 20 6e | 6d 73 20 5b 61 72 72 61 |...set n|ms [arra|
|00003580| 79 20 6e 61 6d 65 73 20 | 77 69 6e 4e 61 6d 65 54 |y names |winNameT|
|00003590| 6f 4e 75 6d 5d 0d 0d 09 | 69 66 20 7b 5b 6c 73 65 |oNum]...|if {[lse|
|000035a0| 61 72 63 68 20 24 6e 6d | 73 20 22 2a 24 6e 61 6d |arch $nm|s "*$nam|
|000035b0| 65 22 5d 20 3c 20 30 7d | 20 7b 0d 09 09 24 6e 61 |e"] < 0}| {...$na|
|000035c0| 6d 65 0d 09 09 72 65 74 | 75 72 6e 0d 09 7d 0d 0d |me...ret|urn..}..|
|000035d0| 09 66 6f 72 65 61 63 68 | 20 6e 6d 20 24 6e 6d 73 |.foreach| nm $nms|
|000035e0| 20 7b 0d 09 09 69 66 20 | 7b 5b 73 74 72 69 6e 67 | {...if |{[string|
|000035f0| 20 6d 61 74 63 68 20 2a | 24 6e 61 6d 65 20 24 6e | match *|$name $n|
|00003600| 6d 5d 20 3d 3d 20 22 31 | 22 7d 20 20 7b 0d 09 09 |m] == "1|"} {...|
|00003610| 09 62 72 69 6e 67 54 6f | 46 72 6f 6e 74 20 24 6e |.bringTo|Front $n|
|00003620| 61 6d 65 0d 09 09 09 69 | 66 20 5b 69 63 6f 6e 20 |ame....i|f [icon |
|00003630| 2d 71 5d 20 7b 20 69 63 | 6f 6e 20 2d 66 20 24 6e |-q] { ic|on -f $n|
|00003640| 61 6d 65 20 2d 6f 20 7d | 0d 09 09 09 72 65 74 75 |ame -o }|....retu|
|00003650| 72 6e 0d 09 09 7d 0d 09 | 7d 0d 09 72 65 74 75 72 |rn...}..|}..retur|
|00003660| 6e 20 22 6e 6f 72 6d 61 | 6c 22 0d 7d 0d 0d 0d 23 |n "norma|l".}...#|
|00003670| 20 44 6f 20 6e 6f 74 20 | 6d 6f 76 65 20 27 64 69 | Do not |move 'di|
|00003680| 73 70 6c 61 79 4d 6f 64 | 65 27 20 63 61 6c 6c 73 |splayMod|e' calls|
|00003690| 21 0d 70 72 6f 63 20 63 | 68 61 6e 67 65 4d 6f 64 |!.proc c|hangeMod|
|000036a0| 65 20 7b 6e 65 77 4d 6f | 64 65 7d 20 7b 0d 09 67 |e {newMo|de} {..g|
|000036b0| 6c 6f 62 61 6c 20 6c 61 | 73 74 4d 6f 64 65 20 6d |lobal la|stMode m|
|000036c0| 6f 64 65 4d 65 6e 75 73 | 20 64 75 6d 6d 79 50 72 |odeMenus| dummyPr|
|000036d0| 6f 63 20 6d 6f 64 65 0d | 09 0d 09 73 65 74 20 6c |oc mode.|...set l|
|000036e0| 61 73 74 4d 6f 64 65 20 | 24 6d 6f 64 65 0d 09 73 |astMode |$mode..s|
|000036f0| 65 74 20 6d 6f 64 65 20 | 24 6e 65 77 4d 6f 64 65 |et mode |$newMode|
|00003700| 0d 09 69 66 20 7b 24 6c | 61 73 74 4d 6f 64 65 20 |..if {$l|astMode |
|00003710| 3d 3d 20 24 6d 6f 64 65 | 7d 20 7b 0d 09 09 63 61 |== $mode|} {...ca|
|00003720| 74 63 68 20 7b 64 69 73 | 70 6c 61 79 4d 6f 64 65 |tch {dis|playMode|
|00003730| 20 24 6e 65 77 4d 6f 64 | 65 7d 0d 09 09 72 65 74 | $newMod|e}...ret|
|00003740| 75 72 6e 0d 09 7d 0d 0d | 09 23 20 55 73 65 64 20 |urn..}..|.# Used |
|00003750| 74 6f 20 62 65 20 61 66 | 74 65 72 20 74 68 65 20 |to be af|ter the |
|00003760| 6d 6f 64 65 56 61 72 20 | 73 74 75 66 66 2e 20 57 |modeVar |stuff. W|
|00003770| 68 79 3f 0d 09 69 66 20 | 7b 5b 69 6e 66 6f 20 65 |hy?..if |{[info e|
|00003780| 78 69 73 74 73 20 64 75 | 6d 6d 79 50 72 6f 63 28 |xists du|mmyProc(|
|00003790| 24 6d 6f 64 65 29 5d 7d | 20 7b 20 24 64 75 6d 6d |$mode)]}| { $dumm|
|000037a0| 79 50 72 6f 63 28 24 6d | 6f 64 65 29 20 7d 0d 0d |yProc($m|ode) }..|
|000037b0| 09 67 6c 6f 62 61 6c 20 | 24 7b 6d 6f 64 65 7d 6d |.global |${mode}m|
|000037c0| 6f 64 65 56 61 72 73 0d | 09 69 66 20 7b 5b 69 6e |odeVars.|.if {[in|
|000037d0| 66 6f 20 65 78 69 73 74 | 73 20 24 7b 6d 6f 64 65 |fo exist|s ${mode|
|000037e0| 7d 6d 6f 64 65 56 61 72 | 73 5d 7d 20 7b 0d 09 09 |}modeVar|s]} {...|
|000037f0| 66 6f 72 65 61 63 68 20 | 76 20 5b 61 72 72 61 79 |foreach |v [array|
|00003800| 20 6e 61 6d 65 73 20 24 | 7b 6d 6f 64 65 7d 6d 6f | names $|{mode}mo|
|00003810| 64 65 56 61 72 73 5d 20 | 7b 0d 09 09 09 67 6c 6f |deVars] |{....glo|
|00003820| 62 61 6c 20 24 76 0d 09 | 09 09 73 65 74 20 24 76 |bal $v..|..set $v|
|00003830| 20 5b 73 65 74 20 24 7b | 6d 6f 64 65 7d 6d 6f 64 | [set ${|mode}mod|
|00003840| 65 56 61 72 73 28 24 76 | 29 5d 0d 09 09 7d 0d 09 |eVars($v|)]...}..|
|00003850| 7d 0d 0d 09 69 66 20 7b | 5b 69 6e 66 6f 20 65 78 |}...if {|[info ex|
|00003860| 69 73 74 73 20 6d 6f 64 | 65 4d 65 6e 75 73 28 24 |ists mod|eMenus($|
|00003870| 6c 61 73 74 4d 6f 64 65 | 29 5d 7d 20 7b 0d 09 09 |lastMode|)]} {...|
|00003880| 66 6f 72 65 61 63 68 20 | 6d 20 24 6d 6f 64 65 4d |foreach |m $modeM|
|00003890| 65 6e 75 73 28 24 6c 61 | 73 74 4d 6f 64 65 29 20 |enus($la|stMode) |
|000038a0| 7b 0d 09 09 09 67 6c 6f | 62 61 6c 20 24 6d 0d 09 |{....glo|bal $m..|
|000038b0| 09 09 63 61 74 63 68 20 | 7b 72 65 6d 6f 76 65 4d |..catch |{removeM|
|000038c0| 65 6e 75 20 5b 73 65 74 | 20 24 6d 5d 7d 0d 09 09 |enu [set| $m]}...|
|000038d0| 7d 0d 09 7d 0d 09 69 66 | 20 7b 5b 69 6e 66 6f 20 |}..}..if| {[info |
|000038e0| 65 78 69 73 74 73 20 6d | 6f 64 65 4d 65 6e 75 73 |exists m|odeMenus|
|000038f0| 28 24 6d 6f 64 65 29 5d | 7d 20 7b 0d 09 09 66 6f |($mode)]|} {...fo|
|00003900| 72 65 61 63 68 20 6d 20 | 24 6d 6f 64 65 4d 65 6e |reach m |$modeMen|
|00003910| 75 73 28 24 6d 6f 64 65 | 29 20 7b 0d 09 09 09 63 |us($mode|) {....c|
|00003920| 61 74 63 68 20 7b 24 6d | 7d 0d 09 09 09 67 6c 6f |atch {$m|}....glo|
|00003930| 62 61 6c 20 24 6d 0d 09 | 09 09 63 61 74 63 68 20 |bal $m..|..catch |
|00003940| 7b 69 6e 73 65 72 74 4d | 65 6e 75 20 5b 73 65 74 |{insertM|enu [set|
|00003950| 20 24 6d 5d 7d 0d 09 09 | 7d 0d 09 7d 0d 09 63 61 | $m]}...|}..}..ca|
|00003960| 74 63 68 20 7b 64 69 73 | 70 6c 61 79 4d 6f 64 65 |tch {dis|playMode|
|00003970| 20 24 6e 65 77 4d 6f 64 | 65 7d 0d 7d 0d 0d 0d 70 | $newMod|e}.}...p|
|00003980| 72 6f 63 20 73 65 74 4d | 6f 64 65 4d 65 6e 75 73 |roc setM|odeMenus|
|00003990| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 6d 6f | {} {..g|lobal mo|
|000039a0| 64 65 20 6d 6f 64 65 4d | 65 6e 75 73 20 61 6c 6c |de modeM|enus all|
|000039b0| 4d 6f 64 65 4d 65 6e 75 | 73 20 6d 6f 64 69 66 69 |ModeMenu|s modifi|
|000039c0| 65 64 4d 6f 64 65 4d 65 | 6e 75 73 0d 0d 09 73 65 |edModeMe|nus...se|
|000039d0| 74 20 6d 65 6e 75 73 20 | 5b 6c 69 73 74 70 69 63 |t menus |[listpic|
|000039e0| 6b 20 2d 70 20 22 50 69 | 63 6b 20 6d 65 6e 75 73 |k -p "Pi|ck menus|
|000039f0| 20 66 6f 72 20 6d 6f 64 | 65 20 27 24 6d 6f 64 65 | for mod|e '$mode|
|00003a00| 27 3a 22 20 2d 6c 20 2d | 4c 20 24 6d 6f 64 65 4d |':" -l -|L $modeM|
|00003a10| 65 6e 75 73 28 24 6d 6f | 64 65 29 20 5b 6c 73 6f |enus($mo|de) [lso|
|00003a20| 72 74 20 24 61 6c 6c 4d | 6f 64 65 4d 65 6e 75 73 |rt $allM|odeMenus|
|00003a30| 5d 5d 0d 09 73 65 74 20 | 6d 6f 64 65 4d 65 6e 75 |]]..set |modeMenu|
|00003a40| 73 28 24 6d 6f 64 65 29 | 20 24 6d 65 6e 75 73 0d |s($mode)| $menus.|
|00003a50| 0d 09 6c 61 70 70 65 6e | 64 20 6d 6f 64 69 66 69 |..lappen|d modifi|
|00003a60| 65 64 4d 6f 64 65 4d 65 | 6e 75 73 20 24 6d 6f 64 |edModeMe|nus $mod|
|00003a70| 65 0d 0d 09 66 6f 72 65 | 61 63 68 20 6d 20 24 61 |e...fore|ach m $a|
|00003a80| 6c 6c 4d 6f 64 65 4d 65 | 6e 75 73 20 7b 0d 09 09 |llModeMe|nus {...|
|00003a90| 67 6c 6f 62 61 6c 20 24 | 6d 0d 09 09 63 61 74 63 |global $|m...catc|
|00003aa0| 68 20 7b 72 65 6d 6f 76 | 65 4d 65 6e 75 20 5b 73 |h {remov|eMenu [s|
|00003ab0| 65 74 20 24 6d 5d 7d 0d | 09 7d 0d 09 66 6f 72 65 |et $m]}.|.}..fore|
|00003ac0| 61 63 68 20 6d 20 24 6d | 65 6e 75 73 20 7b 0d 09 |ach m $m|enus {..|
|00003ad0| 09 67 6c 6f 62 61 6c 20 | 24 6d 0d 09 09 63 61 74 |.global |$m...cat|
|00003ae0| 63 68 20 7b 24 6d 7d 0d | 09 09 63 61 74 63 68 20 |ch {$m}.|..catch |
|00003af0| 7b 69 6e 73 65 72 74 4d | 65 6e 75 20 5b 73 65 74 |{insertM|enu [set|
|00003b00| 20 24 6d 5d 7d 0d 09 7d | 0d 7d 0d 0d 0d 23 3d 3d | $m]}..}|.}...#==|
|00003b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 23 20 48 6f |========|===.# Ho|
|00003b60| 6f 6b 20 70 72 6f 63 73 | 20 72 65 63 6f 67 6e 69 |ok procs| recogni|
|00003b70| 7a 65 64 3a 20 22 6f 70 | 65 6e 48 6f 6f 6b 22 2c |zed: "op|enHook",|
|00003b80| 20 22 63 6c 6f 73 65 48 | 6f 6f 6b 22 2c 20 22 61 | "closeH|ook", "a|
|00003b90| 63 74 69 76 61 74 65 48 | 6f 6f 6b 22 2c 20 22 64 |ctivateH|ook", "d|
|00003ba0| 65 61 63 74 69 76 61 74 | 65 48 6f 6f 6b 22 2c 20 |eactivat|eHook", |
|00003bb0| 0d 23 09 09 09 09 20 09 | 09 20 22 73 75 73 70 65 |.#.... .|. "suspe|
|00003bc0| 6e 64 48 6f 6f 6b 22 2c | 20 22 73 61 76 65 61 73 |ndHook",| "saveas|
|00003bd0| 48 6f 6f 6b 22 2c 20 22 | 73 61 76 65 48 6f 6f 6b |Hook", "|saveHook|
|00003be0| 22 2c 20 61 6e 64 20 22 | 72 65 73 75 6d 65 48 6f |", and "|resumeHo|
|00003bf0| 6f 6b 22 2e 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ok"..#==|========|
|00003c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c40| 3d 3d 3d 0d 0d 69 66 20 | 7b 21 5b 69 6e 66 6f 20 |===..if |{![info |
|00003c50| 65 78 69 73 74 73 20 77 | 69 6e 41 63 74 69 76 65 |exists w|inActive|
|00003c60| 5d 7d 20 7b 73 65 74 20 | 77 69 6e 41 63 74 69 76 |]} {set |winActiv|
|00003c70| 65 20 22 22 7d 0d 0d 23 | 20 45 76 65 6e 74 20 68 |e ""}..#| Event h|
|00003c80| 6f 6f 6b 73 20 2d 20 73 | 65 74 20 73 70 65 63 69 |ooks - s|et speci|
|00003c90| 66 69 63 20 6d 6f 64 65 | 73 20 77 68 65 6e 20 66 |fic mode|s when f|
|00003ca0| 69 6c 65 73 20 6f 70 65 | 6e 65 64 2e 0d 0d 0d 70 |iles ope|ned....p|
|00003cb0| 72 6f 63 20 6f 70 65 6e | 48 6f 6f 6b 20 6e 61 6d |roc open|Hook nam|
|00003cc0| 65 20 7b 0d 09 67 6c 6f | 62 61 6c 20 77 69 6e 4d |e {..glo|bal winM|
|00003cd0| 6f 64 65 73 20 77 69 6e | 41 63 74 69 76 65 20 61 |odes win|Active a|
|00003ce0| 75 74 6f 4d 61 72 6b 20 | 6d 6f 64 65 20 73 63 72 |utoMark |mode scr|
|00003cf0| 65 65 6e 48 65 69 67 68 | 74 20 73 63 72 65 65 6e |eenHeigh|t screen|
|00003d00| 57 69 64 74 68 20 66 6f | 72 63 65 4d 61 69 6e 53 |Width fo|rceMainS|
|00003d10| 63 72 65 65 6e 20 72 65 | 63 65 6e 74 46 69 6c 65 |creen re|centFile|
|00003d20| 73 20 72 65 63 65 6e 74 | 46 69 6c 65 73 43 6f 75 |s recent|FilesCou|
|00003d30| 6e 74 0d 09 63 68 61 6e | 67 65 4d 6f 64 65 20 24 |nt..chan|geMode $|
|00003d40| 77 69 6e 4d 6f 64 65 73 | 28 24 6e 61 6d 65 29 0d |winModes|($name).|
|00003d50| 09 69 66 20 7b 24 6e 61 | 6d 65 20 3d 3d 20 7b 2a |.if {$na|me == {*|
|00003d60| 54 6f 6f 6c 73 65 72 76 | 65 72 20 73 68 65 6c 6c |Toolserv|er shell|
|00003d70| 2a 7d 7d 20 73 74 61 72 | 74 4d 50 57 0d 09 61 64 |*}} star|tMPW..ad|
|00003d80| 64 57 69 6e 4e 61 6d 65 | 20 24 6e 61 6d 65 0d 09 |dWinName| $name..|
|00003d90| 6d 65 73 73 61 67 65 20 | 22 22 0d 0d 09 69 66 20 |message |""...if |
|00003da0| 7b 21 5b 63 61 74 63 68 | 20 7b 67 65 74 46 69 6c |{![catch| {getFil|
|00003db0| 65 49 6e 66 6f 20 24 6e | 61 6d 65 20 69 6e 66 6f |eInfo $n|ame info|
|00003dc0| 7d 5d 7d 20 7b 0d 09 09 | 69 66 20 7b 24 69 6e 66 |}]} {...|if {$inf|
|00003dd0| 6f 28 63 72 65 61 74 6f | 72 29 20 3d 3d 20 7b 74 |o(creato|r) == {t|
|00003de0| 74 78 74 7d 7d 20 7b 0d | 09 09 09 73 65 74 57 69 |txt}} {.|...setWi|
|00003df0| 6e 49 6e 66 6f 20 64 69 | 72 74 79 20 30 0d 09 09 |nInfo di|rty 0...|
|00003e00| 7d 0d 09 09 69 66 20 7b | 24 69 6e 66 6f 28 74 79 |}...if {|$info(ty|
|00003e10| 70 65 29 20 3d 3d 20 7b | 74 74 72 6f 7d 7d 20 7b |pe) == {|ttro}} {|
|00003e20| 0d 09 09 09 63 61 74 63 | 68 20 7b 73 65 74 57 69 |....catc|h {setWi|
|00003e30| 6e 49 6e 66 6f 20 72 65 | 61 64 2d 6f 6e 6c 79 20 |nInfo re|ad-only |
|00003e40| 31 7d 0d 09 09 09 6d 65 | 73 73 61 67 65 20 22 52 |1}....me|ssage "R|
|00003e50| 65 61 64 2d 6f 6e 6c 79 | 21 22 0d 09 09 7d 0d 09 |ead-only|!"...}..|
|00003e60| 7d 0d 0d 09 67 6c 6f 62 | 61 6c 20 24 7b 6d 6f 64 |}...glob|al ${mod|
|00003e70| 65 7d 6d 6f 64 65 56 61 | 72 73 0d 09 0d 09 69 66 |e}modeVa|rs....if|
|00003e80| 20 7b 24 66 6f 72 63 65 | 4d 61 69 6e 53 63 72 65 | {$force|MainScre|
|00003e90| 65 6e 7d 20 7b 0d 09 09 | 73 65 74 20 67 65 6f 20 |en} {...|set geo |
|00003ea0| 5b 67 65 74 47 65 6f 6d | 65 74 72 79 5d 0d 09 09 |[getGeom|etry]...|
|00003eb0| 73 65 74 20 6c 20 5b 6c | 69 6e 64 65 78 20 24 67 |set l [l|index $g|
|00003ec0| 65 6f 20 30 5d 3b 20 73 | 65 74 20 74 20 5b 6c 69 |eo 0]; s|et t [li|
|00003ed0| 6e 64 65 78 20 24 67 65 | 6f 20 31 5d 3b 20 73 65 |ndex $ge|o 1]; se|
|00003ee0| 74 20 77 20 5b 6c 69 6e | 64 65 78 20 24 67 65 6f |t w [lin|dex $geo|
|00003ef0| 20 32 5d 3b 20 73 65 74 | 20 68 20 5b 6c 69 6e 64 | 2]; set| h [lind|
|00003f00| 65 78 20 24 67 65 6f 20 | 33 5d 3b 20 0d 09 09 69 |ex $geo |3]; ...i|
|00003f10| 66 20 7b 28 24 6c 20 3c | 20 30 29 20 7c 7c 20 28 |f {($l <| 0) || (|
|00003f20| 24 74 20 3c 20 33 35 29 | 20 7c 7c 20 28 5b 65 78 |$t < 35)| || ([ex|
|00003f30| 70 72 20 24 6c 20 2b 20 | 24 77 5d 20 3e 20 24 73 |pr $l + |$w] > $s|
|00003f40| 63 72 65 65 6e 57 69 64 | 74 68 29 20 7c 7c 20 28 |creenWid|th) || (|
|00003f50| 5b 65 78 70 72 20 24 74 | 20 2b 20 24 68 20 2b 20 |[expr $t| + $h + |
|00003f60| 31 38 5d 20 3e 20 24 73 | 63 72 65 65 6e 48 65 69 |18] > $s|creenHei|
|00003f70| 67 68 74 29 7d 20 7b 0d | 09 09 09 73 69 6e 67 6c |ght)} {.|...singl|
|00003f80| 65 50 61 67 65 0d 09 09 | 7d 0d 09 7d 0d 09 67 65 |ePage...|}..}..ge|
|00003f90| 74 57 69 6e 49 6e 66 6f | 20 61 72 72 0d 09 69 66 |tWinInfo| arr..if|
|00003fa0| 20 7b 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 24 | {[info |exists $|
|00003fb0| 7b 6d 6f 64 65 7d 6d 6f | 64 65 56 61 72 73 28 61 |{mode}mo|deVars(a|
|00003fc0| 75 74 6f 4d 61 72 6b 29 | 5d 20 26 26 20 5b 73 65 |utoMark)|] && [se|
|00003fd0| 74 20 24 7b 6d 6f 64 65 | 7d 6d 6f 64 65 56 61 72 |t ${mode|}modeVar|
|00003fe0| 73 28 61 75 74 6f 4d 61 | 72 6b 29 5d 20 26 26 20 |s(autoMa|rk)] && |
|00003ff0| 21 24 61 72 72 28 72 65 | 61 64 2d 6f 6e 6c 79 29 |!$arr(re|ad-only)|
|00004000| 20 26 26 20 21 5b 6c 6c | 65 6e 67 74 68 20 5b 67 | && ![ll|ength [g|
|00004010| 65 74 4e 61 6d 65 64 4d | 61 72 6b 73 20 2d 6e 5d |etNamedM|arks -n]|
|00004020| 5d 7d 20 7b 0d 09 09 6d | 61 72 6b 46 69 6c 65 0d |]} {...m|arkFile.|
|00004030| 09 7d 0d 09 0d 09 69 66 | 20 7b 5b 73 74 72 69 6e |.}....if| {[strin|
|00004040| 67 20 6d 61 74 63 68 20 | 22 2a 50 72 65 66 65 72 |g match |"*Prefer|
|00004050| 65 6e 63 65 73 2a 64 65 | 66 73 2e 74 63 6c 22 20 |ences*de|fs.tcl" |
|00004060| 24 6e 61 6d 65 5d 7d 20 | 7b 73 65 74 57 69 6e 49 |$name]} |{setWinI|
|00004070| 6e 66 6f 20 72 65 61 64 | 2d 6f 6e 6c 79 20 31 7d |nfo read|-only 1}|
|00004080| 0d 09 0d 09 70 75 73 68 | 52 65 63 65 6e 74 20 24 |....push|Recent $|
|00004090| 6e 61 6d 65 20 0d 7d 0d | 0d 0d 23 20 66 75 6c 6c |name .}.|..# full|
|000040a0| 20 70 61 74 68 6e 61 6d | 65 0d 70 72 6f 63 20 73 | pathnam|e.proc s|
|000040b0| 61 76 65 48 6f 6f 6b 20 | 6e 61 6d 65 20 7b 0d 09 |aveHook |name {..|
|000040c0| 67 6c 6f 62 61 6c 20 62 | 61 63 6b 75 70 20 62 61 |global b|ackup ba|
|000040d0| 63 6b 45 78 74 65 6e 73 | 69 6f 6e 20 62 61 63 6b |ckExtens|ion back|
|000040e0| 44 69 72 20 6d 6f 64 65 | 0d 09 0d 09 69 66 20 7b |Dir mode|....if {|
|000040f0| 28 24 6d 6f 64 65 20 3d | 3d 20 22 43 22 29 20 7c |($mode =|= "C") ||
|00004100| 7c 20 28 24 6d 6f 64 65 | 20 3d 3d 20 22 43 2b 2b || ($mode| == "C++|
|00004110| 22 29 7d 20 7b 63 61 74 | 63 68 20 7b 6d 6f 64 69 |")} {cat|ch {modi|
|00004120| 66 69 65 64 7d 7d 0d 0d | 09 69 66 20 28 24 62 61 |fied}}..|.if ($ba|
|00004130| 63 6b 75 70 29 20 7b 0d | 09 09 69 66 20 7b 21 5b |ckup) {.|..if {![|
|00004140| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 5b 73 |string l|ength [s|
|00004150| 65 74 20 64 69 72 20 24 | 62 61 63 6b 44 69 72 5d |et dir $|backDir]|
|00004160| 5d 7d 20 7b 0d 09 09 09 | 73 65 74 20 64 69 72 20 |]} {....|set dir |
|00004170| 5b 66 69 6c 65 20 64 69 | 72 6e 61 6d 65 20 24 6e |[file di|rname $n|
|00004180| 61 6d 65 5d 0d 09 09 7d | 0d 09 09 69 66 20 7b 21 |ame]...}|...if {!|
|00004190| 5b 66 69 6c 65 20 65 78 | 69 73 74 73 20 24 64 69 |[file ex|ists $di|
|000041a0| 72 5d 7d 20 7b 0d 09 09 | 09 69 66 20 7b 5b 61 73 |r]} {...|.if {[as|
|000041b0| 6b 79 65 73 6e 6f 20 22 | 43 72 65 61 74 65 20 62 |kyesno "|Create b|
|000041c0| 61 63 6b 75 70 20 64 69 | 72 20 27 24 64 69 72 27 |ackup di|r '$dir'|
|000041d0| 3f 22 5d 20 3d 3d 20 22 | 79 65 73 22 7d 20 7b 0d |?"] == "|yes"} {.|
|000041e0| 09 09 09 09 6d 6b 64 69 | 72 20 24 64 69 72 0d 09 |....mkdi|r $dir..|
|000041f0| 09 09 7d 0d 09 09 7d 0d | 09 09 63 61 74 63 68 20 |..}...}.|..catch |
|00004200| 7b 72 6d 20 24 64 69 72 | 3a 5b 66 69 6c 65 20 74 |{rm $dir|:[file t|
|00004210| 61 69 6c 20 24 6e 61 6d | 65 5d 24 62 61 63 6b 45 |ail $nam|e]$backE|
|00004220| 78 74 65 6e 73 69 6f 6e | 7d 0d 09 09 63 61 74 63 |xtension|}...catc|
|00004230| 68 20 7b 63 70 20 24 6e | 61 6d 65 20 24 64 69 72 |h {cp $n|ame $dir|
|00004240| 3a 5b 66 69 6c 65 20 74 | 61 69 6c 20 24 6e 61 6d |:[file t|ail $nam|
|00004250| 65 5d 24 62 61 63 6b 45 | 78 74 65 6e 73 69 6f 6e |e]$backE|xtension|
|00004260| 7d 0d 09 7d 0d 7d 0d 0d | 23 20 43 6c 65 61 6e 20 |}..}.}..|# Clean |
|00004270| 75 70 20 74 68 65 20 6d | 61 72 6b 20 73 74 61 63 |up the m|ark stac|
|00004280| 6b 2e 0d 70 72 6f 63 20 | 63 6c 6f 73 65 48 6f 6f |k..proc |closeHoo|
|00004290| 6b 20 6e 61 6d 65 20 7b | 0d 09 67 6c 6f 62 61 6c |k name {|..global|
|000042a0| 20 6d 61 72 6b 53 74 61 | 63 6b 20 77 69 6e 4d 6f | markSta|ck winMo|
|000042b0| 64 65 73 20 77 69 6e 41 | 63 74 69 76 65 0d 0d 09 |des winA|ctive...|
|000042c0| 75 6e 73 65 74 20 77 69 | 6e 4d 6f 64 65 73 28 24 |unset wi|nModes($|
|000042d0| 6e 61 6d 65 29 0d 09 69 | 66 20 5b 6c 6c 65 6e 67 |name)..i|f [lleng|
|000042e0| 74 68 20 24 6d 61 72 6b | 53 74 61 63 6b 5d 20 7b |th $mark|Stack] {|
|000042f0| 0d 09 09 73 65 74 20 6d | 61 72 6b 53 74 61 63 6b |...set m|arkStack|
|00004300| 20 5b 72 65 6d 6f 76 65 | 50 61 74 20 24 6d 61 72 | [remove|Pat $mar|
|00004310| 6b 53 74 61 63 6b 20 24 | 6e 61 6d 65 2a 5d 0d 09 |kStack $|name*]..|
|00004320| 7d 0d 09 72 65 6d 6f 76 | 65 57 69 6e 4e 61 6d 65 |}..remov|eWinName|
|00004330| 20 24 6e 61 6d 65 0d 0d | 09 69 66 20 7b 5b 73 65 | $name..|.if {[se|
|00004340| 74 20 69 6e 64 20 5b 6c | 73 65 61 72 63 68 20 24 |t ind [l|search $|
|00004350| 77 69 6e 41 63 74 69 76 | 65 20 24 6e 61 6d 65 5d |winActiv|e $name]|
|00004360| 5d 20 3e 3d 20 30 7d 20 | 7b 0d 09 09 73 65 74 20 |] >= 0} |{...set |
|00004370| 77 69 6e 41 63 74 69 76 | 65 20 5b 6c 72 65 70 6c |winActiv|e [lrepl|
|00004380| 61 63 65 20 24 77 69 6e | 41 63 74 69 76 65 20 24 |ace $win|Active $|
|00004390| 69 6e 64 20 24 69 6e 64 | 5d 0d 09 7d 0d 0d 09 63 |ind $ind|]..}...c|
|000043a0| 61 74 63 68 20 7b 75 6e | 73 65 74 20 77 69 6e 4d |atch {un|set winM|
|000043b0| 6f 64 65 73 28 24 6e 61 | 6d 65 29 7d 0d 7d 0d 0d |odes($na|me)}.}..|
|000043c0| 0d 70 72 6f 63 20 73 61 | 76 65 61 73 48 6f 6f 6b |.proc sa|veasHook|
|000043d0| 20 7b 6f 6c 64 4e 61 6d | 65 20 6e 65 77 4e 61 6d | {oldNam|e newNam|
|000043e0| 65 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 77 69 6e |e} {..gl|obal win|
|000043f0| 4d 6f 64 65 73 20 77 69 | 6e 41 63 74 69 76 65 0d |Modes wi|nActive.|
|00004400| 09 72 65 6d 6f 76 65 57 | 69 6e 4e 61 6d 65 20 24 |.removeW|inName $|
|00004410| 6f 6c 64 4e 61 6d 65 0d | 09 61 64 64 57 69 6e 4e |oldName.|.addWinN|
|00004420| 61 6d 65 20 24 6e 65 77 | 4e 61 6d 65 0d 09 73 65 |ame $new|Name..se|
|00004430| 74 57 69 6e 4d 6f 64 65 | 20 24 6e 65 77 4e 61 6d |tWinMode| $newNam|
|00004440| 65 0d 09 63 68 61 6e 67 | 65 4d 6f 64 65 20 24 77 |e..chang|eMode $w|
|00004450| 69 6e 4d 6f 64 65 73 28 | 24 6e 65 77 4e 61 6d 65 |inModes(|$newName|
|00004460| 29 0d 09 0d 09 70 75 73 | 68 52 65 63 65 6e 74 20 |)....pus|hRecent |
|00004470| 24 6e 65 77 4e 61 6d 65 | 0d 09 0d 09 69 66 20 7b |$newName|....if {|
|00004480| 5b 73 65 74 20 69 6e 64 | 20 5b 6c 73 65 61 72 63 |[set ind| [lsearc|
|00004490| 68 20 24 77 69 6e 41 63 | 74 69 76 65 20 24 6f 6c |h $winAc|tive $ol|
|000044a0| 64 4e 61 6d 65 5d 5d 20 | 3e 3d 20 30 7d 20 7b 0d |dName]] |>= 0} {.|
|000044b0| 09 09 73 65 74 20 77 69 | 6e 41 63 74 69 76 65 20 |..set wi|nActive |
|000044c0| 5b 6c 72 65 70 6c 61 63 | 65 20 24 77 69 6e 41 63 |[lreplac|e $winAc|
|000044d0| 74 69 76 65 20 24 69 6e | 64 20 24 69 6e 64 5d 0d |tive $in|d $ind].|
|000044e0| 09 7d 0d 09 73 65 74 20 | 77 69 6e 41 63 74 69 76 |.}..set |winActiv|
|000044f0| 65 20 5b 6c 69 6e 73 65 | 72 74 20 24 77 69 6e 41 |e [linse|rt $winA|
|00004500| 63 74 69 76 65 20 30 20 | 24 6e 65 77 4e 61 6d 65 |ctive 0 |$newName|
|00004510| 5d 0d 09 63 61 74 63 68 | 20 7b 75 6e 73 65 74 20 |]..catch| {unset |
|00004520| 77 69 6e 4d 6f 64 65 73 | 28 24 6f 6c 64 4e 61 6d |winModes|($oldNam|
|00004530| 65 29 7d 0d 7d 0d 0d 69 | 66 20 7b 21 5b 69 6e 66 |e)}.}..i|f {![inf|
|00004540| 6f 20 65 78 69 73 74 73 | 20 61 63 74 69 76 65 73 |o exists| actives|
|00004550| 5d 7d 20 7b 73 65 74 20 | 61 63 74 69 76 65 73 20 |]} {set |actives |
|00004560| 30 7d 0d 0d 23 20 61 6e | 64 2c 20 69 6e 73 74 61 |0}..# an|d, insta|
|00004570| 6c 6c 20 61 20 6e 65 77 | 20 27 77 69 6e 41 63 74 |ll a new| 'winAct|
|00004580| 69 76 65 27 20 70 61 74 | 63 68 20 2c 20 74 6f 20 |ive' pat|ch , to |
|00004590| 27 61 63 74 69 76 61 74 | 65 48 6f 6f 6b 27 3a 0d |'activat|eHook':.|
|000045a0| 0d 70 72 6f 63 20 61 63 | 74 69 76 61 74 65 48 6f |.proc ac|tivateHo|
|000045b0| 6f 6b 20 6e 61 6d 65 20 | 7b 0d 09 67 6c 6f 62 61 |ok name |{..globa|
|000045c0| 6c 20 77 69 6e 4d 6f 64 | 65 73 20 77 69 6e 41 63 |l winMod|es winAc|
|000045d0| 74 69 76 65 0d 09 69 66 | 20 7b 21 5b 69 6e 66 6f |tive..if| {![info|
|000045e0| 20 65 78 69 73 74 73 20 | 77 69 6e 4d 6f 64 65 73 | exists |winModes|
|000045f0| 28 24 6e 61 6d 65 29 5d | 7d 20 7b 0d 09 09 73 65 |($name)]|} {...se|
|00004600| 74 57 69 6e 4d 6f 64 65 | 20 24 6e 61 6d 65 0d 09 |tWinMode| $name..|
|00004610| 7d 0d 09 63 68 61 6e 67 | 65 4d 6f 64 65 20 24 77 |}..chang|eMode $w|
|00004620| 69 6e 4d 6f 64 65 73 28 | 24 6e 61 6d 65 29 0d 0d |inModes(|$name)..|
|00004630| 09 69 66 20 7b 5b 73 65 | 74 20 69 6e 64 20 5b 6c |.if {[se|t ind [l|
|00004640| 73 65 61 72 63 68 20 24 | 77 69 6e 41 63 74 69 76 |search $|winActiv|
|00004650| 65 20 24 6e 61 6d 65 5d | 5d 20 3d 3d 20 2d 31 7d |e $name]|] == -1}|
|00004660| 20 7b 0d 09 09 73 65 74 | 20 77 69 6e 41 63 74 69 | {...set| winActi|
|00004670| 76 65 20 5b 6c 69 6e 73 | 65 72 74 20 24 77 69 6e |ve [lins|ert $win|
|00004680| 41 63 74 69 76 65 20 30 | 20 24 6e 61 6d 65 5d 0d |Active 0| $name].|
|00004690| 09 09 72 65 74 75 72 6e | 0d 09 7d 0d 09 69 66 20 |..return|..}..if |
|000046a0| 7b 24 69 6e 64 20 3e 3d | 20 31 7d 20 7b 0d 09 09 |{$ind >=| 1} {...|
|000046b0| 73 65 74 20 77 69 6e 41 | 63 74 69 76 65 20 5b 6c |set winA|ctive [l|
|000046c0| 72 65 70 6c 61 63 65 20 | 24 77 69 6e 41 63 74 69 |replace |$winActi|
|000046d0| 76 65 20 24 69 6e 64 20 | 24 69 6e 64 5d 0d 09 09 |ve $ind |$ind]...|
|000046e0| 73 65 74 20 77 69 6e 41 | 63 74 69 76 65 20 5b 6c |set winA|ctive [l|
|000046f0| 69 6e 73 65 72 74 20 24 | 77 69 6e 41 63 74 69 76 |insert $|winActiv|
|00004700| 65 20 30 20 24 6e 61 6d | 65 5d 0d 09 7d 0d 0d 7d |e 0 $nam|e]..}..}|
|00004710| 0d 0d 0d 70 72 6f 63 20 | 64 69 72 74 79 48 6f 6f |...proc |dirtyHoo|
|00004720| 6b 20 7b 6e 61 6d 65 20 | 64 69 72 74 79 7d 20 7b |k {name |dirty} {|
|00004730| 0d 09 67 6c 6f 62 61 6c | 20 77 69 6e 4d 65 6e 75 |..global| winMenu|
|00004740| 0d 09 6d 61 72 6b 4d 65 | 6e 75 49 74 65 6d 20 24 |..markMe|nuItem $|
|00004750| 77 69 6e 4d 65 6e 75 20 | 5b 66 69 6c 65 20 74 61 |winMenu |[file ta|
|00004760| 69 6c 20 24 6e 61 6d 65 | 5d 20 24 64 69 72 74 79 |il $name|] $dirty|
|00004770| 20 22 d7 22 0d 7d 0d 0d | 0d 73 65 74 20 6d 6f 64 | ".".}..|.set mod|
|00004780| 69 66 69 65 64 56 61 72 | 73 09 09 7b 7d 0d 73 65 |ifiedVar|s..{}.se|
|00004790| 74 20 6d 6f 64 69 66 69 | 65 64 4d 6f 64 65 56 61 |t modifi|edModeVa|
|000047a0| 72 73 09 7b 7d 0d 73 65 | 74 20 6d 6f 64 69 66 69 |rs.{}.se|t modifi|
|000047b0| 65 64 4d 6f 64 65 4d 65 | 6e 75 73 09 7b 7d 0d 0d |edModeMe|nus.{}..|
|000047c0| 0d 70 72 6f 63 20 71 75 | 69 74 48 6f 6f 6b 20 7b |.proc qu|itHook {|
|000047d0| 7d 20 7b 0d 09 73 61 76 | 65 4d 6f 64 69 66 69 65 |} {..sav|eModifie|
|000047e0| 64 56 61 72 73 0d 7d 0d | 0d 0d 70 72 6f 63 20 73 |dVars.}.|..proc s|
|000047f0| 61 76 65 4d 6f 64 69 66 | 69 65 64 56 61 72 73 20 |aveModif|iedVars |
|00004800| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 6d 6f 64 |{} {..gl|obal mod|
|00004810| 69 66 69 65 64 56 61 72 | 73 20 6d 6f 64 69 66 69 |ifiedVar|s modifi|
|00004820| 65 64 4d 6f 64 65 56 61 | 72 73 20 6d 6f 64 69 66 |edModeVa|rs modif|
|00004830| 69 65 64 4d 6f 64 65 4d | 65 6e 75 73 20 6d 6f 64 |iedModeM|enus mod|
|00004840| 65 4d 65 6e 75 73 20 70 | 72 65 66 44 65 66 73 20 |eMenus p|refDefs |
|00004850| 72 65 63 65 6e 74 46 69 | 6c 65 73 53 61 76 65 20 |recentFi|lesSave |
|00004860| 72 65 63 65 6e 74 46 69 | 6c 65 73 0d 0d 09 69 66 |recentFi|les...if|
|00004870| 20 7b 5b 6c 6c 65 6e 67 | 74 68 20 24 6d 6f 64 69 | {[lleng|th $modi|
|00004880| 66 69 65 64 56 61 72 73 | 5d 20 7c 7c 20 5b 6c 6c |fiedVars|] || [ll|
|00004890| 65 6e 67 74 68 20 24 6d | 6f 64 69 66 69 65 64 4d |ength $m|odifiedM|
|000048a0| 6f 64 65 56 61 72 73 5d | 20 7c 7c 20 5b 6c 6c 65 |odeVars]| || [lle|
|000048b0| 6e 67 74 68 20 24 6d 6f | 64 69 66 69 65 64 4d 6f |ngth $mo|difiedMo|
|000048c0| 64 65 4d 65 6e 75 73 5d | 7d 20 7b 0d 09 09 66 6f |deMenus]|} {...fo|
|000048d0| 72 65 61 63 68 20 66 20 | 5b 72 65 6d 6f 76 65 44 |reach f |[removeD|
|000048e0| 75 70 73 20 24 6d 6f 64 | 69 66 69 65 64 4d 6f 64 |ups $mod|ifiedMod|
|000048f0| 65 4d 65 6e 75 73 5d 20 | 7b 0d 09 09 09 61 64 64 |eMenus] |{....add|
|00004900| 41 72 72 44 65 66 20 6d | 6f 64 65 4d 65 6e 75 73 |ArrDef m|odeMenus|
|00004910| 20 24 66 20 24 6d 6f 64 | 65 4d 65 6e 75 73 28 24 | $f $mod|eMenus($|
|00004920| 66 29 0d 09 09 7d 0d 09 | 09 66 6f 72 65 61 63 68 |f)...}..|.foreach|
|00004930| 20 66 20 5b 72 65 6d 6f | 76 65 44 75 70 73 20 24 | f [remo|veDups $|
|00004940| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 5d 20 7b 0d |modified|Vars] {.|
|00004950| 09 09 09 67 6c 6f 62 61 | 6c 20 24 66 0d 09 09 09 |...globa|l $f....|
|00004960| 61 64 64 44 65 66 20 24 | 66 20 5b 73 65 74 20 24 |addDef $|f [set $|
|00004970| 66 5d 0d 09 09 7d 0d 09 | 09 66 6f 72 65 61 63 68 |f]...}..|.foreach|
|00004980| 20 66 20 5b 72 65 6d 6f | 76 65 44 75 70 73 20 24 | f [remo|veDups $|
|00004990| 6d 6f 64 69 66 69 65 64 | 4d 6f 64 65 56 61 72 73 |modified|ModeVars|
|000049a0| 5d 20 7b 0d 09 09 09 73 | 65 74 20 6e 6d 20 5b 6c |] {....s|et nm [l|
|000049b0| 69 6e 64 65 78 20 24 66 | 20 30 5d 0d 09 09 09 73 |index $f| 0]....s|
|000049c0| 65 74 20 6d 6f 64 65 20 | 5b 6c 69 6e 64 65 78 20 |et mode |[lindex |
|000049d0| 24 66 20 31 5d 0d 09 09 | 09 67 6c 6f 62 61 6c 20 |$f 1]...|.global |
|000049e0| 24 6d 6f 64 65 0d 09 09 | 09 61 64 64 41 72 72 44 |$mode...|.addArrD|
|000049f0| 65 66 20 5b 73 65 74 20 | 6d 6f 64 65 5d 20 24 6e |ef [set |mode] $n|
|00004a00| 6d 20 5b 73 65 74 20 5b | 73 65 74 20 6d 6f 64 65 |m [set [|set mode|
|00004a10| 5d 28 24 6e 6d 29 5d 0d | 09 09 7d 0d 09 7d 0d 09 |]($nm)].|..}..}..|
|00004a20| 0d 09 69 66 20 7b 5b 69 | 6e 66 6f 20 65 78 69 73 |..if {[i|nfo exis|
|00004a30| 74 73 20 72 65 63 65 6e | 74 46 69 6c 65 73 5d 7d |ts recen|tFiles]}|
|00004a40| 20 7b 0d 09 09 61 64 64 | 44 65 66 20 72 65 63 65 | {...add|Def rece|
|00004a50| 6e 74 46 69 6c 65 73 53 | 61 76 65 20 24 72 65 63 |ntFilesS|ave $rec|
|00004a60| 65 6e 74 46 69 6c 65 73 | 0d 09 7d 0d 7d 0d 0d 23 |entFiles|..}.}..#|
|00004a70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ac0| 0d 0d 70 72 6f 63 20 64 | 65 73 63 72 69 62 65 4d |..proc d|escribeM|
|00004ad0| 6f 64 65 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |ode {} {|..global|
|00004ae0| 20 6d 6f 64 65 20 6d 6f | 64 65 53 75 66 66 69 78 | mode mo|deSuffix|
|00004af0| 65 73 20 6d 6f 64 65 4d | 65 6e 75 73 20 6d 6f 64 |es modeM|enus mod|
|00004b00| 65 73 0d 09 67 6c 6f 62 | 61 6c 20 24 7b 6d 6f 64 |es..glob|al ${mod|
|00004b10| 65 7d 6d 6f 64 65 56 61 | 72 73 0d 09 0d 09 73 65 |e}modeVa|rs....se|
|00004b20| 74 20 74 65 78 74 20 22 | 5c 72 5c 74 4d 4f 44 45 |t text "|\r\tMODE|
|00004b30| 20 24 6d 6f 64 65 5c 72 | 5c 72 22 0d 09 73 65 74 | $mode\r|\r"..set|
|00004b40| 20 73 75 66 66 73 20 22 | 22 0d 09 73 65 74 20 66 | suffs "|"..set f|
|00004b50| 69 72 73 74 20 31 0d 09 | 66 6f 72 65 61 63 68 20 |irst 1..|foreach |
|00004b60| 73 75 66 20 24 6d 6f 64 | 65 53 75 66 66 69 78 65 |suf $mod|eSuffixe|
|00004b70| 73 20 7b 0d 09 09 69 66 | 20 7b 28 5b 6c 6c 65 6e |s {...if| {([llen|
|00004b80| 67 74 68 20 24 73 75 66 | 5d 20 3d 3d 20 33 29 20 |gth $suf|] == 3) |
|00004b90| 26 26 20 28 5b 6c 69 6e | 64 65 78 20 24 73 75 66 |&& ([lin|dex $suf|
|00004ba0| 20 31 5d 20 3d 3d 20 22 | 77 69 6e 4d 6f 64 65 22 | 1] == "|winMode"|
|00004bb0| 29 20 26 26 20 28 5b 6c | 69 6e 64 65 78 20 24 73 |) && ([l|index $s|
|00004bc0| 75 66 20 32 5d 20 3d 3d | 20 24 6d 6f 64 65 29 7d |uf 2] ==| $mode)}|
|00004bd0| 20 7b 0d 09 09 09 69 66 | 20 7b 24 66 69 72 73 74 | {....if| {$first|
|00004be0| 7d 20 7b 0d 09 09 09 09 | 6c 61 70 70 65 6e 64 20 |} {.....|lappend |
|00004bf0| 73 75 66 66 73 20 24 6c | 61 73 74 0d 09 09 09 09 |suffs $l|ast.....|
|00004c00| 73 65 74 20 66 69 72 73 | 74 20 30 0d 09 09 09 7d |set firs|t 0....}|
|00004c10| 20 65 6c 73 65 20 7b 0d | 09 09 09 09 61 70 70 65 | else {.|....appe|
|00004c20| 6e 64 20 73 75 66 66 73 | 20 22 2c 20 24 6c 61 73 |nd suffs| ", $las|
|00004c30| 74 22 0d 09 09 09 7d 0d | 09 09 7d 0d 09 09 73 65 |t"....}.|..}...se|
|00004c40| 74 20 6c 61 73 74 20 24 | 73 75 66 0d 09 7d 0d 09 |t last $|suf..}..|
|00004c50| 61 70 70 65 6e 64 20 74 | 65 78 74 20 22 4d 6f 64 |append t|ext "Mod|
|00004c60| 65 20 73 75 66 66 69 78 | 65 73 3a 20 24 73 75 66 |e suffix|es: $suf|
|00004c70| 66 73 5c 72 5c 72 22 0d | 09 0d 09 73 65 74 20 66 |fs\r\r".|...set f|
|00004c80| 69 72 73 74 20 31 0d 09 | 61 70 70 65 6e 64 20 74 |irst 1..|append t|
|00004c90| 65 78 74 20 22 4d 6f 64 | 65 20 6d 65 6e 75 73 3a |ext "Mod|e menus:|
|00004ca0| 20 22 0d 09 69 66 20 7b | 5b 69 6e 66 6f 20 65 78 | "..if {|[info ex|
|00004cb0| 69 73 74 73 20 6d 6f 64 | 65 4d 65 6e 75 73 28 24 |ists mod|eMenus($|
|00004cc0| 6d 6f 64 65 29 5d 7d 20 | 7b 0d 09 09 66 6f 72 65 |mode)]} |{...fore|
|00004cd0| 61 63 68 20 6d 20 24 6d | 6f 64 65 4d 65 6e 75 73 |ach m $m|odeMenus|
|00004ce0| 28 24 6d 6f 64 65 29 20 | 7b 0d 09 09 09 69 66 20 |($mode) |{....if |
|00004cf0| 24 66 69 72 73 74 20 7b | 0d 09 09 09 09 73 65 74 |$first {|.....set|
|00004d00| 20 66 69 72 73 74 20 30 | 0d 09 09 09 09 6c 61 70 | first 0|.....lap|
|00004d10| 70 65 6e 64 20 74 65 78 | 74 20 24 6d 0d 09 09 09 |pend tex|t $m....|
|00004d20| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 09 61 70 70 |} else {|.....app|
|00004d30| 65 6e 64 20 74 65 78 74 | 20 22 2c 20 24 6d 22 0d |end text| ", $m".|
|00004d40| 09 09 09 7d 0d 09 09 7d | 0d 09 7d 0d 09 61 70 70 |...}...}|..}..app|
|00004d50| 65 6e 64 20 74 65 78 74 | 20 22 5c 72 5c 72 22 0d |end text| "\r\r".|
|00004d60| 0d 09 61 70 70 65 6e 64 | 20 74 65 78 74 20 22 4d |..append| text "M|
|00004d70| 6f 64 65 2d 73 70 65 63 | 69 66 69 63 20 76 61 72 |ode-spec|ific var|
|00004d80| 69 61 62 6c 65 73 3a 5c | 72 22 0d 09 69 66 20 7b |iables:\|r"..if {|
|00004d90| 5b 69 6e 66 6f 20 65 78 | 69 73 74 73 20 24 7b 6d |[info ex|ists ${m|
|00004da0| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 5d 7d 20 7b |ode}mode|Vars]} {|
|00004db0| 0d 09 09 66 6f 72 65 61 | 63 68 20 76 20 5b 6c 73 |...forea|ch v [ls|
|00004dc0| 6f 72 74 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |ort [arr|ay names|
|00004dd0| 20 24 7b 6d 6f 64 65 7d | 6d 6f 64 65 56 61 72 73 | ${mode}|modeVars|
|00004de0| 5d 5d 20 7b 0d 09 09 09 | 61 70 70 65 6e 64 20 74 |]] {....|append t|
|00004df0| 65 78 74 20 5b 66 6f 72 | 6d 61 74 20 22 5c 74 25 |ext [for|mat "\t%|
|00004e00| 2d 32 30 73 3a 20 5c 22 | 25 73 5c 22 5c 72 22 20 |-20s: \"|%s\"\r" |
|00004e10| 24 76 20 5b 73 65 74 20 | 24 7b 6d 6f 64 65 7d 6d |$v [set |${mode}m|
|00004e20| 6f 64 65 56 61 72 73 28 | 24 76 29 5d 5d 0d 09 09 |odeVars(|$v)]]...|
|00004e30| 7d 0d 09 7d 0d 0d 0d 09 | 73 65 74 20 65 74 65 78 |}..}....|set etex|
|00004e40| 74 20 22 5c 72 4d 6f 64 | 65 2d 69 6e 64 65 70 65 |t "\rMod|e-indepe|
|00004e50| 6e 64 65 6e 74 20 62 69 | 6e 64 69 6e 67 73 3a 5c |ndent bi|ndings:\|
|00004e60| 72 22 0d 09 61 70 70 65 | 6e 64 20 74 65 78 74 20 |r"..appe|nd text |
|00004e70| 22 5c 72 4d 6f 64 65 2d | 73 70 65 63 69 66 69 63 |"\rMode-|specific|
|00004e80| 20 62 69 6e 64 69 6e 67 | 73 3a 5c 72 22 0d 09 66 | binding|s:\r"..f|
|00004e90| 6f 72 65 61 63 68 20 62 | 20 5b 73 70 6c 69 74 20 |oreach b| [split |
|00004ea0| 5b 62 69 6e 64 69 6e 67 | 4c 69 73 74 5d 20 22 5c |[binding|List] "\|
|00004eb0| 72 22 5d 20 7b 0d 09 09 | 73 65 74 20 6c 73 74 20 |r"] {...|set lst |
|00004ec0| 5b 6c 69 6e 64 65 78 20 | 24 62 20 65 6e 64 5d 0d |[lindex |$b end].|
|00004ed0| 09 09 69 66 20 7b 24 6c | 73 74 20 3d 3d 20 24 6d |..if {$l|st == $m|
|00004ee0| 6f 64 65 7d 20 7b 0d 09 | 09 09 61 70 70 65 6e 64 |ode} {..|..append|
|00004ef0| 20 74 65 78 74 20 22 5c | 74 24 62 5c 72 22 0d 09 | text "\|t$b\r"..|
|00004f00| 09 7d 20 65 6c 73 65 69 | 66 20 7b 5b 6c 73 65 61 |.} elsei|f {[lsea|
|00004f10| 72 63 68 20 24 6d 6f 64 | 65 73 20 24 6c 73 74 5d |rch $mod|es $lst]|
|00004f20| 20 3c 20 30 7d 20 7b 0d | 09 09 09 61 70 70 65 6e | < 0} {.|...appen|
|00004f30| 64 20 65 74 65 78 74 20 | 22 5c 74 24 62 5c 72 22 |d etext |"\t$b\r"|
|00004f40| 0d 09 09 7d 0d 09 7d 0d | 09 6e 65 77 20 2d 6e 20 |...}..}.|.new -n |
|00004f50| 22 2a 20 3c 24 6d 6f 64 | 65 3e 20 4d 4f 44 45 20 |"* <$mod|e> MODE |
|00004f60| 2a 22 0d 09 69 6e 73 65 | 72 74 54 65 78 74 20 24 |*"..inse|rtText $|
|00004f70| 74 65 78 74 24 65 74 65 | 78 74 0d 09 67 6f 74 6f |text$ete|xt..goto|
|00004f80| 20 30 0d 09 0d 09 73 65 | 74 57 69 6e 49 6e 66 6f | 0....se|tWinInfo|
|00004f90| 20 64 69 72 74 79 20 30 | 0d 7d 0d 0d 0d 00 00 00 | dirty 0|.}......|
|00004fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005000| 00 00 01 00 00 00 03 2a | 00 00 02 2a 00 00 00 42 |.......*|...*...B|
|00005010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005030| 09 6d 6f 64 65 73 2e 74 | 63 6c 02 00 02 00 54 45 |.modes.t|cl....TE|
|00005040| 58 54 41 4c 46 41 01 00 | ff ff ff ff 00 00 00 01 |XTALFA..|........|
|00005050| 02 00 54 45 58 54 41 4c | 46 41 01 00 ff ff ff ff |..TEXTAL|FA......|
|00005060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005070| 00 00 a9 54 fd 9a 00 00 | 4f 1d 00 00 03 6c 20 24 |...T....|O....l $|
|00005080| 74 68 69 6e 6b 4d 65 6e | 75 0d 73 6f 75 72 63 65 |thinkMen|u.source|
|00005090| 20 24 48 4f 4d 45 3a 74 | 63 6c 3a 53 79 73 74 65 | $HOME:t|cl:Syste|
|000050a0| 6d 43 6f 64 65 3a 74 68 | 69 6e 6b 2e 74 63 6c 0d |mCode:th|ink.tcl.|
|000050b0| 69 6e 73 65 72 74 4d 65 | 6e 75 20 24 74 68 69 6e |insertMe|nu $thin|
|000050c0| 6b 4d 65 6e 75 0d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |kMenu...|#=======|
|000050d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005100| 00 00 01 da 00 17 00 00 | 45 1b 00 00 45 1b 0d 61 |........|E...E..a|
|00005110| 63 74 69 76 61 74 65 48 | 6f 6f 6b 00 00 00 32 69 |ctivateH|ook...2i|
|00005120| 00 00 32 69 0b 61 64 64 | 57 69 6e 4e 61 6d 65 00 |..2i.add|WinName.|
|00005130| 00 00 28 35 00 00 28 35 | 0f 62 75 69 6c 64 46 6c |..(5..(5|.buildFl|
|00005140| 61 67 73 56 61 72 73 00 | 00 00 36 0c 00 00 36 0c |agsVars.|..6...6.|
|00005150| 0b 63 68 61 6e 67 65 4d | 6f 64 65 00 00 00 41 fd |.changeM|ode...A.|
|00005160| 00 00 41 fd 09 63 6c 6f | 73 65 48 6f 6f 6b 00 00 |..A..clo|seHook..|
|00005170| 2e eb 00 00 2e eb 0f 64 | 65 61 63 74 69 76 61 74 |.......d|eactivat|
|00005180| 65 48 6f 6f 6b 00 00 00 | 4a 3c 00 00 4a 3c 0d 64 |eHook...|J<..J<.d|
|00005190| 65 73 63 72 69 62 65 4d | 6f 64 65 00 00 00 46 8d |escribeM|ode...F.|
|000051a0| 00 00 46 8d 09 64 69 72 | 74 79 48 6f 6f 6b 00 00 |..F..dir|tyHook..|
|000051b0| 01 b1 00 00 01 b1 13 67 | 65 74 4d 6f 64 65 56 61 |.......g|etModeVa|
|000051c0| 6c 75 65 73 41 6c 70 68 | 61 00 00 00 34 bb 00 00 |luesAlph|a...4...|
|000051d0| 34 bb 07 6d 65 6e 75 57 | 69 6e 00 00 2e 66 00 00 |4..menuW|in...f..|
|000051e0| 2e 66 07 6e 65 77 4d 6f | 64 65 00 00 0e 8c 00 00 |.f.newMo|de......|
|000051f0| 0e 8c 0b 6e 65 77 4d 6f | 64 65 56 61 72 00 00 00 |...newMo|deVar...|
|00005200| 3c 29 00 00 3c 29 09 6f | 70 65 6e 48 6f 6f 6b 00 |<)..<).o|penHook.|
|00005210| 00 00 47 3b 00 00 47 3b | 09 71 75 69 74 48 6f 6f |..G;..G;|.quitHoo|
|00005220| 6b 00 00 00 33 e4 00 00 | 33 e4 0d 72 65 6d 6f 76 |k...3...|3..remov|
|00005230| 65 57 69 6e 4e 61 6d 65 | 00 00 30 4b 00 00 30 4b |eWinName|..0K..0K|
|00005240| 0b 72 65 73 75 6d 65 48 | 6f 6f 6b 00 00 00 43 3b |.resumeH|ook...C;|
|00005250| 00 00 43 3b 0b 73 61 76 | 65 61 73 48 6f 6f 6b 00 |..C;.sav|easHook.|
|00005260| 00 00 40 24 00 00 40 24 | 09 73 61 76 65 48 6f 6f |..@$..@$|.saveHoo|
|00005270| 6b 00 00 00 2a 4c 00 00 | 2a 4c 0d 73 61 76 65 56 |k...*L..|*L.saveV|
|00005280| 61 72 56 61 6c 75 65 73 | 00 00 38 f9 00 00 38 f9 |arValues|..8...8.|
|00005290| 0d 73 65 74 4d 6f 64 65 | 4d 65 6e 75 73 00 00 00 |.setMode|Menus...|
|000052a0| 05 c5 00 00 05 c5 0f 73 | 65 74 4d 6f 64 65 56 61 |.......s|etModeVa|
|000052b0| 72 41 6c 70 68 61 00 00 | 2d 56 00 00 2d 56 0b 73 |rAlpha..|-V..-V.s|
|000052c0| 65 74 57 69 6e 4d 6f 64 | 65 00 00 00 2f 09 00 00 |etWinMod|e.../...|
|000052d0| 2f 09 0b 73 75 73 70 65 | 6e 64 48 6f 6f 6b 00 00 |/..suspe|ndHook..|
|000052e0| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 f3 cc cc cc cc |.H..Mona|co......|
|000052f0| cc cc cc cc 00 f3 02 4a | 40 84 03 2c 03 89 00 e0 |.......J|@..,....|
|00005300| 59 9e 00 01 00 04 00 04 | 00 28 00 02 02 5c 03 1a |Y.......|.(...\..|
|00005310| 00 28 00 02 02 5c 03 1a | ac 2e 2a 4b 00 00 25 93 |.(...\..|..*K..%.|
|00005320| 00 00 25 93 00 00 21 db | 01 00 00 00 01 00 00 00 |..%...!.|........|
|00005330| 03 2a 00 00 02 2a 00 00 | 00 42 00 d3 c4 d8 15 4e |.*...*..|.B.....N|
|00005340| 00 00 00 1c 00 3e 00 00 | 4d 50 53 52 00 01 00 0a |.....>..|MPSR....|
|00005350| 03 ef 00 00 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|00005360| 00 00 01 de 00 d3 ce f4 | 03 74 61 62 00 00 00 00 |........|.tab....|
|00005370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
