Skip to content
GitLab
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
b59a0b2c
Commit
b59a0b2c
authored
Apr 03, 2000
by
Peter Achten
Browse files
(PA) removed potential bug w.r.t. window(de)activate.
parent
f66f4bcb
Changes
3
Hide whitespace changes
Inline
Side-by-side
libraries/ObjectIO/ObjectIO/OS Windows/osevent.dcl
View file @
b59a0b2c
...
...
@@ -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
View file @
b59a0b2c
...
...
@@ -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
View file @
b59a0b2c
...
...
@@ -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
(
OS
insert
Events
osDelayEvents
osEvents
)
ioState
#
ioState
=
IOStSetEvents
(
OS
append
Events
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
(
OS
insert
Events
osDelayEvents
osEvents
)
ioState
#
ioState
=
IOStSetEvents
(
OS
append
Events
osDelayEvents
osEvents
)
ioState
#
pState
=
{
pState
&
io
=
ioState
}
=
(
deviceEvent
,
pState
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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