diff -r a5f8a5dd647f -r 6d9bf1f15278 DisplaySurface.st
--- a/DisplaySurface.st	Thu Apr 03 16:37:58 2014 +0200
+++ b/DisplaySurface.st	Thu Apr 03 16:39:02 2014 +0200
@@ -2150,50 +2150,50 @@
     |wg endPollTime pollDelay|
 
     device scrollsAsynchronous ifFalse:[
-	self setGotExposeFlag.
-	^ self
+        self setGotExposeFlag.
+        ^ self
     ].
 
     wg := self windowGroup.
     wg notNil ifTrue:[
-	"/
-	"/ a normal (suspendable) view.
-	"/ wait by doing a real wait
-	"/
-	 wg sensor waitForExposeFor:self
+        "/
+        "/ a normal (suspendable) view.
+        "/ wait by doing a real wait
+        "/
+         wg sensor waitForExposeFor:self
     ] ifFalse:[
-	"/
-	"/ a pure event driven view.
-	"/ wait by doing a direct dispatch loop until the event arrives.
-	"/ i.e. poll for the event
-	"/
-	device platformName = 'WIN32' ifTrue:[
-	    pollDelay := 1.
-	] ifFalse:[
-	    pollDelay := 3.
-	].
-	endPollTime := Timestamp now addSeconds:pollDelay.
-
-	[self gotExpose] whileFalse:[
-	    realized ifTrue:[
-		(device exposeEventPendingFor:drawableId withSync:true) ifTrue:[
-		    device dispatchExposeEventFor:drawableId.
-		].
-	    ].
-	    realized ifFalse:[
-		self setGotExposeFlag.
-		^ self
-	    ].
-
-	    "/ break out of the poll after a while
-
-	    Timestamp now > endPollTime ifTrue:[
-		'DisplaySurface [warning]: lost expose event' errorPrintCR.
-		self setGotExposeFlag.
-		^ self
-	    ].
-	    Processor yield.
-	].
+        "/
+        "/ a pure event driven view.
+        "/ wait by doing a direct dispatch loop until the event arrives.
+        "/ i.e. poll for the event
+        "/
+        device isWindowsPlatform ifTrue:[
+            pollDelay := 1.
+        ] ifFalse:[
+            pollDelay := 3.
+        ].
+        endPollTime := Timestamp now addSeconds:pollDelay.
+
+        [self gotExpose] whileFalse:[
+            realized ifTrue:[
+                (device exposeEventPendingFor:drawableId withSync:true) ifTrue:[
+                    device dispatchExposeEventFor:drawableId.
+                ].
+            ].
+            realized ifFalse:[
+                self setGotExposeFlag.
+                ^ self
+            ].
+
+            "/ break out of the poll after a while
+
+            Timestamp now > endPollTime ifTrue:[
+                'DisplaySurface [warning]: lost expose event' errorPrintCR.
+                self setGotExposeFlag.
+                ^ self
+            ].
+            Processor yield.
+        ].
     ]
 
     "Modified: / 9.1.1999 / 01:58:09 / cg"
@@ -2590,7 +2590,7 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.160 2014-02-05 13:30:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.161 2014-04-03 14:39:02 cg Exp $'
 ! !