# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1442909664 -7200
# Node ID f6e8231f090d4fd67eddeba362ca8fcf94edf539
# Parent  ff9bb66cb62b9c522a3111ca7f237fb6801aaae1
#OTHER
class: AbstractBackgroundJob
class definition
added:
	#initiatingThread
	#initiatingThread:

diff -r ff9bb66cb62b -r f6e8231f090d AbstractBackgroundJob.st
--- a/AbstractBackgroundJob.st	Fri Sep 04 15:15:57 2015 +0200
+++ b/AbstractBackgroundJob.st	Tue Sep 22 10:14:24 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
 	      All Rights Reserved
@@ -30,7 +28,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#AbstractBackgroundJob
-	instanceVariableNames:'name job priority thread running isDebuggerJob'
+	instanceVariableNames:'name job priority thread running isDebuggerJob initiatingThread'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Support'
@@ -144,6 +142,14 @@
 
 !AbstractBackgroundJob methodsFor:'accessing'!
 
+initiatingThread
+    ^ initiatingThread
+!
+
+initiatingThread:something
+    initiatingThread := something.
+!
+
 isDebuggerJob
     ^ isDebuggerJob ? false
 !