windows.ole32: add a couple of constants

factor · Mar 30, 2019 · e2b689a · e2b689a · mrjbq7 · Mar 30, 2019
1 parent 88abc4e
commit e2b689a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -7,8 +7,6 @@ ui.gestures windows.com windows.com.wrapper windows.dropfiles
 windows.kernel32 windows.ole32 windows.user32 ;
 IN: windows.dragdrop-listener
 
-CONSTANT: E_OUTOFMEMORY -2147024882 ! 0x8007000e
-
 : handle-data-object ( handler:  ( hdrop -- x ) data-object -- filenames )
     FORMATETC <struct>
         CF_HDROP         >>cfFormat

diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor
@@ -33,8 +33,11 @@ CONSTANT: DRAGDROP_S_DROP 0x00040100
 CONSTANT: DRAGDROP_S_CANCEL 0x00040101
 CONSTANT: DRAGDROP_S_USEDEFAULTCURSORS 0x00040102
 
+CONSTANT: E_NOTIMPL 0x80004001
 CONSTANT: E_NOINTERFACE 0x80004002
 CONSTANT: E_FAIL 0x80004005
+CONSTANT: E_UNEXPECTED 0x8000FFFF
+CONSTANT: E_OUTOFMEMORY 0x8007000E
 CONSTANT: E_INVALIDARG 0x80070057
 
 CONSTANT: MK_ALT 0x20