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

update windows.ole32 structs (*)

db4
Joe Groff 2009-09-18 18:57:36 -05:00
parent 81db20f59e
commit 40a17176e9
2 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@ USING: alien.strings io.encodings.utf16n windows.com
windows.com.wrapper combinators windows.kernel32 windows.ole32 windows.com.wrapper combinators windows.kernel32 windows.ole32
windows.shell32 kernel accessors windows.types windows.shell32 kernel accessors windows.types
prettyprint namespaces ui.tools.listener ui.tools.workspace prettyprint namespaces ui.tools.listener ui.tools.workspace
alien.data alien sequences math ; alien.data alien sequences math classes.struct ;
SPECIALIZED-ARRAY: WCHAR SPECIALIZED-ARRAY: WCHAR
IN: windows.dragdrop-listener IN: windows.dragdrop-listener
@ -16,15 +16,15 @@ IN: windows.dragdrop-listener
] with map ; ] with map ;
: filenames-from-data-object ( data-object -- filenames ) : filenames-from-data-object ( data-object -- filenames )
"FORMATETC" <c-object> FORMATETC <struct>
CF_HDROP over set-FORMATETC-cfFormat CF_HDROP >>cfFormat
f over set-FORMATETC-ptd f >>ptd
DVASPECT_CONTENT over set-FORMATETC-dwAspect DVASPECT_CONTENT >>dwAspect
-1 over set-FORMATETC-lindex -1 >>lindex
TYMED_HGLOBAL over set-FORMATETC-tymed TYMED_HGLOBAL >>tymed
"STGMEDIUM" <c-object> STGMEDIUM <struct>
[ IDataObject::GetData ] keep swap succeeded? [ [ IDataObject::GetData ] keep swap succeeded? [
dup STGMEDIUM-data dup data>>
[ filenames-from-hdrop ] with-global-lock [ filenames-from-hdrop ] with-global-lock
swap ReleaseStgMedium swap ReleaseStgMedium
] [ drop f ] if ; ] [ drop f ] if ;

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

@ -78,29 +78,29 @@ CONSTANT: TYMED_MFPICT 32
CONSTANT: TYMED_ENHMF 64 CONSTANT: TYMED_ENHMF 64
CONSTANT: TYMED_NULL 0 CONSTANT: TYMED_NULL 0
C-STRUCT: DVTARGETDEVICE STRUCT: DVTARGETDEVICE
{ "DWORD" "tdSize" } { tdSize DWORD }
{ "WORD" "tdDriverNameOffset" } { tdDriverNameOffset WORD }
{ "WORD" "tdDeviceNameOffset" } { tdDeviceNameOffset WORD }
{ "WORD" "tdPortNameOffset" } { tdPortNameOffset WORD }
{ "WORD" "tdExtDevmodeOffset" } { tdExtDevmodeOffset WORD }
{ "BYTE[1]" "tdData" } ; { tdData BYTE[1] } ;
TYPEDEF: WORD CLIPFORMAT TYPEDEF: WORD CLIPFORMAT
TYPEDEF: POINT POINTL TYPEDEF: POINT POINTL
C-STRUCT: FORMATETC STRUCT: FORMATETC
{ "CLIPFORMAT" "cfFormat" } { cfFormat CLIPFORMAT }
{ "DVTARGETDEVICE*" "ptd" } { ptd DVTARGETDEVICE* }
{ "DWORD" "dwAspect" } { dwAspect DWORD }
{ "LONG" "lindex" } { lindex LONG }
{ "DWORD" "tymed" } ; { tymed DWORD } ;
TYPEDEF: FORMATETC* LPFORMATETC TYPEDEF: FORMATETC* LPFORMATETC
C-STRUCT: STGMEDIUM STRUCT: STGMEDIUM
{ "DWORD" "tymed" } { tymed DWORD }
{ "void*" "data" } { data void* }
{ "LPUNKNOWN" "punkForRelease" } ; { punkForRelease LPUNKNOWN } ;
TYPEDEF: STGMEDIUM* LPSTGMEDIUM TYPEDEF: STGMEDIUM* LPSTGMEDIUM
CONSTANT: COINIT_MULTITHREADED 0 CONSTANT: COINIT_MULTITHREADED 0