Eskil

Check-in [eb9b864868]
Login

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

Overview
Comment:A few changes to textSearch's API.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: eb9b86486812b8a1e5a201a204880ca3b892823e
User & Date: peter 2003-08-07 20:31:27.000
Context
2003-08-13
20:47
Added some balloonhelp. New fields for revision numbers. Added a bit spacing around buttons. Polished menus and tab traversal. check-in: d24dc8fb3c user: peter tags: trunk
2003-08-07
20:31
A few changes to textSearch's API. check-in: eb9b864868 user: peter tags: trunk
2003-08-06
00:16
Version 1.9.7 Moved out change history. Added copyright. Prepare for tclkit. Moved out textSearch into a package. Added experimental filter function. Added keyboard shortcuts to Prev/Next Diff buttons. Added keys to dismiss help windows. check-in: a48fb659f3 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/eskil.tcl.
︙︙
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

# the next line restarts using wish \
exec wish "$0" "$@"

package provide app-diff 1.0
package require Tk
catch {package require textSearch}

set debug 0
set diffver "Version 1.9.7  2003-08-05"
set tmpcnt 0
set tmpfiles {}
set thisscript [file join [pwd] [info script]]
set thisdir [file dirname $thisscript]
set ::diff(cvsExists) [expr {![string equal [auto_execok cvs] ""]}]
set ::diff(diffexe) diff
set ::diff(thisexe) [list [info nameofexecutable] $thisscript]








|
|








15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

# the next line restarts using wish \
exec wish "$0" "$@"

package provide app-diff 1.0
package require Tk
catch {package require textSearch}

set debug 1
set diffver "Version 1.9.7+  2003-08-07"
set tmpcnt 0
set tmpfiles {}
set thisscript [file join [pwd] [info script]]
set thisdir [file dirname $thisscript]
set ::diff(cvsExists) [expr {![string equal [auto_execok cvs] ""]}]
set ::diff(diffexe) diff
set ::diff(thisexe) [list [info nameofexecutable] $thisscript]
︙︙
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890

2891



2892
2893
2894
2895
2896
2897
2898
2899

            -highlightthickness 0
    frame .ft2.f -width 2 -height 2 -bg lightgray
    pack .ft2.tl -side left -fill y
    pack .ft2.f -side left -fill y
    pack .ft2.tt -side right -fill both -expand 1
    scrollbar .sbx2 -orient horizontal -command ".ft2.tt xview"

    label .le -textvariable ::diff(eqLabel) -width 1
    label .ls -width 1 -pady 0 -padx 0
    canvas .c -width 6 -bd 0 -selectborderwidth 0 -highlightthickness 0

    # Set up a tag for incremental search bindings
    if {[info proc textSearch::enableSearch] != ""} {
        textSearch::enableSearch .ft1.tt
        textSearch::enableSearch .ft2.tt

        .ls configure -textvariable ::textSearch::statusLabel



    }

    applyColor
    .ft1.tt tag configure last -underline 1
    .ft2.tt tag configure last -underline 1
    foreach w {.ft1.tt .ft2.tt} {
        $w tag raise sel
        bind $w <ButtonPress-3> "zoomRow %W %X %Y %x %y"








<
<
<
<


|
|
>
|
>
>
>
|








2876
2877
2878
2879
2880
2881
2882




2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899

            -highlightthickness 0
    frame .ft2.f -width 2 -height 2 -bg lightgray
    pack .ft2.tl -side left -fill y
    pack .ft2.f -side left -fill y
    pack .ft2.tt -side right -fill both -expand 1
    scrollbar .sbx2 -orient horizontal -command ".ft2.tt xview"





    # Set up a tag for incremental search bindings
    if {[info proc textSearch::enableSearch] != ""} {
        textSearch::enableSearch .ft1.tt -label ::diff(isearchLabel)
        textSearch::enableSearch .ft2.tt -label ::diff(isearchLabel)
    }

    label .le -textvariable ::diff(eqLabel) -width 1
    label .ls -width 1 -pady 0 -padx 0 -textvariable ::diff(isearchLabel)
    canvas .c -width 6 -bd 0 -selectborderwidth 0 -highlightthickness 0


    applyColor
    .ft1.tt tag configure last -underline 1
    .ft2.tt tag configure last -underline 1
    foreach w {.ft1.tt .ft2.tt} {
        $w tag raise sel
        bind $w <ButtonPress-3> "zoomRow %W %X %Y %x %y"
︙︙