Commit 585425cb authored by Peter Achten's avatar Peter Achten
Browse files

(PA): missing crosscall message added that caused

application to abort.
parent 62cb4071
......@@ -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)
......
Supports Markdown
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