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

Drop bad WM_ name.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-20 19:09:59 -08:00
parent 4a76510512
commit aa40d5375d
2 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
ueforth/windows/windows_messages.fs
View File

@ -171,7 +171,6 @@ windows definitions
255 constant WM_INPUT 255 constant WM_INPUT
256 constant WM_KEYDOWN 256 constant WM_KEYDOWN
256 constant WM_KEYFIRST
257 constant WM_KEYUP 257 constant WM_KEYUP
258 constant WM_CHAR 258 constant WM_CHAR
259 constant WM_DEADCHAR 259 constant WM_DEADCHAR

1
ueforth/windows/windows_test.fs
View File

@ -64,6 +64,7 @@ hwnd SetForegroundWindow drop
create mymsg msg allot create mymsg msg allot
: pump : pump
begin mymsg NULL 0 0 GetMessageA while begin mymsg NULL 0 0 GetMessageA while
\ mymsg ->message @ WM_>name type cr
mymsg TranslateMessage drop mymsg TranslateMessage drop
mymsg DispatchMessageA drop mymsg DispatchMessageA drop
repeat repeat