(PA) removed potential bug w.r.t. window(de)activate.

libraries/ObjectIO/ObjectIO/OS Windows/osevent.dcl

@@ -15,7 +15,6 @@ from	StdMaybe		import Maybe, Just, Nothing
 OSnewEvents		:: OSEvents
 OScopyEvents	:: !OSEvents -> (!OSEvents,!OSEvents)
 OSappendEvents	:: !*[OSEvent] !OSEvents -> OSEvents		// OSappendEvents adds events at the end of the queue
-OSinsertEvents	:: !*[OSEvent] !OSEvents -> OSEvents		// OSinsertEvents adds events at the front of the queue
 OSisEmptyEvents	:: !OSEvents -> (!Bool,!OSEvents)
 OSremoveEvent	:: !OSEvents -> (!OSEvent,!OSEvents)
 

libraries/ObjectIO/ObjectIO/OS Windows/osevent.icl

@@ -24,10 +24,6 @@ OSappendEvents :: !*[OSEvent] !OSEvents -> OSEvents
 OSappendEvents newEvents osEvents
 	= osEvents ++ newEvents
 
-OSinsertEvents :: !*[OSEvent] !OSEvents -> OSEvents
-OSinsertEvents newEvents osEvents
-	= newEvents ++ osEvents
-
 OSisEmptyEvents :: !OSEvents -> (!Bool,!OSEvents)
 OSisEmptyEvents []
 	= (True,  [])

libraries/ObjectIO/ObjectIO/windowdevice.icl

@@ -204,7 +204,7 @@ where
 		| otherwise														// handle control deactivate function AFTER lost input events
 			# (osDelayEvents,ioState)= accIOToolbox (StrictSeqList (lostInputEvents ++ [createOSDeactivateControlEvent wids.wPtr info.ckfItemPtr])) ioState
 			# (osEvents,ioState)	= IOStGetEvents ioState
-			# ioState				= IOStSetEvents (OSinsertEvents osDelayEvents osEvents) ioState
+			# ioState				= IOStSetEvents (OSappendEvents osDelayEvents osEvents) ioState
 			# pState				= {pState & io=ioState}
 			= (deviceEvent,pState)
 	
@@ -297,7 +297,7 @@ where
 			# (osDelayEvents,ioState)
 								= accIOToolbox (StrictSeqList (lostInputEvents ++ [createOSDeactivateWindowEvent wids.wPtr])) ioState
 			# (osEvents,ioState)= IOStGetEvents ioState
-			# ioState			= IOStSetEvents (OSinsertEvents osDelayEvents osEvents) ioState
+			# ioState			= IOStSetEvents (OSappendEvents osDelayEvents osEvents) ioState
 			# pState			= {pState & io=ioState}
 			= (deviceEvent,pState)