--- a/BackgroundQueueProcessingJob.st Tue Aug 02 09:36:21 2011 +0200
+++ b/BackgroundQueueProcessingJob.st Tue Aug 02 19:48:55 2011 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
- All Rights Reserved
+ All Rights Reserved
Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
@@ -23,9 +23,7 @@
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
OTHER DEALINGS IN THE SOFTWARE.
"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
+"{ Package: 'stx:libbasic2' }"
BackgroundJob subclass:#BackgroundQueueProcessingJob
instanceVariableNames:'queue queueAccessLock'
@@ -39,7 +37,7 @@
copyright
"
COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
- All Rights Reserved
+ All Rights Reserved
Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
@@ -71,9 +69,9 @@
"includes: is not synchronized, but should not harm"
queueAccessLock critical:[
- (queue includes: object)
- ifFalse:[queue add: object].
- self start].
+ (queue includes: object)
+ ifFalse:[queue add: object].
+ self start].
"Created: / 28-04-2011 / 20:40:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 18-05-2011 / 23:30:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -98,9 +96,9 @@
| item |
[
- item := nil.
- queueAccessLock critical:
- [queue isEmpty ifFalse:[item := queue removeFirst]].
+ item := nil.
+ queueAccessLock critical:
+ [queue isEmpty ifFalse:[item := queue removeFirst]].
item isNil ifFalse:
[self processItem: item].
item notNil.
@@ -120,7 +118,7 @@
!BackgroundQueueProcessingJob class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.3 2011-07-29 10:55:27 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.4 2011-08-02 17:48:55 cg Exp $'
!
version_SVN