A new version of Kernel was added to project The Inbox:
http://source.squeak.org/inbox/Kernel-ul.883.mcz==================== Summary ====================
Name: Kernel-ul.883
Author: ul
Time: 26 October 2014, 1:45:11.609 am
UUID: 362f65e8-603d-452d-b26d-6df0bc85022b
Ancestors: Kernel-ul.880
- use ExternalSemaphoreTable instead of Smalltalk
- added #excessSignals accessor to Semaphore
=============== Diff against Kernel-ul.880 ===============
Item was changed:
----- Method: EventSensor>>shutDown (in category 'initialize') -----
shutDown
+
super shutDown.
EventTicklerProcess ifNotNil: [
EventTicklerProcess terminate.
EventTicklerProcess := nil. ].
+ inputSemaphore ifNotNil:[
+ ExternalSemaphoreTable unregisterExternalObject: inputSemaphore ].
- inputSemaphore ifNotNil:[Smalltalk unregisterExternalObject: inputSemaphore].
!
Item was changed:
----- Method: EventSensor>>startUp (in category 'initialize') -----
startUp
"Run the I/O process"
self initialize.
+ self primSetInputSemaphore: (ExternalSemaphoreTable registerExternalObject: inputSemaphore).
- self primSetInputSemaphore: (Smalltalk registerExternalObject: inputSemaphore).
super startUp.
self installEventTickler.
Smalltalk isMorphic ifTrue:[self flushAllButDandDEvents].
"Attempt to discover whether the input semaphore is actually being signaled."
hasInputSemaphore := false.
inputSemaphore initSignals.
!
Item was added:
+ ----- Method: Semaphore>>excessSignals (in category 'accessing') -----
+ excessSignals
+
+ ^excessSignals!