Commit b59a0b2c authored by Peter Achten's avatar Peter Achten
Browse files

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

parent f66f4bcb
......@@ -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)
......
......@@ -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, [])
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment