Skip to content
Permalink
Browse files

windows.ole32: add a couple of constants

  • Loading branch information...
AlexIljin authored and erg committed Mar 29, 2019
1 parent 88abc4e commit e2b689a636a0080eb8885be4939451b9af2d47b3
Showing with 3 additions and 2 deletions.
  1. +0 −2 basis/windows/dragdrop-listener/dragdrop-listener.factor
  2. +3 −0 basis/windows/ole32/ole32.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
@@ -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 comments on commit e2b689a

@mrjbq7

This comment has been minimized.

Copy link
Member

replied Mar 30, 2019

IN: scratchpad 0x8007000e -2147024882 = .
f

So, which is more correct?

@AlexIljin

This comment has been minimized.

Copy link
Member Author

replied Mar 30, 2019

Please sign in to comment.
You can’t perform that action at this time.