From: Alexander Iljin Date: Fri, 29 Mar 2019 23:53:54 +0000 (+0100) Subject: windows.ole32: add a couple of constants X-Git-Tag: 0.99~3861 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=e2b689a636a0080eb8885be4939451b9af2d47b3 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 4250c37aab..c63ba98014 100644 --- 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 CF_HDROP >>cfFormat diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor index 84e3935ea5..e05af8703f 100644 --- 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