--- ray/src/util/trad.wsh	1994/12/05 09:50:43	2.9
+++ ray/src/util/trad.wsh	1995/09/20 12:56:00	2.11
@@ -1,4 +1,4 @@
-#!/usr/local/bin/wish -f
+#!/usr/local/bin/wish4.0
 # SCCSid "$SunId$ LBL"
 #
 # TCL/TK-based Rad Input File Editor
@@ -79,12 +79,12 @@ set smallscrn [expr [winfo screenwidth .] < 830]
 
 message .mess -relief ridge -font fixed -textvariable curmess -anchor nw
 if $smallscrn {
-	frame .upper -geometry 640x410
-	frame .upper.right -geometry 120x410
+	frame .upper -width 640 -height 410
+	frame .upper.right -width 120 -height 410
 	.mess configure -width 640
 } else {
-	frame .upper -geometry 830x410
-	frame .upper.right -geometry 130x410
+	frame .upper -width 830 -height 410
+	frame .upper.right -width 130 -height 410
 	.mess configure -width 830
 }
 pack .upper -side top
@@ -106,9 +106,9 @@ proc changescreen {} {		# switch screen according to c
 	set curscreen $curmode
 	do_$curscreen .upper.left
 	if $smallscrn {
-		.upper.left configure -geometry 520x410
+		.upper.left configure -width 520 -height 410
 	} else {
-		.upper.left configure -geometry 700x410
+		.upper.left configure -width 700 -height 410
 	}
 	place .upper.left -x 0 -y 0
 }
@@ -135,11 +135,11 @@ setbutt results
 rename setbutt {}
 button .upper.right.help -text HELP -width 9 \
 		-command "gethelp trad trad intro"
-pack .upper.right.help -side top -pady 10 -anchor se
+pack .upper.right.help -side top -pady 5 -anchor se
 helplink .upper.right.help trad trad help
 button .upper.right.quit -text QUIT \
 		-command {if [chksave] {destroy .}} -width 9
-pack .upper.right.quit -side top -pady 10 -anchor se
+pack .upper.right.quit -side top -pady 5 -anchor se
 helplink .upper.right.quit trad trad quit
 
 if $smallscrn {