windows.ole32: add a couple of constants

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 4250c37aaba0bc7fbd525e8735138d6a9fd6ff93..c63ba980147a8377fbb32931b51ee30543732c06 100644 (file)
--- 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
index 84e3935ea58c797805a7cd676dea81a37dff519a..e05af8703f958cbe1b804b11df3b3e7fbb399a55 100644 (file)
--- 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