ViewVC Help

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

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

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.7 by greg, Tue Mar 21 16:19:26 1995 UTC vs.
Revision 2.8 by greg, Wed May 17 15:55:06 1995 UTC

#	Line 19 | Line 19 | proc preen {} {                        # clean up radvar
19		set n 1
20		foreach v $oldval {
21		if {"[string index $v 0]" == "-"} {
22	<	lappend radvar(view) "$n $v"
22	>	lappend radvar(view) "u$n $v"
23		} elseif {[lsearch -glob $radvar(view) \
24		"[lindex $v 0] *"] >= 0} {
25		continue

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)