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
98c21438
Commit
98c21438
authored
Mar 01, 2000
by
Peter Achten
Browse files
(PA): missing crosscall message added that caused
application to abort.
parent
4c3d1aaf
Changes
1
Hide whitespace changes
Inline
Side-by-side
libraries/ObjectIO/ObjectIO/OS Windows/osdocumentinterface.icl
View file @
98c21438
...
...
@@ -5,7 +5,7 @@ implementation module osdocumentinterface
import
StdMaybe
,
StdTuple
import
clCrossCall_12
,
ostoolbar
,
ossystem
,
ostypes
import
clCrossCall_12
,
ostoolbar
,
ossystem
,
ostypes
,
windowCCall_12
,
windowCrossCall_12
from
commondef
import
FatalError
,
String
from
StdIOCommon
import
DocumentInterface
,
MDI
,
SDI
,
NDI
...
...
@@ -157,12 +157,14 @@ OScloseOSDInfo _ tb
=
tb
osDestroyProcessWindowCallback
::
String
!
CrossCallInfo
!*
OSToolbox
->
(!
CrossCallInfo
,!*
OSToolbox
)
osDestroyProcessWindowCallback
function
{
ccMsg
=
CcWmDEACTIVATE
}
tb
osDestroyProcessWindowCallback
_
{
ccMsg
=
CcWmDEACTIVATE
}
tb
=
(
Return0Cci
,
tb
)
osDestroyProcessWindowCallback
function
{
ccMsg
=
CcWmACTIVATE
}
tb
osDestroyProcessWindowCallback
_
{
ccMsg
=
CcWmACTIVATE
}
tb
=
(
Return0Cci
,
tb
)
osDestroyProcessWindowCallback
function
{
ccMsg
=
CcWmKEYBOARD
}
tb
osDestroyProcessWindowCallback
_
{
ccMsg
=
CcWmKEYBOARD
}
tb
=
(
Return0Cci
,
tb
)
osDestroyProcessWindowCallback
_
{
ccMsg
=
CcWmPAINT
,
p1
=
hwnd
}
tb
=
(
Return0Cci
,
WinInvalidateWindow
hwnd
(
WinEndPaint
hwnd
(
WinBeginPaint
hwnd
tb
)))
osDestroyProcessWindowCallback
function
{
ccMsg
}
tb
=
osdocumentinterfaceFatalError
function
(
"received message nr:"
+++
toString
ccMsg
)
...
...
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