steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

windows.ole32: add a couple of constants

clean-macosx-x86-32
Alexander Iljin 2019-03-30 00:53:54 +01:00 committed by Doug Coleman
parent 88abc4e4c2
commit e2b689a636
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/windows/dragdrop-listener/dragdrop-listener.factor
View File

@ -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

3
basis/windows/ole32/ole32.factor
View File

@ -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