X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fwindows%2Fdragdrop-listener%2Fdragdrop-listener.factor;fp=basis%2Fwindows%2Fdragdrop-listener%2Fdragdrop-listener.factor;h=cb4e3677ab97c7c49305150e4d1e95de8f5bf2f9;hp=c63ba980147a8377fbb32931b51ee30543732c06;hb=7ec2ba15ef18bc0a2ec05e075758eb5f315c8a13;hpb=48191c249b8441268c42f1e453c8945bc81db3df

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index c63ba98014..cb4e3677ab 100644
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -8,13 +8,13 @@ windows.kernel32 windows.ole32 windows.user32 ;
 IN: windows.dragdrop-listener
 
 : handle-data-object ( handler:  ( hdrop -- x ) data-object -- filenames )
-    FORMATETC <struct>
+    FORMATETC new
         CF_HDROP         >>cfFormat
         f                >>ptd
         DVASPECT_CONTENT >>dwAspect
         -1               >>lindex
         TYMED_HGLOBAL    >>tymed
-    STGMEDIUM <struct>
+    STGMEDIUM new
     [ IDataObject::GetData ] keep swap succeeded? [
         dup data>>
         [ rot execute( hdrop -- x ) ] with-global-lock