--- 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 $'
! !