class: ApplicationModel
changed: #enqueueMessage:for:arguments: (send #hasUserEvent:for:withArguments: instead of #hasEvent:for:withArguments:)
only check in user event queue.
--- a/ApplicationModel.st Thu Feb 05 00:15:25 2015 +0100
+++ b/ApplicationModel.st Thu Feb 05 09:54:49 2015 +0100
@@ -1982,18 +1982,18 @@
self isWebService ifTrue:[
- self breakPoint:#sr.
- ^ self
+ self breakPoint:#sr.
+ ^ self
].
(window := self window) notNil ifTrue:[
- sensor := window sensor.
+ sensor := window sensor.
].
sensor isNil ifTrue:[
- "no window (yet or any longer)"
- someone perform:selector withArguments:argList.
- ^ self.
+ "no window (yet or any longer)"
+ someone perform:selector withArguments:argList.
+ ^ self.
].
"/
@@ -2002,7 +2002,7 @@
"/ back in the event loop.
"/
sensor criticalUserEventQueueAccess:[
- (sensor hasEvent:selector for:someone withArguments:argList) ifFalse:[
+ (sensor hasUserEvent:selector for:someone withArguments:argList) ifFalse:[
sensor pushUserEvent:selector for:someone withArguments:argList
].
].
@@ -4136,11 +4136,11 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.361 2015-01-31 13:04:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.362 2015-02-05 08:54:49 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.361 2015-01-31 13:04:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.362 2015-02-05 08:54:49 cg Exp $'
! !