--- a/AbstractBackgroundJob.st Sat Feb 21 23:42:53 2015 +0100
+++ b/AbstractBackgroundJob.st Sat Feb 21 23:43:08 2015 +0100
@@ -214,14 +214,13 @@
!AbstractBackgroundJob methodsFor:'processing'!
process
- "Do the job. May be overriden by subclasses to
- do some more complex operations"
+ "Actually perform the job. This method is called from the background worker thread"
- running := true.
- job value
+ self subclassResponsibility
"Created: / 28-04-2011 / 20:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (format): / 03-08-2011 / 16:42:42 / cg"
+ "Modified: / 21-02-2015 / 10:12:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!AbstractBackgroundJob methodsFor:'queries'!
@@ -297,6 +296,7 @@
((t := thread) isNil or:[t isDead]) ifTrue:[
thread := [
[
+ running := true.
self process
] ensure: [
running := false.
@@ -309,7 +309,7 @@
"Created: / 29-07-2011 / 11:04:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (format): / 03-08-2011 / 16:42:19 / cg"
- "Modified: / 20-01-2012 / 16:39:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 21-02-2015 / 10:10:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
stop
@@ -328,10 +328,10 @@
!AbstractBackgroundJob class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/AbstractBackgroundJob.st,v 1.1 2015-02-21 10:03:46 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/AbstractBackgroundJob.st,v 1.2 2015-02-21 22:43:08 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/AbstractBackgroundJob.st,v 1.1 2015-02-21 10:03:46 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/AbstractBackgroundJob.st,v 1.2 2015-02-21 22:43:08 vrany Exp $'
! !