3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
|
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
|
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
|
grid columnconfigure $w.fb {0 2} -uniform a
grid columnconfigure $w.fb 1 -weight 1
# Top layout
pack $w.b -side "top" -anchor "w" -padx 3 -pady 3
pack $w.fb $w.res -side bottom -fill x -padx 3 -pady 3
# Fill in existing
set t 1
foreach {RE Sub} $::Pref(regsub) {
set ::diff($top,prefregexp$t) $RE
set ::diff($top,prefregsub$t) $Sub
AddPrefRegsub $top $w
incr t
}
# Fill in existing or an empty line
if {[llength $::Pref(regsub)] == 0} {
AddPrefRegsub $top $w
} else {
set t 1
foreach {RE Sub} $::Pref(regsub) {
set ::diff($top,prefregexp$t) $RE
set ::diff($top,prefregsub$t) $Sub
AddPrefRegsub $top $w
incr t
}
}
trace add variable ::diff($top,prefregexa) write \
[list EditPrefRegsubUpdate $top]
trace add variable ::diff($top,prefregexa2) write \
[list EditPrefRegsubUpdate $top]
EditPrefRegsubUpdate $top
}
|