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

Give windows handles a name.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-29 14:49:28 -08:00
parent db30147131
commit 4425ffadea
1 changed files with 26 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
windows/windows_user.fs
View File

@ -16,6 +16,9 @@ windows definitions
also structures also structures
also internals also internals
( Windows handles bottom out as void pointers. )
: HANDLE ptr ;
z" User32.dll" dll User32 z" User32.dll" dll User32
z" MessageBoxA" 4 User32 MessageBoxA z" MessageBoxA" 4 User32 MessageBoxA
@ -33,10 +36,10 @@ struct WINDCLASSA
ptr field ->lpfnWndProc ptr field ->lpfnWndProc
i32 field ->cbClsExtra i32 field ->cbClsExtra
i32 field ->cbWndExtra i32 field ->cbWndExtra
ptr field ->hInstance HANDLE field ->hInstance
ptr field ->hIcon HANDLE field ->hIcon
ptr field ->hCursor HANDLE field ->hCursor
ptr field ->hbrBackground HANDLE field ->hbrBackground
ptr field ->lpszMenuName ptr field ->lpszMenuName
ptr field ->lpszClassName ptr field ->lpszClassName
@ -111,7 +114,7 @@ z" PeekMessageA" 5 User32 PeekMessageA
z" TranslateMessage" 1 User32 TranslateMessage z" TranslateMessage" 1 User32 TranslateMessage
z" DispatchMessageA" 1 User32 DispatchMessageA z" DispatchMessageA" 1 User32 DispatchMessageA
struct MSG struct MSG
ptr field ->hwnd HANDLE field ->hwnd
i32 field ->message i32 field ->message
i16 field ->wParam i16 field ->wParam
i32 field ->lParam i32 field ->lParam
@ -126,12 +129,12 @@ z" GetDC" 1 User32 GetDC
z" BeginPaint" 2 User32 BeginPaint z" BeginPaint" 2 User32 BeginPaint
z" EndPaint" 2 User32 EndPaint z" EndPaint" 2 User32 EndPaint
struct PAINTSTRUCT struct PAINTSTRUCT
ptr field ->hdc HANDLE field ->hdc
i32 field ->fErase i32 field ->fErase
RECT field ->rcPaint RECT field ->rcPaint
i32 field ->fRestore i32 field ->fRestore
i32 field ->fIncUpdate i32 field ->fIncUpdate
32 field ->rgbReserved 32 field ->rgbReserved ( 32 bytes )
z" FillRect" 3 User32 FillRect z" FillRect" 3 User32 FillRect
z" PostQuitMessage" 1 User32 PostQuitMessage z" PostQuitMessage" 1 User32 PostQuitMessage