update windows.types structs

basis/ui/backend/windows/windows.factor

@@ -653,7 +653,7 @@ M: windows-ui-backend do-events
 
 : init-win32-ui ( -- )
     V{ } clone nc-buttons set-global
-    "MSG" malloc-object msg-obj set-global
+    MSG malloc-struct msg-obj set-global
     GetDoubleClickTime milliseconds double-click-timeout set-global ;
 
 : cleanup-win32-ui ( -- )

basis/windows/types/types.factor

@@ -250,14 +250,13 @@ STRUCT: RECT
     { right LONG }
     { bottom LONG } ;
 
-C-STRUCT: PAINTSTRUCT
+STRUCT: PAINTSTRUCT
-    { "HDC" " hdc" }
+    { hdc HDC }
-    { "BOOL" "fErase" }
+    { fErase BOOL }
-    { "RECT" "rcPaint" }
+    { rcPaint RECT }
-    { "BOOL" "fRestore" }
+    { fRestore BOOL }
-    { "BOOL" "fIncUpdate" }
+    { fIncUpdate BOOL }
-    { "BYTE[32]" "rgbReserved" }
+    { rgbReserved BYTE[32] } ;
-;
 
 STRUCT: BITMAPINFOHEADER
     { biSize DWORD }
@@ -285,21 +284,21 @@ STRUCT: BITMAPINFO
 TYPEDEF: void* LPPAINTSTRUCT
 TYPEDEF: void* PAINTSTRUCT
 
-C-STRUCT: POINT
+STRUCT: POINT
-    { "LONG" "x" }
+    { x LONG }
-    { "LONG" "y" } ; 
+    { y LONG } ; 
 
 STRUCT: SIZE
     { cx LONG }
     { cy LONG } ;
 
-C-STRUCT: MSG
+STRUCT: MSG
-    { "HWND" "hWnd" }
+    { hWnd HWND }
-    { "UINT" "message" }
+    { message UINT }
-    { "WPARAM" "wParam" }
+    { wParam WPARAM }
-    { "LPARAM" "lParam" }
+    { lParam LPARAM }
-    { "DWORD" "time" }
+    { time DWORD }
-    { "POINT" "pt" } ;
+    { pt POINT } ;
 
 TYPEDEF: MSG*                LPMSG
 
@@ -341,34 +340,34 @@ TYPEDEF: PFD* LPPFD
 TYPEDEF: HANDLE HGLRC
 TYPEDEF: HANDLE HRGN
 
-C-STRUCT: LVITEM
+STRUCT: LVITEM
-    { "uint" "mask" }
+    { mask uint }
-    { "int" "iItem" }
+    { iItem int }
-    { "int" "iSubItem" }
+    { iSubItem int }
-    { "uint" "state" }
+    { state uint }
-    { "uint" "stateMask" }
+    { stateMask uint }
-    { "void*" "pszText" }
+    { pszText void* }
-    { "int" "cchTextMax" }
+    { cchTextMax int }
-    { "int" "iImage" }
+    { iImage int }
-    { "long" "lParam" }
+    { lParam long }
-    { "int" "iIndent" }
+    { iIndent int }
-    { "int" "iGroupId" }
+    { iGroupId int }
-    { "uint" "cColumns" }
+    { cColumns uint }
-    { "uint*" "puColumns" }
+    { puColumns uint* }
-    { "int*" "piColFmt" }
+    { piColFmt int* }
-    { "int" "iGroup" } ;
+    { iGroup int } ;
 
-C-STRUCT: LVFINDINFO
+STRUCT: LVFINDINFO
-    { "uint" "flags" }
+    { flags uint }
-    { "char*" "psz" }
+    { psz char* }
-    { "long" "lParam" }
+    { lParam long }
-    { "POINT" "pt" }
+    { pt POINT }
-    { "uint" "vkDirection" } ;
+    { vkDirection uint } ;
 
-C-STRUCT: ACCEL
+STRUCT: ACCEL
-    { "BYTE" "fVirt" }
+    { fVirt BYTE }
-    { "WORD" "key" }
+    { key WORD }
-    { "WORD" "cmd" } ;
+    { cmd WORD } ;
 TYPEDEF: ACCEL* LPACCEL
 
 TYPEDEF: DWORD COLORREF