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.7 by greg, Fri May 17 13:58:40 1996 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 RAWFILE ZFILE}
84          vnchange viewname {} w
85   }
86  
# Line 163 | Line 166 | proc do_views w {                      # create views screen
166                          trad views up
167          # Picture file name
168          label $w.pfl -text Picture:
169 <        place $w.pfl -relx .0714 -rely .6498
169 >        place $w.pfl -relx .0714 -rely .6345
170          entry $w.pfe -textvariable radvar(PICTURE) -relief sunken
171 <        place $w.pfe -relwidth .6429 -relheight .0610 -relx .2857 -rely .6498
171 >        place $w.pfe -relwidth .5714 -relheight .0610 -relx .2857 -rely .6345
172          helplink $w.pfe trad views picture
173          # Resolution
174          label $w.rzl -text Resolution:
175 <        place $w.rzl -relx .0714 -rely .7717
175 >        place $w.rzl -relx .0714 -rely .7107
176          entry $w.rze -textvariable radvar(RESOLUTION) -relief sunken
177 <        place $w.rze -relwidth .2857 -relheight .0610 -relx .2857 -rely .7717
177 >        place $w.rze -relwidth .2857 -relheight .0610 -relx .2857 -rely .7107
178          helplink $w.rze trad views resolution
179 +        # Rawfile
180 +        label $w.rfl -text Rawfile:
181 +        place $w.rfl -relx .0714 -rely .7870
182 +        entry $w.rfe -textvariable radvar(RAWFILE) -relief sunken
183 +        place $w.rfe -relwidth .5714 -relheight .0610 -relx .2857 -rely .7870
184 +        helplink $w.rfe trad views rawfile
185 +        # Zfile
186 +        label $w.zfl -text Zfile:
187 +        place $w.zfl -relx .0714 -rely .8632
188 +        entry $w.zfe -textvariable radvar(ZFILE) -relief sunken
189 +        place $w.zfe -relwidth .5714 -relheight .0610 -relx .2857 -rely .8632
190 +        helplink $w.zfe trad views zfile
191          # Revert and Copy buttons
192          button $w.revert -text Revert -relief raised \
193                          -command "copyviews $rifname"
# Line 180 | Line 195 | proc do_views w {                      # create views screen
195                          -anchor se
196          helplink $w.revert trad views revert
197          button $w.copy -text Copy -relief raised -command {getfile -grab \
198 <                        -send copyviews -view view_txt -glob $rif_glob}
198 >                        -send copyviews -view view_txt -glob $myglob(rif)}
199          place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
200                          -anchor se
201          helplink $w.copy trad views copy

Diff Legend

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