--- a/SynchronousWindowSensor.st	Sat Mar 20 16:35:39 2004 +0100
+++ b/SynchronousWindowSensor.st	Sat Mar 20 16:43:19 2004 +0100
@@ -321,26 +321,26 @@
 
     "/ this is only needed for X ...
     device scrollsAsynchronous ifTrue:[
-	windowId := aView id.
+        windowId := aView id.
 
-	"/
-	"/ cannot suspend, I am a synchronous-modal sensor
-	"/ must poll for the event
-	"/
-	endPollTime := AbsoluteTime now addSeconds:10.
-	stopPoll := false.
+        "/
+        "/ cannot suspend, I am a synchronous-modal sensor
+        "/ must poll for the event
+        "/
+        endPollTime := Timestamp now addSeconds:10.
+        stopPoll := false.
 
-	[(gotExpose includes:aView) or:[stopPoll]] whileFalse:[
-	    (device exposeEventPendingFor:windowId withSync:true) ifTrue:[
-		device dispatchExposeEventFor:windowId.
-	    ].
-	    stopPoll := (AbsoluteTime now > endPollTime).
-	    Processor yield.
-	].
+        [(gotExpose includes:aView) or:[stopPoll]] whileFalse:[
+            (device exposeEventPendingFor:windowId withSync:true) ifTrue:[
+                device dispatchExposeEventFor:windowId.
+            ].
+            stopPoll := Timestamp now > endPollTime.
+            Processor yield.
+        ].
 
-	stopPoll ifTrue:[
-	    'SyncWindowSensor [warning]: lost expose event' errorPrintCR.
-	]
+        stopPoll ifTrue:[
+            'SyncWindowSensor [warning]: lost expose event' errorPrintCR.
+        ]
     ].
 
     catchExpose remove:aView ifAbsent:nil.
@@ -352,5 +352,5 @@
 !SynchronousWindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.25 2003-05-07 18:57:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.26 2004-03-20 15:42:56 stefan Exp $'
 ! !