NetNews Usenet Archive 1992 #16/NN_1992_16.iso/spool/comp/os/vms/12909

Internet Message Format | 1992-07-29 | 1.6 KB

Xref: sparky comp.os.vms:12909 comp.sys.dec:4273 comp.windows.x:14577
Newsgroups: comp.os.vms,comp.sys.dec,comp.windows.x
Path: sparky!uunet!cs.utexas.edu!torn!newshost.uwo.ca!uwovax.uwo.ca!gerard
From: [e-mail] (Gerard Stafleu)
Subject: Re: Want DECwindows Customizations (via Resources???)
Organization: University of Western Ont, London
Date: Wed, 29 Jul 1992 19:12:30 GMT
Message-ID: <[e-mail]>
References: <[e-mail]>
Sender: [e-mail] (USENET News System)
Nntp-Posting-Host: hydra.uwo.ca
Lines: 31

> Problem 5  Has anyone figured out how to have multiple default
> ~~~~~~~~~  title and icon names that aren't "DECterm <n>"?

Assum that the symbol Pwin has the title in it you want for the window,
and Picon for the icon:

$ dev_type = F$getdvi("TT","DEVTYPE")
$ IF dev_type .EQ. 112    !DECterm window
$    THEN
$    OSC[0,8] = 157
$    ST[0,8] = 156
$    WRITE SYS$OUTPUT OSC,"21;''Pwin'",ST    !set window name
$    WRITE SYS$OUTPUT OSC,"2L;''Picon'",ST    !set icon name
$ ELSE  ! Something else, presumably Xterm
$    write sys$output "<ESC>]2;"+ "''pwin'" +"^G"
$ ENDIF

[<ESC> is the Escape character]

The ELSE part works for Xterm windows (I don't know if you can do
icons).  I discovered that that code will hang up a DECterm, hence the
check on device type.  That is a bit of a workaround, as type 112 is
something like a VT340.  I don't know of any way to find out if your
terminal is a DECterm.  Xterms are VT100's, so the trick works.

----
Gerard Stafleu
email: [e-mail]
CCS, NSC 202, University of Western Ontario,
London, Ontario, Canada N6A 5B7
[phone]