home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vsecom3.zip / WINDOW6A.VRX < prev    next >
Text File  |  1994-12-09  |  6KB  |  271 lines
  1. /*:VRX         Main
  2. */
  3. /*  Main
  4. */
  5. Main:
  6. /*  Process the arguments.
  7.     Get the parent window.
  8. */
  9.     parse source . calledAs .
  10.     parent = ""
  11.     argCount = arg()
  12.     argOff = 0
  13.     if( calledAs \= "COMMAND" )then do
  14.         if argCount >= 1 then do
  15.             parent = arg(1)
  16.             argCount = argCount - 1
  17.             argOff = 1
  18.         end
  19.     end; else do
  20.         call VROptions 'ImplicitNames'
  21.     end
  22.     InitArgs.0 = argCount
  23.     if( argCount > 0 )then do i = 1 to argCount
  24.         InitArgs.i = arg( i + argOff )
  25.     end
  26.     drop calledAs argCount argOff
  27.  
  28. /*  Load the windows
  29. */
  30.     call VRInit
  31.     parse source . . spec
  32.     _VREPrimaryWindowPath = ,
  33.         VRParseFileName( spec, "dpn" ) || ".VRW"
  34.     _VREPrimaryWindow = ,
  35.         VRLoad( parent, _VREPrimaryWindowPath )
  36.     drop parent spec
  37.     if( _VREPrimaryWindow == "" )then do
  38.         call VRMessage "", "Cannot load window:" VRError(), ,
  39.             "Error!"
  40.         _VREReturnValue = 32000
  41.         signal _VRELeaveMain
  42.     end
  43.  
  44. /*  Process events
  45. */
  46.     call Init
  47.     signal on halt
  48.     do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
  49.         _VREEvent = VREvent()
  50.         interpret _VREEvent
  51.     end
  52. _VREHalt:
  53.     _VREReturnValue = Fini()
  54.     call VRDestroy _VREPrimaryWindow
  55. _VRELeaveMain:
  56.     call VRFini
  57. exit _VREReturnValue
  58.  
  59. VRLoadSecondary:
  60.     __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
  61.     if __vrlsWait then do
  62.         call VRFlush
  63.     end
  64.     __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
  65.     if __vrlsHWnd = '' then signal __vrlsDone
  66.     if __vrlsWait \= 1 then signal __vrlsDone
  67.     call VRSet __vrlsHWnd, 'WindowMode', 'Modal' 
  68.     __vrlsTmp = __vrlsWindows.0
  69.     if( DataType(__vrlsTmp) \= 'NUM' ) then do
  70.         __vrlsTmp = 1
  71.     end
  72.     else do
  73.         __vrlsTmp = __vrlsTmp + 1
  74.     end
  75.     __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
  76.     __vrlsWindows.0 = __vrlsTmp
  77.     do while( VRIsValidObject( VRWindow() ) = 1 )
  78.         __vrlsEvent = VREvent()
  79.         interpret __vrlsEvent
  80.     end
  81.     __vrlsTmp = __vrlsWindows.0
  82.     __vrlsWindows.0 = __vrlsTmp - 1
  83.     call VRWindow __vrlsWindows.__vrlsTmp 
  84.     __vrlsHWnd = ''
  85. __vrlsDone:
  86. return __vrlsHWnd
  87.  
  88. /*:VRX         Fini
  89. */
  90. Fini:
  91.     window = VRWindow()
  92.     call VRSet window, "Visible", 0
  93.     drop window
  94. return 0
  95.  
  96. /*:VRX         Halt
  97. */
  98. Halt:
  99.     signal _VREHalt
  100. return
  101.  
  102. /*:VRX         Init
  103. */
  104. Init:
  105.     window = VRWindow()
  106.     call VRMethod window, "CenterWindow","DESKTOP"
  107.     call VRSet window, "Visible", 1
  108.     call VRMethod window, "Activate"
  109.     drop window
  110. return
  111.  
  112. /*:VRX         LB_2_Click
  113. */
  114. LB_2_Click:
  115. LIBNAME = VRGet( "LB_2", "SelectedString")
  116. return
  117.  
  118. /*:VRX         PB_11_Click
  119. */
  120. PB_11_Click:
  121.     ok = VRSet( "EF_1", "ReadOnly", 1)
  122.     ok = VRSet( "EF_2", "ReadOnly", 1)
  123.     ok = VRSet( "EF_3", "ReadOnly", 1)
  124.     ok = VRSet( "EF_4", "ReadOnly", 1)
  125.     ok = VRSet( "EF_5", "ReadOnly", 1)
  126.     Okay = VRFileExists("C:\VSECOM\USERPROF")
  127.     If Okay = 1 then do
  128.        Okay = VRDeleteFile("C:\VSECOM\USERPROF")
  129.     end
  130.     RECCOM = "RECEIVE C:\vsecom\userprof "||TS||" (FILE=PROF"
  131.     rc = Startvio(RECCOM)
  132.     say rc
  133.     if rc = "QUIT" then return
  134.     Myfile = "C:\vsecom\userprof"
  135.     LINEIN(Myfile,1,0)
  136.     Do until LINES(Myfile) = "0"
  137.     thisline = LINEIN(Myfile)
  138.     fparm = LEFT(thisline,6)
  139.     call xout
  140.     end
  141.     fparm = LINEOUT(Myfile) /* close the file */
  142.     ok = VRSet( "EF_1", "ReadOnly", 1)
  143.     ok = VRSet( "EF_2", "ReadOnly", 1)
  144.     ok = VRSet( "EF_3", "ReadOnly", 1)
  145.     ok = VRSet( "EF_4", "ReadOnly", 1)
  146.  
  147.    /*  E.EXE " C:\userprof" */
  148. return
  149. xout:
  150. Select
  151.     when fparm = "TRMID " then do
  152.     fparm = SUBWORD(thisline,2,4)
  153.     ok = VRSet( "EF_3", "Value", fparm)
  154.     return
  155.     end 
  156.     when fparm = "UID   " then do
  157.     fparm = SUBWORD(thisline,2,8)
  158.     LUSER = fparm
  159.     ok = VRSet( "EF_1", "Value", fparm)
  160.     return
  161.     end
  162.     when fparm = "LIBACC" then do
  163.     fparm = SUBWORD(thisline,1,6)
  164.     position = VRMethod( "LB_1", "AddString",fparm, )
  165.     return 
  166.     end
  167.     when fparm = "POWACC" then do
  168.     fparm = SUBWORD(thisline,1,6)
  169.     position = VRMethod( "LB_1", "AddString",fparm, )
  170.     return
  171.     end  
  172.     when fparm = "POWALL" then do
  173.     fparm = SUBWORD(thisline,1,6)
  174.     position = VRMethod( "LB_1", "AddString",fparm, )
  175.     return
  176.     end
  177.     when fparm = "SUBMIT" then do
  178.     fparm = SUBWORD(thisline,1,6)
  179.     position = VRMethod( "LB_1", "AddString",fparm, )
  180.     return
  181.     end
  182.     when fparm = "SYSID " then do
  183.     fparm = SUBWORD(thisline,2,8)
  184.     ok = VRSet( "EF_4", "Value", fparm)
  185.     return
  186.     end
  187.     when fparm = "UTYP  " then do
  188.     fparm = SUBWORD(thisline,2,1)
  189.     ok = VRSet( "EF_2", "Value", fparm)
  190.     return
  191.     end
  192.     when fparm = "SCLASS" then do
  193.     fparm = SUBWORD(thisline,2,1)
  194.     ok = VRSet( "EF_5", "Value", fparm)
  195.     return
  196.     end
  197.     when fparm = "VER" then do
  198.     fparm = SUBWORD(thisline,2,10)
  199.     ok = VRSet( "EF_6", "Value", fparm)
  200.     return
  201.     end
  202.     when fparm = "LIB   " then do
  203.     call getlibs
  204.     return
  205.     end
  206.     when fparm = "HTF   " then do
  207.     fparm = SUBWORD(thisline,1,6)
  208.     position = VRMethod( "LB_1", "AddString",fparm, )
  209.     return
  210.     end
  211. otherwise nop
  212. return
  213. getlibs:
  214. startl = 10
  215. fparm = SUBSTR(thisline,startl,7)
  216. position = VRMethod( "LB_2", "AddString",fparm, )
  217.     do until fparm = "       "
  218.     startl = startl + 7
  219.     fparm = SUBSTR(thisline,startl,7)
  220.     if fparm = "       " then return
  221.     position = VRMethod( "LB_2", "AddString",fparm, )
  222.     end
  223. return
  224. /*:VRX         Quit
  225. */
  226. Quit:
  227.     window = VRWindow()
  228.     call VRSet window, "Shutdown", 1
  229.     drop window
  230. return
  231.  
  232. /*:VRX         StartVIO
  233. */
  234. Startvio:procedure
  235. parse arg command
  236. erase "c:\vsecom\vsestat.fil"
  237. "start /win/c c:\vsecom\runvse.cmd" command "<con >con"
  238. /*"start /win/c c:\vsecom\runvse.cmd" command*/ 
  239. SPINNUM = 0
  240. RC = ""
  241. DO FOREVER
  242.     call SysSleep 2
  243.     exists = VRFileExists("C:\vsecom\vsestat.fil")
  244.  
  245.     if exists = 1 then do
  246.     LEAVE
  247.     end
  248.     else do
  249.     SPINNUM = SPINNUM + 1
  250.     end
  251.  
  252.     if SPINNUM = 5 then do
  253.     SPINNUM = 0
  254.     rc = Window8(VRWindow())
  255.     end
  256.  
  257.     if rc = "QUIT" then do
  258.     LEAVE
  259.     end
  260. end
  261. return rc    
  262.  
  263. return
  264.  
  265. /*:VRX         Window6A_Close
  266. */
  267. Window6A_Close:
  268.     call Quit
  269. return
  270.  
  271.