--- ray/src/util/do_options.tcl 1995/02/22 20:48:49 2.5 +++ ray/src/util/do_options.tcl 1996/05/17 13:58:35 2.7 @@ -5,7 +5,7 @@ proc amb_delete {} { # delete ambient file global radvar curmess - if {"$radvar(AMBFILE)" == {} || ! [file exists $radvar(AMBFILE)]} { + if {"$radvar(AMBFILE)" == {} || ! [file isfile $radvar(AMBFILE)]} { set curmess {No ambient file.} return } @@ -110,7 +110,7 @@ proc do_options w { # Set up options screen -anchor se helplink $w.revert trad options revert button $w.copy -text Copy -relief raised -command {getfile -grab \ - -send copyopts -view view_txt -glob $rif_glob} + -send copyopts -view view_txt -glob $myglob(rif)} place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ -anchor se helplink $w.copy trad options copy