--- a/DisplaySurface.st	Sat Mar 20 16:35:39 2004 +0100
+++ b/DisplaySurface.st	Sat Mar 20 16:43:19 2004 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -1915,50 +1913,50 @@
     |wg endPollTime pollDelay|
 
     device scrollsAsynchronous ifFalse:[
-	gotExpose := true.
-	^ self
+        gotExpose := true.
+        ^ 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 := AbsoluteTime now addSeconds:pollDelay.
-
-	[gotExpose] whileFalse:[
-	    realized ifTrue:[
-		(device exposeEventPendingFor:drawableId withSync:true) ifTrue:[
-		    device dispatchExposeEventFor:drawableId.
-		].
-	    ].
-	    realized ifFalse:[
-		gotExpose := true.
-		^ self
-	    ].
-
-	    "/ break out of the poll after a while
-
-	    AbsoluteTime now > endPollTime ifTrue:[
-		'DisplaySurface [warning]: lost expose event' errorPrintCR.
-		gotExpose := true.
-		^ 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 platformName = 'WIN32' ifTrue:[
+            pollDelay := 1.
+        ] ifFalse:[
+            pollDelay := 3.
+        ].
+        endPollTime := Timestamp now addSeconds:pollDelay.
+
+        [gotExpose] whileFalse:[
+            realized ifTrue:[
+                (device exposeEventPendingFor:drawableId withSync:true) ifTrue:[
+                    device dispatchExposeEventFor:drawableId.
+                ].
+            ].
+            realized ifFalse:[
+                gotExpose := true.
+                ^ self
+            ].
+
+            "/ break out of the poll after a while
+
+            Timestamp now > endPollTime ifTrue:[
+                'DisplaySurface [warning]: lost expose event' errorPrintCR.
+                gotExpose := true.
+                ^ self
+            ].
+            Processor yield.
+        ].
     ]
 
     "Modified: / 9.1.1999 / 01:58:09 / cg"
@@ -2403,7 +2401,7 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.109 2004-03-05 12:46:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.110 2004-03-20 15:42:43 stefan Exp $'
 ! !
 
 DisplaySurface initialize!