Eskil

Check-in [95bf4153cd]
Login

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

Overview
Comment:Fixed Freewrap support.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 95bf4153cdb41467b39511f1196b15829b421b49
User & Date: peter 2003-02-09 23:37:24.000
Context
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
2003-02-09
23:37
Fixed Freewrap support. check-in: 95bf4153cd user: peter tags: trunk
23:36
Renamed resultfile to diffw.exe. check-in: 8ff014bc22 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to dirdiff.tcl.
︙︙
9
10
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

exec wish "$0" "$@"

package require Tk 8.3

set debug 0
set thisScript [file join [pwd] [info script]]
set thisDir [file dirname $thisScript]
if {[file type $thisScript] == "link"} {
    set tmplink [file readlink $thisScript]
    set thisDir [file dirname [file join $thisDir $tmplink]]
    unset tmplink
}
set tclDiffExe [list [info nameofexecutable] [file join $::thisDir diff.tcl]]

# Support for FreeWrap 5.5
if {[info proc ::freewrap::unpack] != ""} {
    set debug 0
    set thisDir [file dirname [info nameofexecutable]]
    set thisScript ""
    # Assume a wrapped diff too
    set tclDiffExe [list [file join $::thisDir tcldiff.exe]]





}





if {$::tcl_platform(platform) == "windows"} {
    package require dde
}

if {$::tcl_platform(platform) == "unix"} {
    set editor emacs








<
<
<
<
<
<







|
>
>
>
>
>
|
>
>
>
>








9
10
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

exec wish "$0" "$@"

package require Tk 8.3

set debug 0
set thisScript [file join [pwd] [info script]]
set thisDir [file dirname $thisScript]







# Support for FreeWrap 5.5
if {[info proc ::freewrap::unpack] != ""} {
    set debug 0
    set thisDir [file dirname [info nameofexecutable]]
    set thisScript ""
    # Assume a wrapped diff too
    set tclDiffExe [list [file join $::thisDir diffw.exe]]
} else {
    if {[file type $thisScript] == "link"} {
        set tmplink [file readlink $thisScript]
        set thisDir [file dirname [file join $thisDir $tmplink]]
        unset tmplink
    }
    set tclDiffExe [list [info nameofexecutable] \
                            [file join $::thisDir diff.tcl]]
}


if {$::tcl_platform(platform) == "windows"} {
    package require dde
}

if {$::tcl_platform(platform) == "unix"} {
    set editor emacs
︙︙