Drop bad WM_ name.

2022-02-20 19:09:59 -08:00
parent 4a76510512
commit aa40d5375d
2 changed files with 1 additions and 1 deletions
--- a/ueforth/windows/windows_messages.fs
+++ b/ueforth/windows/windows_messages.fs
@ -171,7 +171,6 @@ windows definitions

 255 constant WM_INPUT
 256 constant WM_KEYDOWN
-256 constant WM_KEYFIRST
 257 constant WM_KEYUP
 258 constant WM_CHAR
 259 constant WM_DEADCHAR
--- a/ueforth/windows/windows_test.fs
+++ b/ueforth/windows/windows_test.fs
@ -64,6 +64,7 @@ hwnd SetForegroundWindow drop
 create mymsg msg allot
 : pump
  begin mymsg NULL 0 0 GetMessageA while
+    \ mymsg ->message @ WM_>name type cr
    mymsg TranslateMessage drop
    mymsg DispatchMessageA drop
  repeat