diff -r b15e9a29764c -r 4194d370d46f ProcessorScheduler.st
--- a/ProcessorScheduler.st	Wed May 07 18:17:15 1997 +0200
+++ b/ProcessorScheduler.st	Wed May 07 19:04:17 1997 +0200
@@ -22,7 +22,8 @@
 	classVariableNames:'KnownProcesses KnownProcessIds PureEventDriven
 		UserSchedulingPriority UserInterruptPriority TimingPriority
 		HighestPriority SchedulingPriority MaxNumberOfProcesses
-		InvalidProcessSignal TimeSlicingPriorityLimit TimeSliceInterval'
+		InvalidProcessSignal TimeSlicingPriorityLimit TimeSliceInterval
+		EventPollingInterval'
 	poolDictionaries:''
 	category:'Kernel-Processes'
 !
@@ -111,6 +112,9 @@
 						processes are only timesliced, if running 
 						at or below this priority.
 
+	EventPollingInterval			for systems which do not support select on
+						a fileDescriptor: the polling interval in millis.
+
     most interesting methods:
 
 	Processor>>suspend:                  (see also Process>>suspend)
@@ -189,6 +193,7 @@
      setup some priority values."
 
     TimeSliceInterval := 50.
+    EventPollingInterval := 20.
 
     UserSchedulingPriority := 8.
     UserInterruptPriority := 24.
@@ -627,9 +632,9 @@
 	    ].
 	] ifFalse:[
 	    millis notNil ifTrue:[
-		millis := millis min:50
+		millis := millis min:EventPollingInterval
 	    ] ifFalse:[
-		millis := 50
+		millis := EventPollingInterval
 	    ]
 	]
     ].
@@ -826,7 +831,7 @@
 
 	    polling := true.
 	    [polling] whileTrue:[
-		Delay waitForMilliseconds:50.
+		Delay waitForMilliseconds:EventPollingInterval.
 		(osChildExitActions includesKey:pid) ifFalse:[
 		    polling := false.
 		] ifTrue:[
@@ -2522,7 +2527,7 @@
 	(self checkForInputWithTimeout:0) ifTrue:[
 	    ^ self  "go back checking"
 	].
-	OperatingSystem millisecondDelay:50.
+	OperatingSystem millisecondDelay:EventPollingInterval.
 	^ self
     ].
 
@@ -2540,6 +2545,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.131 1997-05-07 16:17:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.132 1997-05-07 17:04:17 cg Exp $'
 ! !
 ProcessorScheduler initialize!