ViewVC Help

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

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

Comparing ray/src/util/do_views3.6.tcl (file contents):
Revision 2.3 by greg, Sat Nov 5 09:31:48 1994 UTC vs.
Revision 2.4 by greg, Fri Mar 24 12:35:27 1995 UTC

#	Line 43 | Line 43 | proc addview {{pos end}} {             # add current view
43		return -1
44		}
45		set curmess {}
46	<	set n [lsearch -glob $radvar(view) "$viewname *"]
46	>	set n [lsearch -exact $radvar(view) $viewname]
47	>	if {$n < 0} {
48	>	set n [lsearch -glob $radvar(view) "$viewname *"]
49	>	}
50		if {$n >= 0} {
51		set radvar(view) [lreplace $radvar(view) $n $n]
52		if {"$pos" != "end" && $pos > $n} {incr pos -1}

Diff Legend

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