home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / color.zip / WINDOW1.VRX < prev    next >
Text File  |  1995-10-07  |  3KB  |  152 lines
  1. /*:VRX         Main
  2. */
  3. /*  Main
  4. */
  5. Main:
  6. Call VRRedirectStdio "Off"
  7. Call VRSet "Console", "WindowListTitle", ""
  8. /*  Process the arguments.
  9.     Get the parent window.
  10. */
  11.     parse source . calledAs .
  12.     parent = ""
  13.     argCount = arg()
  14.     argOff = 0
  15.     if( calledAs \= "COMMAND" )then do
  16.         if argCount >= 1 then do
  17.             parent = arg(1)
  18.             argCount = argCount - 1
  19.             argOff = 1
  20.         end
  21.     end; else do
  22.         call VROptions 'ImplicitNames'
  23.     end
  24.     InitArgs.0 = argCount
  25.     if( argCount > 0 )then do i = 1 to argCount
  26.         InitArgs.i = arg( i + argOff )
  27.     end
  28.     drop calledAs argCount argOff
  29.  
  30. /*  Load the windows
  31. */
  32.     call VRInit
  33.     parse source . . spec
  34.     _VREPrimaryWindowPath = ,
  35.         VRParseFileName( spec, "dpn" ) || ".VRW"
  36.     _VREPrimaryWindow = ,
  37.         VRLoad( parent, _VREPrimaryWindowPath )
  38.     drop parent spec
  39.     if( _VREPrimaryWindow == "" )then do
  40.         call VRMessage "", "Cannot load window:" VRError(), ,
  41.             "Error!"
  42.         _VREReturnValue = 32000
  43.         signal _VRELeaveMain
  44.     end
  45.  
  46. /*  Process events
  47. */
  48.     call Init
  49.     signal on halt
  50.     do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
  51.         _VREEvent = VREvent()
  52.         interpret _VREEvent
  53.     end
  54. _VREHalt:
  55.     _VREReturnValue = Fini()
  56.     call VRDestroy _VREPrimaryWindow
  57. _VRELeaveMain:
  58.     call VRFini
  59. exit _VREReturnValue
  60.  
  61. VRLoadSecondary:
  62.     __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
  63.     if __vrlsWait then do
  64.         call VRFlush
  65.     end
  66.     __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
  67.     if __vrlsHWnd = '' then signal __vrlsDone
  68.     if __vrlsWait \= 1 then signal __vrlsDone
  69.     call VRSet __vrlsHWnd, 'WindowMode', 'Modal' 
  70.     __vrlsTmp = __vrlsWindows.0
  71.     if( DataType(__vrlsTmp) \= 'NUM' ) then do
  72.         __vrlsTmp = 1
  73.     end
  74.     else do
  75.         __vrlsTmp = __vrlsTmp + 1
  76.     end
  77.     __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
  78.     __vrlsWindows.0 = __vrlsTmp
  79.     do while( VRIsValidObject( VRWindow() ) = 1 )
  80.         __vrlsEvent = VREvent()
  81.         interpret __vrlsEvent
  82.     end
  83.     __vrlsTmp = __vrlsWindows.0
  84.     __vrlsWindows.0 = __vrlsTmp - 1
  85.     call VRWindow __vrlsWindows.__vrlsTmp 
  86.     __vrlsHWnd = ''
  87. __vrlsDone:
  88. return __vrlsHWnd
  89.  
  90. /*:VRX         Fini
  91. */
  92. Fini:
  93.     window = VRWindow()
  94.     call VRSet window, "Visible", 0
  95.     drop window
  96. return 0
  97.  
  98. /*:VRX         Halt
  99. */
  100. Halt:
  101.     signal _VREHalt
  102. return
  103.  
  104. /*:VRX         Init
  105. */
  106. Init:
  107.     window = VRWindow()
  108.     call VRMethod window, "CenterWindow"
  109.     call VRSet window, "Visible", 1
  110.     call VRMethod window, "Activate"
  111.     drop window
  112. return
  113.  
  114. /*:VRX         Quit
  115. */
  116. Quit:
  117.     window = VRWindow()
  118.     call VRSet window, "Shutdown", 1
  119.     drop window
  120. return
  121.  
  122. /*:VRX         SPIN_1_Change
  123. */
  124. SPIN_1_Change: 
  125. RedHex = VRGet( "SPIN_1", Value )
  126. HexRed = d2x(RedHex)
  127. ok = VRSet( "EF_1", "Value", HexRed )
  128. return
  129.  
  130. /*:VRX         SPIN_2_Change
  131. */
  132. SPIN_2_Change: 
  133. GreenHex = VRGet( "SPIN_2", Value )
  134. HexGreen = d2x(GreenHex)
  135. ok = VRSet( "EF_2", "Value", HexGreen )
  136. return
  137.  
  138. /*:VRX         SPIN_3_Change
  139. */
  140. SPIN_3_Change: 
  141. BlueHex = VRGet( "SPIN_3", Value )
  142. HexBlue = d2x(BlueHex)
  143. ok = VRSet( "EF_3", "Value", HexBlue )
  144. return
  145.  
  146. /*:VRX         Window1_Close
  147. */
  148. Window1_Close:
  149.     call Quit
  150. return
  151.  
  152.