#!/bin/csh -bf
# This file contains initialization of the X window system.
#	$Source: /afs/sipb.mit.edu/user/jtkohl/lib/scripts/RCS/Xrc,v $
#	$Author: jtkohl $
#	$Header: /afs/sipb.mit.edu/user/jtkohl/lib/scripts/RCS/Xrc,v 1.35 1995/06/29 23:53:28 jtkohl Exp $
#

echo -n "grabcons..."
grabcons
echo -n "/tmp/includes..."
source ~/lib/scripts/tmpincludes
echo -n "xmodmap..."
/lib/cpp -P < ~/lib/X11/Xmodmap | xmodmap -
echo -n "xrdb..."
xrdb -load ~/.Xresources
echo -n "xlogwin..."
xlogwin -r loginXterm
echo -n "twm..."
twm &
echo -n "emacs..."
emacs &
echo -n "xsetroot..."
set i=10
set stat=1
set display=$DISPLAY
set display=$display:r		# chop off .x part of display
unset print_exit_status
while ($stat != 0 && $i > -1)
	xset -display ${display}.${i} -q >&/dev/null
	set stat=$status
	@ i--
end
@ i++
while ($i > -1)
	xsetroot -bitmap ~/lib/X11/bitmaps/background.xbm -display ${display}.${i}
	@ i--
end
unset i
unset stat
unset display
set print_exit_status
echo -n "xset..."
if ($hosttype == "rt") then
	xset r m 7 2 b 30 2000 100 c 30
else
	set dtype=`/bin/athena/machtype -d`
	if ( ${dtype}x == "QVSSx") then
xset b 30 r m 10 2
	else
xset b 30 r m 3 7 s blank
	endif
endif
echo "done."
exit 0