0032638: Draw Harness, ViewerTest - HTML input range misbehavior in WebAssembly

[occt.git] / src / WNT / WNT_Window.cxx

diff --git a/src/WNT/WNT_Window.cxx b/src/WNT/WNT_Window.cxx
index 73ebe52..10edc7a 100644 (file)
--- a/src/WNT/WNT_Window.cxx
+++ b/src/WNT/WNT_Window.cxx
@@ -815,12 +815,12 @@ bool WNT_Window::ProcessMessage (Aspect_WindowInputListener& theListener,
       }
       return false;
     }
-    case WM_ACTIVATE:
+    case WM_SETFOCUS:
+    case WM_KILLFOCUS:
     {
       if (theMsg.hwnd == (HWND )myHWindow)
       {
-        theListener.ProcessFocus (LOWORD(theMsg.wParam) == WA_CLICKACTIVE
-                               || LOWORD(theMsg.wParam) == WA_ACTIVE);
+        theListener.ProcessFocus (theMsg.message == WM_SETFOCUS);
         return true;
       }
       return false;