32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
return $res
}
# Entry for adding preprocess from command line
proc addPreprocess {name RE sub side} {
lappend ::Pref(preprocess) $RE $sub $side
}
# This is called when Ok or Apply is pressed.
# Update preference from dialog contents.
proc EditPrefRegsubOk {top w {keep 0}} {
set exa $::eskil($top,prefregexa)
set result {}
|
>
>
>
>
>
|
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
return $res
}
# Entry for adding preprocess from command line
proc addPreprocess {name RE sub side} {
lappend ::Pref(preprocess) $RE $sub $side
}
# Get the value used when saving preferences
proc getPreprocessSave {} {
return $::Pref(preprocess)
}
# This is called when Ok or Apply is pressed.
# Update preference from dialog contents.
proc EditPrefRegsubOk {top w {keep 0}} {
set exa $::eskil($top,prefregexa)
set result {}
|