ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/util.tcl
(Generate patch)

Comparing ray/src/util/util.tcl (file contents):
Revision 2.2 by greg, Sun Oct 30 08:33:02 1994 UTC vs.
Revision 2.3 by greg, Fri Dec 9 14:17:47 1994 UTC

# Line 10 | Line 10 | proc beep {} {         # ring the bell
10   proc view_txt fn {              # view a text file
11          global env
12          if [info exists env(EDITOR)] {
13 <                eval exec xterm -e $env(EDITOR) $fn
13 >                if {[lsearch -exact {vi vedit view ex edit ed red} \
14 >                                [file tail [lindex $env(EDITOR) 0]]] >= 0} {
15 >                        eval exec xterm +sb -e $env(EDITOR) $fn
16 >                } else {
17 >                        eval exec $env(EDITOR) $fn
18 >                }
19          } else {
20                  foreach f $fn {
21                          exec xedit $f

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines