VDBThreadGroupPresenter.st
changeset 31 00f6de198c7f
parent 24 c33a063cb363
child 34 cda31dfd5386
equal deleted inserted replaced
30:1851cfc16f27 31:00f6de198c7f
     8 !
     8 !
     9 
     9 
    10 !VDBThreadGroupPresenter methodsFor:'accessing'!
    10 !VDBThreadGroupPresenter methodsFor:'accessing'!
    11 
    11 
    12 icon
    12 icon
    13     ^ VDBIconLibrary threadGroupRunning16x16
    13     threadGroup isRunning ifTrue:[ ^ VDBIconLibrary threadGroupRunning16x16 ].
       
    14     threadGroup isStopped ifTrue:[ ^ VDBIconLibrary threadGroupStopped16x16 ].
       
    15     ^ nil
    14 
    16 
    15     "Created: / 22-09-2014 / 22:13:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    17     "Created: / 22-09-2014 / 22:13:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    18     "Modified: / 30-09-2014 / 00:31:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    16 !
    19 !
    17 
    20 
    18 label
    21 label
    19     ^ threadGroup displayString
    22     ^ threadGroup displayString
    20 
    23