#!/bin/tcsh -f
#(ie run the tshell on this but don't read the .cshrc or .tcshrc)

echo version = 1.04 of right 2004 Feb 24
# 2004 Feb 24, 1.04: cannot use "$arg"  on non-sunos5.9
# 2004 Feb  3, 1.03: accept argument
# 2003 Nov  4, 1.02: solaris 5.9
# 2003 Aug 26, 1.01: solaris 5.8
# 1999 Jun  8, 1.00: origin before this date

# create a "right" type window - a window on the right side of the screen.

if ($#argv == 1) then
  set arg = "$1"
else
  set arg = ''
endif

if (`sunos5.9`) then
   xwright "$arg" &
else
   toolwait shelltool -Wp 668 73 -Ws 473 800 -WP 668 0 +Wi -Wl "right" -WL "right" $arg &
endif

exit

toolwait shelltool  -Wp 668  73 -Ws 602 800 -WP 668 0 +Wi -Wl "right" -WL "right" $1&

# up to 2003 Aug 26
# toolwait shelltool  -Wp 668  73 -Ws 473 800 -WP 668 0 +Wi -Wl "right"   -WL "right" $1&


shelltool  -Wp   0  73 -Ws 658 801 -WP 528 0 +Wi -Wl "left"    -WL "left"    &