Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!cs.utexas.edu!rutgers!news.cs.indiana.edu!nstn.ns.ca!uupsi!kepler1!fcaggian
From: fcaggian@kepler.com (Frank Caggiano)
Newsgroups: comp.windows.open-look
Subject: Re: xterm titles in olwm
Summary: The folowing work for me
Keywords: how
Message-ID: <566@kepler1.kepler.com>
Date: 20 Apr 91 12:39:52 GMT
References: <459@octelb.octel.UUCP>
Reply-To: fcaggian@kepler1.UUCP (Frank Caggiano)
Distribution: na
Organization: Kepler Financial Management, Ltd., Setauket, NY.
Lines: 42

The following escape sequenses set the title strips fine for both xterm's
and cmdtool/shelltool windows in 2.0.  I Used /usr/5bin/echo so that I 
could use \033 for the escape code rather then putting an actual escape 
in the file. (an actual escape caused the cmdtool windows to lock up if
you cat'ed out the file.

Hope This helps.

if ( $TERM == "sun-cmd" ) then 
	# set initial strip to cwd
	/usr/5bin/echo  '\033]l'$HOST' - Dir(s): '`dirs -l` '\033\\\c'
	
	#Make cd set window header
	alias cd 'cd \!*; /usr/5bin/echo '\033]l${HOST}: '`dirs` '\033\\\c''

	#make wu put update into header
	alias wu '/usr/5bin/echo  "\033]l `uptime` \033\\\c"'  

	alias pushd 'pushd \!*; /usr/5bin/echo  '\033]l${HOST}: '`dirs` '\033\\\c''
	alias popd  'popd \!*;  /usr/5bin/echo  '\033]l${HOST}: '`dirs` '\033\\\c''
	alias sd    'pushd; /usr/5bin/echo  '\033]l${HOST}: '`dirs`' \033\\\c''


else if ( $TERM == "xterm" )  then

	# set initial strip to cwd
	/usr/5bin/echo  '\033]2;'$HOST' -  Dir(s): '`dirs -l`' \007\c'

	#Make cd set strips and icon
	alias cd 'cd \!*; /usr/5bin/echo  "\033]2;${HOST}: `dirs` \007\c"'

	alias wu '/usr/5bin/echo  "\033]2;`uptime`\007\c"'

	alias pushd 'pushd \!*; /usr/5bin/echo  "\033]2;${HOST}: `dirs` \007\c"'
	alias popd  'popd \!*; 	/usr/5bin/echo  "\033]2;${HOST}: `dirs` \007\c"'
	alias sd    'pushd;  	/usr/5bin/echo  "\033]2;${HOST}: `dirs` \007\c"'
endif
-- 
Frank Caggiano                      INTERNET: fcaggian@kepler.com  
Kepler Financial Management, Ltd.       UUCP: ..!uunet!kepler1!fcaggian
100 North Country Rd.                    fax: (516) 751-8678
Sekauket, NY 11733                     voice: (516) 689-6300