--- a/SimpleView.st	Sat Apr 02 15:47:26 2016 +0100
+++ b/SimpleView.st	Sat Apr 02 16:25:33 2016 +0100
@@ -11552,6 +11552,22 @@
     "
 !
 
+waitUntilEventsProcessed
+    "Wait until all queued events for this view are processes.
+     In normal applications, you do not need to call this, however,
+     in tests you may need to delay assertions until all events
+     are processed."
+
+    | blocker |
+
+    [ Screen current eventPending ] whileTrue.
+    blocker := Semaphore new.
+    self sensor pushAction: [ blocker signal ].  
+    blocker wait.
+
+    "Created: / 31-03-2016 / 22:33:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 waitUntilVisible
     "wait until the receiver visible.
      In normal applications, you do not need to wait till a view is
@@ -11849,6 +11865,11 @@
 version_CVS
     ^ '$Header$'
 
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !