AbstractBackgroundJob.st
changeset 3507 58dd3995e45b
parent 3495 a4973d64cf31
child 3592 ff7df9bc1032
--- 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 $'
 ! !