home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ca100b3.zip / LMODULES / B2X / B2X.VRM next >
Text File  |  1995-09-02  |  4KB  |  192 lines
  1. /* Custom mainline for macro */
  2.  
  3.     call RXFuncAdd "VRLoadFuncs", "VROBJ", "VRLoadFuncs"
  4.     call VRLoadFuncs
  5.  
  6.     _VREVersion = SubWord( VRVersion( "VRObj" ), 1, 1 )
  7.     if( _VREVersion < 2.13 )then do
  8.         call VRMessage "", "This program requires VX-REXX version 2.1c to run.", "Error!"
  9.         return 32000
  10.     end
  11.  
  12.  
  13.     signal on SYNTAX name _VRESyntax
  14.     signal _VREMain
  15.  
  16. _VRESyntax:
  17.     parse source . . _VRESourceSpec
  18.     call VRMessage "", "Syntax error in" _VRESourceSpec "line" SIGL":" ErrorText(rc), "Error!"
  19.     call VRFini
  20.     exit 32000
  21.  
  22. _VREMain:
  23. /*:VRX         Main
  24. */
  25. /*  Main
  26. */
  27. Main:
  28. /*  Process the arguments.
  29.     Get the parent window.
  30. */
  31.     parse source . calledAs .
  32.     parent = ""
  33.     argCount = arg()
  34.     argOff = 0
  35.     if( calledAs \= "COMMAND" )then do
  36.         if argCount >= 1 then do
  37.             parent = arg(1)
  38.             argCount = argCount - 1
  39.             argOff = 1
  40.         end
  41.     end; else do
  42.         call VROptions 'ImplicitNames'
  43.         call VROptions 'NoEchoQuit'
  44.     end
  45.     InitArgs.0 = argCount
  46.     if( argCount > 0 )then do i = 1 to argCount
  47.         InitArgs.i = arg( i + argOff )
  48.     end
  49.     drop calledAs argCount argOff
  50.  
  51. /*  Load the windows
  52. */
  53.     call VRInit
  54.     parse source . . spec
  55.     _VREPrimaryWindowPath = ,
  56.         VRParseFileName( spec, "dpn" ) || ".VRW"
  57.     _VREPrimaryWindow = ,
  58.         VRLoad( parent, _VREPrimaryWindowPath )
  59.     drop parent spec
  60.     if( _VREPrimaryWindow == "" )then do
  61.         call VRMessage "", "Cannot load window:" VRError(), ,
  62.             "Error!"
  63.         _VREReturnValue = 32000
  64.         signal _VRELeaveMain
  65.     end
  66.  
  67. /*  Process events
  68. */
  69.     call Init
  70.     signal on halt
  71.     do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
  72.         _VREEvent = VREvent()
  73.         interpret _VREEvent
  74.     end
  75. _VREHalt:
  76.     _VREReturnValue = Fini()
  77.     call VRDestroy _VREPrimaryWindow
  78. _VRELeaveMain:
  79.     call VRFini
  80. exit _VREReturnValue
  81.  
  82. VRLoadSecondary:
  83.     __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
  84.     if __vrlsWait then do
  85.         call VRFlush
  86.     end
  87.     __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
  88.     if __vrlsHWnd = '' then signal __vrlsDone
  89.     if __vrlsWait \= 1 then signal __vrlsDone
  90.     call VRSet __vrlsHWnd, 'WindowMode', 'Modal' 
  91.     __vrlsTmp = __vrlsWindows.0
  92.     if( DataType(__vrlsTmp) \= 'NUM' ) then do
  93.         __vrlsTmp = 1
  94.     end
  95.     else do
  96.         __vrlsTmp = __vrlsTmp + 1
  97.     end
  98.     __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
  99.     __vrlsWindows.0 = __vrlsTmp
  100.     do while( VRIsValidObject( VRWindow() ) = 1 )
  101.         __vrlsEvent = VREvent()
  102.         interpret __vrlsEvent
  103.     end
  104.     __vrlsTmp = __vrlsWindows.0
  105.     __vrlsWindows.0 = __vrlsTmp - 1
  106.     call VRWindow __vrlsWindows.__vrlsTmp 
  107.     __vrlsHWnd = ''
  108. __vrlsDone:
  109. return __vrlsHWnd
  110.  
  111. /*:VRX         Fini
  112. */
  113. Fini:
  114.     window = VRWindow()
  115.     call VRSet window, "Visible", 0
  116.     drop window
  117. return ReturnString
  118. /*:VRX         Halt
  119. */
  120. Halt:
  121.     signal _VREHalt
  122. return
  123.  
  124. /*:VRX         Init
  125. */
  126. Init:
  127.     window = VRWindow()
  128.     call VRMethod window, "CenterWindow"
  129.     call VRSet window, "Visible", 1
  130.     call VRMethod window, "Activate"
  131.     drop window
  132. return
  133.  
  134. /*:VRX         PB_1_Click
  135. */
  136. PB_1_Click: 
  137.  
  138.     value = VRGet( "EF_1", "Value" )
  139.     set = VRGet( "CB_1", "Set" )
  140.     if set = 1 then
  141.     Do
  142.             tempStr1 = 'retval = B2X( "'
  143.             tempStr2 = value'"' || ')'
  144.             ReturnString = tempStr1 || tempStr2
  145.     End
  146.     Else
  147.     Do
  148.         ReturnString = 'retval = B2X( 'value' )'
  149.     End
  150.        
  151.     call Quit 
  152. return
  153.  
  154. /*:VRX         PB_2_Click
  155. */
  156. PB_2_Click: 
  157.  
  158.     ReturnString = 0
  159.     call Quit
  160. return
  161.  
  162. /*:VRX         PB_3_Click
  163. */
  164. PB_3_Click: 
  165.  
  166. "VIEW REXX B2X"
  167.  
  168. return
  169.  
  170. /*:VRX         Quit
  171. */
  172. Quit:
  173.     window = VRWindow()
  174.     call VRSet window, "Shutdown", 1
  175.     drop window
  176. return
  177.  
  178. /*:VRX         Window1_Close
  179. */
  180. Window1_Close:
  181.     call Quit
  182. return
  183.  
  184. /*:VRX         Window1_Create
  185. */
  186. Window1_Create: 
  187.  
  188. ReturnString = 0
  189.  
  190. return
  191.  
  192.