--- a/WinWorkstation.st	Thu Mar 07 15:12:35 2019 +0100
+++ b/WinWorkstation.st	Thu Mar 07 15:16:08 2019 +0100
@@ -14249,6 +14249,7 @@
 !
 
 grabKeyboardIn:aWindowId
+    <resource: #todo>
     "grab the keyboard"
 %{
 #ifdef NOT_YET_IMPLEMENTED
@@ -14261,6 +14262,20 @@
 %}
 !
 
+grabKeyboardInView:aView
+    <resource: #todo>
+    "grab the keyboard - all keyboard input will be sent to aView.
+     Return true if ok, false if it failed for some reason.
+
+     Redefined here to lie about the non-success and avoid warning messages in windows.
+     The primitive is not yet implemented in windows!!"
+
+    super grabKeyboardInView:aView.
+    ^ true.
+
+    "Created: / 07-03-2019 / 14:31:53 / Stefan Vogel"
+!
+
 grabPointerIn:aWindowId withCursor:aCursorId pointerMode:pMode keyboardMode:kMode confineTo:confineId
     "grap the pointer - return true if ok"
 
@@ -14300,6 +14315,7 @@
 !
 
 ungrabKeyboard
+    <resource: #todo>
     "release the keyboard"
 
     activeKeyboardGrab := nil.