pre cutover push

LSL2/STPROC/MITCHEM_TEST_EVENTS.txt

@@ -0,0 +1,46 @@
+Compile Function MITCHEM_TEST_Events(CtrlEntId, Event, @PARAMS)
+#pragma precomp SRP_PreCompiler
+
+#window MITCHEM_TEST
+
+Declare function Get_Property, Reactor_Services, Database_Services
+Declare subroutine Set_Property, RList, Msg , Reactor_Services, End_Window, Post_Event
+
+$Insert APP_INSERTS
+$Insert EVENT_SETUP
+$Insert REACTOR_EQUATES
+$insert logical
+$Insert RLIST_EQUATES
+$Insert REACTOR_MODES_EQUATES
+$Insert REACT_MODE_NG_EQUATES
+$Insert MSG_EQUATES
+
+// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
+If Event EQ 'OLE' then
+    Transfer Event to OIEvent
+    Transfer Param1 to Event
+    Transfer Param2 to Param1
+    Transfer Param3 to Param2
+    Transfer Param4 to Param3
+    Transfer Param5 to Param4
+    Transfer Param6 to Param5
+    Transfer Param7 to Param6
+    Transfer Param8 to Param7
+end
+
+GoToEvent Event for CtrlEntId else
+    // Event not implemented
+end
+
+Return EventFlow or 1
+
+
+Event WINDOW.CREATE(CreateParam)
+	debug
+	Set_Property(@Window, 'BACKCOLOR', -2)
+	Color     = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
+	//Set_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR', -2)
+	Color     = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
+    EventFlow = 1
+	
+End Event