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
textSearch::enableSearch .ft1.tt
textSearch::enableSearch .ft2.tt
.ls configure -textvariable ::textSearch::statusLabel
}
|
<
<
<
<
|
|
>
|
>
>
>
|
|
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"
|