--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/orig/tradinstall.csh	Sat Apr 09 17:55:16 2011 +0100
@@ -0,0 +1,47 @@
+#!/bin/csh -fe
+# RCSid: $Id: tradinstall.csh,v 2.7 2003/02/22 02:07:30 greg Exp $
+# Install correct version of trad for wish or wish4.0
+#
+set instdir = $1
+set libdir = $2
+
+set TLIBFILES = ( *[a-z].tcl *.hlp trad.icon tclIndex )
+
+set TDIFFS = (`ls | sed -n 's/3\.6\.tcl$//p'`)
+
+set WISHCOMS = ( wish4.{3,2,1,0} wish8.0 wish )
+
+foreach w ( $WISHCOMS )
+	foreach d ($path)
+		if (-x $d/$w) then
+			set wishcom = $d/$w
+			break
+		endif
+	end
+	if ( $?wishcom ) break
+end
+if (! $?wishcom) then
+	echo "Cannot find wish executable in current path -- trad not installed."
+	exit 1
+endif
+# if ( $wishcom:t == wish ) then
+#	set wishcom="$wishcom -f"
+#	set oldwish
+# endif
+
+echo "Installing trad using $wishcom"
+
+sed -e "1s|/usr/local/bin/wish4\.0|$wishcom|" \
+	-e "s|^set radlib .*|set radlib $libdir|" trad.wsh > $instdir/trad
+chmod 755 $instdir/trad
+if (! -d $libdir) then
+	mkdir $libdir
+endif
+(cd $libdir ; rm -f $TLIBFILES)
+cp $TLIBFILES $libdir
+if ($?oldwish) then
+	foreach i ($TDIFFS)
+		rm -f $libdir/$i.tcl
+		cp ${i}3.6.tcl $libdir/$i.tcl
+	end
+endif