ViewVC Help

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

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

Comparing ray/src/util/do_action.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:06 1994 UTC vs.
Revision 2.2 by greg, Thu Oct 27 17:28:19 1994 UTC

#	Line 144 | Line 144 | proc make_vmenus {} {          # make/update view menus
144		set rvview [lindex [lindex $radvar(view) 0] 0]
145		}
146		catch {destroy $mywin.rivmb.m}
147	–	if {[llength $radvar(view)] < 2} {
148	–	$mywin.rivmb configure -state disabled
149	–	} else {
150	–	menu $mywin.rivmb.m
151	–	$mywin.rivmb configure -menu $mywin.rivmb.m
152	–	foreach v $radvar(view) {
153	–	$mywin.rivmb.m add radiobutton -label [lindex $v 0] \
154	–	-variable rvview -value [lindex $v 0]
155	–	}
156	–	}
147		catch {destroy $mywin.rbvmb.m}
148		if {[llength $radvar(view)] < 2} {
149	+	$mywin.rivmb configure -state disabled
150		$mywin.rbvmb configure -state disabled
151	<	} else {
152	<	menu $mywin.rbvmb.m
153	<	$mywin.rbvmb configure -menu $mywin.rbvmb.m
154	<	$mywin.rbvmb.m add radiobutton -label ALL \
155	<	-variable rpview -value " ALL"
156	<	$mywin.rbvmb.m add separator
157	<	foreach v $radvar(view) {
158	<	$mywin.rbvmb.m add radiobutton -label [lindex $v 0] \
159	<	-variable rpview -value [lindex $v 0]
160	<	}
151	>	return
152	>	}
153	>	menu $mywin.rivmb.m
154	>	$mywin.rivmb configure -menu $mywin.rivmb.m -state normal
155	>	foreach v $radvar(view) {
156	>	$mywin.rivmb.m add radiobutton -label [lindex $v 0] \
157	>	-variable rvview -value [lindex $v 0]
158	>	}
159	>	menu $mywin.rbvmb.m
160	>	$mywin.rbvmb configure -menu $mywin.rbvmb.m -state normal
161	>	$mywin.rbvmb.m add radiobutton -label ALL \
162	>	-variable rpview -value " ALL"
163	>	$mywin.rbvmb.m add separator
164	>	foreach v $radvar(view) {
165	>	$mywin.rbvmb.m add radiobutton -label [lindex $v 0] \
166	>	-variable rpview -value [lindex $v 0]
167		}
168		}
169

Diff Legend

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