1 USING: alien alien.c-types alien.destructors windows.com.syntax
2 windows.ole32 windows.types continuations kernel alien.syntax
3 libc destructors accessors alien.data ;
8 COM-INTERFACE: IUnknown f {00000000-0000-0000-C000-000000000046}
9 HRESULT QueryInterface ( REFGUID iid, void** ppvObject )
14 C-TYPE: IEnumFORMATETC
17 COM-INTERFACE: IDataObject IUnknown {0000010E-0000-0000-C000-000000000046}
18 HRESULT GetData ( FORMATETC* pFormatetc, STGMEDIUM* pmedium )
19 HRESULT GetDataHere ( FORMATETC* pFormatetc, STGMEDIUM* pmedium )
20 HRESULT QueryGetData ( FORMATETC* pFormatetc )
21 HRESULT GetCanonicalFormatEtc ( FORMATETC* pFormatetcIn, FORMATETC* pFormatetcOut )
22 HRESULT SetData ( FORMATETC* pFormatetc, STGMEDIUM* pmedium, BOOL fRelease )
23 HRESULT EnumFormatEtc ( DWORD dwDirection, IEnumFORMATETC** ppenumFormatetc )
24 HRESULT DAdvise ( FORMATETC* pFormatetc, DWORD advf, IAdviseSink* pAdvSink, DWORD* pdwConnection )
25 HRESULT DUnadvise ( DWORD pdwConnection )
26 HRESULT EnumDAdvise ( IEnumSTATDATA** ppenumAdvise ) ;
28 COM-INTERFACE: IDropTarget IUnknown {00000122-0000-0000-C000-000000000046}
29 HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
30 HRESULT DragOver ( DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
32 HRESULT Drop ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect ) ;
34 FUNCTION: HRESULT RegisterDragDrop ( HWND hWnd, IDropTarget* pDropTarget ) ;
35 FUNCTION: HRESULT RevokeDragDrop ( HWND hWnd ) ;
36 FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ;
38 : com-query-interface ( interface iid -- interface' )
40 [ IUnknown::QueryInterface ole32-error ]
43 : com-add-ref ( interface -- interface )
44 [ IUnknown::AddRef drop ] keep ; inline
46 : com-release ( interface -- )
47 IUnknown::Release drop ; inline
49 : with-com-interface ( interface quot -- )
50 over [ com-release ] curry [ ] cleanup ; inline
52 DESTRUCTOR: com-release