home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ca100b3.zip / LMODULES / B2X / B2X.VRX < prev    next >
Text File  |  1995-09-02  |  4KB  |  170 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.         call VROptions 'NoEchoQuit'
  22.     end
  23.     InitArgs.0 = argCount
  24.     if( argCount > 0 )then do i = 1 to argCount
  25.         InitArgs.i = arg( i + argOff )
  26.     end
  27.     drop calledAs argCount argOff
  28.  
  29. /*  Load the windows
  30. */
  31.     call VRInit
  32.     parse source . . spec
  33.     _VREPrimaryWindowPath = ,
  34.         VRParseFileName( spec, "dpn" ) || ".VRW"
  35.     _VREPrimaryWindow = ,
  36.         VRLoad( parent, _VREPrimaryWindowPath )
  37.     drop parent spec
  38.     if( _VREPrimaryWindow == "" )then do
  39.         call VRMessage "", "Cannot load window:" VRError(), ,
  40.             "Error!"
  41.         _VREReturnValue = 32000
  42.         signal _VRELeaveMain
  43.     end
  44.  
  45. /*  Process events
  46. */
  47.     call Init
  48.     signal on halt
  49.     do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
  50.         _VREEvent = VREvent()
  51.         interpret _VREEvent
  52.     end
  53. _VREHalt:
  54.     _VREReturnValue = Fini()
  55.     call VRDestroy _VREPrimaryWindow
  56. _VRELeaveMain:
  57.     call VRFini
  58. exit _VREReturnValue
  59.  
  60. VRLoadSecondary:
  61.     __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
  62.     if __vrlsWait then do
  63.         call VRFlush
  64.     end
  65.     __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
  66.     if __vrlsHWnd = '' then signal __vrlsDone
  67.     if __vrlsWait \= 1 then signal __vrlsDone
  68.     call VRSet __vrlsHWnd, 'WindowMode', 'Modal' 
  69.     __vrlsTmp = __vrlsWindows.0
  70.     if( DataType(__vrlsTmp) \= 'NUM' ) then do
  71.         __vrlsTmp = 1
  72.     end
  73.     else do
  74.         __vrlsTmp = __vrlsTmp + 1
  75.     end
  76.     __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
  77.     __vrlsWindows.0 = __vrlsTmp
  78.     do while( VRIsValidObject( VRWindow() ) = 1 )
  79.         __vrlsEvent = VREvent()
  80.         interpret __vrlsEvent
  81.     end
  82.     __vrlsTmp = __vrlsWindows.0
  83.     __vrlsWindows.0 = __vrlsTmp - 1
  84.     call VRWindow __vrlsWindows.__vrlsTmp 
  85.     __vrlsHWnd = ''
  86. __vrlsDone:
  87. return __vrlsHWnd
  88.  
  89. /*:VRX         Fini
  90. */
  91. Fini:
  92.     window = VRWindow()
  93.     call VRSet window, "Visible", 0
  94.     drop window
  95. return ReturnString
  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"
  107.     call VRSet window, "Visible", 1
  108.     call VRMethod window, "Activate"
  109.     drop window
  110. return
  111.  
  112. /*:VRX         PB_1_Click
  113. */
  114. PB_1_Click: 
  115.  
  116.     value = VRGet( "EF_1", "Value" )
  117.     set = VRGet( "CB_1", "Set" )
  118.     if set = 1 then
  119.     Do
  120.             tempStr1 = 'retval = B2X( "'
  121.             tempStr2 = value'"' || ')'
  122.             ReturnString = tempStr1 || tempStr2
  123.     End
  124.     Else
  125.     Do
  126.         ReturnString = 'retval = B2X( 'value' )'
  127.     End
  128.        
  129.     call Quit 
  130. return
  131.  
  132. /*:VRX         PB_2_Click
  133. */
  134. PB_2_Click: 
  135.  
  136.     ReturnString = 0
  137.     call Quit
  138. return
  139.  
  140. /*:VRX         PB_3_Click
  141. */
  142. PB_3_Click: 
  143.  
  144. "VIEW REXX B2X"
  145.  
  146. return
  147.  
  148. /*:VRX         Quit
  149. */
  150. Quit:
  151.     window = VRWindow()
  152.     call VRSet window, "Shutdown", 1
  153.     drop window
  154. return
  155.  
  156. /*:VRX         Window1_Close
  157. */
  158. Window1_Close:
  159.     call Quit
  160. return
  161.  
  162. /*:VRX         Window1_Create
  163. */
  164. Window1_Create: 
  165.  
  166. ReturnString = 0
  167.  
  168. return
  169.  
  170.