VDBFramePresenter.st
changeset 24 c33a063cb363
parent 23 ed5f4b55cee5
child 40 d766d4c854a2
equal deleted inserted replaced
23:ed5f4b55cee5 24:c33a063cb363
     9 
     9 
    10 !VDBFramePresenter methodsFor:'accessing'!
    10 !VDBFramePresenter methodsFor:'accessing'!
    11 
    11 
    12 frame
    12 frame
    13     ^ frame
    13     ^ frame
       
    14 !
       
    15 
       
    16 icon
       
    17     ^ frame thread isRunning 
       
    18         ifTrue:[ VDBIconLibrary frameRunning16x16 ]
       
    19         ifFalse:[ VDBIconLibrary frameStopped16x16 ]
       
    20 
       
    21     "Created: / 22-09-2014 / 22:06:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    14 !
    22 !
    15 
    23 
    16 label
    24 label
    17     ^ frame displayString
    25     ^ frame displayString
    18 
    26