ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/util/util.tcl

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 (old)
>	Changed lines (new)