--- ray/src/util/do_options.tcl 1995/10/17 21:28:09 2.6 +++ ray/src/util/do_options.tcl 1996/05/17 13:58:35 2.7 @@ -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