--- a/DeviceWorkstation.st Tue Jun 25 22:24:57 2013 +0200
+++ b/DeviceWorkstation.st Tue Jun 25 23:37:44 2013 +0200
@@ -4873,7 +4873,7 @@
"/ arrange for the processor to signal that semaphore when input
"/ is available or #eventPending returns true
- fd isNil ifTrue:[
+ (fd isNil or:[ OperatingSystem isOSXlike]) ifTrue:[
"no fd -- so have to check for input also"
checkBlock := [self eventPending].
] ifFalse:[
@@ -8252,11 +8252,11 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.585 2013-06-05 10:03:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.586 2013-06-25 21:37:44 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.585 2013-06-05 10:03:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.586 2013-06-25 21:37:44 cg Exp $'
! !