(PA): missing crosscall message added that caused

application to abort.

libraries/ObjectIO/ObjectIO/OS Windows/osdocumentinterface.icl

@@ -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)