| ︙ | | | ︙ | |
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
package provide app-eskil 1.0
package require Tcl 8.4
package require Tk 8.4
catch {package require textSearch}
package require pstools
namespace import -force pstools::*
if {[catch {package require psballoon}]} {
# Add a dummy if it does not exists.
proc addBalloon {args} {}
} else {
namespace import -force psballoon::addBalloon
}
set debug 1
set diffver "Version 2.0b3+ 2004-01-20"
set thisScript [file join [pwd] [info script]]
set thisDir [file dirname $thisScript]
# Follow any link
set tmplink $thisScript
while {[file type $tmplink] eq "link"} {
set tmplink [file readlink $tmplink]
|
|
|
|
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
package provide app-eskil 2.0
package require Tcl 8.4
package require Tk 8.4
catch {package require textSearch}
package require pstools
namespace import -force pstools::*
if {[catch {package require psballoon}]} {
# Add a dummy if it does not exists.
proc addBalloon {args} {}
} else {
namespace import -force psballoon::addBalloon
}
set debug 0
set diffver "Version 2.0 2004-01-28"
set thisScript [file join [pwd] [info script]]
set thisDir [file dirname $thisScript]
# Follow any link
set tmplink $thisScript
while {[file type $tmplink] eq "link"} {
set tmplink [file readlink $tmplink]
|
| ︙ | | | ︙ | |
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
|
puts $cho $line
}
incr lineNo
}
close $cho
close $chi
}
# FIXA : detta tar bort tmpfiles
|
<
|
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
|
puts $cho $line
}
incr lineNo
}
close $cho
close $chi
}
cleanupFiles $top
newDiff $f(1) $f(2)
set ::diff($top,aligns) ""
disableAlign $top
}
|
| ︙ | | | ︙ | |
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
|
set newdir $dir
while {$newdir != "." && ![file isdirectory $newdir]} {
set newdir [file dirname $newdir]
}
set newdir [tk_chooseDirectory -initialdir $newdir -title "Select Directory"]
if {$newdir != ""} {
set dir $newdir
$entryW see end
}
if {$Pref(autocompare)} doCompare
}
# This is called when double clicking on a file in
# the directory compare window
proc selectFile {w x y} {
|
|
|
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
|
set newdir $dir
while {$newdir != "." && ![file isdirectory $newdir]} {
set newdir [file dirname $newdir]
}
set newdir [tk_chooseDirectory -initialdir $newdir -title "Select Directory"]
if {$newdir != ""} {
set dir $newdir
$entryW xview end
}
if {$Pref(autocompare)} doCompare
}
# This is called when double clicking on a file in
# the directory compare window
proc selectFile {w x y} {
|
| ︙ | | | ︙ | |
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
|
catch {font delete myfont}
font create myfont -family $Pref(fontfamily) -size $Pref(fontsize)
entry $top.e1 -textvariable dirdiff(leftDir)
button $top.bu1 -text "Up" -padx 10 -command {upDir 1}
button $top.bb1 -text "Browse" -padx 10 \
-command [list browseDir dirdiff(leftDir) $top.e1]
entry $top.e2 -textvariable dirdiff(rightDir)
button $top.bu2 -text "Up" -padx 10 -command {upDir 2}
button $top.bb2 -text "Browse" -padx 10 \
-command [list browseDir dirdiff(rightDir) $top.e2]
bind $top.e1 <Return> doCompare
bind $top.e2 <Return> doCompare
pack $top.bb1 $top.bu1 -in $top.fe1 -side right -pady 1
pack $top.bu1 -padx 6
pack $top.e1 -in $top.fe1 -side left -fill x -expand 1
pack $top.bb2 $top.bu2 -in $top.fe2 -side right -pady 1
|
>
>
|
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
|
catch {font delete myfont}
font create myfont -family $Pref(fontfamily) -size $Pref(fontsize)
entry $top.e1 -textvariable dirdiff(leftDir)
button $top.bu1 -text "Up" -padx 10 -command {upDir 1}
button $top.bb1 -text "Browse" -padx 10 \
-command [list browseDir dirdiff(leftDir) $top.e1]
$top.e1 xview end
entry $top.e2 -textvariable dirdiff(rightDir)
button $top.bu2 -text "Up" -padx 10 -command {upDir 2}
button $top.bb2 -text "Browse" -padx 10 \
-command [list browseDir dirdiff(rightDir) $top.e2]
$top.e2 xview end
bind $top.e1 <Return> doCompare
bind $top.e2 <Return> doCompare
pack $top.bb1 $top.bu1 -in $top.fe1 -side right -pady 1
pack $top.bu1 -padx 6
pack $top.e1 -in $top.fe1 -side left -fill x -expand 1
pack $top.bb2 $top.bu2 -in $top.fe2 -side right -pady 1
|
| ︙ | | | ︙ | |