VDBThreadPresenter.st
changeset 60 bcdb393c956f
parent 49 2ec7f7ed9242
child 197 a4f790013a99
equal deleted inserted replaced
59:e7d0453109a1 60:bcdb393c956f
     8 "
     8 "
     9 "{ Package: 'jv:vdb' }"
     9 "{ Package: 'jv:vdb' }"
    10 
    10 
    11 "{ NameSpace: Smalltalk }"
    11 "{ NameSpace: Smalltalk }"
    12 
    12 
    13 VDBModelPresenter subclass:#VDBThreadPresenter
    13 VDBAbstractPresenter subclass:#VDBThreadPresenter
    14 	instanceVariableNames:'thread name'
    14 	instanceVariableNames:'thread name'
    15 	classVariableNames:''
    15 	classVariableNames:''
    16 	poolDictionaries:''
    16 	poolDictionaries:''
    17 	category:'VDB-Presentation'
    17 	category:'VDB-Presentation'
    18 !
    18 !
    50     ].
    50     ].
    51     ^ '%1 [%2]' bindWith: (name notNil ifTrue:[name] ifFalse:['thread ' , thread id printString]) with: thread status
    51     ^ '%1 [%2]' bindWith: (name notNil ifTrue:[name] ifFalse:['thread ' , thread id printString]) with: thread status
    52 
    52 
    53     "Created: / 22-09-2014 / 00:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    53     "Created: / 22-09-2014 / 00:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    54     "Modified: / 12-07-2017 / 14:23:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    54     "Modified: / 12-07-2017 / 14:23:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    55 !
       
    56 
       
    57 subject
       
    58     "Return an instance of GDB object that this presenter displays."
       
    59 
       
    60     ^ thread
       
    61 
       
    62     "Modified: / 05-02-2018 / 13:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    55 !
    63 !
    56 
    64 
    57 thread
    65 thread
    58     ^ thread
    66     ^ thread
    59 ! !
    67 ! !