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

[factor.git] / basis / windows / offscreen / offscreen.factor

diff --git a/basis/windows/offscreen/offscreen.factor b/basis/windows/offscreen/offscreen.factor
index 02b72388a76a5e55890aed9fc7227cbc9df5375c..7a169ec161a2fe275199f0cb6d8115bc5466e79c 100644 (file)
--- a/basis/windows/offscreen/offscreen.factor
+++ b/basis/windows/offscreen/offscreen.factor
@@ -7,7 +7,7 @@ IN: windows.offscreen
 
 : (bitmap-info) ( dim -- BITMAPINFO )
     [
 
 : (bitmap-info) ( dim -- BITMAPINFO )
     [

-        BITMAPINFO <struct>
+        BITMAPINFO new

         dup bmiHeader>>
         BITMAPINFOHEADER heap-size >>biSize
     ] dip
         dup bmiHeader>>
         BITMAPINFOHEADER heap-size >>biSize
     ] dip