From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 15 Dec 2021 09:58:26 +0000 (-0600)
Subject: ui.backend.windows: Add a couple more error checks.
X-Git-Tag: 0.99~2227
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=69cd66ab8cff05750b1d5515730ff9bc07690e48

ui.backend.windows: Add a couple more error checks.
---

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index defb6cfd15..d8a32647c5 100644
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -492,7 +492,7 @@ SYMBOL: nc-buttons
     over make-TRACKMOUSEEVENT
         TME_LEAVE >>dwFlags
         0 >>dwHoverTime
-    TrackMouseEvent drop
+    TrackMouseEvent win32-error=0/f
     >lo-hi swap window move-hand fire-motion ;
 
 :: handle-wm-mousewheel ( hWnd uMsg wParam lParam -- )
@@ -705,7 +705,7 @@ M: windows-ui-backend (open-window)
 ! ignore timeout (error 258)
 M: win-base select-gl-context
     [ hDC>> ] [ hRC>> ] bi wglMakeCurrent win32-error=0/f-ignore-timeout
-    GdiFlush drop ;
+    GdiFlush win32-error=0/f ;
 
 M: win-base flush-gl-context
     hDC>> SwapBuffers win32-error=0/f ;