From e2b689a636a0080eb8885be4939451b9af2d47b3 Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Sat, 30 Mar 2019 00:53:54 +0100 Subject: [PATCH] windows.ole32: add a couple of constants --- basis/windows/dragdrop-listener/dragdrop-listener.factor | 2 -- basis/windows/ole32/ole32.factor | 3 +++ 2 files changed, 3 insertions(+), 2 deletions(-) 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 -- 2.34.1