diff -r bf90531e8a26 -r 58dd3995e45b AbstractBackgroundJob.st --- 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 " "Modified (format): / 03-08-2011 / 16:42:42 / cg" + "Modified: / 21-02-2015 / 10:12:24 / Jan Vrany " ! ! !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 " "Modified (format): / 03-08-2011 / 16:42:19 / cg" - "Modified: / 20-01-2012 / 16:39:08 / Jan Vrany " + "Modified: / 21-02-2015 / 10:10:39 / Jan Vrany " ! 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 $' ! !