From e4a9c1efc5f73cdefc799be90bf2dfb2dc8c4076 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Thu, 24 Aug 2017 00:45:06 +0300
Subject: [PATCH] windows.user32: add a couple of functions and related
 constants

ChangeWindowMessageFilter is available since Vista.
ChangeWindowMessageFilterEx is available since Win7.
---
 basis/windows/user32/user32.factor | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/basis/windows/user32/user32.factor b/basis/windows/user32/user32.factor
index 5d08e22e2c..2e5f78899f 100644
--- a/basis/windows/user32/user32.factor
+++ b/basis/windows/user32/user32.factor
@@ -1008,6 +1008,18 @@ STRUCT: DEVMODE
 TYPEDEF: DEVMODE* PDEVMODE
 TYPEDEF: DEVMODE* LPDEVMODE
 
+CONSTANT: MSGFLT_ADD    1
+CONSTANT: MSGFLT_REMOVE 2
+
+CONSTANT: MSGFLT_RESET    0
+CONSTANT: MSGFLT_ALLOW    1
+CONSTANT: MSGFLT_DISALLOW 2
+
+STRUCT: CHANGEFILTERSTRUCT
+    { cbSize DWORD }
+    { ExtStatus DWORD } ;
+TYPEDEF: CHANGEFILTERSTRUCT* PCHANGEFILTERSTRUCT
+
 LIBRARY: user32
 
 FUNCTION: HKL ActivateKeyboardLayout ( HKL hkl, UINT Flags )
@@ -1052,6 +1064,16 @@ ALIAS: ChangeDisplaySettingsEx ChangeDisplaySettingsExW
 ALIAS: ChangeDisplaySettings ChangeDisplaySettingsW
 ! FUNCTION: ChangeMenuA
 ! FUNCTION: ChangeMenuW
+
+FUNCTION: BOOL ChangeWindowMessageFilter (
+                UINT message,
+                DWORD dwFlag )
+FUNCTION: BOOL ChangeWindowMessageFilterEx (
+                HWND hWnd,
+                UINT message,
+                DWORD action,
+                PCHANGEFILTERSTRUCT pChangeFilterStruct )
+
 ! FUNCTION: CharLowerA
 ! FUNCTION: CharLowerBuffA
 ! FUNCTION: CharLowerBuffW
-- 
2.34.1