alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed some windows types.

Browse Source 
Amazing this didn't fail before.
Likely the "magic" of padding.
This commit is contained in:
Brad Nelson
2024-12-01 21:26:27 -08:00
parent 0823c179fa
commit 8ec7e2c5c4
2 changed files with 33 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
windows/windows_gdi.fs
View File

@ -51,17 +51,17 @@ struct RGBQUAD
u8 field ->rgbRed u8 field ->rgbRed
u8 field ->rgbReserved u8 field ->rgbReserved
struct BITMAPINFOHEADER struct BITMAPINFOHEADER
i16 field ->biSize DWORD field ->biSize
i32 field ->biWidth WINLONG field ->biWidth
i32 field ->biHeight WINLONG field ->biHeight
i16 field ->biPlanes WINWORD field ->biPlanes
i16 field ->biBitCount WINWORD field ->biBitCount
i32 field ->biCompression DWORD field ->biCompression
i32 field ->biSizeImage DWORD field ->biSizeImage
i32 field ->biXPelsPerMeter WINLONG field ->biXPelsPerMeter
i32 field ->biYPelsPerMeter WINLONG field ->biYPelsPerMeter
i32 field ->biClrUsed DWORD field ->biClrUsed
i32 field ->biClrImportant DWORD field ->biClrImportant
struct BITMAPINFO struct BITMAPINFO
BITMAPINFOHEADER field ->bmiHeader BITMAPINFOHEADER field ->bmiHeader
RGBQUAD field ->bmiColors RGBQUAD field ->bmiColors

37
windows/windows_user.fs
View File

@ -18,6 +18,13 @@ also internals
( Windows handles bottom out as void pointers. ) ( Windows handles bottom out as void pointers. )
: HANDLE ptr ; : HANDLE ptr ;
: DWORD u32 ;
: WINLONG i32 ;
: UINT u32 ;
: WPARAM ptr ;
: LPARAM ptr ;
: WINBOOL i32 ;
: WINWORD u16 ;
z" User32.dll" dll User32 z" User32.dll" dll User32
@ -32,7 +39,7 @@ z" MessageBoxA" 4 User32 MessageBoxA
z" RegisterClassA" 1 User32 RegisterClassA z" RegisterClassA" 1 User32 RegisterClassA
struct WINDCLASSA struct WINDCLASSA
i16 field ->style UINT field ->style
ptr field ->lpfnWndProc ptr field ->lpfnWndProc
i32 field ->cbClsExtra i32 field ->cbClsExtra
i32 field ->cbWndExtra i32 field ->cbWndExtra
@ -99,14 +106,14 @@ $400000 constant DefaultInstance
$80000000 constant CW_USEDEFAULT $80000000 constant CW_USEDEFAULT
struct POINT struct POINT
i32 field ->x WINLONG field ->x
i32 field ->y WINLONG field ->y
struct RECT struct RECT
i32 field ->left WINLONG field ->left
i32 field ->top WINLONG field ->top
i32 field ->right WINLONG field ->right
i32 field ->bottom WINLONG field ->bottom
z" SetRect" 5 User32 SetRect z" SetRect" 5 User32 SetRect
z" GetMessageA" 4 User32 GetMessageA z" GetMessageA" 4 User32 GetMessageA
@ -115,12 +122,12 @@ z" TranslateMessage" 1 User32 TranslateMessage
z" DispatchMessageA" 1 User32 DispatchMessageA z" DispatchMessageA" 1 User32 DispatchMessageA
struct MSG struct MSG
HANDLE field ->hwnd HANDLE field ->hwnd
i32 field ->message UINT field ->message
i16 field ->wParam WPARAM field ->wParam
i32 field ->lParam LPARAM field ->lParam
i32 field ->time DWORD field ->time
POINT field ->pt POINT field ->pt
i32 field ->lPrivate DWORD field ->lPrivate
0 constant PM_NOREMOVE 0 constant PM_NOREMOVE
1 constant PM_REMOVE 1 constant PM_REMOVE
2 constant PM_NOYIELD 2 constant PM_NOYIELD
@ -130,10 +137,10 @@ z" BeginPaint" 2 User32 BeginPaint
z" EndPaint" 2 User32 EndPaint z" EndPaint" 2 User32 EndPaint
struct PAINTSTRUCT struct PAINTSTRUCT
HANDLE field ->hdc HANDLE field ->hdc
i32 field ->fErase WINBOOL field ->fErase
RECT field ->rcPaint RECT field ->rcPaint
i32 field ->fRestore WINBOOL field ->fRestore
i32 field ->fIncUpdate WINBOOL field ->fIncUpdate
32 u8 * field ->rgbReserved 32 u8 * field ->rgbReserved
z" FillRect" 3 User32 FillRect z" FillRect" 3 User32 FillRect