home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / vms / 18086 < prev    next >
Encoding:
Internet Message Format  |  1992-11-17  |  3.1 KB
  1. Path: sparky!uunet!think.com!ames!agate!ucbvax!TGV.COM!mcmahon
  2. From: mcmahon@TGV.COM (At the end of the long, dark tunnel)
  3. Newsgroups: comp.os.vms
  4. Subject: RE: DECwindows Motif 1.1 and creation of DECterms with RSHELL
  5. Message-ID: <921116170253.34400250@TGV.COM>
  6. Date: 17 Nov 92 01:02:53 GMT
  7. Sender: usenet@ucbvax.BERKELEY.EDU
  8. Organization: The Internet
  9. Lines: 73
  10.  
  11. > Under DECwindows Motif 1.0 there was a problem if windows were created from 
  12. > another node by doing an RSHELL, along the lines of:
  13. > 
  14. > $ set disp/create/tran=tcpip/node='p1'
  15. > $ create/terminal/detach
  16. >
  17. > If this was used several times, only the *first* window would be created.
  18.  
  19. Well, the original problem was that the SET DISPLAY/CREATE command would create 
  20. a new WS device (DECW$DISPLAY) for each invocation of the command procedure.  
  21. The problem was that only the first WS device would stick around to be used by 
  22. the created DECterm.  The reason the first hung around was that the DECterm 
  23. controller held a channel open to it.  What the REUSE-DISPLAY command procedure 
  24. did was find that original WS device and use that, instead of creating a new 
  25. one.
  26.  
  27. And then Motif 1.1 came along...
  28.  
  29. The DECterm Controller process no longer assigns a channel to the WS device.  
  30. The result is that every WS device created by the invocation of this command 
  31. procedure disappears.  So when you do a SHOW DISPLAY in your DECterm windows, it 
  32. comes back with DECW$DISPLAY being defined to a non-existant WS device.
  33.  
  34. I worked out a quick and dirty solution, which can be found below.  This 
  35. requires that the newly created DECterm assign a channel to the DECW$DISPLAY 
  36. device (e.g. OPEN $SAVE_THE_WS_DEVICE$ DECW$DISPLAY: in the LOGIN.COM file or 
  37. somesuch).  It's a crude hack, but it will work.
  38.  
  39. Cheers!
  40. John McMahon
  41.  
  42. $! P1 is the /NODE qualifier (default MULTINET_RSHELL_ADDRESS or 0)
  43. $ if p1 .eqs. "" then p1 = f$trnlnm("MULTINET_RSHELL_ADDRESS")
  44. $ if p1 .eqs. "" then p1 = "0"
  45. $! P2 is the /TRANSPORT qualifier (default TCPIP)
  46. $ if p2 .eqs. "" then p2 = "TCPIP"
  47. $! P3 is the /SERVER qualifier (default 0)
  48. $ if p3 .eqs. "" then p3 = "0"
  49. $! P4 is the /SCREEN qualifier (default 0)
  50. $ if p4 .eqs. "" then p4 = "0"
  51. $ write sys$output "Node=",p1," Transport=",p2," Server=",p3," Screen=",p4
  52. $ DeviceLoop:
  53. $    next = F$DEVICE("_WS*")
  54. $    if next .eqs. "" then goto endloop
  55. $    define/user sys$output nl:
  56. $    show display/symbol 'next'
  57. $    if ( (p1 .eqs. DECW$DISPLAY_NODE)      .and. -
  58.              (p2 .eqs. DECW$DISPLAY_TRANSPORT) .and. -
  59.              (p3 .eqs. DECW$DISPLAY_SERVER) .and. -
  60.              (p4 .eqs. DECW$DISPLAY_SCREEN) )
  61. $    Then
  62. $        Write Sys$Output "Using Device ''next'"
  63. $        Define Decw$Display 'Next'
  64. $        Goto The_Big_Exit
  65. $    EndIf
  66. $    goto deviceloop
  67. $ endloop:
  68. $ SET DISPLAY /CREATE /NODE='P1' /TRANSPORT='P2' /SERVER='P3' /SCREEN='P4'
  69. $ Write Sys$Output "Creating New Device ",F$TRNLNM("DECW$DISPLAY")
  70. $ The_Big_Exit:
  71. $ Create/Terminal/Detach
  72. $ Open $SAVE_THE_WS_DEVICE$ DECW$DISPLAY:
  73. $ BaseRefCnt = f$getdvi("DECW$DISPLAY","REFCNT")
  74. $ WaitLoop:
  75. $    RefCnt = f$getdvi("DECW$DISPLAY","REFCNT") 
  76. $    If RefCnt .Gt. BaseRefCnt Then Exit
  77. $    Write Sys$Output "Open a channel to DECW$DISPLAY in the new DECterm."
  78. $    Wait 00:00:15
  79. $    Goto WaitLoop
  80.  
  81.  
  82.  
  83.  
  84.