More DirectInput constants

diff --git a/extra/windows/dinput/dinput.factor b/extra/windows/dinput/dinput.factor
index 6dec0aed1ad2dccb170cffe84c5a20bd5e5534ee..6e77f16bdf1b9c9d3cdfd352657d395dc88b5a09 100755 (executable)
--- a/extra/windows/dinput/dinput.factor
+++ b/extra/windows/dinput/dinput.factor
@@ -370,6 +370,12 @@ FUNCTION: HRESULT DirectInput8Create ( HINSTANCE hinst, DWORD dwVersion, REFIID
 : DIDFT_ENUMCOLLECTION ( n -- instance ) 8 shift HEX: FFFF bitand ; inline
 : DIDFT_NOCOLLECTION      HEX: 00FFFF00 ; inline
 
+: DISCL_EXCLUSIVE     HEX: 00000001 ; inline
+: DISCL_NONEXCLUSIVE  HEX: 00000002 ; inline
+: DISCL_FOREGROUND    HEX: 00000004 ; inline
+: DISCL_BACKGROUND    HEX: 00000008 ; inline
+: DISCL_NOWINKEY      HEX: 00000010 ; inline
+
 SYMBOL: +dinput+
 
 : create-dinput ( -- )