Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added: #thread
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 18 Apr 2012 10:17:12 +0200
changeset 2736 5f916a59f5e6
parent 2735 1960c3957377
child 2737 090c26e897c4
added: #thread
BackgroundJob.st file | annotate | diff | comparison | revisions 
--- a/BackgroundJob.st	Mon Apr 09 19:00:41 2012 +0200
+++ b/BackgroundJob.st	Wed Apr 18 10:17:12 2012 +0200
@@ -190,6 +190,15 @@
 
     "Modified (format): / 03-08-2011 / 16:42:45 / cg"
     "Modified (comment): / 03-08-2011 / 21:01:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+thread
+    "Return the thread (an instance of Process) that currently
+     processes the job or nil. if no processing is currently performed."
+
+    ^thread
+
+    "Created: / 18-04-2012 / 10:16:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BackgroundJob methodsFor:'initialization'!
@@ -332,11 +341,11 @@
 !BackgroundJob class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.11 2012-02-09 22:58:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.12 2012-04-18 08:17:12 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.11 2012-02-09 22:58:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.12 2012-04-18 08:17:12 vrany Exp $'
 !
 
 version_SVN
hg/stx-libbasic2