Eskil

Check-in [019ad37ac6]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Better preprocess function
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 019ad37ac674a17eacc3adc6da1b2459ed8f825b
User & Date: peter 2017-02-05 19:19:39.784
Context
2017-02-09
22:43
Fixed resourcing for debug check-in: 328325a47e user: peter tags: trunk
2017-02-05
19:19
Better preprocess function check-in: 019ad37ac6 user: peter tags: trunk
19:02
Bumped revision to 2.7.4 check-in: 7e3f1f0489 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/preprocess.tcl.
︙︙
82
83
84
85
86
87
88

89
90





91
92
93
94
95
96
97

        if {[catch {regsub -all -- $RE $exa $Sub _} err]} {
            return
        }
        lappend result $RE $Sub $side
    }

    set ::TmpPref(preprocess,re,$item) $result


    if {$keep} return





    destroy $w

    array unset ::eskil $top,prefregexp*
    array unset ::eskil $top,prefregsub*
    array unset ::eskil $top,prefregleft*
    array unset ::eskil $top,prefregright*
}








>

|
>
>
>
>
>








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} {
        # 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*
}
︙︙