From:	MERC::"uunet!CRVAX.SRI.COM!RELAY-INFO-VAX" 12-JUL-1992 20:23:06.86
To:	info-vax@kl.sri.com
CC:	
Subj:	Re: Escape seq. for DECterm window and icon names.

In article <1992Jul10.162741.1@tesla.njit.edu>, syssfk@tesla.njit.edu writes:
|>   Some time ago someone posted an item explaining how to change the
|>window and
|>icon names of a DECterm window by writing out a terminal escape
|>sequence.
|>Unfortunately we've lost the escape sequence for the icon box.  Can
|>someone
|>please repost the information.

Here's something that I use - I don't remember where I got it....

$!
$! P1 = different utility (writing the icon or the banner line)
$! P2 = name to go onto banner or icon
$!
$! ex: @icon banner "Ken"            writes "Ken" to the banner
$! ex: @icon icon   "Ken"            writes "Ken" to the icon
$!
$!
$ OSC[0,8] = 157
$ ST[0,8]  = 156
$ CSI[0,8] = 155
$ Echo = "Write Sys$Output "
$!
$ nm_nd_i = f$getsyi("nodename") + " " + F$ext(1,f$len(f$user())-2,f$user())
$ If P1 .eqs. "ICON"    then Echo OSC,"2L;",P2,ST
$ If P1 .eqs. "ICON1"   then Echo OSC,"2L;",nm_nd_i,ST
$ If P1 .eqs. "BANNER"  then Echo OSC,"21;",P2,ST
$ If P1 .eqs. "BANNER2" then Echo OSC,"21;Node: ", F$GetSYI("NodeName"),"  +",F$
GetJPI("","PRCNAM"),";  (",F$GetJPI("","PID"),")",ST
$ If P1 .eqs. "BANNER3" then Echo OSC,"21;",F$GetSYI("NodeName"),"::",F$ENVIROME
NT("DEFAULT"),"","   (",F$GetJPI("","PRCNAM"),")",ST
$ If P1 .eqs. "BANNER4" then Echo OSC,"21;",F$GetSYI("NodeName"),"::",F$ENVIROME
NT("DEFAULT"),"",ST
$ If P1 .eqs. "LINES"   then Echo CSI,P2,"t"
$ If P1 .eqs. "COLUMNS" then Echo CSI,P2,"$|"
$ If P1 .eqs. "STATUS"  then Echo CSI,P2,"$~"
$ If P1 .eqs. "WRSTS"   then Echo CSI,"1$}",CSI,"2K",CSI,"H",P2,CSI,"0$}"
$!-----Not supported by DECterm...
$ If P1 .eqs. "PP"      then Echo CSI,P2,"U"
$ If P1 .eqs. "NP"      then Echo CSI,P2,"V"
$!
$!---------------------------VWS Only-----------------------------------------
$!
$ If P1 .eqs. "SHRINKX"    then Echo OSC,"22;",P2,";",P3,ST
$ If P1 .eqs. "SHRINK"     then Echo OSC,"22;",P2,";",P3,ST
$ If P1 .eqs. "EXPAND"     then Echo OSC,"23;",P2,";",P3,ST
$ If P1 .eqs. "MOVE_TERM"  then Echo OSC,"24;",P2,ST
$ If P1 .eqs. "MOVE_ICON"  then Echo OSC,"25;",P2,ST
$ If P1 .eqs. "PUSH"       then Echo OSC,"29",ST
$ If P1 .eqs. "POP"        then Echo OSC,"2A",ST
$ If P1 .eqs. "FONT"       then Echo OSC,"2f;",P2,";",P3,";",P4,ST
$!----------------------------------------------------------------------------
$ Exit


mulp
DEC

