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

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

diff --git a/basis/windows/dwmapi/dwmapi.factor b/basis/windows/dwmapi/dwmapi.factor
index 86c35a4527d4c2bb57f0a15b8c717cecd49530a3..3a688dbad8bb08e933e7649ac7a2e0aa7be9dc4c 100644 (file)
--- a/basis/windows/dwmapi/dwmapi.factor
+++ b/basis/windows/dwmapi/dwmapi.factor
@@ -11,15 +11,14 @@ STRUCT: MARGINS
     { cyTopHeight    int }
     { cyBottomHeight int } ;
 
+C: <MARGINS> MARGINS
+
 STRUCT: DWM_BLURBEHIND
     { dwFlags                DWORD   }
     { fEnable                BOOL    }
     { hRgnBlur               HANDLE  }
     { fTransitionOnMaximized BOOL    } ;
 
-: <MARGINS> ( l r t b -- MARGINS )
-    MARGINS <struct-boa> ; inline
-
 : full-window-margins ( -- MARGINS )
     -1 -1 -1 -1 <MARGINS> ; inline