Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Fri, 10 Jan 2020 19:45:37 +0100
changeset 8961 6c39759da0f2
parent 8960 d6383fb34194
child 8962 b7eba971f0fe
#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:
Controller.st file | annotate | diff | comparison | revisions 
--- 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
hg/stx-libview