Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
a0dc411c
Commit
a0dc411c
authored
Mar 28, 2000
by
Peter Achten
Browse files
(PA) fixed bug with respect to modal dialogues.
parent
91802cd8
Changes
3
Hide whitespace changes
Inline
Side-by-side
libraries/ObjectIO/ObjectIO/OS Windows/Clean System Files/cCrossCall_12.obj
View file @
a0dc411c
No preview for this file type
libraries/ObjectIO/ObjectIO/OS Windows/oswindow.icl
View file @
a0dc411c
...
...
@@ -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
...
...
libraries/ObjectIO/ObjectIO/scheduler.icl
View file @
a0dc411c
...
...
@@ -250,11 +250,11 @@ where
checkOSZeroTimerEvent
maybe_timer
osTime
osevent
osEvents
|
isJust
maybe_zerotimer_start
&&
zerotimer
|
osTime
-
zerotimer_start
<=
zerotimelimit
=
OS
insert
Events
[
osevent
]
osEvents
=
OS
append
Events
[
osevent
]
osEvents
// otherwise
=
osEvents
|
isNothing
maybe_zerotimer_start
&&
zerotimer
=
OS
insert
Events
[
createOSZeroTimerEvent
osTime
]
osEvents
=
OS
append
Events
[
createOSZeroTimerEvent
osTime
]
osEvents
|
otherwise
=
osEvents
where
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment