home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / vms / 18101 < prev    next >
Encoding:
Text File  |  1992-11-17  |  1.7 KB  |  42 lines

  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!ukma!darwin.sura.net!aplcen.apl.jhu.edu!ddsdx2.jhuapl.edu!dlc
  3. From: dlc@ddsdx2.jhuapl.edu (Dave Collard x7468)
  4. Subject: Re: DECterm and resources
  5. Message-ID: <1992Nov17.195039.20796@aplcen.apl.jhu.edu>
  6. Sender: news@aplcen.apl.jhu.edu (USENET News System)
  7. Organization: Johns Hopkins University
  8. References: <BxvEJw.BA4@gpu.utcs.utoronto.ca>
  9. Distribution: usa
  10. Date: Tue, 17 Nov 92 19:50:39 GMT
  11. Lines: 29
  12.  
  13. In <BxvEJw.BA4@gpu.utcs.utoronto.ca> scanlan@gpu.utcs.utoronto.ca (B. Scanlan) writes:
  14. >I am having a problem getting DECterm applying the resource "title"
  15. >when the DECterm first creates itself and appears on the DISPLAY crt. 
  16.  
  17. >It appears that in order for the resource to be applied, the window must have 
  18. >focus applied to explicitly by positioning the pointer over the window and 
  19. >clicking the right mouse button. The title then changes. 
  20.  
  21. Yes this is a *feature*, not a bug.  We use the following command file, it
  22. works on VMS 5.5 but I don't think it worked on 5.4.  Anyway, it is a pain 
  23. because you have to execute it in the decterm so maybe it does not fit your
  24. needs.  However, if you are running something in the decterm on creation, 
  25. just execute this com file prior to running whatever program you are running
  26. in the decterm:
  27.  
  28. $!-----------------------------------------------------------------------------
  29. $! This command procedure sets a DECterm's title to P1 and its iconname to P2.
  30. $! If P1 is not specified, then the nodename is used.  If P2 is not specified,
  31. $! then P1 is used.
  32. $!
  33. $ OSC = ""
  34. $ ST = ""
  35. $ OSC[0,8] = 157
  36. $ ST[0,8]  = 156
  37. $!
  38. $ If P1 .EQS. "" then P1 = F$GetSyI("NODENAME")
  39. $ If P2 .EQS. "" then P2 = P1
  40. $!
  41. $ Write Sys$Output "''OSC' 21;''P1' ''ST' ''OSC' 2L;''P2' ''ST'"
  42.