--- a/SynchronousWindowSensor.st	Sat Apr 02 16:25:49 2016 +0200
+++ b/SynchronousWindowSensor.st	Sat Apr 02 16:29:47 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -218,12 +216,12 @@
 waitForExposeFor:aView
     "wait until a graphicsExpose or a noExpose arrives (after a bitblt)."
 
-    |device windowId stopPoll endPollTime|
+    |viewsDevice windowId stopPoll endPollTime|
 
-    device := aView graphicsDevice.
+    viewsDevice := aView graphicsDevice.
 
     "/ this is only needed for X ...
-    device scrollsAsynchronous ifTrue:[
+    viewsDevice scrollsAsynchronous ifTrue:[
         windowId := aView id.
 
         "/
@@ -234,8 +232,8 @@
         stopPoll := false.
 
         [(gotExpose includes:aView) or:[stopPoll]] whileFalse:[
-            (device exposeEventPendingFor:windowId withSync:true) ifTrue:[
-                device dispatchExposeEventFor:windowId.
+            (viewsDevice exposeEventPendingFor:windowId withSync:true) ifTrue:[
+                viewsDevice dispatchExposeEventFor:windowId.
             ].
             stopPoll := Timestamp now > endPollTime.
             Processor yield.