update windows.types structs

db4
Joe Groff 2009-09-18 19:12:31 -05:00
parent 40a17176e9
commit c86bef70c9
2 changed files with 44 additions and 45 deletions

View File

@ -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 ( -- )

View File

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