--- ray/src/util/do_options.tcl 1994/10/27 15:56:07 2.1 +++ ray/src/util/do_options.tcl 1994/12/05 14:29:46 2.3 @@ -14,7 +14,7 @@ proc amb_delete {} { # delete ambient file set nv [expr ($fl - $hl - 3) / 75] if {$nv && [tk_dialog .dlg {Verification} \ "Really delete ambient file $radvar(AMBFILE)\ - with $nv indirect irradiances values?" \ + with $nv indirect irradiance values?" \ questhead 1 {Delete} {Cancel}]} { return 0 } @@ -109,7 +109,7 @@ proc do_options w { # Set up options screen place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \ -anchor se helplink $w.revert trad options revert - button $w.copy -text Copy -relief raised -command {getfile \ + button $w.copy -text Copy -relief raised -command {getfile -grab \ -send copyopts -view view_txt -glob $rif_glob} place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ -anchor se