home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21884 < prev    next >
Encoding:
Internet Message Format  |  1993-01-24  |  6.3 KB
  1. Path: sparky!uunet!europa.asd.contel.com!howland.reston.ans.net!usc!cs.utexas.edu!sun-barr!ames!agate!ucbvax!mhs.attmail.com!simons/G=Colin/I=CB/S=Sewell/O=H.A.Simons.Ltd/OU=CORP
  2. From: simons/G=Colin/I=CB/S=Sewell/O=H.A.Simons.Ltd/OU=CORP@mhs.attmail.com
  3. Newsgroups: comp.os.vms
  4. Subject: Re: DECWindows and Startup States
  5. Message-ID: <9301242143.AA22159@ucbvax.Berkeley.EDU>
  6. Date: 23 Jan 93 19:24:56 GMT
  7. Sender: daemon@ucbvax.BERKELEY.EDU
  8. Distribution: world
  9. Organization: The Internet
  10. Lines: 218
  11.  
  12. Erek Adams writes:
  13. >Hello Info-Vaxers,
  14. >
  15. >    I've got a fairly simple question for you.  Is is possible under
  16. >DECWindows to have everything startup as an Icon?  In DECW$SM_GENERAL.DAT there
  17. >is a line that reads 'sm.startup_state:      iconified'  Now I know what this
  18. >does for the Session Manager, but is there a way to force everything else to be
  19. >an Icon on startup?  I'd like to be able to force DecTerms, Eve, and BookReader
  20. >into an icon without cluttering up my screen.
  21. >
  22. Ask and ye shall receive:
  23.  
  24. ******************************
  25. A1MAIL$DW_DEFAULTS.DAT;1
  26.  
  27. Mail.initialState:    3
  28.  
  29. ******************************
  30. DECW$BOOKREADER.DAT;1
  31.  
  32. BookreaderLibrary.initialState:            3
  33.  
  34. ******************************
  35. DECW$CALENDAR.DAT;1
  36.  
  37. DECW$CALENDAR.initialState: 3
  38.  
  39. ******************************
  40. DECW$MAIL.DAT;1
  41.  
  42. Mail.initialState:    3
  43.  
  44. ******************************
  45. DECW$MESSAGEPANEL.DAT;1
  46.  
  47. ctrl.startup_state:    iconified
  48.  
  49. ******************************
  50. DECW$SM_GENERAL.DAT;1
  51.  
  52. sm.startup_state:    iconified
  53.  
  54. ******************************
  55. DECW$TERMINAL_DEFAULT.DAT;1
  56.  
  57. DECW$TERMINAL.initialState:                3
  58.  
  59. ******************************
  60. NOTES$DEFAULTS.DAT;1
  61.  
  62. NOTES$DEFAULTS*MAIN_SHELL.initialState:        3
  63.  
  64.  
  65. >    On a slightly different note, is there anyway to start up a Decterm on
  66. >node X from node Y _without_ logging into node Y and issuing a
  67. >'create/term=decterm/detach' on it (node Y)?  As is to do that and keep my
  68. >current decterms free, I have to set host and issue the command manually.  Can
  69. >I do it remotely?  If so how?
  70. >
  71. $   VFY = 'F$VERIFY( 0 )
  72. $!==============================================================================
  73. $!
  74. $!  DECW$REMOTE.COM
  75. $!
  76. $!    Start a remote DECWindows application
  77. $!
  78. $!==============================================================================
  79. $   SET NOON
  80. $   APPLICATION_LIST = "/DECTERM/CLOCK/BOOKREADER/CALC/CALENDAR/CARDFILER/CDA_VIEWER/FILEVIEW/MAIL/NOTEPAD/PAINT/PUZZLE/VAXNOTES/"
  81. $   MODE = F$MODE()
  82. $   IF MODE .EQS. "NETWORK" THEN GOTO NETWORK_STARTUP
  83. $
  84. $   IF P1 .EQS. "" THEN INQUIRE P1 "Remote node"
  85. $   IF P1 .EQS. "" THEN EXIT
  86. $   P1 = P1 - "::"
  87. $   IF P2 .EQS. "" THEN P2 = "DECTERM"
  88. $
  89. $   OPEN/READ/WRITE TASK 'P1'::"TASK=UT:DECW$REMOTE"
  90. $   IF .NOT. $STATUS THEN GOTO EXIT
  91. $   WRITE TASK P2
  92. $   READ/END=EXIT/ERROR=EXIT TASK STATUS
  93. $   WRITE SYS$OUTPUT STATUS
  94. $   CLOSE/NOLOG TASK
  95. $   GOTO EXIT
  96. $
  97. $NETWORK_STARTUP:
  98. $
  99. $   REMNODE = F$PARSE("SYS$NET",,,"NODE","SYNTAX_ONLY") - "::"
  100. $   CURNODE = F$TRNLNM("SYS$NODE") - "::"
  101. $   OPEN/READ/WRITE/ERROR=EXIT NET SYS$NET
  102. $   READ/ERROR=EXIT/END=EXIT NET P2
  103. $   IF REMNODE .NES. CURNODE
  104. $   THEN
  105. $    TRANSPORT = "DECNET"
  106. $   ELSE
  107. $    TRANSPORT = "LOCAL"
  108. $   ENDIF
  109. $   SET MESSAGE SYS$MESSAGE:DECW$TERMINALMSG
  110. $   WRITE SYS$OUTPUT "[Starting application ''P2'...]"
  111. $   DEFINE/NOLOG SYS$ERROR NET:
  112. $   IF F$LOCATE( "/" + P2 + "/", APPLICATION_LIST ) .EQ. F$LENGTH( APPLICATION_LIST )
  113. $   THEN
  114. $    GOTO MISCELLANEOUS
  115. $   ELSE
  116. $    GOTO 'P2'
  117. $   ENDIF
  118. $
  119. $DECTERM:
  120. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  121. $   CREATE/TERMINAL/DETACH/LOGGED_IN-
  122.     /WINDOW_ATTRIBUTES=(INITIAL_STATE=ICON,-
  123.                 TITLE="DECterm on ''CURNODE'",-
  124.                 ICON_NAME="''CURNODE'")
  125. $   GOTO EXIT
  126. $
  127. $CLOCK:
  128. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  129. $   CLOSE/NOLOG NET
  130. $   SET PROCESS/NAME="Clock_''REMNODE'"
  131. $   RUN SYS$SYSTEM:DECW$CLOCK
  132. $   SET DISPLAY/NOPERMANENT
  133. $   GOTO EXIT
  134. $BOOKREADER:
  135. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  136. $   CLOSE/NOLOG NET
  137. $   SET PROCESS/NAME="Book_''REMNODE'"
  138. $   RUN SYS$SYSTEM:DECW$BOOKREADER
  139. $   SET DISPLAY/NOPERMANENT
  140. $   GOTO EXIT
  141. $CALC:
  142. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  143. $   CLOSE/NOLOG NET
  144. $   SET PROCESS/NAME="Calc_''REMNODE'"
  145. $   RUN SYS$SYSTEM:DECW$CALC
  146. $   SET DISPLAY/NOPERMANENT
  147. $   GOTO EXIT
  148. $CALENDAR:
  149. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  150. $   CLOSE/NOLOG NET
  151. $   SET PROCESS/NAME="Calendar_''REMNODE'"
  152. $   RUN SYS$SYSTEM:DECW$CALENDAR
  153. $   SET DISPLAY/NOPERMANENT
  154. $   GOTO EXIT
  155. $CARDFILER:
  156. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  157. $   CLOSE/NOLOG NET
  158. $   SET PROCESS/NAME="CardFiler_''REMNODE'"
  159. $   RUN SYS$SYSTEM:DECW$CARDFILER
  160. $   SET DISPLAY/NOPERMANENT
  161. $   GOTO EXIT
  162. $CDA_VIEWER:
  163. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  164. $   CLOSE/NOLOG NET
  165. $   SET PROCESS/NAME="CDA_View_''REMNODE'"
  166. $   VIEW/INTERFACE=DECWINDOWS
  167. $   SET DISPLAY/NOPERMANENT
  168. $   GOTO EXIT
  169. $FILEVIEW:
  170. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  171. $   CLOSE/NOLOG NET
  172. $   SET PROCESS/NAME="FileView_''REMNODE'"
  173. $   RUN SYS$SYSTEM:VUE$MASTER
  174. $   SET DISPLAY/NOPERMANENT
  175. $   GOTO EXIT
  176. $MAIL:
  177. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  178. $   CLOSE/NOLOG NET
  179. $   SET PROCESS/NAME="Mail_''REMNODE'"
  180. $   RUN SYS$SYSTEM:DECW$MAIL
  181. $   SET DISPLAY/NOPERMANENT
  182. $   GOTO EXIT
  183. $NOTEPAD:
  184. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  185. $   CLOSE/NOLOG NET
  186. $   SET PROCESS/NAME="Notepad_''REMNODE'"
  187. $   RUN SYS$SYSTEM:DECW$NOTEPAD
  188. $   SET DISPLAY/NOPERMANENT
  189. $   GOTO EXIT
  190. $PAINT:
  191. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  192. $   CLOSE/NOLOG NET
  193. $   SET PROCESS/NAME="Paint_''REMNODE'"
  194. $   RUN SYS$SYSTEM:DECW$PAINT
  195. $   SET DISPLAY/NOPERMANENT
  196. $   GOTO EXIT
  197. $PUZZLE:
  198. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  199. $   CLOSE/NOLOG NET
  200. $   SET PROCESS/NAME="Puzzle_''REMNODE'"
  201. $   RUN SYS$SYSTEM:DECW$PUZZLE
  202. $   SET DISPLAY/NOPERMANENT
  203. $   GOTO EXIT
  204. $VAXNOTES:
  205. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  206. $   CLOSE/NOLOG NET
  207. $   SET PROCESS/NAME="VAXnotes_''REMNODE'"
  208. $   NOTES/INTERFACE=DECWINDOWS
  209. $   SET DISPLAY/NOPERMANENT
  210. $   GOTO EXIT
  211. $
  212. $MISCELLANEOUS:
  213. $   SET DISPLAY/CREATE/TRANSPORT='TRANSPORT'/NODE='REMNODE'
  214. $   CLOSE/NOLOG NET
  215. $   SHOW DISPLAY
  216. $   'P2'
  217. $   SET DISPLAY/NOPERMANENT
  218. $   GOTO EXIT
  219. $EXIT:
  220. $   CLOSE/NOLOG TASK
  221. $   CLOSE/NOLOG NET
  222. $   IF VFY THEN SET VERIFY
  223.  
  224.  
  225.     colin sewell
  226.     h.a.simons ltd.
  227.     vancouver, bc
  228.     "simons/g=colin/s=sewell"@mhs.attmail.com
  229.  
  230.