# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1578681937 -3600
# Node ID 6c39759da0f2ce7d79466315e48146825a7327e2
# Parent  d6383fb3419475ffaf6e347240e38ed4c55e188f
#BUGFIX by cg
class: Controller
changed:
	#deviceButtonMotion:x:y:
	#deviceButtonMultiPress:x:y:
	#deviceButtonPress:x:y:
	#deviceButtonRelease:x:y:
	#deviceKeyPress:x:y:
	#deviceKeyRelease:x:y:
	#devicePointerEnter:x:y:

diff -r d6383fb34194 -r 6c39759da0f2 Controller.st
--- a/Controller.st	Thu Jan 09 12:19:29 2020 +0100
+++ b/Controller.st	Fri Jan 10 19:45:37 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -292,8 +294,9 @@
     lx := x.
     ly := y.
     (trans := view transformation) notNil ifTrue:[
-	lx := trans applyInverseToX:lx.
-	ly := trans applyInverseToY:ly.
+        "/ for forwarded events: lx,ly might be nil
+        lx notNil ifTrue:[ lx := trans applyInverseToX:lx ].
+        ly notNil ifTrue:[ ly := trans applyInverseToY:ly ].
     ].
     self buttonMotion:state x:lx y:ly
 
@@ -317,8 +320,9 @@
     lx := x.
     ly := y.
     (trans := view transformation) notNil ifTrue:[
-	lx := trans applyInverseToX:lx.
-	ly := trans applyInverseToY:ly.
+        "/ for forwarded events: lx,ly might be nil
+        lx notNil ifTrue:[ lx := trans applyInverseToX:lx ].
+        ly notNil ifTrue:[ ly := trans applyInverseToY:ly ].
     ].
     self buttonMultiPress:button x:lx y:ly
 
@@ -342,8 +346,9 @@
     lx := x.
     ly := y.
     (trans := view transformation) notNil ifTrue:[
-	lx := trans applyInverseToX:lx.
-	ly := trans applyInverseToY:ly.
+        "/ for forwarded events: lx,ly might be nil
+        lx notNil ifTrue:[ lx := trans applyInverseToX:lx ].
+        ly notNil ifTrue:[ ly := trans applyInverseToY:ly ].
     ].
     self buttonPress:button x:lx y:ly
 
@@ -367,8 +372,9 @@
     lx := x.
     ly := y.
     (trans := view transformation) notNil ifTrue:[
-	lx := trans applyInverseToX:lx.
-	ly := trans applyInverseToY:ly.
+        "/ for forwarded events: lx,ly might be nil
+        lx notNil ifTrue:[ lx := trans applyInverseToX:lx ].
+        ly notNil ifTrue:[ ly := trans applyInverseToY:ly ].
     ].
     self buttonRelease:button x:lx y:ly
 
@@ -392,8 +398,9 @@
     lx := x.
     ly := y.
     (trans := view transformation) notNil ifTrue:[
-	lx := trans applyInverseToX:lx.
-	ly := trans applyInverseToY:ly.
+        "/ for forwarded events: lx,ly might be nil
+        lx notNil ifTrue:[ lx := trans applyInverseToX:lx ].
+        ly notNil ifTrue:[ ly := trans applyInverseToY:ly ].
     ].
     self keyPress:key x:lx y:ly
 
@@ -417,8 +424,9 @@
     lx := x.
     ly := y.
     (trans := view transformation) notNil ifTrue:[
-	lx := trans applyInverseToX:lx.
-	ly := trans applyInverseToY:ly.
+        "/ for forwarded events: lx,ly might be nil
+        lx notNil ifTrue:[ lx := trans applyInverseToX:lx ].
+        ly notNil ifTrue:[ ly := trans applyInverseToY:ly ].
     ].
     self keyRelease:key x:lx y:ly
 
@@ -442,8 +450,9 @@
     lx := x.
     ly := y.
     (trans := view transformation) notNil ifTrue:[
-	lx := trans applyInverseToX:lx.
-	ly := trans applyInverseToY:ly.
+        "/ for forwarded events: lx,ly might be nil
+        lx notNil ifTrue:[ lx := trans applyInverseToX:lx ].
+        ly notNil ifTrue:[ ly := trans applyInverseToY:ly ].
     ].
     self pointerEnter:state x:lx y:ly