82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
+
-
+
+
+
+
+
+
|
if {[catch {regsub -all -- $RE $exa $Sub _} err]} {
return
}
lappend result $RE $Sub $side
}
set ::TmpPref(preprocess,re,$item) $result
set ::TmpPref(preprocess,active,$item) 1
if {$keep} return
if {$keep} {
# Apply was pressed, also apply main dialog
# TODO: Get widgets right. Right now it does not matter
EditPrefPrepOk . $top 1
return
}
destroy $w
array unset ::eskil $top,prefregexp*
array unset ::eskil $top,prefregsub*
array unset ::eskil $top,prefregleft*
array unset ::eskil $top,prefregright*
}
|