BackgroundQueueProcessingJob.st
changeset 3225 a10937a309bb
parent 3048 ee0259ea01c5
child 3496 15ea7983056e
--- a/BackgroundQueueProcessingJob.st	Wed Apr 16 10:33:22 2014 +0200
+++ b/BackgroundQueueProcessingJob.st	Wed Apr 16 15:12:07 2014 +0200
@@ -108,6 +108,24 @@
 "
 ! !
 
+!BackgroundQueueProcessingJob methodsFor:'accessing-private'!
+
+queue
+    "Returns the internal queue."
+
+    ^ queue
+
+    "Modified (format): / 16-04-2014 / 15:11:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+queueAccessLock
+    "Returns the internal lock used to protect internal queue"
+
+    ^ queueAccessLock
+
+    "Modified (comment): / 16-04-2014 / 15:11:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !BackgroundQueueProcessingJob methodsFor:'adding & removing'!
 
 add: object
@@ -243,14 +261,14 @@
 !BackgroundQueueProcessingJob class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.15 2013-07-10 11:51:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.16 2014-04-16 13:12:07 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.15 2013-07-10 11:51:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.16 2014-04-16 13:12:07 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: BackgroundQueueProcessingJob.st,v 1.15 2013-07-10 11:51:22 cg Exp $'
+    ^ '$Id: BackgroundQueueProcessingJob.st,v 1.16 2014-04-16 13:12:07 vrany Exp $'
 ! !