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

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.5 by greg, Thu Jul 6 12:23:44 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}
# Line 77 | Line 80 | proc delview {} {                      # delete current view
80   }
81  
82   proc copyviews rf {             # copy view settings from another RIF
83 <        load_vars [file tail $rf] {view UP PICTURE RESOLUTION}
83 >        load_vars [file tail $rf] {view UP PICTURE RESOLUTION RAWSAVE}
84          vnchange viewname {} w
85   }
86  
# Line 173 | Line 176 | proc do_views w {                      # create views screen
176          entry $w.rze -textvariable radvar(RESOLUTION) -relief sunken
177          place $w.rze -relwidth .2857 -relheight .0610 -relx .2857 -rely .7717
178          helplink $w.rze trad views resolution
179 +        # Rawsave
180 +        checkbutton $w.rawb -relief flat -text Rawsave \
181 +                        -variable radvar(RAWSAVE) -onvalue True -offvalue False
182 +        place $w.rawb -relx .6429 -rely .7717
183 +        helplink $w.rawb trad views rawsave
184          # Revert and Copy buttons
185          button $w.revert -text Revert -relief raised \
186                          -command "copyviews $rifname"

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines