BackgroundJob.st
changeset 2674 88904093a5aa
parent 2611 9087baddf7d0
child 2706 99b71585e8d0
equal deleted inserted replaced
2673:ea71dab56953 2674:88904093a5aa
   283 !
   283 !
   284 
   284 
   285 stop
   285 stop
   286     | t |
   286     | t |
   287 
   287 
   288     (t := thread) ifNil:[^self].
   288     (t := thread) isNil ifTrue:[^self].
   289     thread := nil.
   289     thread := nil.
   290     t terminate.
   290     t terminate.
   291     "/ raise its prio to make it terminate quickly
   291     "/ raise its prio to make it terminate quickly
   292     t priority:(Processor userSchedulingPriority + 1)
   292     t priority:(Processor userSchedulingPriority + 1)
   293 
   293 
   294     "Created: / 28-04-2011 / 20:31:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   294     "Created: / 28-04-2011 / 20:31:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   295     "Modified (format): / 03-08-2011 / 16:41:53 / cg"
   295     "Modified: / 18-11-2011 / 14:07:28 / cg"
   296 ! !
   296 ! !
   297 
   297 
   298 !BackgroundJob class methodsFor:'documentation'!
   298 !BackgroundJob class methodsFor:'documentation'!
   299 
   299 
   300 version
   300 version
   301     ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.8 2011-08-05 20:03:09 stefan Exp $'
   301     ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.9 2011-11-18 13:07:36 cg Exp $'
   302 !
   302 !
   303 
   303 
   304 version_CVS
   304 version_CVS
   305     ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.8 2011-08-05 20:03:09 stefan Exp $'
   305     ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundJob.st,v 1.9 2011-11-18 13:07:36 cg Exp $'
   306 !
   306 !
   307 
   307 
   308 version_SVN
   308 version_SVN
   309     ^ '§Id§'
   309     ^ '§Id§'
   310 ! !
   310 ! !