Eskil

Differences From Artifact [caf237892f]:

• File src/dirdiff.tcl — part of check-in [44f727393d] at 2016-08-14 23:41:12 on branch trunk — Fixes to quiet warnings (user: peter size: 48268)

To Artifact [839a305d25]:

• File src/dirdiff.tcl — part of check-in [f67e07fd0a] at 2017-03-17 23:39:21 on branch trunk — When needing an editor, try VISUAL and EDITOR plus a set of common ones. (user: peter size: 48271)

261
262
263
264
265
266
267
268
269
270
271
272
273
274
275

    return [Fsort $files2]
}

# Bring up an editor to display a file.
proc EditFile {file} {
    locateEditor ::util(editor)
    exec $::util(editor) $file &
}

# Pick a directory for compare
proc BrowseDir {dirVar entryW} {
    upvar "#0" $dirVar dir

    set newdir $dir

|

261
262
263
264
265
266
267
268
269
270
271
272
273
274
275

    return [Fsort $files2]
}

# Bring up an editor to display a file.
proc EditFile {file} {
    locateEditor ::util(editor)
    exec {*}$::util(editor) $file &
}

# Pick a directory for compare
proc BrowseDir {dirVar entryW} {
    upvar "#0" $dirVar dir

    set newdir $dir