--- ray/src/util/trad.wsh	1995/10/17 21:28:21	2.13
+++ ray/src/util/trad.wsh	2011/10/26 20:06:17	2.16
@@ -1,5 +1,7 @@
 #!/usr/local/bin/wish4.0
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: trad.wsh,v 2.16 2011/10/26 20:06:17 greg Exp $
+# the next line restarts using wish in case of shell execution \
+exec wish "$0" "$@"
 #
 # TCL/TK-based Rad Input File Editor
 #
@@ -11,6 +13,14 @@ set helplib $radlib
 
 set auto_path [linsert $auto_path 0 $radlib]
 
+# Assign global globbing variables
+
+set myglob(rif) *.rif
+set myglob(materials) *.mat
+set myglob(illum) *.rad
+set myglob(scene) *.rad
+set myglob(objects) *
+
 # Create required procedures
 
 proc modified {} {	# check for radvar modification
@@ -119,7 +129,7 @@ pack .upper.right.title -side top -pady 10
 proc setbutt v {
 	radiobutton .$v -text [string toupper $v] \
 			-variable curmode -value $v \
-			-width 9 -relief groove -anchor w \
+			-width 10 -relief groove -anchor w \
 			-command changescreen
 	pack .$v -in .upper.right -side top -pady 5
 	helplink .$v trad $v intro