# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1551968168 -3600
# Node ID c337a7fa974af53a33e2cd3ef7e440c9e2856698
# Parent  c7254c6b2adddfb0a630e503265bf5e22378295f
#REFACTORING by stefan
class: WinWorkstation
added: #grabKeyboardInView:
changed:
        #grabKeyboardIn:
        #ungrabKeyboard
- not implemented, mark as \"under construction\"

Lie about success when grabKeyboard fails, in order to
not log warnings in MenuPanel when grabKeyboard fails in windows.

diff -r c7254c6b2add -r c337a7fa974a WinWorkstation.st
--- 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.