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

(PA) fixed bug with respect to modal dialogues.

parent 91802cd8
......@@ -332,6 +332,8 @@ where
-> (!CrossCallInfo,!u:s,!*OSToolbox)
OScreateModalDialogCallback getOSEvents setOSEvents handleOSEvents osEvent s tb
# (replyToOS,s) = handleOSEvents osEvent s
| not (isEmpty replyToOS) // information must be returned to OS
= (setReplyInOSEvent replyToOS,s,tb)
# (osEvents, s) = getOSEvents s
# (noDelayEvents,osEvents) = OSisEmptyEvents osEvents
| noDelayEvents
......
......@@ -250,11 +250,11 @@ where
checkOSZeroTimerEvent maybe_timer osTime osevent osEvents
| isJust maybe_zerotimer_start && zerotimer
| osTime-zerotimer_start<=zerotimelimit
= OSinsertEvents [osevent] osEvents
= OSappendEvents [osevent] osEvents
// otherwise
= osEvents
| isNothing maybe_zerotimer_start && zerotimer
= OSinsertEvents [createOSZeroTimerEvent osTime] osEvents
= OSappendEvents [createOSZeroTimerEvent osTime] osEvents
| otherwise
= osEvents
where
......
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