Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 10 Jan 1999 18:03:56 +0100
changeset 2421 037f43af3b0e
parent 2420 a0a611f5197a
child 2422 6bffcb4c8360
checkin from browser
DSurface.st file | annotate | diff | comparison | revisions
DisplaySurface.st file | annotate | diff | comparison | revisions
WSensor.st file | annotate | diff | comparison | revisions
WindowSensor.st file | annotate | diff | comparison | revisions 
--- a/DSurface.st	Sun Jan 10 17:24:35 1999 +0100
+++ b/DSurface.st	Sun Jan 10 18:03:56 1999 +0100
@@ -1655,51 +1655,56 @@
 waitForExpose
     "wait until an expose event arrives (to wait for scroll-finish)"
 
-    |wg endPollTime|
+    |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 waitForExposeFor:self
+        "/
+        "/ a normal (suspendable) view.
+        "/ wait by doing a real wait
+        "/
+         wg 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
-	"/
-	endPollTime := AbsoluteTime now addSeconds:10.
+        "/
+        "/ 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
-	    ].
+        [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
+            "/ break out of the poll after a while
 
-	    AbsoluteTime now > endPollTime ifTrue:[
-		'DisplaySurface [warning]: lost expose event' errorPrintCR.
-		gotExpose := true.
-		^ self
-	    ].
-	    Processor yield.
-	].
+            AbsoluteTime now > endPollTime ifTrue:[
+                'DisplaySurface [warning]: lost expose event' errorPrintCR.
+                gotExpose := true.
+                ^ self
+            ].
+            Processor yield.
+        ].
     ]
 
-    "Modified: 19.8.1997 / 17:22:46 / cg"
+    "Modified: / 9.1.1999 / 01:58:09 / cg"
 ! !
 
 !DisplaySurface methodsFor:'initialize / release'!
@@ -2103,5 +2108,5 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.49 1998-11-11 15:17:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.50 1999-01-10 17:03:24 cg Exp $'
 ! !
--- a/DisplaySurface.st	Sun Jan 10 17:24:35 1999 +0100
+++ b/DisplaySurface.st	Sun Jan 10 18:03:56 1999 +0100
@@ -1655,51 +1655,56 @@
 waitForExpose
     "wait until an expose event arrives (to wait for scroll-finish)"
 
-    |wg endPollTime|
+    |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 waitForExposeFor:self
+        "/
+        "/ a normal (suspendable) view.
+        "/ wait by doing a real wait
+        "/
+         wg 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
-	"/
-	endPollTime := AbsoluteTime now addSeconds:10.
+        "/
+        "/ 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
-	    ].
+        [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
+            "/ break out of the poll after a while
 
-	    AbsoluteTime now > endPollTime ifTrue:[
-		'DisplaySurface [warning]: lost expose event' errorPrintCR.
-		gotExpose := true.
-		^ self
-	    ].
-	    Processor yield.
-	].
+            AbsoluteTime now > endPollTime ifTrue:[
+                'DisplaySurface [warning]: lost expose event' errorPrintCR.
+                gotExpose := true.
+                ^ self
+            ].
+            Processor yield.
+        ].
     ]
 
-    "Modified: 19.8.1997 / 17:22:46 / cg"
+    "Modified: / 9.1.1999 / 01:58:09 / cg"
 ! !
 
 !DisplaySurface methodsFor:'initialize / release'!
@@ -2103,5 +2108,5 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.49 1998-11-11 15:17:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.50 1999-01-10 17:03:24 cg Exp $'
 ! !
--- a/WSensor.st	Sun Jan 10 17:24:35 1999 +0100
+++ b/WSensor.st	Sun Jan 10 18:03:56 1999 +0100
@@ -2556,7 +2556,7 @@
      in future versions. (or the new device may simulate the arrival of
      such an event)"
 
-    |blocked lostExpose device stopPoll endPollTime|
+    |blocked lostExpose device stopPoll endPollTime pollDelay|
 
     device := aView graphicsDevice.
 
@@ -2571,7 +2571,12 @@
     [
         aView flush.
         Processor activeProcessIsSystemProcess ifTrue:[
-            endPollTime := AbsoluteTime now addSeconds:10.
+            device platformName = 'WIN32' ifTrue:[
+                pollDelay := 1.
+            ] ifFalse:[
+                pollDelay := 3.
+            ].
+            endPollTime := AbsoluteTime now addSeconds:pollDelay.
             stopPoll := false.
 
             "/
@@ -2633,8 +2638,8 @@
         eventSemaphore signalOnce
     ].
 
-    "Modified: 20.2.1997 / 09:24:31 / stefan"
-    "Modified: 19.8.1997 / 17:36:20 / cg"
+    "Modified: / 20.2.1997 / 09:24:31 / stefan"
+    "Modified: / 9.1.1999 / 01:58:56 / cg"
 !
 
 waitNoButton
@@ -2652,6 +2657,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.135 1998-12-04 14:35:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.136 1999-01-10 17:03:56 cg Exp $'
 ! !
 WindowSensor initialize!
--- a/WindowSensor.st	Sun Jan 10 17:24:35 1999 +0100
+++ b/WindowSensor.st	Sun Jan 10 18:03:56 1999 +0100
@@ -2556,7 +2556,7 @@
      in future versions. (or the new device may simulate the arrival of
      such an event)"
 
-    |blocked lostExpose device stopPoll endPollTime|
+    |blocked lostExpose device stopPoll endPollTime pollDelay|
 
     device := aView graphicsDevice.
 
@@ -2571,7 +2571,12 @@
     [
         aView flush.
         Processor activeProcessIsSystemProcess ifTrue:[
-            endPollTime := AbsoluteTime now addSeconds:10.
+            device platformName = 'WIN32' ifTrue:[
+                pollDelay := 1.
+            ] ifFalse:[
+                pollDelay := 3.
+            ].
+            endPollTime := AbsoluteTime now addSeconds:pollDelay.
             stopPoll := false.
 
             "/
@@ -2633,8 +2638,8 @@
         eventSemaphore signalOnce
     ].
 
-    "Modified: 20.2.1997 / 09:24:31 / stefan"
-    "Modified: 19.8.1997 / 17:36:20 / cg"
+    "Modified: / 20.2.1997 / 09:24:31 / stefan"
+    "Modified: / 9.1.1999 / 01:58:56 / cg"
 !
 
 waitNoButton
@@ -2652,6 +2657,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.135 1998-12-04 14:35:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.136 1999-01-10 17:03:56 cg Exp $'
 ! !
 WindowSensor initialize!
hg/stx-libview