--- ray/src/util/gethelp3.6.tcl	1995/01/03 16:06:45	2.9
+++ ray/src/util/gethelp3.6.tcl	2003/02/22 02:07:30	2.12
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: gethelp3.6.tcl,v 2.12 2003/02/22 02:07:30 greg Exp $
 #
 # Get help from a file, formatted like so:
 #
@@ -27,7 +27,7 @@ proc gethelp {helpfile category topic} {	# Open help w
 		toplevel .helpwin -cursor top_left_arrow
 		wm minsize .helpwin 500 400
 		wm iconbitmap .helpwin question
-		frame .helpwin.but -geometry 150x400
+		frame .helpwin.but -width 150 -height 400
 		pack .helpwin.but -side right -fill none -expand no
 		label .helpwin.but.lab -textvariable curhelp(title)
 		place .helpwin.but.lab -relx .1667 -rely 0
@@ -129,7 +129,7 @@ proc helpopen fname {			# open the named help file
 	.helpwin.txt insert end "Loading $fname..."
 	update
 	set curhelp(fid) [open $fname r]
-	if {! [file exists $ifile] ||
+	if {! [file isfile $ifile] ||
 			[file mtime $fname] > [file mtime $ifile]} {
 		set helpindex(catlist) {}
 		while {[gets $curhelp(fid) li] >= 0} {