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

Fix windows shutdown.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-26 04:21:05 -08:00
parent dc03dbd8d6
commit 267ca41574
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/grf_test.fs
View File

@ -33,7 +33,6 @@ internals
." CHAR: " last-char . cr ." CHAR: " last-char . cr
then then
) )
0 to color 0 0 width height box 0 to color 0 0 width height box
g{ g{
vertical-flip vertical-flip
@ -42,7 +41,6 @@ internals
0 0 640 480 box 0 0 640 480 box
$ff7700 to color $ff7700 to color
0 0 400 300 box 0 0 400 300 box
g{ g{
mouse-x mouse-y screen>g translate mouse-x mouse-y screen>g translate
LEFT-BUTTON pressed? if $ccccff else $ffccff then to color LEFT-BUTTON pressed? if $ccccff else $ffccff then to color

8
ueforth/windows/grf.fs
View File

@ -65,10 +65,6 @@ cell allocate throw to backbuffer
; ;
: GrfWindowProc { hwnd msg w l } : GrfWindowProc { hwnd msg w l }
WM_QUIT msg = if
FINISHED to event
0 exit
then
WM_DESTROY msg = if WM_DESTROY msg = if
0 PostQuitMessage 0 PostQuitMessage
0 exit 0 exit
@ -165,6 +161,10 @@ also windows
event FINISHED = if exit then event FINISHED = if exit then
IDLE to event IDLE to event
msgbuf NULL 0 0 PM_REMOVE PeekMessageA if msgbuf NULL 0 0 PM_REMOVE PeekMessageA if
WM_QUIT msgbuf ->message @ = if
FINISHED to event
exit
then
msgbuf TranslateMessage drop msgbuf TranslateMessage drop
msgbuf DispatchMessageA drop msgbuf DispatchMessageA drop
then then