0000: 0a 70 72 6f 63 20 52 61 6d 44 65 62 75 67 67 65 .proc RamDebugge
0010: 72 3a 3a 55 70 64 61 74 65 4e 75 6d 62 65 72 73 r::UpdateNumbers
0020: 49 6e 47 69 44 46 69 6c 65 73 20 7b 20 7b 20 64 InGiDFiles { { d
0030: 6f 77 61 72 6e 20 31 20 7d 20 7d 20 7b 0a 20 20 owarn 1 } } {.
0040: 20 20 76 61 72 69 61 62 6c 65 20 74 65 78 74 0a variable text.
0050: 0a 20 20 20 20 73 65 74 20 69 6e 75 6d 20 30 0a . set inum 0.
0060: 20 20 20 20 73 65 74 20 69 6e 75 6d 64 69 66 66 set inumdiff
0070: 20 30 0a 20 20 20 20 73 65 74 20 69 64 78 20 31 0. set idx 1
0080: 2e 30 0a 20 20 20 20 77 68 69 6c 65 20 31 20 7b .0. while 1 {
0090: 0a 09 73 65 74 20 69 64 78 20 5b 24 74 65 78 74 ..set idx [$text
00a0: 20 73 65 61 72 63 68 20 2d 66 6f 72 77 61 72 64 search -forward
00b0: 73 20 2d 72 65 67 65 78 70 20 7b 28 3f 69 29 5e s -regexp {(?i)^
00c0: 5c 73 2a 4e 55 4d 42 45 52 3a 5c 73 2a 5c 64 2b \s*NUMBER:\s*\d+
00d0: 2e 2a 7d 20 24 69 64 78 20 65 6e 64 5d 0a 09 69 .*} $idx end]..i
00e0: 66 20 7b 20 24 69 64 78 20 3d 3d 20 22 22 20 7d f { $idx == "" }
00f0: 20 7b 20 62 72 65 61 6b 20 7d 0a 09 73 65 74 20 { break }..set
0100: 74 78 74 20 5b 24 74 65 78 74 20 67 65 74 20 22 txt [$text get "
0110: 24 69 64 78 20 6c 69 6e 65 73 74 61 72 74 22 20 $idx linestart"
0120: 22 24 69 64 78 20 6c 69 6e 65 65 6e 64 22 5d 0a "$idx lineend"].
0130: 09 69 6e 63 72 20 69 6e 75 6d 0a 09 72 65 67 65 .incr inum..rege
0140: 78 70 20 7b 28 3f 69 29 5e 28 5c 73 2a 4e 55 4d xp {(?i)^(\s*NUM
0150: 42 45 52 3a 5c 73 2a 29 28 5c 64 2b 29 28 2e 2a BER:\s*)(\d+)(.*
0160: 29 7d 20 24 74 78 74 20 7b 7d 20 7b 7d 20 6f 6c )} $txt {} {} ol
0170: 64 5f 6e 75 6d 0a 09 69 66 20 7b 20 24 6f 6c 64 d_num..if { $old
0180: 5f 6e 75 6d 20 21 3d 20 24 69 6e 75 6d 20 7d 20 _num != $inum }
0190: 7b 0a 09 20 20 20 20 72 65 67 73 75 62 20 7b 28 {.. regsub {(
01a0: 3f 69 29 5e 28 5c 73 2a 4e 55 4d 42 45 52 3a 5c ?i)^(\s*NUMBER:\
01b0: 73 2a 29 28 5c 64 2b 29 28 2e 2a 29 7d 20 24 74 s*)(\d+)(.*)} $t
01c0: 78 74 20 22 5c 5c 31 24 69 6e 75 6d 5c 5c 33 22 xt "\\1$inum\\3"
01d0: 20 74 78 74 0a 09 20 20 20 20 24 74 65 78 74 20 txt.. $text
01e0: 64 65 6c 65 74 65 20 22 24 69 64 78 20 6c 69 6e delete "$idx lin
01f0: 65 73 74 61 72 74 22 20 22 24 69 64 78 20 6c 69 estart" "$idx li
0200: 6e 65 65 6e 64 22 0a 09 20 20 20 20 24 74 65 78 neend".. $tex
0210: 74 20 69 6e 73 65 72 74 20 22 24 69 64 78 20 6c t insert "$idx l
0220: 69 6e 65 73 74 61 72 74 22 20 24 74 78 74 0a 09 inestart" $txt..
0230: 20 20 20 20 69 6e 63 72 20 69 6e 75 6d 64 69 66 incr inumdif
0240: 66 0a 09 7d 0a 09 73 65 74 20 69 64 78 20 5b 24 f..}..set idx [$
0250: 74 65 78 74 20 69 6e 64 65 78 20 22 24 69 64 78 text index "$idx
0260: 20 6c 69 6e 65 65 6e 64 22 5d 0a 20 20 20 20 7d lineend"]. }
0270: 0a 20 20 20 20 69 66 20 7b 20 24 64 6f 77 61 72 . if { $dowar
0280: 6e 20 7d 20 7b 20 57 61 72 6e 57 69 6e 20 22 54 n } { WarnWin "T
0290: 68 65 72 65 20 77 65 72 65 20 24 69 6e 75 6d 20 here were $inum
02a0: 6e 75 6d 62 65 72 73 2e 20 24 69 6e 75 6d 64 69 numbers. $inumdi
02b0: 66 66 20 63 68 61 6e 67 65 64 22 20 7d 0a 7d 0a ff changed" }.}.
02c0: 0a 70 72 6f 63 20 52 61 6d 44 65 62 75 67 67 65 .proc RamDebugge
02d0: 72 3a 3a 53 65 6c 65 63 74 42 61 73 4c 6f 6f 70 r::SelectBasLoop
02e0: 20 7b 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 {} {. variab
02f0: 6c 65 20 74 65 78 74 0a 0a 20 20 20 20 73 65 74 le text.. set
0300: 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74 6f line [string to
0310: 6c 6f 77 65 72 20 5b 24 74 65 78 74 20 67 65 74 lower [$text get
0320: 20 22 69 6e 73 65 72 74 20 6c 69 6e 65 73 74 61 "insert linesta
0330: 72 74 22 20 22 69 6e 73 65 72 74 20 6c 69 6e 65 rt" "insert line
0340: 65 6e 64 22 5d 5d 0a 0a 20 20 20 20 69 66 20 7b end"]].. if {
0350: 20 5b 72 65 67 65 78 70 20 7b 5e 5c 2a 28 69 66 [regexp {^\*(if
0360: 7c 66 6f 72 7c 6c 6f 6f 70 29 5c 4d 7d 20 24 6c |for|loop)\M} $l
0370: 69 6e 65 5d 20 7d 20 7b 0a 09 73 65 74 20 6c 65 ine] } {..set le
0380: 76 65 6c 20 30 0a 09 73 65 74 20 69 64 78 20 22 vel 0..set idx "
0390: 69 6e 73 65 72 74 20 6c 69 6e 65 65 6e 64 22 0a insert lineend".
03a0: 09 73 65 74 20 72 65 76 65 72 73 65 20 30 0a 09 .set reverse 0..
03b0: 77 68 69 6c 65 20 31 20 7b 0a 09 20 20 20 20 73 while 1 {.. s
03c0: 65 74 20 69 64 78 41 20 5b 24 74 65 78 74 20 73 et idxA [$text s
03d0: 65 61 72 63 68 20 2d 66 6f 72 77 61 72 64 73 20 earch -forwards
03e0: 2d 72 65 67 65 78 70 20 7b 28 3f 69 29 5e 5c 2a -regexp {(?i)^\*
03f0: 28 69 66 7c 66 6f 72 7c 6c 6f 6f 70 29 5c 4d 7d (if|for|loop)\M}
0400: 20 24 69 64 78 20 65 6e 64 5d 0a 09 20 20 20 20 $idx end]..
0410: 73 65 74 20 69 64 78 42 20 5b 24 74 65 78 74 20 set idxB [$text
0420: 73 65 61 72 63 68 20 2d 66 6f 72 77 61 72 64 73 search -forwards
0430: 20 2d 72 65 67 65 78 70 20 7b 28 3f 69 29 5e 5c -regexp {(?i)^\
0440: 2a 28 65 6e 64 7c 65 6e 64 69 66 7c 65 6e 64 66 *(end|endif|endf
0450: 6f 72 29 5c 4d 7d 20 24 69 64 78 20 65 6e 64 5d or)\M} $idx end]
0460: 0a 09 20 20 20 20 69 66 20 7b 20 24 69 64 78 41 .. if { $idxA
0470: 20 21 3d 20 22 22 20 26 26 20 28 24 69 64 78 42 != "" && ($idxB
0480: 20 3d 3d 20 22 22 20 7c 7c 20 5b 24 74 65 78 74 == "" || [$text
0490: 20 63 6f 6d 70 61 72 65 20 24 69 64 78 41 20 3c compare $idxA <
04a0: 20 24 69 64 78 42 5d 29 20 7d 20 7b 0a 09 09 69 $idxB]) } {...i
04b0: 6e 63 72 20 6c 65 76 65 6c 0a 09 09 73 65 74 20 ncr level...set
04c0: 69 64 78 20 22 24 69 64 78 41 20 6c 69 6e 65 65 idx "$idxA linee
04d0: 6e 64 22 0a 09 20 20 20 20 7d 20 65 6c 73 65 69 nd".. } elsei
04e0: 66 20 7b 20 24 69 64 78 42 20 21 3d 20 22 22 20 f { $idxB != ""
04f0: 26 26 20 28 24 69 64 78 41 20 3d 3d 20 22 22 20 && ($idxA == ""
0500: 7c 7c 20 5b 24 74 65 78 74 20 63 6f 6d 70 61 72 || [$text compar
0510: 65 20 24 69 64 78 41 20 3e 20 24 69 64 78 42 5d e $idxA > $idxB]
0520: 29 20 7d 20 7b 0a 09 09 69 66 20 7b 20 24 6c 65 ) } {...if { $le
0530: 76 65 6c 20 3d 3d 20 30 20 7d 20 7b 0a 09 09 20 vel == 0 } {...
0540: 20 20 20 73 65 74 20 69 64 78 65 6e 64 20 22 24 set idxend "$
0550: 69 64 78 42 20 6c 69 6e 65 65 6e 64 22 0a 09 09 idxB lineend"...
0560: 20 20 20 20 62 72 65 61 6b 0a 09 09 7d 0a 09 09 break...}...
0570: 69 6e 63 72 20 6c 65 76 65 6c 20 2d 31 0a 09 09 incr level -1...
0580: 73 65 74 20 69 64 78 20 22 24 69 64 78 42 20 6c set idx "$idxB l
0590: 69 6e 65 65 6e 64 22 0a 09 20 20 20 20 7d 20 65 ineend".. } e
05a0: 6c 73 65 20 7b 20 0a 09 09 57 61 72 6e 57 69 6e lse { ...WarnWin
05b0: 20 22 43 6f 6d 6d 61 6e 64 20 2a 65 6e 64 20 6e "Command *end n
05c0: 6f 74 20 66 6f 75 6e 64 22 0a 09 09 72 65 74 75 ot found"...retu
05d0: 72 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 rn.. }..}.
05e0: 20 7d 20 65 6c 73 65 69 66 20 7b 20 5b 72 65 67 } elseif { [reg
05f0: 65 78 70 20 7b 5e 5c 2a 28 65 6e 64 7c 65 6e 64 exp {^\*(end|end
0600: 69 66 7c 65 6e 64 66 6f 72 29 5c 4d 7d 20 24 6c if|endfor)\M} $l
0610: 69 6e 65 5d 20 7d 20 7b 0a 09 73 65 74 20 6c 65 ine] } {..set le
0620: 76 65 6c 20 30 0a 09 73 65 74 20 69 64 78 20 22 vel 0..set idx "
0630: 69 6e 73 65 72 74 20 6c 69 6e 65 73 74 61 72 74 insert linestart
0640: 22 0a 09 73 65 74 20 72 65 76 65 72 73 65 20 31 "..set reverse 1
0650: 0a 09 77 68 69 6c 65 20 31 20 7b 0a 09 20 20 20 ..while 1 {..
0660: 20 73 65 74 20 69 64 78 41 20 5b 24 74 65 78 74 set idxA [$text
0670: 20 73 65 61 72 63 68 20 2d 62 61 63 6b 77 61 72 search -backwar
0680: 64 73 20 2d 72 65 67 65 78 70 20 7b 28 3f 69 29 ds -regexp {(?i)
0690: 5e 5c 2a 28 69 66 7c 66 6f 72 7c 6c 6f 6f 70 29 ^\*(if|for|loop)
06a0: 5c 4d 7d 20 24 69 64 78 20 31 2e 30 5d 0a 09 20 \M} $idx 1.0]..
06b0: 20 20 20 73 65 74 20 69 64 78 42 20 5b 24 74 65 set idxB [$te
06c0: 78 74 20 73 65 61 72 63 68 20 2d 62 61 63 6b 77 xt search -backw
06d0: 61 72 64 73 20 2d 72 65 67 65 78 70 20 7b 28 3f ards -regexp {(?
06e0: 69 29 5e 5c 2a 28 65 6e 64 7c 65 6e 64 69 66 7c i)^\*(end|endif|
06f0: 65 6e 64 66 6f 72 29 5c 4d 7d 20 24 69 64 78 20 endfor)\M} $idx
0700: 31 2e 30 5d 0a 09 20 20 20 20 69 66 20 7b 20 24 1.0].. if { $
0710: 69 64 78 42 20 21 3d 20 22 22 20 26 26 20 28 24 idxB != "" && ($
0720: 69 64 78 41 20 3d 3d 20 22 22 20 7c 7c 20 5b 24 idxA == "" || [$
0730: 74 65 78 74 20 63 6f 6d 70 61 72 65 20 24 69 64 text compare $id
0740: 78 41 20 3c 20 24 69 64 78 42 5d 29 20 7d 20 7b xA < $idxB]) } {
0750: 0a 09 09 69 6e 63 72 20 6c 65 76 65 6c 0a 09 09 ...incr level...
0760: 73 65 74 20 69 64 78 20 22 24 69 64 78 42 20 6c set idx "$idxB l
0770: 69 6e 65 73 74 61 72 74 22 0a 09 20 20 20 20 7d inestart".. }
0780: 20 65 6c 73 65 69 66 20 7b 20 24 69 64 78 41 20 elseif { $idxA
0790: 21 3d 20 22 22 20 26 26 20 28 24 69 64 78 42 20 != "" && ($idxB
07a0: 3d 3d 20 22 22 20 7c 7c 20 5b 24 74 65 78 74 20 == "" || [$text
07b0: 63 6f 6d 70 61 72 65 20 24 69 64 78 41 20 3e 20 compare $idxA >
07c0: 24 69 64 78 42 5d 29 20 7d 20 7b 0a 09 09 69 66 $idxB]) } {...if
07d0: 20 7b 20 24 6c 65 76 65 6c 20 3d 3d 20 30 20 7d { $level == 0 }
07e0: 20 7b 0a 09 09 20 20 20 20 73 65 74 20 69 64 78 {... set idx
07f0: 65 6e 64 20 24 69 64 78 41 0a 09 09 20 20 20 20 end $idxA...
0800: 62 72 65 61 6b 0a 09 09 7d 0a 09 09 69 6e 63 72 break...}...incr
0810: 20 6c 65 76 65 6c 20 2d 31 0a 09 09 73 65 74 20 level -1...set
0820: 69 64 78 20 22 24 69 64 78 41 20 6c 69 6e 65 73 idx "$idxA lines
0830: 74 61 72 74 22 0a 09 20 20 20 20 7d 20 65 6c 73 tart".. } els
0840: 65 20 7b 20 0a 09 09 57 61 72 6e 57 69 6e 20 22 e { ...WarnWin "
0850: 43 6f 75 6c 64 6e 27 74 20 66 69 6e 64 20 62 65 Couldn't find be
0860: 67 69 6e 6e 69 6e 67 20 6f 66 20 6c 6f 6f 70 22 ginning of loop"
0870: 0a 09 09 72 65 74 75 72 6e 0a 09 20 20 20 20 7d ...return.. }
0880: 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b ..}. } else {
0890: 0a 09 57 61 72 6e 57 69 6e 20 22 54 68 69 73 20 ..WarnWin "This
08a0: 63 6f 6d 6d 61 6e 64 73 20 72 65 71 75 69 72 65 commands require
08b0: 73 20 74 68 65 20 63 75 72 73 6f 72 20 69 6e 20 s the cursor in
08c0: 61 20 6c 69 6e 65 20 77 69 74 68 3a 20 2a 6c 6f a line with: *lo
08d0: 6f 70 2c 20 2a 66 6f 72 20 2a 69 66 20 6f 72 20 op, *for *if or
08e0: 2a 65 6e 64 22 0a 09 72 65 74 75 72 6e 0a 20 20 *end"..return.
08f0: 20 20 7d 0a 20 20 20 20 24 74 65 78 74 20 74 61 }. $text ta
0900: 67 20 72 65 6d 6f 76 65 20 73 65 6c 20 31 2e 30 g remove sel 1.0
0910: 20 65 6e 64 0a 20 20 20 20 69 66 20 7b 20 21 24 end. if { !$
0920: 72 65 76 65 72 73 65 20 7d 20 7b 0a 09 24 74 65 reverse } {..$te
0930: 78 74 20 74 61 67 20 61 64 64 20 73 65 6c 20 22 xt tag add sel "
0940: 69 6e 73 65 72 74 20 6c 69 6e 65 73 74 61 72 74 insert linestart
0950: 22 20 24 69 64 78 65 6e 64 0a 20 20 20 20 7d 20 " $idxend. }
0960: 65 6c 73 65 20 7b 0a 09 24 74 65 78 74 20 74 61 else {..$text ta
0970: 67 20 61 64 64 20 73 65 6c 20 24 69 64 78 65 6e g add sel $idxen
0980: 64 20 22 69 6e 73 65 72 74 20 6c 69 6e 65 65 6e d "insert lineen
0990: 64 22 20 0a 20 20 20 20 7d 0a 20 20 20 20 24 74 d" . }. $t
09a0: 65 78 74 20 73 65 65 20 24 69 64 78 65 6e 64 0a ext see $idxend.
09b0: 7d 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 }..namespace eva
09c0: 6c 20 52 61 6d 44 65 62 75 67 67 65 72 3a 3a 57 l RamDebugger::W
09d0: 69 7a 61 72 64 20 7b 0a 20 20 20 20 76 61 72 69 izard {. vari
09e0: 61 62 6c 65 20 70 61 72 65 6e 74 77 69 64 67 65 able parentwidge
09f0: 74 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 69 t. variable i
0a00: 6d 61 67 65 0a 20 20 20 20 76 61 72 69 61 62 6c mage. variabl
0a10: 65 20 74 69 74 6c 65 0a 20 20 20 20 76 61 72 69 e title. vari
0a20: 61 62 6c 65 20 62 61 73 65 74 65 78 74 0a 7d 0a able basetext.}.
0a30: 0a 70 72 6f 63 20 52 61 6d 44 65 62 75 67 67 65 .proc RamDebugge
0a40: 72 3a 3a 57 69 7a 61 72 64 3a 3a 45 6e 74 65 72 r::Wizard::Enter
0a50: 49 6e 69 74 69 61 6c 44 61 74 61 20 7b 20 5f 70 InitialData { _p
0a60: 61 72 65 6e 74 77 69 64 67 65 74 20 5f 69 6d 61 arentwidget _ima
0a70: 67 65 20 5f 74 69 74 6c 65 20 5f 62 61 73 65 74 ge _title _baset
0a80: 65 78 74 20 7d 20 7b 0a 20 20 20 20 76 61 72 69 ext } {. vari
0a90: 61 62 6c 65 20 70 61 72 65 6e 74 77 69 64 67 65 able parentwidge
0aa0: 74 20 24 5f 70 61 72 65 6e 74 77 69 64 67 65 74 t $_parentwidget
0ab0: 20 69 6d 61 67 65 20 24 5f 69 6d 61 67 65 20 74 image $_image t
0ac0: 69 74 6c 65 20 24 5f 74 69 74 6c 65 20 62 61 73 itle $_title bas
0ad0: 65 74 65 78 74 20 24 5f 62 61 73 65 74 65 78 74 etext $_basetext
0ae0: 0a 7d 0a 0a 70 72 6f 63 20 52 61 6d 44 65 62 75 .}..proc RamDebu
0af0: 67 67 65 72 3a 3a 57 69 7a 61 72 64 3a 3a 4f 70 gger::Wizard::Op
0b00: 65 6e 50 61 67 65 20 7b 20 46 69 6c 6c 43 6d 64 enPage { FillCmd
0b10: 20 68 61 73 70 72 65 76 69 6f 75 73 20 68 61 73 hasprevious has
0b20: 6e 65 78 74 20 7d 20 7b 0a 20 20 20 20 76 61 72 next } {. var
0b30: 69 61 62 6c 65 20 69 6d 61 67 65 0a 20 20 20 20 iable image.
0b40: 76 61 72 69 61 62 6c 65 20 70 61 72 65 6e 74 77 variable parentw
0b50: 69 64 67 65 74 0a 20 20 20 20 76 61 72 69 61 62 idget. variab
0b60: 6c 65 20 74 69 74 6c 65 0a 20 20 20 20 76 61 72 le title. var
0b70: 69 61 62 6c 65 20 62 61 73 65 74 65 78 74 0a 20 iable basetext.
0b80: 20 20 20 0a 20 20 20 20 63 61 74 63 68 20 7b 20 . catch {
0b90: 44 69 61 6c 6f 67 57 69 6e 3a 3a 44 65 73 74 72 DialogWin::Destr
0ba0: 6f 79 57 69 6e 64 6f 77 20 7d 0a 20 20 20 20 69 oyWindow }. i
0bb0: 66 20 7b 20 24 68 61 73 70 72 65 76 69 6f 75 73 f { $hasprevious
0bc0: 20 26 26 20 24 68 61 73 6e 65 78 74 20 7d 20 7b && $hasnext } {
0bd0: 0a 09 73 65 74 20 66 20 5b 44 69 61 6c 6f 67 57 ..set f [DialogW
0be0: 69 6e 3a 3a 49 6e 69 74 20 24 70 61 72 65 6e 74 in::Init $parent
0bf0: 77 69 64 67 65 74 20 24 74 69 74 6c 65 20 73 65 widget $title se
0c00: 70 61 72 61 74 6f 72 20 5b 6c 69 73 74 20 22 4e parator [list "N
0c10: 65 78 74 20 3e 3e 22 5d 20 22 3c 3c 20 50 72 65 ext >>"] "<< Pre
0c20: 76 22 20 43 6c 6f 73 65 5d 0a 20 20 20 20 7d 20 v" Close]. }
0c30: 65 6c 73 65 69 66 20 7b 21 24 68 61 73 70 72 65 elseif {!$haspre
0c40: 76 69 6f 75 73 20 26 26 20 24 68 61 73 6e 65 78 vious && $hasnex
0c50: 74 20 7d 20 7b 0a 09 73 65 74 20 66 20 5b 44 69 t } {..set f [Di
0c60: 61 6c 6f 67 57 69 6e 3a 3a 49 6e 69 74 20 24 70 alogWin::Init $p
0c70: 61 72 65 6e 74 77 69 64 67 65 74 20 24 74 69 74 arentwidget $tit
0c80: 6c 65 20 73 65 70 61 72 61 74 6f 72 20 22 22 20 le separator ""
0c90: 22 4e 65 78 74 20 3e 3e 22 20 43 6c 6f 73 65 5d "Next >>" Close]
0ca0: 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 . } elseif {$
0cb0: 68 61 73 70 72 65 76 69 6f 75 73 20 26 26 20 21 hasprevious && !
0cc0: 24 68 61 73 6e 65 78 74 20 7d 20 7b 0a 09 73 65 $hasnext } {..se
0cd0: 74 20 66 20 5b 44 69 61 6c 6f 67 57 69 6e 3a 3a t f [DialogWin::
0ce0: 49 6e 69 74 20 24 70 61 72 65 6e 74 77 69 64 67 Init $parentwidg
0cf0: 65 74 20 24 74 69 74 6c 65 20 73 65 70 61 72 61 et $title separa
0d00: 74 6f 72 20 5b 6c 69 73 74 20 22 46 69 6e 69 73 tor [list "Finis
0d10: 68 22 5d 20 22 3c 3c 20 50 72 65 76 22 20 43 6c h"] "<< Prev" Cl
0d20: 6f 73 65 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 ose]. } else
0d30: 7b 0a 09 73 65 74 20 66 20 5b 44 69 61 6c 6f 67 {..set f [Dialog
0d40: 57 69 6e 3a 3a 49 6e 69 74 20 24 70 61 72 65 6e Win::Init $paren
0d50: 74 77 69 64 67 65 74 20 24 74 69 74 6c 65 20 73 twidget $title s
0d60: 65 70 61 72 61 74 6f 72 20 22 22 20 22 46 69 6e eparator "" "Fin
0d70: 69 73 68 22 20 43 6c 6f 73 65 5d 0a 20 20 20 20 ish" Close].
0d80: 7d 0a 20 20 20 20 73 65 74 20 77 66 20 5b 77 69 }. set wf [wi
0d90: 6e 66 6f 20 74 6f 70 6c 65 76 65 6c 20 24 66 5d nfo toplevel $f]
0da0: 0a 0a 20 20 20 20 66 72 61 6d 65 20 24 66 2e 66 .. frame $f.f
0db0: 31 20 2d 67 72 69 64 20 30 0a 20 20 20 20 6c 61 1 -grid 0. la
0dc0: 62 65 6c 20 24 66 2e 66 31 2e 6c 31 20 2d 74 65 bel $f.f1.l1 -te
0dd0: 78 74 20 24 62 61 73 65 74 65 78 74 20 2d 77 72 xt $basetext -wr
0de0: 61 70 6c 65 6e 67 74 68 20 5b 69 6d 61 67 65 20 aplength [image
0df0: 77 69 64 74 68 20 24 69 6d 61 67 65 5d 20 2d 6a width $image] -j
0e00: 75 73 74 69 66 79 20 6c 65 66 74 20 2d 67 72 69 ustify left -gri
0e10: 64 20 30 0a 20 20 20 20 6c 61 62 65 6c 20 24 66 d 0. label $f
0e20: 2e 66 31 2e 6c 32 20 2d 69 6d 61 67 65 20 24 69 .f1.l2 -image $i
0e30: 6d 61 67 65 20 2d 67 72 69 64 20 30 0a 0a 20 20 mage -grid 0..
0e40: 20 20 66 72 61 6d 65 20 24 66 2e 66 32 20 2d 67 frame $f.f2 -g
0e50: 72 69 64 20 22 31 20 70 78 33 20 70 79 33 22 0a rid "1 px3 py3".
0e60: 0a 20 20 20 20 65 76 61 6c 20 24 46 69 6c 6c 43 . eval $FillC
0e70: 6d 64 20 24 66 2e 66 32 0a 0a 20 20 20 20 62 69 md $f.f2.. bi
0e80: 6e 64 20 24 77 66 20 3c 52 65 74 75 72 6e 3e 20 nd $wf <Return>
0e90: 22 44 69 61 6c 6f 67 57 69 6e 3a 3a 49 6e 76 6f "DialogWin::Invo
0ea0: 6b 65 4f 4b 22 0a 0a 20 20 20 20 73 75 70 65 72 keOK".. super
0eb0: 67 72 69 64 3a 3a 67 6f 20 24 66 0a 0a 20 20 20 grid::go $f..
0ec0: 20 73 65 74 20 61 63 74 69 6f 6e 20 5b 44 69 61 set action [Dia
0ed0: 6c 6f 67 57 69 6e 3a 3a 43 72 65 61 74 65 57 69 logWin::CreateWi
0ee0: 6e 64 6f 77 20 22 22 20 34 35 30 20 33 32 30 5d ndow "" 450 320]
0ef0: 0a 0a 20 20 20 20 73 77 69 74 63 68 20 24 61 63 .. switch $ac
0f00: 74 69 6f 6e 20 7b 0a 09 30 20 7b 0a 09 20 20 20 tion {..0 {..
0f10: 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 44 65 73 74 DialogWin::Dest
0f20: 72 6f 79 57 69 6e 64 6f 77 0a 09 20 20 20 20 72 royWindow.. r
0f30: 65 74 75 72 6e 20 63 61 6e 63 65 6c 0a 09 7d 0a eturn cancel..}.
0f40: 09 31 20 7b 0a 09 20 20 20 20 69 66 20 7b 20 24 .1 {.. if { $
0f50: 68 61 73 70 72 65 76 69 6f 75 73 20 7d 20 7b 0a hasprevious } {.
0f60: 09 09 72 65 74 75 72 6e 20 70 72 65 76 0a 09 20 ..return prev..
0f70: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 69 66 } else {...if
0f80: 20 7b 20 21 24 68 61 73 6e 65 78 74 20 7d 20 7b { !$hasnext } {
0f90: 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 44 65 73 74 DialogWin::Dest
0fa0: 72 6f 79 57 69 6e 64 6f 77 20 7d 0a 09 09 72 65 royWindow }...re
0fb0: 74 75 72 6e 20 6e 65 78 74 0a 09 20 20 20 20 7d turn next.. }
0fc0: 0a 09 7d 0a 09 32 20 7b 0a 09 20 20 20 20 69 66 ..}..2 {.. if
0fd0: 20 7b 20 21 24 68 61 73 6e 65 78 74 20 7d 20 7b { !$hasnext } {
0fe0: 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 44 65 73 74 DialogWin::Dest
0ff0: 72 6f 79 57 69 6e 64 6f 77 20 7d 0a 09 20 20 20 royWindow }..
1000: 20 72 65 74 75 72 6e 20 6e 65 78 74 0a 09 7d 0a return next..}.
1010: 20 20 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 52 61 }.}..proc Ra
1020: 6d 44 65 62 75 67 67 65 72 3a 3a 57 69 7a 61 72 mDebugger::Wizar
1030: 64 3a 3a 43 6f 6e 64 4d 61 74 50 61 67 65 31 20 d::CondMatPage1
1040: 7b 20 77 68 61 74 20 66 20 7d 20 7b 0a 20 20 20 { what f } {.
1050: 20 0a 20 20 20 20 73 77 69 74 63 68 20 24 77 68 . switch $wh
1060: 61 74 20 7b 0a 09 63 6f 6e 64 69 74 69 6f 6e 20 at {..condition
1070: 7b 20 73 65 74 20 6e 61 6d 65 73 20 24 44 69 61 { set names $Dia
1080: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 43 4f 4e logWin::user(CON
1090: 44 4e 41 4d 45 53 29 20 7d 0a 09 6d 61 74 65 72 DNAMES) }..mater
10a0: 69 61 6c 20 7b 20 73 65 74 20 6e 61 6d 65 73 20 ial { set names
10b0: 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 $DialogWin::user
10c0: 28 4d 41 54 4e 41 4d 45 53 29 20 7d 0a 20 20 20 (MATNAMES) }.
10d0: 20 7d 0a 20 20 20 20 66 6f 72 20 7b 20 73 65 74 }. for { set
10e0: 20 69 20 30 20 7d 20 7b 20 24 69 20 3c 20 31 30 i 0 } { $i < 10
10f0: 30 20 7d 20 7b 20 69 6e 63 72 20 69 20 7d 20 7b 0 } { incr i } {
1100: 0a 09 69 66 20 7b 20 5b 6c 73 65 61 72 63 68 20 ..if { [lsearch
1110: 24 6e 61 6d 65 73 20 24 77 68 61 74 24 69 5d 20 $names $what$i]
1120: 3d 3d 20 2d 31 20 7d 20 7b 0a 09 20 20 20 20 73 == -1 } {.. s
1130: 65 74 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 et DialogWin::us
1140: 65 72 28 4e 41 4d 45 29 20 24 77 68 61 74 24 69 er(NAME) $what$i
1150: 0a 09 20 20 20 20 62 72 65 61 6b 0a 09 7d 0a 20 .. break..}.
1160: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 20 21 5b }. if { ![
1170: 69 6e 66 6f 20 65 78 69 73 74 73 20 44 69 61 6c info exists Dial
1180: 6f 67 57 69 6e 3a 3a 75 73 65 72 28 43 4f 4e 44 ogWin::user(COND
1190: 54 59 50 45 29 5d 20 7d 20 7b 0a 09 73 65 74 20 TYPE)] } {..set
11a0: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
11b0: 43 4f 4e 44 54 59 50 45 29 20 22 6f 76 65 72 20 CONDTYPE) "over
11c0: 70 6f 69 6e 74 73 22 0a 20 20 20 20 7d 0a 20 20 points". }.
11d0: 20 20 69 66 20 7b 20 21 5b 69 6e 66 6f 20 65 78 if { ![info ex
11e0: 69 73 74 73 20 44 69 61 6c 6f 67 57 69 6e 3a 3a ists DialogWin::
11f0: 75 73 65 72 28 43 4f 4e 44 4d 45 53 48 54 59 50 user(CONDMESHTYP
1200: 45 29 5d 20 7d 20 7b 0a 09 73 65 74 20 44 69 61 E)] } {..set Dia
1210: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 43 4f 4e logWin::user(CON
1220: 44 4d 45 53 48 54 59 50 45 29 20 22 6f 76 65 72 DMESHTYPE) "over
1230: 20 6e 6f 64 65 73 22 0a 20 20 20 20 7d 0a 0a 20 nodes". }..
1240: 20 20 20 6c 61 62 65 6c 66 72 61 6d 65 20 24 66 labelframe $f
1250: 2e 66 31 20 2d 74 65 78 74 20 22 24 77 68 61 74 .f1 -text "$what
1260: 20 62 61 73 69 63 73 22 20 2d 67 72 69 64 20 30 basics" -grid 0
1270: 0a 20 20 20 20 6c 61 62 65 6c 20 24 66 2e 66 31 . label $f.f1
1280: 2e 6c 30 20 2d 74 65 78 74 20 22 5b 73 74 72 69 .l0 -text "[stri
1290: 6e 67 20 74 6f 74 69 74 6c 65 20 24 77 68 61 74 ng totitle $what
12a0: 5d 20 6e 61 6d 65 3a 22 20 2d 67 72 69 64 20 22 ] name:" -grid "
12b0: 30 20 65 22 0a 20 20 20 20 43 6f 6d 62 6f 42 6f 0 e". ComboBo
12c0: 78 20 24 66 2e 66 31 2e 63 62 30 20 2d 74 65 78 x $f.f1.cb0 -tex
12d0: 74 76 61 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 tvariable Dialog
12e0: 57 69 6e 3a 3a 75 73 65 72 28 4e 41 4d 45 29 20 Win::user(NAME)
12f0: 5c 0a 09 2d 76 61 6c 75 65 73 20 24 6e 61 6d 65 \..-values $name
1300: 73 20 2d 67 72 69 64 20 22 31 20 70 78 32 22 0a s -grid "1 px2".
1310: 20 20 20 20 69 66 20 7b 20 24 77 68 61 74 20 3d if { $what =
1320: 3d 20 22 63 6f 6e 64 69 74 69 6f 6e 22 20 7d 20 = "condition" }
1330: 7b 0a 09 6c 61 62 65 6c 20 24 66 2e 66 31 2e 6c {..label $f.f1.l
1340: 31 20 2d 74 65 78 74 20 22 47 65 6f 6d 65 74 72 1 -text "Geometr
1350: 79 20 61 73 73 69 67 6e 3a 22 20 2d 67 72 69 64 y assign:" -grid
1360: 20 22 30 20 65 20 70 79 32 22 0a 09 43 6f 6d 62 "0 e py2"..Comb
1370: 6f 42 6f 78 20 24 66 2e 66 31 2e 63 62 31 20 2d oBox $f.f1.cb1 -
1380: 74 65 78 74 76 61 72 69 61 62 6c 65 20 44 69 61 textvariable Dia
1390: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 43 4f 4e logWin::user(CON
13a0: 44 54 59 50 45 29 20 5c 0a 09 20 20 20 20 2d 76 DTYPE) \.. -v
13b0: 61 6c 75 65 73 20 5b 6c 69 73 74 20 22 6f 76 65 alues [list "ove
13c0: 72 20 70 6f 69 6e 74 73 22 20 22 6f 76 65 72 20 r points" "over
13d0: 6c 69 6e 65 73 22 20 22 6f 76 65 72 20 73 75 72 lines" "over sur
13e0: 66 61 63 65 22 20 22 6f 76 65 72 20 76 6f 6c 75 face" "over volu
13f0: 6d 65 73 22 20 5c 0a 09 09 20 20 20 20 20 20 20 mes" \...
1400: 20 20 22 6f 76 65 72 20 6c 61 79 65 72 73 22 5d "over layers"]
1410: 20 2d 67 72 69 64 20 22 31 20 70 78 32 22 20 2d -grid "1 px2" -
1420: 65 64 69 74 61 62 6c 65 20 30 0a 09 6c 61 62 65 editable 0..labe
1430: 6c 20 24 66 2e 66 31 2e 6c 32 20 2d 74 65 78 74 l $f.f1.l2 -text
1440: 20 22 4d 65 73 68 20 61 73 73 69 67 6e 3a 22 20 "Mesh assign:"
1450: 2d 67 72 69 64 20 22 30 20 65 20 70 79 32 22 0a -grid "0 e py2".
1460: 09 43 6f 6d 62 6f 42 6f 78 20 24 66 2e 66 31 2e .ComboBox $f.f1.
1470: 63 62 31 32 20 2d 74 65 78 74 76 61 72 69 61 62 cb12 -textvariab
1480: 6c 65 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 le DialogWin::us
1490: 65 72 28 43 4f 4e 44 4d 45 53 48 54 59 50 45 29 er(CONDMESHTYPE)
14a0: 20 5c 0a 09 20 20 20 20 2d 76 61 6c 75 65 73 20 \.. -values
14b0: 5b 6c 69 73 74 20 22 6f 76 65 72 20 6e 6f 64 65 [list "over node
14c0: 73 22 20 22 6f 76 65 72 20 62 6f 64 79 20 65 6c s" "over body el
14d0: 65 6d 65 6e 74 73 22 20 22 6f 76 65 72 20 66 61 ements" "over fa
14e0: 63 65 20 65 6c 65 6d 65 6e 74 73 22 5d 20 5c 0a ce elements"] \.
14f0: 09 20 20 20 20 2d 67 72 69 64 20 22 31 20 70 78 . -grid "1 px
1500: 32 22 20 2d 65 64 69 74 61 62 6c 65 20 30 0a 20 2" -editable 0.
1510: 20 20 20 7d 0a 20 20 20 20 3a 3a 74 6b 3a 3a 54 }. ::tk::T
1520: 61 62 54 6f 57 69 6e 64 6f 77 20 24 66 2e 66 31 abToWindow $f.f1
1530: 2e 63 62 30 0a 7d 0a 0a 70 72 6f 63 20 52 61 6d .cb0.}..proc Ram
1540: 44 65 62 75 67 67 65 72 3a 3a 57 69 7a 61 72 64 Debugger::Wizard
1550: 3a 3a 4d 6f 64 43 6f 6e 64 4d 61 74 50 61 67 65 ::ModCondMatPage
1560: 32 20 7b 20 77 68 61 74 20 66 20 7d 20 7b 0a 0a 2 { what f } {..
1570: 20 20 20 20 66 6f 72 65 61 63 68 20 69 20 5b 77 foreach i [w
1580: 69 6e 66 6f 20 63 68 69 6c 64 72 65 6e 20 24 66 info children $f
1590: 5d 20 7b 20 64 65 73 74 72 6f 79 20 24 69 20 7d ] { destroy $i }
15a0: 0a 20 20 20 20 73 65 74 20 6e 20 24 44 69 61 6c . set n $Dial
15b0: 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c ogWin::user(FIEL
15c0: 44 4e 55 4d 29 0a 20 20 20 20 73 77 69 74 63 68 DNUM). switch
15d0: 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 $DialogWin::use
15e0: 72 28 46 49 45 4c 44 54 59 50 45 2c 24 6e 29 20 r(FIELDTYPE,$n)
15f0: 7b 0a 09 6e 6f 72 6d 61 6c 20 7b 0a 09 20 20 20 {..normal {..
1600: 20 6c 61 62 65 6c 20 24 66 2e 6c 31 20 2d 74 65 label $f.l1 -te
1610: 78 74 20 22 44 65 66 61 75 6c 74 20 76 61 6c 75 xt "Default valu
1620: 65 3a 22 20 2d 67 72 69 64 20 30 0a 09 20 20 20 e:" -grid 0..
1630: 20 65 6e 74 72 79 20 24 66 2e 65 31 20 2d 74 65 entry $f.e1 -te
1640: 78 74 76 61 72 69 61 62 6c 65 20 44 69 61 6c 6f xtvariable Dialo
1650: 67 57 69 6e 3a 3a 75 73 65 72 28 44 45 46 41 55 gWin::user(DEFAU
1660: 4c 54 56 41 4c 55 45 2c 24 6e 29 20 2d 67 72 69 LTVALUE,$n) -gri
1670: 64 20 31 0a 09 7d 0a 09 63 6f 6d 62 6f 62 6f 78 d 1..}..combobox
1680: 20 2d 20 6d 61 74 72 69 78 20 7b 0a 09 20 20 20 - matrix {..
1690: 20 69 66 20 7b 20 24 44 69 61 6c 6f 67 57 69 6e if { $DialogWin
16a0: 3a 3a 75 73 65 72 28 46 49 45 4c 44 54 59 50 45 ::user(FIELDTYPE
16b0: 2c 24 6e 29 20 65 71 20 22 63 6f 6d 62 6f 62 6f ,$n) eq "combobo
16c0: 78 22 20 7d 20 7b 0a 09 09 6c 61 62 65 6c 20 24 x" } {...label $
16d0: 66 2e 6c 31 20 2d 74 65 78 74 20 22 44 65 66 61 f.l1 -text "Defa
16e0: 75 6c 74 20 76 61 6c 75 65 3a 22 20 2d 67 72 69 ult value:" -gri
16f0: 64 20 30 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 d 0.. } else
1700: 7b 0a 09 09 6c 61 62 65 6c 20 24 66 2e 6c 31 20 {...label $f.l1
1710: 2d 74 65 78 74 20 22 43 6f 6c 75 6d 6e 20 6e 61 -text "Column na
1720: 6d 65 73 3a 22 20 2d 67 72 69 64 20 30 0a 09 20 mes:" -grid 0..
1730: 20 20 20 7d 0a 09 20 20 20 20 43 6f 6d 62 6f 42 }.. ComboB
1740: 6f 78 20 24 66 2e 63 62 31 20 2d 74 65 78 74 76 ox $f.cb1 -textv
1750: 61 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 57 69 ariable DialogWi
1760: 6e 3a 3a 75 73 65 72 28 44 45 46 41 55 4c 54 56 n::user(DEFAULTV
1770: 41 4c 55 45 2c 24 6e 29 20 2d 67 72 69 64 20 31 ALUE,$n) -grid 1
1780: 0a 09 20 20 20 20 73 65 74 20 44 69 61 6c 6f 67 .. set Dialog
1790: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 56 Win::user(FIELDV
17a0: 41 4c 55 45 53 2c 24 6e 29 20 22 22 0a 09 20 20 ALUES,$n) ""..
17b0: 20 20 73 65 74 20 62 62 6f 78 20 5b 42 75 74 74 set bbox [Butt
17c0: 6f 6e 42 6f 78 20 24 66 2e 62 62 6f 78 31 20 2d onBox $f.bbox1 -
17d0: 73 70 61 63 69 6e 67 20 30 20 2d 70 61 64 78 20 spacing 0 -padx
17e0: 31 20 2d 70 61 64 79 20 31 20 2d 68 6f 6d 6f 67 1 -pady 1 -homog
17f0: 65 6e 65 6f 75 73 20 31 20 2d 67 72 69 64 20 22 eneous 1 -grid "
1800: 32 20 77 22 5d 0a 09 20 20 20 20 24 62 62 6f 78 2 w"].. $bbox
1810: 20 61 64 64 20 2d 69 6d 61 67 65 20 61 63 74 74 add -image actt
1820: 69 63 6b 31 36 20 5c 0a 09 09 2d 68 69 67 68 6c ick16 \...-highl
1830: 69 67 68 74 74 68 69 63 6b 6e 65 73 73 20 30 20 ightthickness 0
1840: 2d 74 61 6b 65 66 6f 63 75 73 20 30 20 2d 72 65 -takefocus 0 -re
1850: 6c 69 65 66 20 6c 69 6e 6b 20 2d 62 6f 72 64 65 lief link -borde
1860: 72 77 69 64 74 68 20 31 20 2d 70 61 64 78 20 31 rwidth 1 -padx 1
1870: 20 2d 70 61 64 79 20 31 20 5c 0a 09 09 2d 68 65 -pady 1 \...-he
1880: 6c 70 74 65 78 74 20 22 41 64 64 20 6e 65 77 20 lptext "Add new
1890: 65 6e 74 72 79 22 20 5c 0a 09 09 2d 63 6f 6d 6d entry" \...-comm
18a0: 61 6e 64 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 and [string map
18b0: 5b 6c 69 73 74 20 25 57 20 24 66 2e 63 62 31 20 [list %W $f.cb1
18c0: 25 6e 20 24 6e 5d 20 7b 0a 09 09 20 20 20 20 69 %n $n] {... i
18d0: 66 20 7b 20 5b 6c 73 65 61 72 63 68 20 24 44 69 f { [lsearch $Di
18e0: 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 alogWin::user(FI
18f0: 45 4c 44 56 41 4c 55 45 53 2c 25 6e 29 20 24 44 ELDVALUES,%n) $D
1900: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 44 ialogWin::user(D
1910: 45 46 41 55 4c 54 56 41 4c 55 45 2c 25 6e 29 5d EFAULTVALUE,%n)]
1920: 20 21 3d 20 2d 31 20 7d 20 7b 0a 09 09 20 20 20 != -1 } {...
1930: 20 20 20 20 20 57 61 72 6e 57 69 6e 20 22 45 6e WarnWin "En
1940: 74 72 79 20 74 6f 20 65 6e 74 65 72 20 61 6c 72 try to enter alr
1950: 65 61 64 79 20 69 6e 73 69 64 65 22 0a 09 09 20 eady inside"...
1960: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 20 5b 72 } elseif { [r
1970: 65 67 65 78 70 20 7b 5b 2c 28 29 5d 7d 20 24 44 egexp {[,()]} $D
1980: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 44 ialogWin::user(D
1990: 45 46 41 55 4c 54 56 41 4c 55 45 2c 25 6e 29 5d EFAULTVALUE,%n)]
19a0: 20 7d 20 7b 0a 09 09 20 20 20 20 20 20 20 20 57 } {... W
19b0: 61 72 6e 57 69 6e 20 22 45 6e 74 72 79 20 63 61 arnWin "Entry ca
19c0: 6e 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 63 68 61 nnot contain cha
19d0: 72 61 63 74 65 72 73 3a 20 2c 28 29 22 0a 09 09 racters: ,()"...
19e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 20 } else {...
19f0: 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 44 lappend D
1a00: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 ialogWin::user(F
1a10: 49 45 4c 44 56 41 4c 55 45 53 2c 25 6e 29 20 24 IELDVALUES,%n) $
1a20: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
1a30: 44 45 46 41 55 4c 54 56 41 4c 55 45 2c 25 6e 29 DEFAULTVALUE,%n)
1a40: 0a 09 09 20 20 20 20 20 20 20 20 25 57 20 63 6f ... %W co
1a50: 6e 66 69 67 75 72 65 20 2d 76 61 6c 75 65 73 20 nfigure -values
1a60: 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 $DialogWin::user
1a70: 28 46 49 45 4c 44 56 41 4c 55 45 53 2c 25 6e 29 (FIELDVALUES,%n)
1a80: 0a 09 09 20 20 20 20 7d 0a 09 09 7d 5d 0a 09 20 ... }...}]..
1a90: 20 20 20 24 62 62 6f 78 20 61 64 64 20 2d 69 6d $bbox add -im
1aa0: 61 67 65 20 61 63 74 63 72 6f 73 73 31 36 20 5c age actcross16 \
1ab0: 0a 09 09 2d 68 69 67 68 6c 69 67 68 74 74 68 69 ...-highlightthi
1ac0: 63 6b 6e 65 73 73 20 30 20 2d 74 61 6b 65 66 6f ckness 0 -takefo
1ad0: 63 75 73 20 30 20 2d 72 65 6c 69 65 66 20 6c 69 cus 0 -relief li
1ae0: 6e 6b 20 2d 62 6f 72 64 65 72 77 69 64 74 68 20 nk -borderwidth
1af0: 31 20 2d 70 61 64 78 20 31 20 2d 70 61 64 79 20 1 -padx 1 -pady
1b00: 31 20 5c 0a 09 09 2d 68 65 6c 70 74 65 78 74 20 1 \...-helptext
1b10: 5b 5f 20 22 44 65 6c 65 74 65 20 61 63 74 69 76 [_ "Delete activ
1b20: 65 20 65 6e 74 72 79 22 5d 20 5c 0a 09 09 2d 63 e entry"] \...-c
1b30: 6f 6d 6d 61 6e 64 20 5b 73 74 72 69 6e 67 20 6d ommand [string m
1b40: 61 70 20 5b 6c 69 73 74 20 25 57 20 24 66 2e 63 ap [list %W $f.c
1b50: 62 31 20 25 6e 20 24 6e 5d 20 7b 0a 09 09 20 20 b1 %n $n] {...
1b60: 20 20 73 65 74 20 69 70 6f 73 20 5b 6c 73 65 61 set ipos [lsea
1b70: 72 63 68 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a rch $DialogWin::
1b80: 75 73 65 72 28 46 49 45 4c 44 56 41 4c 55 45 53 user(FIELDVALUES
1b90: 2c 25 6e 29 20 24 44 69 61 6c 6f 67 57 69 6e 3a ,%n) $DialogWin:
1ba0: 3a 75 73 65 72 28 44 45 46 41 55 4c 54 56 41 4c :user(DEFAULTVAL
1bb0: 55 45 2c 25 6e 29 5d 0a 09 09 20 20 20 20 69 66 UE,%n)]... if
1bc0: 20 7b 20 24 69 70 6f 73 20 3d 3d 20 2d 31 20 7d { $ipos == -1 }
1bd0: 20 7b 0a 09 09 20 20 20 20 20 20 20 20 57 61 72 {... War
1be0: 6e 57 69 6e 20 22 45 6e 74 72 79 20 74 6f 20 64 nWin "Entry to d
1bf0: 65 6c 65 74 65 20 6e 6f 74 20 76 61 6c 69 64 22 elete not valid"
1c00: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ... } else {.
1c10: 09 09 20 20 20 20 20 20 20 20 73 65 74 20 44 69 .. set Di
1c20: 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 alogWin::user(FI
1c30: 45 4c 44 56 41 4c 55 45 53 2c 25 6e 29 20 5b 6c ELDVALUES,%n) [l
1c40: 72 65 70 6c 61 63 65 20 24 44 69 61 6c 6f 67 57 replace $DialogW
1c50: 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 56 41 in::user(FIELDVA
1c60: 4c 55 45 53 2c 25 6e 29 5c 0a 09 09 20 20 20 20 LUES,%n)\...
1c70: 20 20 20 20 20 20 20 20 20 20 20 20 24 69 70 6f $ipo
1c80: 73 20 24 69 70 6f 73 5d 0a 09 09 20 20 20 20 20 s $ipos]...
1c90: 20 20 20 25 57 20 63 6f 6e 66 69 67 75 72 65 20 %W configure
1ca0: 2d 76 61 6c 75 65 73 20 24 44 69 61 6c 6f 67 57 -values $DialogW
1cb0: 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 56 41 in::user(FIELDVA
1cc0: 4c 55 45 53 2c 25 6e 29 0a 09 09 20 20 20 20 7d LUES,%n)... }
1cd0: 0a 09 09 7d 5d 0a 09 7d 0a 09 6c 6f 63 61 6c 61 ...}]..}..locala
1ce0: 78 65 73 20 7b 0a 09 20 20 20 20 73 65 74 20 69 xes {.. set i
1cf0: 63 20 30 0a 09 20 20 20 20 66 6f 72 65 61 63 68 c 0.. foreach
1d00: 20 69 20 5b 6c 69 73 74 20 67 6c 6f 62 61 6c 20 i [list global
1d10: 61 75 74 6f 6d 61 74 69 63 20 61 75 74 6f 6d 61 automatic automa
1d20: 74 69 63 5f 61 6c 74 5d 20 7b 0a 09 09 63 68 65 tic_alt] {...che
1d30: 63 6b 62 75 74 74 6f 6e 20 24 66 2e 6c 24 69 63 ckbutton $f.l$ic
1d40: 20 2d 74 65 78 74 20 22 24 69 20 61 78 65 73 3a -text "$i axes:
1d50: 22 20 2d 67 72 69 64 20 22 30 20 77 22 20 2d 76 " -grid "0 w" -v
1d60: 61 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 57 69 ariable DialogWi
1d70: 6e 3a 3a 75 73 65 72 28 41 58 45 53 54 59 50 45 n::user(AXESTYPE
1d80: 2c 24 69 2c 24 6e 29 20 5c 0a 09 09 20 20 20 20 ,$i,$n) \...
1d90: 2d 63 6f 6d 6d 61 6e 64 20 5b 73 74 72 69 6e 67 -command [string
1da0: 20 6d 61 70 20 5b 6c 69 73 74 20 25 69 20 24 69 map [list %i $i
1db0: 20 25 6e 20 24 6e 20 25 65 20 24 66 2e 65 24 69 %n $n %e $f.e$i
1dc0: 63 20 25 63 20 24 66 2e 63 62 34 5d 20 7b 0a 09 c %c $f.cb4] {..
1dd0: 09 20 20 20 20 20 20 20 20 69 66 20 7b 20 24 44 . if { $D
1de0: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 41 ialogWin::user(A
1df0: 58 45 53 54 59 50 45 2c 25 69 2c 25 6e 29 20 7d XESTYPE,%i,%n) }
1e00: 20 7b 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 {...
1e10: 20 25 65 20 63 6f 6e 66 69 67 75 72 65 20 2d 73 %e configure -s
1e20: 74 61 74 65 20 6e 6f 72 6d 61 6c 20 2d 66 67 20 tate normal -fg
1e30: 62 6c 61 63 6b 0a 09 09 20 20 20 20 20 20 20 20 black...
1e40: 7d 20 65 6c 73 65 20 7b 20 25 65 20 63 6f 6e 66 } else { %e conf
1e50: 69 67 75 72 65 20 2d 73 74 61 74 65 20 64 69 73 igure -state dis
1e60: 61 62 6c 65 64 20 2d 66 67 20 67 72 65 79 20 7d abled -fg grey }
1e70: 0a 0a 09 09 20 20 20 20 20 20 20 20 73 65 74 20 .... set
1e80: 76 61 6c 75 65 73 20 22 22 0a 09 09 20 20 20 20 values ""...
1e90: 20 20 20 20 66 6f 72 65 61 63 68 20 69 20 5b 6c foreach i [l
1ea0: 69 73 74 20 67 6c 6f 62 61 6c 20 61 75 74 6f 6d ist global autom
1eb0: 61 74 69 63 20 61 75 74 6f 6d 61 74 69 63 5f 61 atic automatic_a
1ec0: 6c 74 5d 20 7b 0a 09 09 20 20 20 20 20 20 20 20 lt] {...
1ed0: 20 20 20 20 69 66 20 7b 20 24 44 69 61 6c 6f 67 if { $Dialog
1ee0: 57 69 6e 3a 3a 75 73 65 72 28 41 58 45 53 54 59 Win::user(AXESTY
1ef0: 50 45 2c 24 69 2c 25 6e 29 20 7d 20 7b 20 6c 61 PE,$i,%n) } { la
1f00: 70 70 65 6e 64 20 76 61 6c 75 65 73 20 24 69 20 ppend values $i
1f10: 7d 0a 09 09 20 20 20 20 20 20 20 20 7d 0a 09 09 }... }...
1f20: 20 20 20 20 20 20 20 20 25 63 20 63 6f 6e 66 69 %c confi
1f30: 67 75 72 65 20 2d 76 61 6c 75 65 73 20 24 76 61 gure -values $va
1f40: 6c 75 65 73 0a 09 09 20 20 20 20 20 20 20 20 73 lues... s
1f50: 65 74 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 et DialogWin::us
1f60: 65 72 28 44 45 46 41 55 4c 54 56 41 4c 55 45 2c er(DEFAULTVALUE,
1f70: 25 6e 29 20 5b 6c 69 6e 64 65 78 20 24 76 61 6c %n) [lindex $val
1f80: 75 65 73 20 30 5d 0a 09 09 20 20 20 20 7d 5d 0a ues 0]... }].
1f90: 09 09 69 66 20 7b 20 21 5b 69 6e 66 6f 20 65 78 ..if { ![info ex
1fa0: 69 73 74 73 20 44 69 61 6c 6f 67 57 69 6e 3a 3a ists DialogWin::
1fb0: 75 73 65 72 28 41 58 45 53 4e 41 4d 45 2c 24 69 user(AXESNAME,$i
1fc0: 2c 24 6e 29 5d 20 7d 20 7b 0a 09 09 20 20 20 20 ,$n)] } {...
1fd0: 73 65 74 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 set DialogWin::u
1fe0: 73 65 72 28 41 58 45 53 4e 41 4d 45 2c 24 69 2c ser(AXESNAME,$i,
1ff0: 24 6e 29 20 24 69 0a 09 09 7d 0a 09 09 65 6e 74 $n) $i...}...ent
2000: 72 79 20 24 66 2e 65 24 69 63 20 2d 74 65 78 74 ry $f.e$ic -text
2010: 76 61 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 57 variable DialogW
2020: 69 6e 3a 3a 75 73 65 72 28 41 58 45 53 4e 41 4d in::user(AXESNAM
2030: 45 2c 24 69 2c 24 6e 29 20 2d 67 72 69 64 20 31 E,$i,$n) -grid 1
2040: 0a 09 09 69 6e 63 72 20 69 63 0a 09 20 20 20 20 ...incr ic..
2050: 7d 0a 09 20 20 20 20 6c 61 62 65 6c 20 24 66 2e }.. label $f.
2060: 6c 34 20 2d 74 65 78 74 20 22 44 65 66 61 75 6c l4 -text "Defaul
2070: 74 20 76 61 6c 75 65 3a 22 20 2d 67 72 69 64 20 t value:" -grid
2080: 30 0a 09 20 20 20 20 73 65 74 20 76 61 6c 75 65 0.. set value
2090: 73 20 22 22 0a 09 20 20 20 20 66 6f 72 65 61 63 s "".. foreac
20a0: 68 20 69 20 5b 6c 69 73 74 20 67 6c 6f 62 61 6c h i [list global
20b0: 20 61 75 74 6f 6d 61 74 69 63 20 61 75 74 6f 6d automatic autom
20c0: 61 74 69 63 5f 61 6c 74 5d 20 7b 0a 09 09 69 66 atic_alt] {...if
20d0: 20 7b 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 { $DialogWin::u
20e0: 73 65 72 28 41 58 45 53 54 59 50 45 2c 24 69 2c ser(AXESTYPE,$i,
20f0: 24 6e 29 20 7d 20 7b 20 6c 61 70 70 65 6e 64 20 $n) } { lappend
2100: 76 61 6c 75 65 73 20 24 69 20 7d 0a 09 20 20 20 values $i }..
2110: 20 7d 0a 09 20 20 20 20 43 6f 6d 62 6f 42 6f 78 }.. ComboBox
2120: 20 24 66 2e 63 62 34 20 2d 74 65 78 74 76 61 72 $f.cb4 -textvar
2130: 69 61 62 6c 65 20 44 69 61 6c 6f 67 57 69 6e 3a iable DialogWin:
2140: 3a 75 73 65 72 28 44 45 46 41 55 4c 54 56 41 4c :user(DEFAULTVAL
2150: 55 45 2c 24 6e 29 20 2d 76 61 6c 75 65 73 20 24 UE,$n) -values $
2160: 76 61 6c 75 65 73 20 2d 67 72 69 64 20 31 0a 09 values -grid 1..
2170: 20 20 20 20 73 65 74 20 44 69 61 6c 6f 67 57 69 set DialogWi
2180: 6e 3a 3a 75 73 65 72 28 44 45 46 41 55 4c 54 56 n::user(DEFAULTV
2190: 41 4c 55 45 2c 24 6e 29 20 5b 6c 69 6e 64 65 78 ALUE,$n) [lindex
21a0: 20 24 76 61 6c 75 65 73 20 30 5d 0a 09 7d 0a 20 $values 0]..}.
21b0: 20 20 20 7d 0a 20 20 20 20 73 75 70 65 72 67 72 }. supergr
21c0: 69 64 3a 3a 67 6f 20 24 66 0a 7d 0a 0a 70 72 6f id::go $f.}..pro
21d0: 63 20 52 61 6d 44 65 62 75 67 67 65 72 3a 3a 57 c RamDebugger::W
21e0: 69 7a 61 72 64 3a 3a 43 6f 6e 64 4d 61 74 50 61 izard::CondMatPa
21f0: 67 65 32 20 7b 20 77 68 61 74 20 66 20 7d 20 7b ge2 { what f } {
2200: 0a 20 20 20 20 0a 20 20 20 20 73 65 74 20 6e 20 . . set n
2210: 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 $DialogWin::user
2220: 28 46 49 45 4c 44 4e 55 4d 29 0a 20 20 20 20 69 (FIELDNUM). i
2230: 66 20 7b 20 21 5b 69 6e 66 6f 20 65 78 69 73 74 f { ![info exist
2240: 73 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 s DialogWin::use
2250: 72 28 46 49 45 4c 44 4e 41 4d 45 2c 24 6e 29 5d r(FIELDNAME,$n)]
2260: 20 7c 7c 20 24 6e 20 3e 20 5b 6c 6c 65 6e 67 74 || $n > [llengt
2270: 68 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 h $DialogWin::us
2280: 65 72 28 46 49 45 4c 44 4e 41 4d 45 53 29 5d 20 er(FIELDNAMES)]
2290: 7d 20 7b 0a 09 66 6f 72 20 7b 20 73 65 74 20 69 } {..for { set i
22a0: 20 30 20 7d 20 7b 20 24 69 20 3c 20 31 30 30 20 0 } { $i < 100
22b0: 7d 20 7b 20 69 6e 63 72 20 69 20 7d 20 7b 0a 09 } { incr i } {..
22c0: 20 20 20 20 69 66 20 7b 20 5b 6c 73 65 61 72 63 if { [lsearc
22d0: 68 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 h $DialogWin::us
22e0: 65 72 28 46 49 45 4c 44 4e 41 4d 45 53 29 20 66 er(FIELDNAMES) f
22f0: 69 65 6c 64 5f 6e 61 6d 65 24 69 5d 20 3d 3d 20 ield_name$i] ==
2300: 2d 31 20 7d 20 7b 0a 09 09 73 65 74 20 44 69 61 -1 } {...set Dia
2310: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 logWin::user(FIE
2320: 4c 44 4e 41 4d 45 2c 24 6e 29 20 66 69 65 6c 64 LDNAME,$n) field
2330: 5f 6e 61 6d 65 24 69 0a 09 09 62 72 65 61 6b 0a _name$i...break.
2340: 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a . }..}. }.
2350: 20 20 20 20 69 66 20 7b 20 21 5b 69 6e 66 6f 20 if { ![info
2360: 65 78 69 73 74 73 20 44 69 61 6c 6f 67 57 69 6e exists DialogWin
2370: 3a 3a 75 73 65 72 28 44 45 46 41 55 4c 54 56 41 ::user(DEFAULTVA
2380: 4c 55 45 2c 24 6e 29 5d 20 7d 20 7b 0a 09 73 65 LUE,$n)] } {..se
2390: 74 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 t DialogWin::use
23a0: 72 28 44 45 46 41 55 4c 54 56 41 4c 55 45 2c 24 r(DEFAULTVALUE,$
23b0: 6e 29 20 64 65 66 61 75 6c 74 5f 76 61 6c 75 65 n) default_value
23c0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 20 . }. if {
23d0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 44 69 ![info exists Di
23e0: 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 alogWin::user(FI
23f0: 45 4c 44 54 59 50 45 2c 24 6e 29 5d 20 7d 20 7b ELDTYPE,$n)] } {
2400: 0a 09 73 65 74 20 44 69 61 6c 6f 67 57 69 6e 3a ..set DialogWin:
2410: 3a 75 73 65 72 28 46 49 45 4c 44 54 59 50 45 2c :user(FIELDTYPE,
2420: 24 6e 29 20 6e 6f 72 6d 61 6c 0a 20 20 20 20 7d $n) normal. }
2430: 0a 0a 20 20 20 20 6c 61 62 65 6c 66 72 61 6d 65 .. labelframe
2440: 20 24 66 2e 66 31 20 2d 74 65 78 74 20 22 66 69 $f.f1 -text "fi
2450: 65 6c 64 20 64 65 66 69 6e 69 74 69 6f 6e 22 20 eld definition"
2460: 2d 67 72 69 64 20 30 0a 20 20 20 20 6c 61 62 65 -grid 0. labe
2470: 6c 20 24 66 2e 66 31 2e 6c 30 20 2d 74 65 78 74 l $f.f1.l0 -text
2480: 20 22 46 69 65 6c 64 20 6e 61 6d 65 3a 22 20 2d "Field name:" -
2490: 67 72 69 64 20 22 30 20 65 22 0a 20 20 20 20 43 grid "0 e". C
24a0: 6f 6d 62 6f 42 6f 78 20 24 66 2e 66 31 2e 63 62 omboBox $f.f1.cb
24b0: 30 20 2d 74 65 78 74 76 61 72 69 61 62 6c 65 20 0 -textvariable
24c0: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
24d0: 46 49 45 4c 44 4e 41 4d 45 2c 24 6e 29 20 5c 0a FIELDNAME,$n) \.
24e0: 09 2d 76 61 6c 75 65 73 20 24 44 69 61 6c 6f 67 .-values $Dialog
24f0: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 4e Win::user(FIELDN
2500: 41 4d 45 53 29 20 2d 67 72 69 64 20 22 31 20 70 AMES) -grid "1 p
2510: 78 32 22 0a 20 20 20 20 6c 61 62 65 6c 20 24 66 x2". label $f
2520: 2e 66 31 2e 6c 31 20 2d 74 65 78 74 20 22 46 69 .f1.l1 -text "Fi
2530: 65 6c 64 20 74 79 70 65 3a 22 20 2d 67 72 69 64 eld type:" -grid
2540: 20 30 0a 20 20 20 20 66 72 61 6d 65 20 24 66 2e 0. frame $f.
2550: 66 31 2e 66 20 2d 67 72 69 64 20 22 30 20 32 20 f1.f -grid "0 2
2560: 77 20 70 78 32 30 22 0a 20 20 20 20 72 61 64 69 w px20". radi
2570: 6f 62 75 74 74 6f 6e 20 24 66 2e 66 31 2e 66 2e obutton $f.f1.f.
2580: 72 31 20 2d 74 65 78 74 20 4e 6f 72 6d 61 6c 20 r1 -text Normal
2590: 2d 76 61 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 -variable Dialog
25a0: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 54 Win::user(FIELDT
25b0: 59 50 45 2c 24 6e 29 20 5c 0a 09 2d 76 61 6c 75 YPE,$n) \..-valu
25c0: 65 20 6e 6f 72 6d 61 6c 20 2d 67 72 69 64 20 22 e normal -grid "
25d0: 30 20 77 22 20 2d 63 6f 6d 6d 61 6e 64 20 5b 6c 0 w" -command [l
25e0: 69 73 74 20 52 61 6d 44 65 62 75 67 67 65 72 3a ist RamDebugger:
25f0: 3a 57 69 7a 61 72 64 3a 3a 4d 6f 64 43 6f 6e 64 :Wizard::ModCond
2600: 4d 61 74 50 61 67 65 32 20 24 77 68 61 74 20 24 MatPage2 $what $
2610: 66 2e 66 32 5d 0a 20 20 20 20 72 61 64 69 6f 62 f.f2]. radiob
2620: 75 74 74 6f 6e 20 24 66 2e 66 31 2e 66 2e 72 32 utton $f.f1.f.r2
2630: 20 2d 74 65 78 74 20 43 6f 6d 62 6f 62 6f 78 20 -text Combobox
2640: 2d 76 61 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 -variable Dialog
2650: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 54 Win::user(FIELDT
2660: 59 50 45 2c 24 6e 29 20 5c 0a 09 2d 76 61 6c 75 YPE,$n) \..-valu
2670: 65 20 63 6f 6d 62 6f 62 6f 78 20 2d 67 72 69 64 e combobox -grid
2680: 20 22 30 20 77 22 20 2d 63 6f 6d 6d 61 6e 64 20 "0 w" -command
2690: 5b 6c 69 73 74 20 52 61 6d 44 65 62 75 67 67 65 [list RamDebugge
26a0: 72 3a 3a 57 69 7a 61 72 64 3a 3a 4d 6f 64 43 6f r::Wizard::ModCo
26b0: 6e 64 4d 61 74 50 61 67 65 32 20 24 77 68 61 74 ndMatPage2 $what
26c0: 20 24 66 2e 66 32 5d 0a 20 20 20 20 69 66 20 7b $f.f2]. if {
26d0: 20 24 77 68 61 74 20 3d 3d 20 22 63 6f 6e 64 69 $what == "condi
26e0: 74 69 6f 6e 22 20 7d 20 7b 0a 09 72 61 64 69 6f tion" } {..radio
26f0: 62 75 74 74 6f 6e 20 24 66 2e 66 31 2e 66 2e 72 button $f.f1.f.r
2700: 33 20 2d 74 65 78 74 20 22 4c 6f 63 61 6c 20 41 3 -text "Local A
2710: 78 65 73 22 20 2d 76 61 72 69 61 62 6c 65 20 44 xes" -variable D
2720: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 ialogWin::user(F
2730: 49 45 4c 44 54 59 50 45 2c 24 6e 29 20 5c 0a 09 IELDTYPE,$n) \..
2740: 20 20 20 20 2d 76 61 6c 75 65 20 6c 6f 63 61 6c -value local
2750: 61 78 65 73 20 2d 67 72 69 64 20 22 30 20 77 22 axes -grid "0 w"
2760: 20 2d 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20 -command [list
2770: 52 61 6d 44 65 62 75 67 67 65 72 3a 3a 57 69 7a RamDebugger::Wiz
2780: 61 72 64 3a 3a 4d 6f 64 43 6f 6e 64 50 61 67 65 ard::ModCondPage
2790: 32 20 24 77 68 61 74 20 24 66 2e 66 32 5d 0a 20 2 $what $f.f2].
27a0: 20 20 20 7d 0a 20 20 20 20 72 61 64 69 6f 62 75 }. radiobu
27b0: 74 74 6f 6e 20 24 66 2e 66 31 2e 66 2e 72 34 20 tton $f.f1.f.r4
27c0: 2d 74 65 78 74 20 4d 61 74 72 69 78 20 2d 76 61 -text Matrix -va
27d0: 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 57 69 6e riable DialogWin
27e0: 3a 3a 75 73 65 72 28 46 49 45 4c 44 54 59 50 45 ::user(FIELDTYPE
27f0: 2c 24 6e 29 20 5c 0a 09 2d 76 61 6c 75 65 20 6d ,$n) \..-value m
2800: 61 74 72 69 78 20 2d 67 72 69 64 20 22 30 20 77 atrix -grid "0 w
2810: 22 20 2d 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 " -command [list
2820: 20 52 61 6d 44 65 62 75 67 67 65 72 3a 3a 57 69 RamDebugger::Wi
2830: 7a 61 72 64 3a 3a 4d 6f 64 43 6f 6e 64 4d 61 74 zard::ModCondMat
2840: 50 61 67 65 32 20 24 77 68 61 74 20 24 66 2e 66 Page2 $what $f.f
2850: 32 5d 0a 0a 20 20 20 20 6c 61 62 65 6c 66 72 61 2].. labelfra
2860: 6d 65 20 24 66 2e 66 32 20 2d 74 65 78 74 20 22 me $f.f2 -text "
2870: 64 65 66 61 75 6c 74 20 76 61 6c 75 65 22 20 2d default value" -
2880: 67 72 69 64 20 30 0a 20 20 20 20 52 61 6d 44 65 grid 0. RamDe
2890: 62 75 67 67 65 72 3a 3a 57 69 7a 61 72 64 3a 3a bugger::Wizard::
28a0: 4d 6f 64 43 6f 6e 64 4d 61 74 50 61 67 65 32 20 ModCondMatPage2
28b0: 24 77 68 61 74 20 24 66 2e 66 32 0a 0a 20 20 20 $what $f.f2..
28c0: 20 63 68 65 63 6b 62 75 74 74 6f 6e 20 24 66 2e checkbutton $f.
28d0: 6c 30 20 2d 74 65 78 74 20 22 45 6e 74 65 72 20 l0 -text "Enter
28e0: 61 6e 6f 74 68 65 72 20 66 69 65 6c 64 22 20 2d another field" -
28f0: 76 61 72 69 61 62 6c 65 20 44 69 61 6c 6f 67 57 variable DialogW
2900: 69 6e 3a 3a 75 73 65 72 28 61 6e 6f 74 68 65 72 in::user(another
2910: 66 69 65 6c 64 29 20 2d 67 72 69 64 20 22 30 20 field) -grid "0
2920: 77 22 0a 20 20 20 20 73 65 74 20 44 69 61 6c 6f w". set Dialo
2930: 67 57 69 6e 3a 3a 75 73 65 72 28 61 6e 6f 74 68 gWin::user(anoth
2940: 65 72 66 69 65 6c 64 29 20 30 0a 0a 7d 0a 70 72 erfield) 0..}.pr
2950: 6f 63 20 52 61 6d 44 65 62 75 67 67 65 72 3a 3a oc RamDebugger::
2960: 57 69 7a 61 72 64 3a 3a 43 6f 6e 64 4d 61 74 50 Wizard::CondMatP
2970: 61 67 65 33 20 7b 20 77 68 61 74 20 66 20 7d 20 age3 { what f }
2980: 7b 0a 0a 20 20 20 20 73 77 69 74 63 68 20 24 77 {.. switch $w
2990: 68 61 74 20 7b 0a 09 63 6f 6e 64 69 74 69 6f 6e hat {..condition
29a0: 20 7b 20 73 65 74 20 74 78 74 20 22 4e 55 4d 42 { set txt "NUMB
29b0: 45 52 3a 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a ER: $DialogWin::
29c0: 75 73 65 72 28 4d 41 58 43 4f 4e 44 4e 55 4d 29 user(MAXCONDNUM)
29d0: 20 22 20 7d 0a 09 6d 61 74 65 72 69 61 6c 20 7b " }..material {
29e0: 20 73 65 74 20 74 78 74 20 22 4e 55 4d 42 45 52 set txt "NUMBER
29f0: 3a 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 : $DialogWin::us
2a00: 65 72 28 4d 41 58 4d 41 54 4e 55 4d 29 20 22 20 er(MAXMATNUM) "
2a10: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 73 77 69 74 }. }. swit
2a20: 63 68 20 24 77 68 61 74 20 7b 0a 09 63 6f 6e 64 ch $what {..cond
2a30: 69 74 69 6f 6e 20 7b 0a 09 20 20 20 20 61 70 70 ition {.. app
2a40: 65 6e 64 20 74 78 74 20 22 43 4f 4e 44 49 54 49 end txt "CONDITI
2a50: 4f 4e 3a 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a ON: $DialogWin::
2a60: 75 73 65 72 28 4e 41 4d 45 29 5c 6e 22 0a 09 20 user(NAME)\n"..
2a70: 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 22 43 append txt "C
2a80: 4f 4e 44 54 59 50 45 3a 20 24 44 69 61 6c 6f 67 ONDTYPE: $Dialog
2a90: 57 69 6e 3a 3a 75 73 65 72 28 43 4f 4e 44 54 59 Win::user(CONDTY
2aa0: 50 45 29 5c 6e 22 0a 09 20 20 20 20 61 70 70 65 PE)\n".. appe
2ab0: 6e 64 20 74 78 74 20 22 43 4f 4e 44 4d 45 53 48 nd txt "CONDMESH
2ac0: 54 59 50 45 3a 20 24 44 69 61 6c 6f 67 57 69 6e TYPE: $DialogWin
2ad0: 3a 3a 75 73 65 72 28 43 4f 4e 44 4d 45 53 48 54 ::user(CONDMESHT
2ae0: 59 50 45 29 5c 6e 22 0a 09 7d 0a 09 6d 61 74 65 YPE)\n"..}..mate
2af0: 72 69 61 6c 20 7b 0a 09 20 20 20 20 61 70 70 65 rial {.. appe
2b00: 6e 64 20 74 78 74 20 22 4d 41 54 45 52 49 41 4c nd txt "MATERIAL
2b10: 3a 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 : $DialogWin::us
2b20: 65 72 28 4e 41 4d 45 29 5c 6e 22 0a 09 7d 0a 20 er(NAME)\n"..}.
2b30: 20 20 20 7d 0a 20 20 20 20 66 6f 72 20 7b 20 73 }. for { s
2b40: 65 74 20 69 20 31 20 7d 20 7b 20 24 69 20 3c 3d et i 1 } { $i <=
2b50: 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 $DialogWin::use
2b60: 72 28 46 49 45 4c 44 4e 55 4d 29 20 7d 20 7b 20 r(FIELDNUM) } {
2b70: 69 6e 63 72 20 69 20 7d 20 7b 0a 09 73 77 69 74 incr i } {..swit
2b80: 63 68 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 ch $DialogWin::u
2b90: 73 65 72 28 46 49 45 4c 44 54 59 50 45 2c 24 69 ser(FIELDTYPE,$i
2ba0: 29 20 7b 0a 09 20 20 20 20 6e 6f 72 6d 61 6c 20 ) {.. normal
2bb0: 7b 0a 09 09 61 70 70 65 6e 64 20 74 78 74 20 22 {...append txt "
2bc0: 51 55 45 53 54 49 4f 4e 3a 20 24 44 69 61 6c 6f QUESTION: $Dialo
2bd0: 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 gWin::user(FIELD
2be0: 4e 41 4d 45 2c 24 69 29 5c 6e 22 0a 09 20 20 20 NAME,$i)\n"..
2bf0: 20 7d 0a 09 20 20 20 20 63 6f 6d 62 6f 62 6f 78 }.. combobox
2c00: 20 7b 0a 09 09 73 65 74 20 66 6f 20 5b 6a 6f 69 {...set fo [joi
2c10: 6e 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 n $DialogWin::us
2c20: 65 72 28 46 49 45 4c 44 56 41 4c 55 45 53 2c 24 er(FIELDVALUES,$
2c30: 69 29 20 22 2c 22 5d 0a 09 09 61 70 70 65 6e 64 i) ","]...append
2c40: 20 74 78 74 20 22 51 55 45 53 54 49 4f 4e 3a 20 txt "QUESTION:
2c50: 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 $DialogWin::user
2c60: 28 46 49 45 4c 44 4e 41 4d 45 2c 24 69 29 23 43 (FIELDNAME,$i)#C
2c70: 42 23 28 24 66 6f 29 5c 6e 22 0a 09 20 20 20 20 B#($fo)\n"..
2c80: 7d 0a 09 20 20 20 20 6c 6f 63 61 6c 61 78 65 73 }.. localaxes
2c90: 20 7b 0a 09 09 73 65 74 20 76 61 6c 75 65 73 20 {...set values
2ca0: 22 22 0a 09 09 66 6f 72 65 61 63 68 20 22 6a 20 ""...foreach "j
2cb0: 70 6f 73 74 22 20 5b 6c 69 73 74 20 67 6c 6f 62 post" [list glob
2cc0: 61 6c 20 22 23 47 23 22 20 61 75 74 6f 6d 61 74 al "#G#" automat
2cd0: 69 63 20 22 23 41 23 22 20 61 75 74 6f 6d 61 74 ic "#A#" automat
2ce0: 69 63 5f 61 6c 74 20 22 23 4c 23 22 5d 20 7b 0a ic_alt "#L#"] {.
2cf0: 09 09 20 20 20 20 69 66 20 7b 20 24 44 69 61 6c .. if { $Dial
2d00: 6f 67 57 69 6e 3a 3a 75 73 65 72 28 41 58 45 53 ogWin::user(AXES
2d10: 54 59 50 45 2c 24 6a 2c 24 69 29 20 7d 20 7b 0a TYPE,$j,$i) } {.
2d20: 09 09 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e .. lappen
2d30: 64 20 76 61 6c 75 65 73 20 24 44 69 61 6c 6f 67 d values $Dialog
2d40: 57 69 6e 3a 3a 75 73 65 72 28 41 58 45 53 4e 41 Win::user(AXESNA
2d50: 4d 45 2c 24 6a 2c 24 69 29 24 70 6f 73 74 0a 09 ME,$j,$i)$post..
2d60: 09 20 20 20 20 7d 0a 09 09 7d 0a 09 09 73 65 74 . }...}...set
2d70: 20 66 6f 20 5b 6a 6f 69 6e 20 24 76 61 6c 75 65 fo [join $value
2d80: 73 20 22 2c 22 5d 0a 09 09 61 70 70 65 6e 64 20 s ","]...append
2d90: 74 78 74 20 22 51 55 45 53 54 49 4f 4e 3a 20 24 txt "QUESTION: $
2da0: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
2db0: 46 49 45 4c 44 4e 41 4d 45 2c 24 69 29 23 4c 41 FIELDNAME,$i)#LA
2dc0: 23 28 24 66 6f 29 5c 6e 22 0a 09 20 20 20 20 7d #($fo)\n".. }
2dd0: 0a 09 20 20 20 20 6d 61 74 72 69 78 20 7b 0a 09 .. matrix {..
2de0: 09 73 65 74 20 66 6f 20 5b 6a 6f 69 6e 20 24 44 .set fo [join $D
2df0: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 ialogWin::user(F
2e00: 49 45 4c 44 56 41 4c 55 45 53 2c 24 69 29 20 22 IELDVALUES,$i) "
2e10: 2c 22 5d 0a 09 09 61 70 70 65 6e 64 20 74 78 74 ,"]...append txt
2e20: 20 22 51 55 45 53 54 49 4f 4e 3a 20 24 44 69 61 "QUESTION: $Dia
2e30: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 logWin::user(FIE
2e40: 4c 44 4e 41 4d 45 2c 24 69 29 28 24 66 6f 29 5c LDNAME,$i)($fo)\
2e50: 6e 22 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 69 66 n".. }..}..if
2e60: 20 7b 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 { $DialogWin::u
2e70: 73 65 72 28 46 49 45 4c 44 54 59 50 45 2c 24 69 ser(FIELDTYPE,$i
2e80: 29 20 21 3d 20 22 6d 61 74 72 69 78 22 20 7d 20 ) != "matrix" }
2e90: 7b 0a 09 20 20 20 20 61 70 70 65 6e 64 20 74 78 {.. append tx
2ea0: 74 20 22 56 41 4c 55 45 3a 20 24 44 69 61 6c 6f t "VALUE: $Dialo
2eb0: 67 57 69 6e 3a 3a 75 73 65 72 28 44 45 46 41 55 gWin::user(DEFAU
2ec0: 4c 54 56 41 4c 55 45 2c 24 69 29 5c 6e 22 0a 09 LTVALUE,$i)\n"..
2ed0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 73 65 } else {.. se
2ee0: 74 20 6c 65 6e 5f 66 6f 20 5b 6c 6c 65 6e 67 74 t len_fo [llengt
2ef0: 68 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 h $DialogWin::us
2f00: 65 72 28 46 49 45 4c 44 56 41 4c 55 45 53 2c 24 er(FIELDVALUES,$
2f10: 69 29 5d 0a 09 20 20 20 20 61 70 70 65 6e 64 20 i)].. append
2f20: 74 78 74 20 22 56 41 4c 55 45 3a 20 23 4e 23 20 txt "VALUE: #N#
2f30: 24 6c 65 6e 5f 66 6f 20 5b 6c 72 65 70 65 61 74 $len_fo [lrepeat
2f40: 20 24 6c 65 6e 5f 66 6f 20 30 2e 30 5d 5c 6e 22 $len_fo 0.0]\n"
2f50: 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 73 77 ..}. }. sw
2f60: 69 74 63 68 20 24 77 68 61 74 20 7b 0a 09 63 6f itch $what {..co
2f70: 6e 64 69 74 69 6f 6e 20 7b 20 61 70 70 65 6e 64 ndition { append
2f80: 20 74 78 74 20 22 45 4e 44 20 43 4f 4e 44 49 54 txt "END CONDIT
2f90: 49 4f 4e 22 20 7d 0a 09 6d 61 74 65 72 69 61 6c ION" }..material
2fa0: 20 7b 20 61 70 70 65 6e 64 20 74 78 74 20 22 45 { append txt "E
2fb0: 4e 44 20 4d 41 54 45 52 49 41 4c 22 20 7d 0a 20 ND MATERIAL" }.
2fc0: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 44 69 61 }. set Dia
2fd0: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 43 4f 4e logWin::user(CON
2fe0: 54 54 58 54 29 20 24 74 78 74 0a 0a 20 20 20 20 TTXT) $txt..
2ff0: 6c 61 62 65 6c 66 72 61 6d 65 20 24 66 2e 66 31 labelframe $f.f1
3000: 20 2d 74 65 78 74 20 22 67 65 6e 65 72 61 74 65 -text "generate
3010: 64 20 24 77 68 61 74 22 20 2d 67 72 69 64 20 30 d $what" -grid 0
3020: 0a 20 20 20 20 6c 61 62 65 6c 20 24 66 2e 66 31 . label $f.f1
3030: 2e 6c 30 20 2d 74 65 78 74 20 22 54 68 65 20 67 .l0 -text "The g
3040: 65 6e 65 72 61 74 65 64 20 24 77 68 61 74 20 69 enerated $what i
3050: 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 2e s the following.
3060: 20 50 72 6f 63 65 65 64 3f 22 20 2d 67 72 69 64 Proceed?" -grid
3070: 20 30 0a 20 20 20 20 73 65 74 20 73 77 20 5b 53 0. set sw [S
3080: 63 72 6f 6c 6c 65 64 57 69 6e 64 6f 77 20 24 66 crolledWindow $f
3090: 2e 66 31 2e 6c 66 20 2d 72 65 6c 69 65 66 20 73 .f1.lf -relief s
30a0: 75 6e 6b 65 6e 20 2d 62 6f 72 64 65 72 77 69 64 unken -borderwid
30b0: 74 68 20 30 20 2d 67 72 69 64 20 30 5d 0a 20 20 th 0 -grid 0].
30c0: 20 20 74 65 78 74 20 24 73 77 2e 74 20 2d 62 61 text $sw.t -ba
30d0: 63 6b 67 72 6f 75 6e 64 20 77 68 69 74 65 20 2d ckground white -
30e0: 77 69 64 74 68 20 33 30 20 2d 68 65 69 67 68 74 width 30 -height
30f0: 20 36 20 2d 77 72 61 70 20 6e 6f 6e 65 0a 20 20 6 -wrap none.
3100: 20 20 24 73 77 20 73 65 74 77 69 64 67 65 74 20 $sw setwidget
3110: 24 73 77 2e 74 0a 20 20 20 20 24 73 77 2e 74 20 $sw.t. $sw.t
3120: 69 6e 73 65 72 74 20 65 6e 64 20 24 74 78 74 0a insert end $txt.
3130: 20 20 20 20 24 73 77 2e 74 20 63 6f 6e 66 69 67 $sw.t config
3140: 75 72 65 20 2d 73 74 61 74 65 20 64 69 73 61 62 ure -state disab
3150: 6c 65 64 0a 20 20 20 20 62 69 6e 64 20 24 73 77 led. bind $sw
3160: 2e 74 20 3c 31 3e 20 22 66 6f 63 75 73 20 24 73 .t <1> "focus $s
3170: 77 2e 74 22 0a 7d 0a 0a 70 72 6f 63 20 52 61 6d w.t".}..proc Ram
3180: 44 65 62 75 67 67 65 72 3a 3a 57 69 7a 61 72 64 Debugger::Wizard
3190: 3a 3a 43 6f 6e 64 4d 61 74 57 69 7a 61 72 64 20 ::CondMatWizard
31a0: 7b 20 74 65 78 74 20 66 69 6c 65 6e 61 6d 65 20 { text filename
31b0: 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 } {. variable
31c0: 20 6e 69 63 65 5f 69 6d 61 67 65 0a 0a 20 20 20 nice_image..
31d0: 20 73 77 69 74 63 68 20 2d 2d 20 5b 66 69 6c 65 switch -- [file
31e0: 20 65 78 74 65 6e 73 69 6f 6e 20 24 66 69 6c 65 extension $file
31f0: 6e 61 6d 65 5d 20 7b 0a 09 2e 63 6e 64 20 7b 20 name] {...cnd {
3200: 73 65 74 20 77 68 61 74 20 63 6f 6e 64 69 74 69 set what conditi
3210: 6f 6e 20 7d 0a 09 2e 6d 61 74 20 7b 20 73 65 74 on }...mat { set
3220: 20 77 68 61 74 20 6d 61 74 65 72 69 61 6c 20 7d what material }
3230: 0a 09 64 65 66 61 75 6c 74 20 7b 0a 09 20 20 20 ..default {..
3240: 20 57 61 72 6e 57 69 6e 20 22 46 69 6c 65 20 27 WarnWin "File '
3250: 24 66 69 6c 65 6e 61 6d 65 27 20 6d 75 73 74 20 $filename' must
3260: 62 65 20 61 20 47 69 44 20 43 4e 44 20 6f 72 20 be a GiD CND or
3270: 61 20 4d 41 54 20 66 69 6c 65 22 0a 09 20 20 20 a MAT file"..
3280: 20 72 65 74 75 72 6e 0a 09 7d 0a 20 20 20 20 7d return..}. }
3290: 0a 0a 20 20 20 20 73 65 74 20 69 64 78 20 5b 24 .. set idx [$
32a0: 74 65 78 74 20 69 6e 64 65 78 20 69 6e 73 65 72 text index inser
32b0: 74 5d 0a 20 20 20 20 69 66 20 7b 20 5b 73 74 72 t]. if { [str
32c0: 69 6e 67 20 74 72 69 6d 20 5b 24 74 65 78 74 20 ing trim [$text
32d0: 67 65 74 20 22 24 69 64 78 20 6c 69 6e 65 73 74 get "$idx linest
32e0: 61 72 74 22 20 22 24 69 64 78 20 6c 69 6e 65 65 art" "$idx linee
32f0: 6e 64 22 5d 5d 20 21 3d 20 22 22 20 7d 20 7b 0a nd"]] != "" } {.
3300: 09 57 61 72 6e 57 69 6e 20 22 49 6e 73 65 72 74 .WarnWin "Insert
3310: 69 6f 6e 20 63 75 72 73 6f 72 20 6d 75 73 74 20 ion cursor must
3320: 62 65 20 69 6e 20 61 20 62 6c 61 6e 6b 20 6c 69 be in a blank li
3330: 6e 65 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ne"..return.
3340: 7d 0a 20 20 20 20 69 66 20 7b 20 21 5b 72 65 67 }. if { ![reg
3350: 65 78 70 20 7b 28 45 4e 44 5c 73 2b 28 43 4f 4e exp {(END\s+(CON
3360: 44 49 54 49 4f 4e 7c 4d 41 54 45 52 49 41 4c 29 DITION|MATERIAL)
3370: 5c 73 2b 7c 5e 5c 73 2a 29 24 7d 20 5b 24 74 65 \s+|^\s*)$} [$te
3380: 78 74 20 67 65 74 20 31 2e 30 20 24 69 64 78 5d xt get 1.0 $idx]
3390: 5d 20 7d 20 7b 0a 09 57 61 72 6e 57 69 6e 20 22 ] } {..WarnWin "
33a0: 49 6e 73 65 72 74 69 6f 6e 20 63 75 72 73 6f 72 Insertion cursor
33b0: 20 6d 75 73 74 20 62 65 20 61 74 20 74 68 65 20 must be at the
33c0: 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 beginning of the
33d0: 20 66 69 6c 65 20 6f 72 20 61 66 74 65 72 20 6f file or after o
33e0: 6e 65 20 24 77 68 61 74 22 0a 09 72 65 74 75 72 ne $what"..retur
33f0: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 65 74 n. }.. set
3400: 20 74 78 74 20 5b 24 74 65 78 74 20 67 65 74 20 txt [$text get
3410: 31 2e 30 20 65 6e 64 2d 31 63 5d 0a 0a 20 20 20 1.0 end-1c]..
3420: 20 73 77 69 74 63 68 20 24 77 68 61 74 20 7b 0a switch $what {.
3430: 09 63 6f 6e 64 69 74 69 6f 6e 20 7b 0a 09 20 20 .condition {..
3440: 20 20 73 65 74 20 44 69 61 6c 6f 67 57 69 6e 3a set DialogWin:
3450: 3a 75 73 65 72 28 43 4f 4e 44 4e 41 4d 45 53 29 :user(CONDNAMES)
3460: 20 22 22 0a 09 20 20 20 20 73 65 74 20 44 69 61 "".. set Dia
3470: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 4d 41 58 logWin::user(MAX
3480: 43 4f 4e 44 4e 55 4d 29 20 30 0a 09 20 20 20 20 CONDNUM) 0..
3490: 66 6f 72 65 61 63 68 20 22 2d 20 6e 75 6d 20 63 foreach "- num c
34a0: 6e 64 22 20 5b 72 65 67 65 78 70 20 2d 69 6e 6c nd" [regexp -inl
34b0: 69 6e 65 20 2d 61 6c 6c 20 7b 28 3f 69 6e 29 5e ine -all {(?in)^
34c0: 5c 73 2a 4e 55 4d 42 45 52 3a 5c 73 2a 28 5c 64 \s*NUMBER:\s*(\d
34d0: 2b 29 5c 73 2b 43 4f 4e 44 49 54 49 4f 4e 3a 5c +)\s+CONDITION:\
34e0: 73 2a 28 5c 53 2b 29 7d 20 24 74 78 74 5d 20 7b s*(\S+)} $txt] {
34f0: 0a 09 09 6c 61 70 70 65 6e 64 20 44 69 61 6c 6f ...lappend Dialo
3500: 67 57 69 6e 3a 3a 75 73 65 72 28 43 4f 4e 44 4e gWin::user(CONDN
3510: 41 4d 45 53 29 20 24 63 6e 64 0a 09 09 69 66 20 AMES) $cnd...if
3520: 7b 20 24 6e 75 6d 20 3e 20 24 44 69 61 6c 6f 67 { $num > $Dialog
3530: 57 69 6e 3a 3a 75 73 65 72 28 4d 41 58 43 4f 4e Win::user(MAXCON
3540: 44 4e 55 4d 29 20 7d 20 7b 20 73 65 74 20 44 69 DNUM) } { set Di
3550: 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 4d 41 alogWin::user(MA
3560: 58 43 4f 4e 44 4e 55 4d 29 20 24 6e 75 6d 20 7d XCONDNUM) $num }
3570: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 6e 63 .. }.. inc
3580: 72 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 r DialogWin::use
3590: 72 28 4d 41 58 43 4f 4e 44 4e 55 4d 29 0a 09 20 r(MAXCONDNUM)..
35a0: 20 20 20 73 65 74 20 6e 61 6d 65 73 20 24 44 69 set names $Di
35b0: 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 43 4f alogWin::user(CO
35c0: 4e 44 4e 41 4d 45 53 29 0a 09 7d 0a 09 6d 61 74 NDNAMES)..}..mat
35d0: 65 72 69 61 6c 20 7b 0a 09 20 20 20 20 73 65 74 erial {.. set
35e0: 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 DialogWin::user
35f0: 28 4d 41 54 4e 41 4d 45 53 29 20 22 22 0a 09 20 (MATNAMES) ""..
3600: 20 20 20 73 65 74 20 44 69 61 6c 6f 67 57 69 6e set DialogWin
3610: 3a 3a 75 73 65 72 28 4d 41 58 4d 41 54 4e 55 4d ::user(MAXMATNUM
3620: 29 20 30 0a 09 20 20 20 20 66 6f 72 65 61 63 68 ) 0.. foreach
3630: 20 22 2d 20 6e 75 6d 20 6d 61 74 22 20 5b 72 65 "- num mat" [re
3640: 67 65 78 70 20 2d 69 6e 6c 69 6e 65 20 2d 61 6c gexp -inline -al
3650: 6c 20 7b 28 3f 69 6e 29 5e 5c 73 2a 4e 55 4d 42 l {(?in)^\s*NUMB
3660: 45 52 3a 5c 73 2a 28 5c 64 2b 29 5c 73 2b 4d 41 ER:\s*(\d+)\s+MA
3670: 54 45 52 49 41 4c 3a 5c 73 2a 28 5c 53 2b 29 7d TERIAL:\s*(\S+)}
3680: 20 24 74 78 74 5d 20 7b 0a 09 09 6c 61 70 70 65 $txt] {...lappe
3690: 6e 64 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 nd DialogWin::us
36a0: 65 72 28 4d 41 54 4e 41 4d 45 53 29 20 24 6d 61 er(MATNAMES) $ma
36b0: 74 0a 09 09 69 66 20 7b 20 24 6e 75 6d 20 3e 20 t...if { $num >
36c0: 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 $DialogWin::user
36d0: 28 4d 41 58 4d 41 54 4e 55 4d 29 20 7d 20 7b 20 (MAXMATNUM) } {
36e0: 73 65 74 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 set DialogWin::u
36f0: 73 65 72 28 4d 41 58 4d 41 54 4e 55 4d 29 20 24 ser(MAXMATNUM) $
3700: 6e 75 6d 20 7d 0a 09 20 20 20 20 7d 0a 09 20 20 num }.. }..
3710: 20 20 69 6e 63 72 20 44 69 61 6c 6f 67 57 69 6e incr DialogWin
3720: 3a 3a 75 73 65 72 28 4d 41 58 4d 41 54 4e 55 4d ::user(MAXMATNUM
3730: 29 0a 09 20 20 20 20 73 65 74 20 6e 61 6d 65 73 ).. set names
3740: 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 $DialogWin::use
3750: 72 28 4d 41 54 4e 41 4d 45 53 29 0a 09 7d 0a 20 r(MATNAMES)..}.
3760: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 44 69 61 }. set Dia
3770: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 logWin::user(FIE
3780: 4c 44 4e 41 4d 45 53 29 20 22 22 0a 20 20 20 20 LDNAMES) "".
3790: 66 6f 72 65 61 63 68 20 22 2d 20 66 22 20 5b 72 foreach "- f" [r
37a0: 65 67 65 78 70 20 2d 69 6e 6c 69 6e 65 20 2d 61 egexp -inline -a
37b0: 6c 6c 20 7b 28 3f 69 6e 29 5e 5c 73 2a 51 55 45 ll {(?in)^\s*QUE
37c0: 53 54 49 4f 4e 3a 5c 73 2a 28 5b 2d 5c 77 5d 2b STION:\s*([-\w]+
37d0: 29 7d 20 24 74 78 74 5d 20 7b 0a 09 6c 61 70 70 )} $txt] {..lapp
37e0: 65 6e 64 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 end DialogWin::u
37f0: 73 65 72 28 46 49 45 4c 44 4e 41 4d 45 53 29 20 ser(FIELDNAMES)
3800: 24 66 0a 20 20 20 20 7d 0a 20 20 20 20 45 6e 74 $f. }. Ent
3810: 65 72 49 6e 69 74 69 61 6c 44 61 74 61 20 24 74 erInitialData $t
3820: 65 78 74 20 24 6e 69 63 65 5f 69 6d 61 67 65 20 ext $nice_image
3830: 22 43 72 65 61 74 65 20 24 77 68 61 74 22 20 22 "Create $what" "
3840: 45 6e 74 65 72 20 64 61 74 61 20 74 6f 20 64 65 Enter data to de
3850: 66 69 6e 65 20 24 77 68 61 74 3a 22 0a 20 20 20 fine $what:".
3860: 20 73 65 74 20 6e 75 6d 6c 65 76 65 6c 73 20 5b set numlevels [
3870: 6c 6c 65 6e 67 74 68 20 5b 69 6e 66 6f 20 63 6f llength [info co
3880: 6d 6d 61 6e 64 73 20 3a 3a 52 61 6d 44 65 62 75 mmands ::RamDebu
3890: 67 67 65 72 3a 3a 57 69 7a 61 72 64 3a 3a 43 6f gger::Wizard::Co
38a0: 6e 64 4d 61 74 50 61 67 65 2a 5d 5d 0a 20 20 20 ndMatPage*]].
38b0: 20 73 65 74 20 6c 65 76 65 6c 20 31 0a 20 20 20 set level 1.
38c0: 20 77 68 69 6c 65 20 31 20 7b 0a 09 73 77 69 74 while 1 {..swit
38d0: 63 68 20 24 6c 65 76 65 6c 20 31 20 7b 20 73 65 ch $level 1 { se
38e0: 74 20 68 61 73 70 72 65 76 69 6f 75 73 20 30 20 t hasprevious 0
38f0: 7d 20 64 65 66 61 75 6c 74 20 7b 20 73 65 74 20 } default { set
3900: 68 61 73 70 72 65 76 69 6f 75 73 20 31 20 7d 0a hasprevious 1 }.
3910: 09 73 77 69 74 63 68 20 24 6c 65 76 65 6c 20 24 .switch $level $
3920: 6e 75 6d 6c 65 76 65 6c 73 20 7b 20 73 65 74 20 numlevels { set
3930: 68 61 73 6e 65 78 74 20 30 20 7d 20 64 65 66 61 hasnext 0 } defa
3940: 75 6c 74 20 7b 20 73 65 74 20 68 61 73 6e 65 78 ult { set hasnex
3950: 74 20 31 20 7d 0a 20 20 20 0a 09 73 65 74 20 72 t 1 }. ..set r
3960: 65 74 76 61 6c 20 5b 52 61 6d 44 65 62 75 67 67 etval [RamDebugg
3970: 65 72 3a 3a 57 69 7a 61 72 64 3a 3a 4f 70 65 6e er::Wizard::Open
3980: 50 61 67 65 20 5b 6c 69 73 74 20 52 61 6d 44 65 Page [list RamDe
3990: 62 75 67 67 65 72 3a 3a 57 69 7a 61 72 64 3a 3a bugger::Wizard::
39a0: 43 6f 6e 64 4d 61 74 50 61 67 65 24 6c 65 76 65 CondMatPage$leve
39b0: 6c 20 24 77 68 61 74 5d 20 5c 0a 09 09 24 68 61 l $what] \...$ha
39c0: 73 70 72 65 76 69 6f 75 73 20 24 68 61 73 6e 65 sprevious $hasne
39d0: 78 74 5d 0a 09 73 77 69 74 63 68 20 24 72 65 74 xt]..switch $ret
39e0: 76 61 6c 20 7b 0a 09 20 20 20 20 63 61 6e 63 65 val {.. cance
39f0: 6c 20 7b 20 72 65 74 75 72 6e 20 7d 0a 09 20 20 l { return }..
3a00: 20 20 70 72 65 76 20 7b 0a 09 09 69 66 20 7b 20 prev {...if {
3a10: 24 6c 65 76 65 6c 20 3d 3d 20 32 20 26 26 20 24 $level == 2 && $
3a20: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
3a30: 46 49 45 4c 44 4e 55 4d 29 20 3e 20 31 20 7d 20 FIELDNUM) > 1 }
3a40: 7b 0a 09 09 20 20 20 20 69 6e 63 72 20 44 69 61 {... incr Dia
3a50: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 logWin::user(FIE
3a60: 4c 44 4e 55 4d 29 20 2d 31 0a 09 09 7d 20 65 6c LDNUM) -1...} el
3a70: 73 65 20 7b 0a 09 09 20 20 20 20 69 6e 63 72 20 se {... incr
3a80: 6c 65 76 65 6c 20 2d 31 0a 09 09 7d 0a 09 20 20 level -1...}..
3a90: 20 20 7d 0a 09 20 20 20 20 6e 65 78 74 20 7b 0a }.. next {.
3aa0: 09 09 73 77 69 74 63 68 20 24 6c 65 76 65 6c 20 ..switch $level
3ab0: 7b 0a 09 09 20 20 20 20 31 20 7b 0a 09 09 20 20 {... 1 {...
3ac0: 20 20 20 20 20 20 73 65 74 20 44 69 61 6c 6f 67 set Dialog
3ad0: 57 69 6e 3a 3a 75 73 65 72 28 4e 41 4d 45 29 20 Win::user(NAME)
3ae0: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 44 69 [string trim $Di
3af0: 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 4e 41 alogWin::user(NA
3b00: 4d 45 29 5d 0a 09 09 20 20 20 20 20 20 20 20 72 ME)]... r
3b10: 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5c 73 2b 7d egsub -all {\s+}
3b20: 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 $DialogWin::use
3b30: 72 28 4e 41 4d 45 29 20 7b 5f 7d 20 44 69 61 6c r(NAME) {_} Dial
3b40: 6f 67 57 69 6e 3a 3a 75 73 65 72 28 4e 41 4d 45 ogWin::user(NAME
3b50: 29 0a 09 09 20 20 20 20 20 20 20 20 69 66 20 7b )... if {
3b60: 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 $DialogWin::use
3b70: 72 28 4e 41 4d 45 29 20 3d 3d 20 22 22 20 7d 20 r(NAME) == "" }
3b80: 7b 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 {...
3b90: 57 61 72 6e 57 69 6e 20 22 5b 73 74 72 69 6e 67 WarnWin "[string
3ba0: 20 74 6f 74 69 74 6c 65 20 24 77 68 61 74 5d 20 totitle $what]
3bb0: 6e 61 6d 65 20 69 73 20 76 6f 69 64 2e 20 46 69 name is void. Fi
3bc0: 6c 6c 20 69 74 2c 20 70 6c 65 61 73 65 22 0a 09 ll it, please"..
3bd0: 09 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e . con
3be0: 74 69 6e 75 65 0a 09 09 20 20 20 20 20 20 20 20 tinue...
3bf0: 7d 0a 09 09 20 20 20 20 20 20 20 20 69 66 20 7b }... if {
3c00: 20 5b 6c 73 65 61 72 63 68 20 24 6e 61 6d 65 73 [lsearch $names
3c10: 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 $DialogWin::use
3c20: 72 28 4e 41 4d 45 29 5d 20 21 3d 20 2d 31 20 7d r(NAME)] != -1 }
3c30: 20 7b 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 {...
3c40: 20 57 61 72 6e 57 69 6e 20 22 52 65 70 65 61 74 WarnWin "Repeat
3c50: 65 64 20 24 77 68 61 74 20 6e 61 6d 65 20 27 24 ed $what name '$
3c60: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
3c70: 4e 41 4d 45 29 27 22 0a 09 09 20 20 20 20 20 20 NAME)'"...
3c80: 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 0a 09 continue..
3c90: 09 20 20 20 20 20 20 20 20 7d 0a 09 09 20 20 20 . }...
3ca0: 20 20 20 20 20 73 65 74 20 44 69 61 6c 6f 67 57 set DialogW
3cb0: 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 4e 55 in::user(FIELDNU
3cc0: 4d 29 20 31 0a 09 09 20 20 20 20 20 20 20 20 73 M) 1... s
3cd0: 65 74 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 et DialogWin::us
3ce0: 65 72 28 46 49 45 4c 44 4e 41 4d 45 53 29 20 22 er(FIELDNAMES) "
3cf0: 22 0a 09 09 20 20 20 20 20 20 20 20 69 6e 63 72 "... incr
3d00: 20 6c 65 76 65 6c 0a 09 09 20 20 20 20 7d 0a 09 level... }..
3d10: 09 20 20 20 20 32 20 7b 0a 09 09 20 20 20 20 20 . 2 {...
3d20: 20 20 20 73 65 74 20 6e 20 24 44 69 61 6c 6f 67 set n $Dialog
3d30: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 4e Win::user(FIELDN
3d40: 55 4d 29 0a 09 09 20 20 20 20 20 20 20 20 73 65 UM)... se
3d50: 74 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 t DialogWin::use
3d60: 72 28 46 49 45 4c 44 4e 41 4d 45 2c 24 6e 29 20 r(FIELDNAME,$n)
3d70: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 44 69 [string trim $Di
3d80: 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 alogWin::user(FI
3d90: 45 4c 44 4e 41 4d 45 2c 24 6e 29 5d 0a 09 09 20 ELDNAME,$n)]...
3da0: 20 20 20 20 20 20 20 72 65 67 73 75 62 20 2d 61 regsub -a
3db0: 6c 6c 20 7b 5c 73 2b 7d 20 24 44 69 61 6c 6f 67 ll {\s+} $Dialog
3dc0: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 4e Win::user(FIELDN
3dd0: 41 4d 45 2c 24 6e 29 20 7b 5f 7d 20 44 69 61 6c AME,$n) {_} Dial
3de0: 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c ogWin::user(FIEL
3df0: 44 4e 41 4d 45 2c 24 6e 29 0a 09 09 20 20 20 20 DNAME,$n)...
3e00: 20 20 20 20 69 66 20 7b 20 24 44 69 61 6c 6f 67 if { $Dialog
3e10: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 4e Win::user(FIELDN
3e20: 41 4d 45 2c 24 6e 29 20 3d 3d 20 22 22 20 7d 20 AME,$n) == "" }
3e30: 7b 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 {...
3e40: 57 61 72 6e 57 69 6e 20 22 5b 73 74 72 69 6e 67 WarnWin "[string
3e50: 20 74 6f 74 69 74 6c 65 20 24 77 68 61 74 5d 20 totitle $what]
3e60: 66 69 65 6c 64 20 69 73 20 76 6f 69 64 2e 20 46 field is void. F
3e70: 69 6c 6c 20 69 74 2c 20 70 6c 65 61 73 65 22 0a ill it, please".
3e80: 09 09 20 20 20 20 20 20 20 20 20 20 20 20 63 6f .. co
3e90: 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 20 20 20 ntinue...
3ea0: 20 7d 0a 09 09 20 20 20 20 20 20 20 20 73 65 74 }... set
3eb0: 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 DialogWin::user
3ec0: 28 44 45 46 41 55 4c 54 56 41 4c 55 45 2c 24 6e (DEFAULTVALUE,$n
3ed0: 29 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 ) [string trim $
3ee0: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
3ef0: 44 45 46 41 55 4c 54 56 41 4c 55 45 2c 24 6e 29 DEFAULTVALUE,$n)
3f00: 5d 0a 09 09 20 20 20 20 20 20 20 20 72 65 67 73 ]... regs
3f10: 75 62 20 2d 61 6c 6c 20 7b 5c 73 2b 7d 20 24 44 ub -all {\s+} $D
3f20: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 44 ialogWin::user(D
3f30: 45 46 41 55 4c 54 56 41 4c 55 45 2c 24 6e 29 20 EFAULTVALUE,$n)
3f40: 7b 5f 7d 20 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 {_} DialogWin::u
3f50: 73 65 72 28 44 45 46 41 55 4c 54 56 41 4c 55 45 ser(DEFAULTVALUE
3f60: 2c 24 6e 29 0a 09 09 20 20 20 20 20 20 20 20 69 ,$n)... i
3f70: 66 20 7b 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a f { $DialogWin::
3f80: 75 73 65 72 28 44 45 46 41 55 4c 54 56 41 4c 55 user(DEFAULTVALU
3f90: 45 2c 24 6e 29 20 3d 3d 20 22 22 20 26 26 20 24 E,$n) == "" && $
3fa0: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
3fb0: 46 49 45 4c 44 54 59 50 45 2c 24 6e 29 20 21 3d FIELDTYPE,$n) !=
3fc0: 20 22 6d 61 74 72 69 78 22 20 7d 20 7b 0a 09 09 "matrix" } {...
3fd0: 20 20 20 20 20 20 20 20 20 20 20 20 57 61 72 6e Warn
3fe0: 57 69 6e 20 22 5b 73 74 72 69 6e 67 20 74 6f 74 Win "[string tot
3ff0: 69 74 6c 65 20 24 77 68 61 74 5d 20 64 65 66 61 itle $what] defa
4000: 75 6c 74 20 76 61 6c 75 65 20 69 73 20 76 6f 69 ult value is voi
4010: 64 2e 20 46 69 6c 6c 20 69 74 2c 20 70 6c 65 61 d. Fill it, plea
4020: 73 65 22 0a 09 09 20 20 20 20 20 20 20 20 20 20 se"...
4030: 20 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 continue...
4040: 20 20 20 20 20 7d 0a 09 09 20 20 20 20 20 20 20 }...
4050: 20 69 66 20 7b 20 5b 6c 6c 65 6e 67 74 68 20 24 if { [llength $
4060: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
4070: 46 49 45 4c 44 4e 41 4d 45 53 29 5d 20 3c 20 24 FIELDNAMES)] < $
4080: 6e 20 26 26 20 5c 0a 09 09 20 20 20 20 20 20 20 n && \...
4090: 20 20 20 20 20 5b 6c 73 65 61 72 63 68 20 24 44 [lsearch $D
40a0: 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 ialogWin::user(F
40b0: 49 45 4c 44 4e 41 4d 45 53 29 20 24 44 69 61 6c IELDNAMES) $Dial
40c0: 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c ogWin::user(FIEL
40d0: 44 4e 41 4d 45 2c 24 6e 29 5d 20 21 3d 20 2d 31 DNAME,$n)] != -1
40e0: 20 7d 20 7b 0a 09 09 20 20 20 20 20 20 20 20 20 } {...
40f0: 20 20 20 57 61 72 6e 57 69 6e 20 22 52 65 70 65 WarnWin "Repe
4100: 61 74 65 64 20 66 69 65 6c 64 20 6e 61 6d 65 20 ated field name
4110: 27 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 '$DialogWin::use
4120: 72 28 46 49 45 4c 44 4e 41 4d 45 2c 24 6e 29 27 r(FIELDNAME,$n)'
4130: 22 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 "...
4140: 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 20 continue...
4150: 20 20 20 7d 0a 09 09 20 20 20 20 20 20 20 20 73 }... s
4160: 77 69 74 63 68 20 24 44 69 61 6c 6f 67 57 69 6e witch $DialogWin
4170: 3a 3a 75 73 65 72 28 46 49 45 4c 44 54 59 50 45 ::user(FIELDTYPE
4180: 2c 24 6e 29 20 7b 0a 09 09 20 20 20 20 20 20 20 ,$n) {...
4190: 20 20 20 20 20 63 6f 6d 62 6f 62 6f 78 20 7b 0a combobox {.
41a0: 09 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
41b0: 20 20 69 66 20 7b 20 5b 6c 73 65 61 72 63 68 20 if { [lsearch
41c0: 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 $DialogWin::user
41d0: 28 46 49 45 4c 44 56 41 4c 55 45 53 2c 24 6e 29 (FIELDVALUES,$n)
41e0: 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 $DialogWin::use
41f0: 72 28 44 45 46 41 55 4c 54 56 41 4c 55 45 2c 24 r(DEFAULTVALUE,$
4200: 6e 29 5d 20 5c 0a 09 09 20 20 20 20 20 20 20 20 n)] \...
4210: 20 20 20 20 20 20 20 20 20 20 20 20 3d 3d 20 2d == -
4220: 31 20 7d 20 7b 0a 09 09 20 20 20 20 20 20 20 20 1 } {...
4230: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 set
4240: 76 61 6c 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a val $DialogWin::
4250: 75 73 65 72 28 44 45 46 41 55 4c 54 56 41 4c 55 user(DEFAULTVALU
4260: 45 2c 24 6e 29 0a 09 09 20 20 20 20 20 20 20 20 E,$n)...
4270: 20 20 20 20 20 20 20 20 20 20 20 20 57 61 72 6e Warn
4280: 57 69 6e 20 22 44 65 66 61 75 6c 74 20 76 61 6c Win "Default val
4290: 75 65 3a 20 27 24 76 61 6c 27 20 69 73 20 6e 6f ue: '$val' is no
42a0: 74 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 6f t contained in o
42b0: 70 74 69 6f 6e 73 22 0a 09 09 20 20 20 20 20 20 ptions"...
42c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f co
42d0: 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 20 20 20 ntinue...
42e0: 20 20 20 20 20 20 20 20 20 7d 0a 09 09 20 20 20 }...
42f0: 20 20 20 20 20 20 20 20 20 7d 0a 09 09 20 20 20 }...
4300: 20 20 20 20 20 20 20 20 20 6d 61 74 72 69 78 20 matrix
4310: 7b 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 {...
4320: 20 20 20 20 69 66 20 7b 20 5b 6c 6c 65 6e 67 74 if { [llengt
4330: 68 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 h $DialogWin::us
4340: 65 72 28 46 49 45 4c 44 56 41 4c 55 45 53 2c 24 er(FIELDVALUES,$
4350: 6e 29 5d 20 3c 20 31 20 7d 20 7b 0a 09 09 20 20 n)] < 1 } {...
4360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4370: 20 20 57 61 72 6e 57 69 6e 20 22 54 68 65 72 65 WarnWin "There
4380: 20 61 72 65 20 6e 6f 20 63 6f 6c 75 6d 6e 20 6e are no column n
4390: 61 6d 65 73 20 66 6f 72 20 6d 61 74 72 69 78 20 ames for matrix
43a0: 66 69 65 6c 64 20 74 79 70 65 22 0a 09 09 20 20 field type"...
43b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
43c0: 20 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 continue...
43d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 09 }..
43e0: 09 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 09 . }..
43f0: 09 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 . loc
4400: 61 6c 61 78 65 73 20 7b 0a 09 09 20 20 20 20 20 alaxes {...
4410: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 76 set v
4420: 61 6c 75 65 73 20 22 22 0a 09 09 20 20 20 20 20 alues ""...
4430: 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 65 61 forea
4440: 63 68 20 69 20 5b 6c 69 73 74 20 67 6c 6f 62 61 ch i [list globa
4450: 6c 20 61 75 74 6f 6d 61 74 69 63 20 61 75 74 6f l automatic auto
4460: 6d 61 74 69 63 5f 61 6c 74 5d 20 7b 0a 09 09 20 matic_alt] {...
4470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4480: 20 20 20 69 66 20 7b 20 24 44 69 61 6c 6f 67 57 if { $DialogW
4490: 69 6e 3a 3a 75 73 65 72 28 41 58 45 53 54 59 50 in::user(AXESTYP
44a0: 45 2c 24 69 2c 24 6e 29 20 7d 20 7b 20 6c 61 70 E,$i,$n) } { lap
44b0: 70 65 6e 64 20 76 61 6c 75 65 73 20 24 69 20 7d pend values $i }
44c0: 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
44d0: 20 20 20 7d 0a 09 09 20 20 20 20 20 20 20 20 20 }...
44e0: 20 20 20 20 20 20 20 69 66 20 7b 20 5b 6c 6c 65 if { [lle
44f0: 6e 67 74 68 20 24 76 61 6c 75 65 73 5d 20 3d 3d ngth $values] ==
4500: 20 30 20 7d 20 7b 0a 09 09 20 20 20 20 20 20 20 0 } {...
4510: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 61 72 War
4520: 6e 57 69 6e 20 22 41 74 20 6c 65 61 73 74 20 61 nWin "At least a
4530: 6e 20 6f 70 74 69 6f 6e 20 69 6e 20 6c 6f 63 61 n option in loca
4540: 6c 20 61 78 65 73 20 6d 75 73 74 20 62 65 20 73 l axes must be s
4550: 65 6c 65 63 74 65 64 22 0a 09 09 20 20 20 20 20 elected"...
4560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
4570: 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 20 20 ontinue...
4580: 20 20 20 20 20 20 20 20 20 20 7d 0a 09 09 20 20 }...
4590: 20 20 20 20 20 20 20 20 20 20 7d 0a 09 09 20 20 }...
45a0: 20 20 20 20 20 20 7d 0a 09 09 20 20 20 20 20 20 }...
45b0: 20 20 69 66 20 7b 20 5b 6c 6c 65 6e 67 74 68 20 if { [llength
45c0: 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 $DialogWin::user
45d0: 28 46 49 45 4c 44 4e 41 4d 45 53 29 5d 20 3c 20 (FIELDNAMES)] <
45e0: 24 6e 20 7d 20 7b 0a 09 09 20 20 20 20 20 20 20 $n } {...
45f0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 44 69 61 lappend Dia
4600: 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 logWin::user(FIE
4610: 4c 44 4e 41 4d 45 53 29 20 24 44 69 61 6c 6f 67 LDNAMES) $Dialog
4620: 57 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 4e Win::user(FIELDN
4630: 41 4d 45 2c 24 6e 29 0a 09 09 20 20 20 20 20 20 AME,$n)...
4640: 20 20 7d 0a 09 09 20 20 20 20 20 20 20 20 69 66 }... if
4650: 20 7b 20 24 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 { $DialogWin::u
4660: 73 65 72 28 61 6e 6f 74 68 65 72 66 69 65 6c 64 ser(anotherfield
4670: 29 20 7d 20 7b 0a 09 09 20 20 20 20 20 20 20 20 ) } {...
4680: 20 20 20 20 69 6e 63 72 20 44 69 61 6c 6f 67 57 incr DialogW
4690: 69 6e 3a 3a 75 73 65 72 28 46 49 45 4c 44 4e 55 in::user(FIELDNU
46a0: 4d 29 0a 09 09 20 20 20 20 20 20 20 20 7d 20 65 M)... } e
46b0: 6c 73 65 20 7b 20 69 6e 63 72 20 6c 65 76 65 6c lse { incr level
46c0: 20 7d 0a 09 09 20 20 20 20 7d 0a 09 09 20 20 20 }... }...
46d0: 20 33 20 7b 0a 09 09 20 20 20 20 20 20 20 20 69 3 {... i
46e0: 6e 63 72 20 6c 65 76 65 6c 0a 09 09 20 20 20 20 ncr level...
46f0: 7d 0a 09 09 20 20 20 20 64 65 66 61 75 6c 74 20 }... default
4700: 7b 0a 09 09 20 20 20 20 20 20 20 20 65 72 72 6f {... erro
4710: 72 20 22 66 69 65 6c 64 20 6e 75 6d 20 24 6c 65 r "field num $le
4720: 76 65 6c 20 75 6e 6b 6e 6f 77 6e 22 0a 09 09 20 vel unknown"...
4730: 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a }...}.. }.
4740: 09 7d 0a 09 69 66 20 7b 20 24 6c 65 76 65 6c 20 .}..if { $level
4750: 3e 20 24 6e 75 6d 6c 65 76 65 6c 73 20 7d 20 7b > $numlevels } {
4760: 20 62 72 65 61 6b 20 7d 0a 20 20 20 20 7d 0a 20 break }. }.
4770: 20 20 20 63 61 74 63 68 20 7b 20 44 69 61 6c 6f catch { Dialo
4780: 67 57 69 6e 3a 3a 44 65 73 74 72 6f 79 57 69 6e gWin::DestroyWin
4790: 64 6f 77 20 7d 0a 0a 20 20 20 20 24 74 65 78 74 dow }.. $text
47a0: 20 69 6e 73 65 72 74 20 69 6e 73 65 72 74 20 24 insert insert $
47b0: 44 69 61 6c 6f 67 57 69 6e 3a 3a 75 73 65 72 28 DialogWin::user(
47c0: 43 4f 4e 54 54 58 54 29 0a 20 20 20 20 55 70 64 CONTTXT). Upd
47d0: 61 74 65 4e 75 6d 62 65 72 73 49 6e 47 69 44 46 ateNumbersInGiDF
47e0: 69 6c 65 73 20 30 0a 7d 0a 0a 6e 61 6d 65 73 70 iles 0.}..namesp
47f0: 61 63 65 20 65 76 61 6c 20 52 61 6d 44 65 62 75 ace eval RamDebu
4800: 67 67 65 72 3a 3a 57 69 7a 61 72 64 20 7b 0a 20 gger::Wizard {.
4810: 20 20 20 70 61 63 6b 61 67 65 20 72 65 71 75 69 package requi
4820: 72 65 20 69 6d 67 3a 3a 70 6e 67 0a 20 20 20 20 re img::png.
4830: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
4840: 69 6d 67 3a 3a 6a 70 65 67 0a 20 20 20 20 70 61 img::jpeg. pa
4850: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 69 6d ckage require im
4860: 67 3a 3a 67 69 66 0a 20 20 20 20 0a 20 20 20 20 g::gif. .
4870: 73 65 74 20 6e 69 63 65 5f 69 6d 61 67 65 20 5b set nice_image [
4880: 69 6d 61 67 65 20 63 72 65 61 74 65 20 70 68 6f image create pho
4890: 74 6f 20 2d 64 61 74 61 20 7b 0a 2f 39 6a 2f 34 to -data {./9j/4
48a0: 41 41 51 53 6b 5a 4a 52 67 41 42 41 51 41 41 41 AAQSkZJRgABAQAAA
48b0: 51 41 42 41 41 44 2f 32 77 42 44 41 41 67 47 42 QABAAD/2wBDAAgGB
48c0: 67 63 47 42 51 67 48 42 77 63 4a 43 51 67 4b 44 gcGBQgHBwcJCQgKD
48d0: 42 51 4e 44 41 73 4c 44 42 6b 53 45 77 38 55 48 BQNDAsLDBkSEw8UH
48e0: 52 6f 66 0a 48 68 30 61 48 42 77 67 4a 43 34 6e Rof.Hh0aHBwgJC4n
48f0: 49 43 49 73 49 78 77 63 4b 44 63 70 4c 44 41 78 ICIsIxwcKDcpLDAx
4900: 4e 44 51 30 48 79 63 35 50 54 67 79 50 43 34 7a NDQ0Hyc5PTgyPC4z
4910: 4e 44 4c 2f 32 77 42 44 41 51 6b 4a 43 51 77 4c NDL/2wBDAQkJCQwL
4920: 44 42 67 4e 44 52 67 79 49 52 77 68 0a 4d 6a 49 DBgNDRgyIRwh.MjI
4930: 79 4d 6a 49 79 4d 6a 49 79 4d 6a 49 79 4d 6a 49 yMjIyMjIyMjIyMjI
4940: 79 4d 6a 49 79 4d 6a 49 79 4d 6a 49 79 4d 6a 49 yMjIyMjIyMjIyMjI
4950: 79 4d 6a 49 79 4d 6a 49 79 4d 6a 49 79 4d 6a 49 yMjIyMjIyMjIyMjI
4960: 79 4d 6a 49 79 4d 6a 49 79 4d 6a 49 79 4d 6a 4c yMjIyMjIyMjIyMjL
4970: 2f 77 41 41 52 0a 43 41 43 72 41 4b 73 44 41 53 /wAAR.CACrAKsDAS
4980: 49 41 41 68 45 42 41 78 45 42 2f 38 51 41 48 77 IAAhEBAxEB/8QAHw
4990: 41 41 41 51 55 42 41 51 45 42 41 51 45 41 41 41 AAAQUBAQEBAQEAAA
49a0: 41 41 41 41 41 41 41 41 45 43 41 77 51 46 42 67 AAAAAAAAECAwQFBg
49b0: 63 49 43 51 6f 4c 2f 38 51 41 74 52 41 41 0a 41 cICQoL/8QAtRAA.A
49c0: 67 45 44 41 77 49 45 41 77 55 46 42 41 51 41 41 gEDAwIEAwUFBAQAA
49d0: 41 46 39 41 51 49 44 41 41 51 52 42 52 49 68 4d AF9AQIDAAQRBRIhM
49e0: 55 45 47 45 31 46 68 42 79 4a 78 46 44 4b 42 6b UEGE1FhByJxFDKBk
49f0: 61 45 49 49 30 4b 78 77 52 56 53 30 66 41 6b 4d aEII0KxwRVS0fAkM
4a00: 32 4a 79 67 67 6b 4b 0a 46 68 63 59 47 52 6f 6c 2JyggkK.FhcYGRol
4a10: 4a 69 63 6f 4b 53 6f 30 4e 54 59 33 4f 44 6b 36 JicoKSo0NTY3ODk6
4a20: 51 30 52 46 52 6b 64 49 53 55 70 54 56 46 56 57 Q0RFRkdISUpTVFVW
4a30: 56 31 68 5a 57 6d 4e 6b 5a 57 5a 6e 61 47 6c 71 V1hZWmNkZWZnaGlq
4a40: 63 33 52 31 64 6e 64 34 65 58 71 44 68 49 57 47 c3R1dnd4eXqDhIWG
4a50: 0a 68 34 69 4a 69 70 4b 54 6c 4a 57 57 6c 35 69 .h4iJipKTlJWWl5i
4a60: 5a 6d 71 4b 6a 70 4b 57 6d 70 36 69 70 71 72 4b ZmqKjpKWmp6ipqrK
4a70: 7a 74 4c 57 32 74 37 69 35 75 73 4c 44 78 4d 58 ztLW2t7i5usLDxMX
4a80: 47 78 38 6a 4a 79 74 4c 54 31 4e 58 57 31 39 6a Gx8jJytLT1NXW19j
4a90: 5a 32 75 48 69 34 2b 54 6c 0a 35 75 66 6f 36 65 Z2uHi4+Tl.5ufo6e
4aa0: 72 78 38 76 50 30 39 66 62 33 2b 50 6e 36 2f 38 rx8vP09fb3+Pn6/8
4ab0: 51 41 48 77 45 41 41 77 45 42 41 51 45 42 41 51 QAHwEAAwEBAQEBAQ
4ac0: 45 42 41 51 41 41 41 41 41 41 41 41 45 43 41 77 EBAQAAAAAAAAECAw
4ad0: 51 46 42 67 63 49 43 51 6f 4c 2f 38 51 41 74 52 QFBgcICQoL/8QAtR
4ae0: 45 41 0a 41 67 45 43 42 41 51 44 42 41 63 46 42 EA.AgECBAQDBAcFB
4af0: 41 51 41 41 51 4a 33 41 41 45 43 41 78 45 45 42 AQAAQJ3AAECAxEEB
4b00: 53 45 78 42 68 4a 42 55 51 64 68 63 52 4d 69 4d SExBhJBUQdhcRMiM
4b10: 6f 45 49 46 45 4b 52 6f 62 48 42 43 53 4d 7a 55 oEIFEKRobHBCSMzU
4b20: 76 41 56 59 6e 4c 52 43 68 59 6b 0a 4e 4f 45 6c vAVYnLRChYk.NOEl
4b30: 38 52 63 59 47 52 6f 6d 4a 79 67 70 4b 6a 55 32 8RcYGRomJygpKjU2
4b40: 4e 7a 67 35 4f 6b 4e 45 52 55 5a 48 53 45 6c 4b Nzg5OkNERUZHSElK
4b50: 55 31 52 56 56 6c 64 59 57 56 70 6a 5a 47 56 6d U1RVVldYWVpjZGVm
4b60: 5a 32 68 70 61 6e 4e 30 64 58 5a 33 65 48 6c 36 Z2hpanN0dXZ3eHl6
4b70: 67 6f 4f 45 0a 68 59 61 48 69 49 6d 4b 6b 70 4f goOE.hYaHiImKkpO
4b80: 55 6c 5a 61 58 6d 4a 6d 61 6f 71 4f 6b 70 61 61 UlZaXmJmaoqOkpaa
4b90: 6e 71 4b 6d 71 73 72 4f 30 74 62 61 33 75 4c 6d nqKmqsrO0tba3uLm
4ba0: 36 77 73 50 45 78 63 62 48 79 4d 6e 4b 30 74 50 6wsPExcbHyMnK0tP
4bb0: 55 31 64 62 58 32 4e 6e 61 34 75 50 6b 0a 35 65 U1dbX2Nna4uPk.5e
4bc0: 62 6e 36 4f 6e 71 38 76 50 30 39 66 62 33 2b 50 bn6Onq8vP09fb3+P
4bd0: 6e 36 2f 39 6f 41 44 41 4d 42 41 41 49 52 41 78 n6/9oADAMBAAIRAx
4be0: 45 41 50 77 44 76 4b 4b 4b 4b 59 67 6f 6f 6f 6f EAPwDvKKKKYgoooo
4bf0: 41 4b 4b 4b 4b 41 44 74 52 52 32 6f 6f 41 4b 4b AKKKKADtRR2ooAKK
4c00: 4b 4b 41 43 69 69 0a 6b 6f 41 57 69 69 69 67 41 KKACii.koAWiiigA
4c10: 6f 6f 6f 6f 41 4b 4b 4b 4b 41 44 74 52 52 32 6f ooooAKKKKADtRR2o
4c20: 6f 41 4b 53 6c 70 4b 41 46 6f 6f 6f 6f 41 56 56 oAKSlpKAFooooAVV
4c30: 4c 4d 46 55 5a 59 39 42 55 76 32 4b 36 7a 2f 41 LMFUZY9BUv2K6z/A
4c40: 4b 68 71 4c 4c 2f 6a 2f 68 2b 74 64 57 7a 4e 0a KhqLL/j/h+tdWzN.
4c50: 75 50 4e 41 48 4b 66 59 37 72 2f 6e 67 31 48 32 uPNAHKfY7r/ng1H2
4c60: 4f 36 2f 35 34 4e 58 56 62 6d 39 61 4e 7a 65 74 O6/54NXVbm9aNzet
4c70: 49 5a 79 76 32 4f 36 2f 35 34 4e 52 39 6a 75 76 IZyv2O6/54NR9juv
4c80: 2b 65 44 56 31 57 35 76 57 6a 63 33 72 51 42 79 +eDV1W5vWjc3rQBy
4c90: 76 32 4f 36 2f 77 43 65 0a 44 55 66 59 37 72 2f v2O6/wCe.DUfY7r/
4ca0: 6e 67 31 64 56 75 62 31 6f 33 4e 36 30 41 63 72 ng1dVub1o3N60Acr
4cb0: 39 6a 75 76 2b 65 44 55 66 59 37 72 2f 41 4a 34 9juv+eDUfY7r/AJ4
4cc0: 4e 58 56 62 6d 39 61 4e 7a 65 74 41 48 4b 2f 59 NXVbm9aNzetAHK/Y
4cd0: 37 72 2f 6e 67 31 48 32 4f 36 2f 35 34 4e 58 56 7r/ng1H2O6/54NXV
4ce0: 62 0a 6d 39 61 4e 7a 65 74 41 48 4b 2f 59 37 72 b.m9aNzetAHK/Y7r
4cf0: 2f 6e 67 31 48 32 4f 36 2f 35 34 4e 58 56 62 6d /ng1H2O6/54NXVbm
4d00: 39 61 4e 7a 65 74 41 48 4b 2f 59 37 72 2f 41 4a 9aNzetAHK/Y7r/AJ
4d10: 34 4e 52 39 6a 75 76 2b 65 44 56 31 57 35 71 4d 4NR9juv+eDV1W5qM
4d20: 74 37 2f 6c 51 42 79 4d 6b 55 0a 6b 54 62 5a 45 t7/lQByMkU.kTbZE
4d30: 4b 74 36 47 6d 31 6f 36 34 53 62 39 63 2f 33 61 Kt6Gm1o64Sb9c/3a
4d40: 7a 71 59 67 70 4b 57 6b 6f 41 57 69 69 69 67 43 zqYgpKWkoAWiiigC
4d50: 61 7a 2f 41 4f 50 36 48 36 31 31 54 66 65 4e 63 az/AOP6H611TfeNc
4d60: 72 5a 2f 38 66 30 50 31 72 70 62 69 36 67 74 6a rZ/8f0P1rpbi6gtj
4d70: 6d 61 56 0a 55 48 75 61 4c 58 43 39 74 79 53 69 maV.UHuaLXC9tySi
4d80: 6f 34 5a 34 72 68 4e 30 4d 67 64 66 59 31 4a 53 o4Z4rhN0MgdfY1JS
4d90: 47 6e 63 4b 4b 79 4e 65 38 52 57 75 67 77 62 70 GncKKyNe8RWugwbp
4da0: 53 47 6b 50 52 4b 70 61 4a 34 79 73 74 59 6c 38 SGkPRKpaJ4ystYl8
4db0: 6b 34 6a 6c 50 52 66 57 74 46 53 6d 0a 34 38 79 k4jlPRfWtFSm.48y
4dc0: 57 68 6b 36 39 4e 54 35 47 39 54 70 4b 4b 58 47 Whk69NT5G9TpKKXG
4dd0: 44 56 4f 2f 31 4f 30 30 79 45 79 33 55 6f 51 64 DVO/1O00yEy3UoQd
4de0: 71 68 4a 74 32 52 6f 32 6b 72 73 74 30 56 6e 61 qhJt2Ro2krst0Vna
4df0: 58 72 6c 68 71 36 6b 32 6b 77 59 6a 71 4b 30 61 Xrlhq6k2kwYjqK0a
4e00: 48 46 78 64 6d 0a 4b 4d 6c 4a 58 54 43 69 6c 78 HFxdm.KMlJXTCilx
4e10: 53 55 69 67 6f 6f 70 73 6d 52 44 4a 74 36 37 44 SUigoopsmRDJt67D
4e20: 69 67 44 6b 66 45 2f 6a 56 4e 48 6e 4e 70 61 67 igDkfE/jVNHnNpag
4e30: 4e 4f 42 39 37 74 57 4a 70 66 78 47 76 47 75 31 NOB97tWJpfxGvGu1
4e40: 54 55 41 72 52 73 63 41 72 32 72 6b 4e 58 0a 38 TUArRscAr2rkNX.8
4e50: 2f 38 41 74 61 34 2b 30 45 6d 54 65 63 5a 39 4b /8Ata4+0EmTecZ9K
4e60: 70 41 38 72 39 52 58 73 77 77 74 50 6b 73 30 66 pA8r9RXswwtPks0f
4e70: 50 31 4d 62 57 39 6f 32 6e 5a 64 6a 32 58 56 4a P1MbW9o2nZdj2XVJ
4e80: 30 75 62 69 4b 61 4d 35 56 6b 79 4b 70 56 58 73 0ubiKaM5VkyKpVXs
4e90: 6d 4c 57 45 42 50 39 0a 77 56 59 72 79 5a 4c 6c mLWEBP9.wVYryZLl
4ea0: 6b 30 65 37 43 58 4e 46 4d 4b 53 6c 70 4b 6b 6f k0e7CXNFMKSlpKko
4eb0: 57 69 69 69 67 43 57 30 4f 32 39 69 62 30 4e 63 WiiigCW0O29ib0Nc
4ec0: 4c 34 77 31 4f 34 75 74 63 6b 55 54 4f 71 49 63 L4w1O4utckUTOqIc
4ed0: 41 41 31 33 56 73 43 31 33 47 6f 36 6b 31 35 7a AA13VsC13Go6k15z
4ee0: 0a 34 6e 74 35 4c 66 58 72 67 53 39 57 62 49 72 .4nt5LfXrgS9WbIr
4ef0: 75 77 4b 54 6d 37 6e 6d 35 6b 32 71 61 53 4e 4c uwKTm7nm5k2qaSNL
4f00: 77 56 71 6c 37 44 72 41 68 57 56 6e 52 75 43 47 wVql7DrAhWVnRuCG
4f10: 4e 65 76 65 6c 65 4e 65 43 72 65 61 62 58 51 59 NeveleNeCreabXQY
4f20: 6c 4f 46 35 4a 72 32 4b 57 0a 65 4b 44 48 6d 79 lOF5Jr2KW.eKDHmy
4f30: 4b 6d 52 78 6b 31 4f 4e 53 39 70 6f 56 6c 7a 66 KmRxk1ONS9poVlzf
4f40: 73 6e 63 38 6f 2b 49 6a 73 33 69 42 51 32 64 6f snc8o+Ijs3iBQ2do
4f50: 58 70 32 72 41 30 5a 33 6a 31 69 33 4d 66 44 62 Xp2rA0Z3j1i3MfDb
4f60: 68 30 72 70 76 69 46 71 46 70 64 58 79 52 51 41 h0rpviFqFpdXyRQA
4f70: 4e 49 0a 42 79 34 72 47 38 4b 33 46 6e 62 61 7a NI.By4rG8K3Fnbaz
4f80: 48 4a 65 34 43 41 38 45 39 71 37 61 54 61 6f 4c HJe4CA8E9q7aTaoL
4f90: 54 6f 65 64 57 53 65 4a 65 76 55 39 70 74 79 54 ToedWSeJevU9ptyT
4fa0: 62 77 6c 75 70 41 7a 58 6d 50 78 49 6c 50 39 71 bwlupAzXmPxIlP9q
4fb0: 43 49 4f 63 41 66 64 37 56 36 64 0a 42 4e 44 63 CIOcAfd7V6d.BNDc
4fc0: 52 72 4c 62 75 48 69 37 45 47 76 4e 2f 69 52 70 RrLbuHi7EGvN/iRp
4fd0: 35 57 38 57 39 33 66 66 34 78 58 42 67 37 4b 74 5W8W93ff4xXBg7Kt
4fe0: 71 65 70 6a 30 33 51 30 4f 57 38 50 58 73 74 68 qepj03Q0OW8PXsth
4ff0: 72 4d 44 77 75 56 42 49 42 58 73 61 39 71 75 37 rMDwuVBIBXsa9qu7
5000: 2b 4b 79 30 0a 34 58 63 33 54 5a 75 4e 65 4f 2b +Ky0.4Xc3TZuNeO+
5010: 45 37 47 50 55 50 45 4d 45 4d 72 42 55 36 38 31 E7GPUPEMEMrBU681
5020: 36 6a 34 71 67 7a 34 66 6b 51 63 69 4e 43 42 67 6j4qgz4fkQciNCBg
5030: 31 74 6a 46 47 56 57 4d 54 6e 77 44 6c 47 6a 4b 1tjFGVWMTnwDlGjK
5040: 53 50 50 64 54 38 65 61 6a 64 58 70 6b 0a 74 73 SPPdT8eajdXpk.ts
5050: 4a 43 72 66 4b 50 57 75 2f 38 4c 65 49 42 72 6d JCrfKPWu/8LeIBrm
5060: 6e 68 6e 47 4a 6c 34 4e 65 4b 71 63 67 2f 55 31 nhnGJl4NeKqcg/U1
5070: 33 33 77 31 6c 63 54 79 49 41 53 76 72 57 75 4a 33w1lcTyIASvrWuJ
5080: 6f 51 56 4b 38 56 73 59 34 50 45 31 4a 56 72 53 oQVK8VsY4PE1JVrS
5090: 64 37 6e 70 56 48 0a 59 6a 31 34 6f 37 31 6c 36 d7npVH.Yj14o71l6
50a0: 31 72 39 6e 6f 63 42 65 64 77 5a 43 50 6c 6a 37 1r9nocBedwZCPlj7
50b0: 6d 76 4b 6a 46 79 64 6b 65 31 4b 53 69 72 79 65 mvKjFydke1KSirye
50c0: 68 35 70 34 35 30 65 58 54 39 57 4e 31 2f 79 77 h5p450eXT9WN1/yw
50d0: 6b 36 48 33 72 6e 72 4b 33 2b 31 58 30 55 42 0a k6H3rnrK3+1X0UB.
50e0: 4f 4e 7a 43 74 50 78 44 34 6b 6e 38 51 54 66 4f ONzCtPxD4kn8QTfO
50f0: 4e 73 4b 6e 35 55 72 48 68 6c 61 43 5a 5a 55 4f NsKn5UrHhlaCZZUO
5100: 47 55 35 46 65 37 53 55 31 54 53 6c 75 66 4e 56 GU5Fe7SU1TSlufNV
5110: 70 51 64 56 75 4f 78 36 33 50 5a 72 59 70 62 77 pQdVuOx63PZrYpbw
5120: 6a 2f 6e 6d 4b 69 72 6e 0a 4c 62 78 6f 6c 31 35 j/nmKirn.Lbxol15
5130: 61 33 61 62 53 69 37 64 35 72 63 74 72 75 43 37 a3abSi7d5rctruC7
5140: 6a 33 77 53 42 78 58 6a 31 61 55 34 4f 38 6b 65 j3wSBxXj1aU4O8ke
5150: 2f 52 72 55 35 70 4b 44 4a 36 53 6c 70 4b 79 4e /RrU5pKDJ6SlpKyN
5160: 78 61 4b 4b 67 75 37 6c 4c 53 32 65 57 52 67 41 xaKKgu7lLS2eWRgA
5170: 42 0a 78 6d 6d 6b 32 37 49 54 61 53 75 79 37 61 B.xmmk27ITaSuy7a
5180: 4d 71 58 30 4c 4f 77 55 41 39 54 58 44 65 4f 62 MqX0LOwUA9TXDeOb
5190: 75 47 37 31 31 6a 41 77 59 4c 77 53 4b 7a 4c 2f uG711jAwYLwSKzL/
51a0: 58 4c 79 2b 6b 62 39 34 56 6a 7a 77 41 61 7a 43 XLy+kb94VjzwAazC
51b0: 53 54 6b 6b 6b 2b 70 72 31 63 0a 4e 68 58 54 66 STkkk+pr1c.NhXTf
51c0: 4e 4a 36 6e 69 59 7a 47 4b 72 48 6b 69 74 44 76 NJ6niYzGKrHkitDv
51d0: 76 68 39 71 56 6e 61 51 33 43 79 62 52 63 49 70 vh9qVnaQ3CybRcIp
51e0: 49 4a 37 31 7a 6d 76 61 37 66 61 68 71 63 72 6d IJ71zmva7fahqcrm
51f0: 64 6b 51 48 35 56 42 34 72 47 52 32 6a 4a 4b 4d dkQH5VB4rGR2jJKM
5200: 56 4a 39 0a 4b 51 6b 73 63 6e 72 57 38 61 4d 56 VJ9.KQkscnrW8aMV
5210: 55 63 2b 35 7a 53 78 45 6e 53 56 50 73 4b 37 76 Uc+5zSxEnSVPsK7v
5220: 49 32 35 32 4c 4e 36 6d 6d 2f 57 69 69 74 54 6e I252LN6mm/WiitTn
5230: 4e 6e 53 2f 46 47 70 61 53 6d 79 46 79 36 64 6c NnS/FGpaSmyFy6dl
5240: 4a 36 56 42 71 75 75 58 6d 73 53 62 0a 72 6c 6a J6VBquuXmsSb.rlj
5250: 67 64 46 72 4e 6f 71 66 5a 78 54 35 72 61 6d 6a gdFrNoqfZxT5ramj
5260: 71 7a 63 65 56 76 51 66 46 4e 4c 42 49 4a 49 5a qzceVvQfFNLBIJIZ
5270: 44 47 34 36 4d 4b 36 4f 30 38 5a 33 79 57 72 32 DG46MK6O08Z3yWr2
5280: 6c 31 2b 39 69 64 64 70 5a 71 35 6d 69 69 56 4f l1+9iddpZq5miiVO
5290: 4d 2f 69 51 6f 0a 56 5a 77 2b 46 6a 35 74 76 6d M/iQo.VZw+Fj5tvm
52a0: 73 59 2f 75 6b 35 46 65 71 66 44 2b 4b 31 54 53 sY/uk5FeqfD+K1TS
52b0: 69 30 5a 58 7a 54 31 48 65 76 4b 4b 75 61 64 71 i0ZXzT1HevKKuadq
52c0: 6c 33 70 56 77 4a 72 57 55 71 77 37 45 38 56 6e l3pVwJrWUqw7E8Vn
52d0: 58 70 4f 70 44 6c 54 4e 73 4e 57 56 4b 70 0a 7a XpOpDlTNsNWVKp.z
52e0: 4e 48 76 4d 30 76 6b 51 53 54 45 66 63 42 4f 44 NHvM0vkQSTEfcBOD
52f0: 58 68 75 76 33 38 75 6f 36 78 63 53 79 75 57 41 Xhuv38uo6xcSyuWA
5300: 62 35 41 65 31 64 2f 70 76 69 2b 50 57 74 43 76 b5Ae1d/pvi+PWtCv
5310: 49 4a 79 45 75 6c 54 71 65 39 65 59 54 5a 38 35 IJyEulTqe9eYTZ85
5320: 39 33 58 50 4e 63 32 0a 44 70 4f 45 70 63 79 31 93XPNc2.DpOEpcy1
5330: 4f 76 4d 4b 36 71 52 6a 79 50 52 6a 4b 4b 4b 4b OvMK6qRjyPRjKKKK
5340: 39 41 38 73 4f 76 58 6d 72 32 6d 61 6c 4c 70 31 9A8sOvXmr2malLp1
5350: 79 6a 71 78 38 76 50 4b 31 52 6f 50 53 70 6c 46 yjqx8vPK1RoPSplF
5360: 53 56 6d 56 47 54 69 2b 5a 62 6e 71 6c 76 4f 74 SVmVGTi+ZbnqlvOt
5370: 0a 7a 62 78 7a 4b 52 68 78 6d 70 4b 78 50 43 7a .zbxzKRhxmpKxPCz
5380: 4d 32 6c 4e 6b 35 78 30 72 62 72 77 61 6b 65 57 M2lNk5x0rbrwakeW
5390: 62 69 66 54 30 70 38 38 46 4c 75 46 63 6e 34 77 bifT0p88FLuFcn4w
53a0: 75 47 44 70 41 47 2b 55 6a 4f 4b 36 30 63 74 6a uGDpAG+UjOK60ctj
53b0: 32 72 7a 76 55 35 4a 64 55 0a 31 70 30 58 6c 6b 2rzvU5JdU.1p0Xlk
53c0: 62 61 4b 36 4d 48 47 39 54 6d 66 51 35 63 77 6e baK6MHG9TmfQ5cwn
53d0: 61 6c 79 72 64 6d 56 52 55 31 33 62 74 61 58 4a alyrdmVRU13btaXJ
53e0: 67 66 37 77 47 54 55 4e 65 75 6e 64 58 52 34 4c gf7wGTUNeundXR4L
53f0: 54 54 73 77 6f 6f 6f 70 69 43 69 69 69 67 43 59 TTswooopiCiiigCY
5400: 32 73 0a 6f 68 38 33 48 79 56 44 55 33 32 6d 58 2s.oh83HyVDU32mX
5410: 79 76 4c 7a 38 6c 51 30 6c 66 71 4e 32 36 42 52 yvLz8lQ0lfqN26BR
5420: 52 52 54 45 46 46 46 46 41 45 73 45 37 32 37 45 RRTEFFFFAEsE727E
5430: 6f 65 76 57 6f 32 59 75 35 59 39 54 55 74 72 42 oevWo2Yu5Y9TUtrB
5440: 39 6f 6d 45 59 36 6e 70 54 4a 6f 0a 7a 44 4d 38 9omEY6npTJo.zDM8
5450: 5a 36 71 63 55 74 4c 6a 31 73 4d 6f 6f 6f 70 69 Z6qcUtLj1sMooopi
5460: 43 67 39 4b 44 77 43 66 53 74 41 36 59 66 37 4c Cg9KDwCfStA6Yf7L
5470: 57 38 42 34 50 57 70 63 6c 48 63 71 4d 48 4b 39 W8B4PWpclHcqMHK9
5480: 6a 72 50 43 76 2f 49 4c 66 36 31 75 56 68 2b 46 jrPCv/ILf61uVh+F
5490: 4f 64 4b 59 0a 2b 39 62 6c 65 48 58 2f 41 49 73 OdKY.+9bleHX/AIs
54a0: 6a 36 54 43 2f 77 59 2b 67 71 38 4e 2b 42 72 7a j6TC/wY+gq8N+Brz
54b0: 36 35 61 54 52 39 62 6d 6d 61 4d 6e 63 32 52 78 65aTR9bmmaMnc2Rx
54c0: 58 6f 4e 56 62 79 78 74 72 75 4d 2b 64 47 43 51 XoNVbyxtruM+dGCQ
54d0: 4f 76 65 71 6f 56 56 54 62 75 74 47 54 0a 69 71 OveqoVVTbutGT.iq
54e0: 44 71 78 58 4b 37 4e 48 6d 39 35 63 6d 38 75 6d DqxXK7NHm95cm8um
54f0: 75 47 47 43 31 51 56 62 31 4a 49 34 39 52 6b 53 uGGC1QVb1JI49RkS
5500: 4c 37 67 36 56 55 72 32 6f 32 35 56 59 2b 64 6e L7g6VUr2o25VY+dn
5510: 66 6d 64 77 6f 6f 6f 71 69 51 6f 6f 6f 6f 41 76 fmdwoooqiQooooAv
5520: 6a 54 57 2b 77 6d 0a 35 5a 38 44 73 4b 6f 56 4d jTW+wm.5Z8DsKoVM
5530: 62 71 55 77 2b 55 57 4f 7a 30 71 47 70 56 2b 70 bqUw+UWOz0qGpV+p
5540: 55 72 64 41 6f 6f 6f 71 69 51 6f 6f 6f 6f 41 76 UrdAoooqiQooooAv
5550: 36 52 78 64 37 38 5a 32 38 31 58 76 47 33 33 73 6Rxd78Z281XvG33s
5560: 7a 65 70 71 62 54 5a 6b 67 6b 6b 5a 2f 54 69 0a zepqbTZkgkkZ/Ti.
5570: 71 73 7a 62 35 6e 59 64 7a 55 4a 65 38 32 57 33 qszb5nYdzUJe82W3
5580: 37 69 51 79 69 69 69 72 49 41 39 44 58 5a 57 6b 7iQyiiirIA9DXZWk
5590: 63 63 66 68 47 52 70 52 32 34 72 6a 68 31 46 64 ccfhGRpR24rjh1Fd
55a0: 56 71 55 6f 68 38 4d 57 36 4b 66 76 39 52 58 4e VqUoh8MW6Kfv9RXN
55b0: 69 46 66 6c 69 75 35 32 0a 59 52 71 50 50 4a 39 iFfliu52.YRqPPJ9
55c0: 45 61 50 68 54 6e 53 6e 50 62 4e 62 6c 59 66 68 EaPhTnSnPbNblYfh
55d0: 54 2f 6b 46 4e 39 61 33 4b 38 71 76 2f 41 42 5a T/kFN9a3K8qv/ABZ
55e0: 48 74 59 58 2b 44 48 30 46 70 43 41 52 67 39 44 HtYX+DH0FpCARg9D
55f0: 78 53 30 6e 70 57 52 75 65 65 2b 49 72 51 32 75 xS0npWRuee+IrQ2u
5600: 72 0a 53 45 66 63 62 70 57 54 58 56 65 4d 6f 57 r.SEfcbpWTXVeMoW
5610: 58 79 5a 63 63 4d 65 74 63 71 61 39 7a 44 79 35 XyZccMetcqa9zDy5
5620: 71 53 5a 38 31 69 34 63 6c 61 53 43 69 69 69 74 qSZ81i4claSCiiit
5630: 7a 6e 4a 42 43 37 51 2b 61 42 38 76 72 55 64 64 znJBC7Q+aB8vrUdd
5640: 78 70 6d 6b 4b 6e 67 69 57 35 0a 6d 54 4c 6b 35 xpmkKngiW5.mTLk5
5650: 46 63 4f 4f 53 52 2f 74 56 6e 43 6f 70 74 32 36 FcOOSR/tVnCopt26
5660: 47 74 53 6b 34 4b 4c 66 56 43 6e 46 4a 56 2b 38 GtSk4KLfVCnFJV+8
5670: 74 42 42 62 49 2b 4d 46 68 56 43 72 54 75 5a 79 tBBbI+MFhVCrTuZy
5680: 69 31 6f 77 6f 6f 6f 70 69 43 69 69 69 67 42 77 i1owooopiCiiigBw
5690: 52 32 42 0a 4b 71 53 42 31 70 74 64 44 34 61 56 R2B.KqSB1ptdD4aV
56a0: 5a 4c 62 55 46 65 49 50 68 4f 43 65 31 59 44 6a ZLbUFeIPhOCe1YDj
56b0: 45 6a 44 33 71 46 4b 37 61 37 46 79 68 61 4b 6c EjD3qFK7a7FyhaKl
56c0: 33 47 30 55 55 56 5a 41 6f 4f 47 42 39 44 56 32 3G0UUVZAoOGB9DV2
56d0: 36 76 6e 76 59 6f 72 64 51 63 4c 30 0a 46 55 65 6vnvYordQcL0.FUe
56e0: 39 61 2b 6a 61 58 50 63 61 68 46 49 55 49 6a 55 9a+jaXPcahFIUIjU
56f0: 35 4a 4e 5a 31 48 47 4b 35 6e 30 4e 61 53 6c 4a 5JNZ1HGK5n0NaSlJ
5700: 38 6b 65 70 32 47 69 57 58 32 4c 54 55 55 6e 6c 8kep2GiWX2LTUUnl
5710: 78 6b 2b 31 61 4e 41 41 55 42 52 30 46 46 65 46 xk+1aNAAUBR0FFeF
5720: 4b 54 6c 4a 74 0a 6e 30 30 49 71 45 56 46 64 42 KTlJt.n00IqEVFdB
5730: 61 53 6c 6f 71 53 6a 4c 38 51 57 79 58 47 6b 53 aSloqSjL8QWyXGkS
5740: 73 77 79 59 78 6b 56 35 79 70 79 6f 4e 65 6d 36 swyYxkV5ypyoNem6
5750: 75 43 64 46 75 77 4f 75 32 76 4d 6c 47 45 41 4e uCdFuwOu2vMlGEAN
5760: 65 72 67 48 37 6a 58 6d 65 4a 6d 61 2f 65 0a 4a ergH7jXmeJma/e.J
5770: 2b 51 74 54 57 74 75 62 71 37 69 67 58 71 7a 43 +QtTWtubq7igXqzC
5780: 6f 61 36 44 77 5a 5a 47 37 38 53 32 37 48 37 69 oa6DwZZG78S27H7i
5790: 64 61 36 35 79 35 59 75 52 77 55 34 63 38 31 48 da65y5YuRwU4c81H
57a0: 75 65 6b 61 6c 5a 72 62 2b 45 42 42 47 4d 59 69 uekalZrb+EBBGMYi
57b0: 79 66 79 72 78 79 31 0a 55 4e 64 6f 70 36 46 2b yfyrxy1.UNdop6F+
57c0: 66 7a 72 32 33 78 4d 43 4e 45 6e 56 57 32 67 4b fzr23xMCNEnVW2gK
57d0: 52 58 69 6c 69 75 36 2b 6a 48 71 2f 39 61 34 38 RXiliu6+jHq/9a48
57e0: 45 37 77 6b 7a 30 4d 78 56 71 6b 55 6a 6f 2f 46 E7wkz0MxVqkUjo/F
57f0: 6b 43 77 51 57 67 54 37 70 53 73 48 54 62 63 33 kCwQWgT7pSsHTbc3
5800: 0a 4e 7a 35 59 47 54 32 46 64 46 34 7a 59 68 4c .Nz5YGT2FdF4zYhL
5810: 4f 50 62 67 62 42 7a 57 64 34 52 5a 45 38 51 32 OPbgbBzWd4RZE8Q2
5820: 35 66 47 33 64 57 31 4f 54 56 47 35 7a 31 59 70 5fG3dW1OTVG5z1Yp
5830: 31 2b 55 79 62 79 49 77 58 63 6b 62 4c 67 71 65 1+UybyIwXckbLgqe
5840: 6c 51 56 74 65 4b 79 72 65 0a 4a 4c 73 6f 41 46 lQVteKyre.JLsoAF
5850: 33 63 56 69 31 74 42 33 69 6d 63 39 53 50 4c 4a 3cVi1tB3imc9SPLJ
5860: 6f 4b 4b 4b 4b 73 67 36 7a 77 63 41 62 50 56 4d oKKKKsg6zwcAbPVM
5870: 6a 6e 79 36 35 61 58 2f 57 76 39 61 36 37 77 61 jny65aX/Wv9a67wa
5880: 76 2f 41 42 4c 74 56 4f 4d 2f 75 36 35 47 54 2f v/ABLtVOM/u65GT/
5890: 57 76 0a 39 61 77 70 2f 77 41 53 58 79 4f 69 70 Wv.9awp/wASXyOip
58a0: 2f 43 68 38 78 6c 46 46 46 62 6e 4f 57 72 43 7a /Ch8xlFFFbnOWrCz
58b0: 6c 76 62 79 4f 4f 4a 53 63 48 4a 2b 6c 65 6c 57 lvbyOOJScHJ+lelW
58c0: 38 43 32 38 4b 78 68 51 4d 44 6b 69 73 50 77 6e 8C28KxhQMDkisPwn
58d0: 61 4a 44 70 37 54 6a 42 6b 4a 36 0a 31 30 4e 65 aJDp7TjBkJ6.10Ne
58e0: 50 6a 4b 76 50 50 6c 36 49 39 37 41 55 46 43 6e PjKvPPl6I97AUFCn
58f0: 7a 39 57 46 4a 53 30 6c 63 68 33 69 30 55 55 55 z9WFJS0lch3i0UUU
5900: 41 4d 6c 6a 57 61 4a 6f 6d 2b 36 77 77 61 77 6d AMljWaJom+6wwawm
5910: 38 48 61 59 7a 6c 6a 4a 49 4d 39 71 36 43 69 72 8HaYzljJIM9q6Cir
5920: 68 56 6e 44 0a 34 58 59 7a 71 55 61 64 54 34 31 hVnD.4XYzqUadT41
5930: 63 35 37 2f 68 44 64 4c 2f 41 4f 65 6b 6c 61 65 c57/hDdL/AOeklae
5940: 69 36 54 62 61 44 63 47 65 7a 4a 5a 7a 2f 65 71 i6TbaDcGezJZz/eq
5950: 39 52 56 53 72 31 4a 4b 7a 6b 52 48 44 55 59 75 9RVSr1JKzkRHDUYu
5960: 38 59 71 35 59 31 43 39 6c 31 4b 31 61 0a 33 6e 8Yq5Y1C9l1K1a.3n
5970: 41 56 47 48 4a 46 63 7a 44 34 52 30 32 43 5a 5a AVGHJFczD4R02CZZ
5980: 55 6b 6b 4c 4b 63 6a 4e 62 33 61 69 70 68 56 6e UkkLKcjNb3aiphVn
5990: 42 57 69 37 46 54 6f 30 35 75 38 31 63 71 36 76 BWi7FTo05u81cq6v
59a0: 70 38 47 74 78 77 78 33 51 32 43 49 62 56 4b 39 p8Gtxwx3Q2CIbVK9
59b0: 36 6f 32 50 68 71 0a 77 30 36 36 57 34 68 64 79 6o2Phq.w066W4hdy
59c0: 36 39 4d 31 73 55 55 31 57 71 4a 63 71 65 67 6e 69M1sUU1WqJcqegn
59d0: 68 36 54 6c 7a 4f 4b 75 59 74 35 34 59 73 4c 36 h6TlzOKuYt54YsL6
59e0: 37 65 35 6d 6b 63 53 4f 63 6b 43 6f 50 38 41 68 7e5mkcSOckCoP8Ah
59f0: 44 64 4c 2f 77 43 65 6b 6c 64 44 52 56 4c 45 0a DdL/wCekldDRVLE.
5a00: 56 56 6f 70 4d 6c 34 57 67 33 64 78 52 7a 33 2f VVopMl4Wg3dxRz3/
5a10: 41 41 68 6d 6c 2f 38 41 50 53 53 6a 2f 68 44 64 AAhml/8APSSj/hDd
5a20: 4c 2f 35 36 53 56 30 4e 46 48 31 6d 72 2f 4d 77 L/56SV0NFH1mr/Mw
5a30: 2b 71 55 50 35 45 56 4e 4b 30 36 44 52 37 65 34 +qUP5EVNK06DR7e4
5a40: 67 74 69 57 53 64 64 72 0a 6c 76 53 73 74 2f 42 gtiWSddr.lvSst/B
5a50: 2b 6d 4f 35 59 79 53 5a 4e 62 39 46 4a 56 36 69 +mO5YySZNb9FJV6i
5a60: 64 31 49 70 34 61 6b 30 6b 34 71 79 4f 65 2f 34 d1Ip4ak0k4qyOe/4
5a70: 51 7a 53 2f 2b 65 6b 6c 48 2f 43 47 36 58 2f 7a QzS/+eklH/CG6X/z
5a80: 30 6b 72 6f 61 4b 66 31 6d 72 2f 4d 79 66 71 6c 0kroaKf1mr/Myfql
5a90: 44 0a 2b 52 46 54 54 74 4f 68 30 79 31 4e 76 41 D.+RFTTtOh0y1NvA
5aa0: 7a 4d 68 4f 63 74 56 75 6a 74 52 57 54 62 6b 37 zMhOctVujtRWTbk7
5ab0: 73 33 6a 46 52 58 4b 74 67 70 4b 57 6b 70 44 46 s3jFRXKtgpKWkpDF
5ac0: 6f 70 4b 4b 41 46 6f 70 4b 4b 41 46 6f 70 4b 4b opKKAFopKKAFopKK
5ad0: 41 46 37 55 55 6e 61 69 67 42 0a 61 4b 53 69 67 AF7UUnaigB.aKSig
5ae0: 42 61 53 69 69 67 42 61 4b 53 69 67 42 61 4b 53 BaSiigBaKSigBaKS
5af0: 69 67 42 61 4b 53 69 67 42 65 31 46 4a 32 6f 6f igBaKSigBe1FJ2oo
5b00: 41 57 6b 6f 6f 6f 41 2f 39 6b 3d 0a 09 7d 5d 0a AWkoooA/9k=..}].
5b10: 7d 0a }.