Changing text in wsh title bar?

[Rainer Sinkwitz]

In article <1991Feb17.235559.674 at agate.berkeley.edu> dwallach at soda.Berkeley.EDU (Dan Wallach) writes:
>On other systems, I have my shell put the current working directory in the
>title bar of the window.  I want also to do this with my wsh'es on the Iris.
>
This should be subject of a faq (freq. asked questions)
if you look at a former question:

>In <1251 at acf5.NYU.EDU> sabbagh at acf5.NYU.EDU (sabbagh) writes:
>
>>After reading the "4Sight Programmers Guide" (i.e., IRTFM) I was able to
>>change the title of a wsh window.  However, I cannot seem to find out
>>how to change the title of the icon of such a window.
>
>To change the icon title:
>        echo "\033P3.yTITLE\033\\"
>
>Just for completeness, here's how to change the wsh title:
>        echo "\033P1.yTITLE\033\\"
>
>In a script, replace "TITLE" with "$!", and it will set the title to
>the first command line argument.
>
>
>--
>Vic Mitnick                Silicon Graphics, Inc.
>vic at sgi.com                System Software Division
>(415)335-1372

I use the following in my .login file: (adopted from 4Dgifts/.login)
  (pay attention to ^H's and ^G's and long "alias" line or uudecode 
   the version below)
--------------------------------begin (don't cut here, use uudecode) ----
if ($TERM == "iris-ansi"  || $TERM == "iris-ansi-net") then
    alias setp 'set hwd=$cwd:h; set prompt = "\^[P1.y< $USER@`hostname` >^[\^H<\
! /$hwd:t/$cwd:t> "'
else
  if ( $term == "xterm" ) then
    alias setp 'set hwd=$cwd:h; set prompt = "\^[]2;< $USER@`hostname` >^G<\! /$
hwd:t/$cwd:t> "'
  else
    alias setp 'set hwd=$cwd:h; set prompt = "<\! `hostname` /$hwd:t/$cwd:t> "'  endif
endif

setp
alias cd 'cd \!*; setp'
--------------------------------end

It sets the title to be user at host and puts the pathname into the prompt.
It works with wsh and xterm. 

begin 644 loginstuff
M:68@*"1415)-(#T](")I<FES+6%N<VDB("!\?"`D5$5232`]/2`B:7)I<RUA
M;G-I+6YE="(I('1H96X*("`@(&%L:6%S('-E='`@)W-E="!H=V0])&-W9#IH
M.R!S970@<')O;7!T(#T@(EP;4#$N>3P@)%5315)`8&AO<W1N86UE8"`^&UP(
M/%PA("\D:'=D.G0O)&-W9#IT/B`B)PIE;'-E(`H@(&EF("@@)'1E<FT@/3T@
M(GAT97)M(B`I('1H96X*("`@(&%L:6%S('-E='`@)W-E="!H=V0])&-W9#IH
M.R!S970@<')O;7!T(#T@(EP;73([/"`D55-%4D!@:&]S=&YA;65@(#X'/%PA
M("\D:'=D.G0O)&-W9#IT/B`B)PH@(&5L<V4*("`@(&%L:6%S('-E='`@)W-E
M="!H=V0])&-W9#IH.R!S970@<')O;7!T(#T@(CQ<(2!@:&]S=&YA;65@("\D
M:'=D.G0O)&-W9#IT/B`B)PH@(&5N9&EF"F5N9&EF"@IS971P"F%L:6%S(&-D
0("=C9"!<(2H[('-E='`G"@H@
`
end

Rainer Sinkwitz            | E-mail: sinkwitz at ifi.unizh.ch
Dept. of Computer Science  |     {backbone}!mcsun!unizh!sinkwitz
University of Zuerich      |         K114970 at CZHRZU1A.bitnet

-- 

Rainer Sinkwitz            | E-mail: sinkwitz at ifi.unizh.ch
Dept. of Computer Science  |     {backbone}!mcsun!unizh!sinkwitz
University of Zuerich      |         K114970 at CZHRZU1A.bitnet