classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / windows / dragdrop-listener / dragdrop-listener.factor

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index c63ba980147a8377fbb32931b51ee30543732c06..cb4e3677ab97c7c49305150e4d1e95de8f5bf2f9 100644 (file)
--- 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 )
 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
         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
     [ IDataObject::GetData ] keep swap succeeded? [
         dup data>>
         [ rot execute( hdrop -- x ) ] with-global-lock