SimpleView.st
changeset 8294 ed1b1616c29e
parent 8286 826c287de344
child 8305 26f60a6364d7
--- a/SimpleView.st	Mon Mar 05 17:21:08 2018 +0100
+++ b/SimpleView.st	Tue Mar 06 20:37:29 2018 +0100
@@ -7654,29 +7654,33 @@
 !
 
 grabKeyboard
-    "grab the keayboard - that is: report all keyboard events to myself,
+    "grab the keyboard - that is: report all keyboard events to myself,
      even if the mouse moved out of myself.
-     Returns true, if the grab was sucessfull (could fail, if some other
-     application has a grab - but that's very unlikely)."
+     Returns true if the grab was successful (could fail, if some other
+     application has a grab - but that is very unlikely)."
 
     ^ device grabKeyboardInView:self.
+
+    "Modified (comment): / 06-03-2018 / 20:35:09 / mawalch"
 !
 
 grabPointer
     "grab the pointer - that is: report all motion events relative to
      myself, even if moved out of myself.
-     Returns true, if the grab was sucessfull (could fail, if some other
-     application has a grab - but that's very unlikely)."
+     Returns true if the grab was successful (could fail, if some other
+     application has a grab - but that is very unlikely)."
 
     ^ self grabPointerWithCursor:nil
+
+    "Modified (comment): / 06-03-2018 / 20:35:28 / mawalch"
 !
 
 grabPointerWithCursor:aCursorOrNil
     "grab the pointer - that is: report all motion events relative to
      myself, even if moved out of myself.
      Show aCursor during the grab, if the cursor argument is not nil.
-     Returns true, if the grab was sucessfull (could fail, if some other
-     application has a grab - but that's very unlikely)."
+     Returns true if the grab was successful (could fail, if some other
+     application has a grab - but that is very unlikely)."
 
 
 "/    (sensor := self sensor) notNil ifTrue:[
@@ -7687,10 +7691,12 @@
 "/        sensor flushMotionEventsFor:nil
 "/    ].
     aCursorOrNil notNil ifTrue:[
-	cursor := (aCursorOrNil onDevice:device).
-	^ device grabPointerInView:self withCursor:cursor
+        cursor := (aCursorOrNil onDevice:device).
+        ^ device grabPointerInView:self withCursor:cursor
     ].
     ^ device grabPointerInView:self
+
+    "Modified (comment): / 06-03-2018 / 20:36:01 / mawalch"
 !
 
 ungrabKeyboard