Mercurial Mercurial > hg > stx-libview / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SimpleView.st
changeset 8740 e49cd9b309ac
parent 8734 de0c9b4d22b9
child 8741 29dde800c577 
--- a/SimpleView.st	Fri Jul 19 11:38:30 2019 +0200
+++ b/SimpleView.st	Fri Jul 19 14:01:38 2019 +0200
@@ -7173,10 +7173,11 @@
     |ev|
 
     ev := WindowEvent buttonPress:button x:0 y:0 view:self.
-    "/ x/y will be set in simulateUserEvent:ev at:aPoint
+    "/ x/y will be set in simulateUserEvent:at:sendDisplayEvent:
     ^ self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
 
     "Created: / 12-07-2011 / 14:36:02 / cg"
+    "Modified (comment): / 19-07-2019 / 13:57:45 / Claus Gittinger"
 !
 
 simulateButtonRelease:button at:aPoint
@@ -7197,10 +7198,11 @@
     |ev|
 
     ev := WindowEvent buttonRelease:button x:0 y:0 view:self.
-    "/ x/y will be set in simulateUserEvent:ev at:aPoint
+    "/ x/y will be set in simulateUserEvent:at:sendDisplayEvent:
     ^ self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
 
     "Created: / 12-07-2011 / 14:54:37 / cg"
+    "Modified (comment): / 19-07-2019 / 13:57:58 / Claus Gittinger"
 !
 
 simulateKeyPress:keyOrStringOrSymbol at:aPoint
@@ -7219,15 +7221,17 @@
     |sequence ev lastView|
 
     (keyOrStringOrSymbol isCharacter or:[keyOrStringOrSymbol isSymbol])
-	ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
-	ifFalse:[ sequence := keyOrStringOrSymbol ].
+        ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
+        ifFalse:[ sequence := keyOrStringOrSymbol ].
 
     sequence do:[:each |
-	ev := WindowEvent keyPress:each x:0 y:0 view:self.
-	"/ x/y will be set in simulateUserEvent:ev at:aPoint
-	lastView := self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
+        ev := WindowEvent keyPress:each x:0 y:0 view:self.
+        "/ x/y will be set in simulateUserEvent:at:sendDisplayEvent:
+        lastView := self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
     ].
     ^ lastView
+
+    "Modified (comment): / 19-07-2019 / 13:58:06 / Claus Gittinger"
 !
 
 simulateKeyPressRelease:keyOrStringOrSymbol at:aPoint
@@ -7246,19 +7250,21 @@
     |sequence ev1 ev2 lastView|
 
     (keyOrStringOrSymbol isCharacter or:[keyOrStringOrSymbol isSymbol])
-	ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
-	ifFalse:[ sequence := keyOrStringOrSymbol ].
+        ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
+        ifFalse:[ sequence := keyOrStringOrSymbol ].
 
     sequence do:[:each |
-	ev1 := WindowEvent keyPress:each x:0 y:0 view:self.
-	"/ x/y will be set in simulateUserEvent:ev at:aPoint
-	lastView := self simulateUserEvent:ev1 at:aPoint sendDisplayEvent:sendDisplayEvent.
-
-	ev2 := WindowEvent keyRelease:each x:0 y:0 view:self.
-	"/ x/y will be set in simulateUserEvent:ev at:aPoint
-	lastView := self simulateUserEvent:ev2 at:aPoint sendDisplayEvent:sendDisplayEvent.
+        ev1 := WindowEvent keyPress:each x:0 y:0 view:self.
+        "/ x/y will be set in simulateUserEvent:at:sendDisplayEvent:
+        lastView := self simulateUserEvent:ev1 at:aPoint sendDisplayEvent:sendDisplayEvent.
+
+        ev2 := WindowEvent keyRelease:each x:0 y:0 view:self.
+        "/ x/y will be set in simulateUserEvent:at:sendDisplayEvent:
+        lastView := self simulateUserEvent:ev2 at:aPoint sendDisplayEvent:sendDisplayEvent.
     ].
     ^ lastView
+
+    "Modified (comment): / 19-07-2019 / 13:58:14 / Claus Gittinger"
 !
 
 simulateKeyRelease:keyOrStringOrSymbol at:aPoint
@@ -7277,15 +7283,17 @@
     |sequence ev lastView|
 
     (keyOrStringOrSymbol isCharacter or:[keyOrStringOrSymbol isSymbol])
-	ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
-	ifFalse:[ sequence := keyOrStringOrSymbol ].
+        ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
+        ifFalse:[ sequence := keyOrStringOrSymbol ].
 
     sequence do:[:each |
-	ev := WindowEvent keyRelease:each x:0 y:0 view:self.
-	"/ x/y will be set in simulateUserEvent:ev at:aPoint
-	lastView := self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
+        ev := WindowEvent keyRelease:each x:0 y:0 view:self.
+        "/ x/y will be set in simulateUserEvent:at:sendDisplayEvent:
+        lastView := self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
     ].
     ^ lastView
+
+    "Modified (comment): / 19-07-2019 / 13:58:18 / Claus Gittinger"
 !
 
 simulateUserEvent:ev at:aPoint
hg/stx-libview