--- a/WindowSensor.st	Sat Apr 02 16:21:13 2016 +0200
+++ b/WindowSensor.st	Sat Apr 02 16:25:49 2016 +0200
@@ -3247,12 +3247,12 @@
      in future versions. (or the new device may simulate the arrival of
      such an event)"
 
-    |blocked lostExpose device stopPoll endPollTime pollDelay pollDelay2
+    |blocked lostExpose viewsDevice stopPoll endPollTime pollDelay pollDelay2
      exposeSema|
 
-    device := aView graphicsDevice.
-
-    device scrollsAsynchronous ifFalse:[
+    viewsDevice := aView graphicsDevice.
+
+    viewsDevice scrollsAsynchronous ifFalse:[
         gotExpose remove:aView ifAbsent:nil.
         catchExpose remove:aView ifAbsent:nil.
         ^ self
@@ -3266,9 +3266,9 @@
 
     blocked := true.
     [
-        device flush.
-
-        device isWindowsPlatform ifTrue:[
+        viewsDevice flush.
+
+        viewsDevice isWindowsPlatform ifTrue:[
             "/ since this is definitely a local display,
             "/ there is no need for a long timeOut
             "/ (it should arrive fast)
@@ -3288,8 +3288,8 @@
             "/ must poll for the event
             "/
             [(gotExpose includes:aView) or:[stopPoll]] whileFalse:[
-                (device exposeEventPendingFor:aView id withSync:true) ifTrue:[
-                    device dispatchExposeEventFor:aView id.
+                (viewsDevice exposeEventPendingFor:aView id withSync:true) ifTrue:[
+                    viewsDevice dispatchExposeEventFor:aView id.
                 ].
                 stopPoll := Timestamp now > endPollTime.
                 Processor yield.
@@ -3314,7 +3314,7 @@
                     lostExpose := 999.
                 ].
                 (exposeSema waitWithTimeout:(pollDelay2 * lostExpose)) isNil ifTrue:[
-                    device flush.         "/ we are paranoid
+                    viewsDevice flush.         "/ we are paranoid
                     lostExpose := lostExpose + 1.
                 ].
             ].