GDBStoppedEvent.st
changeset 95 f417138e9c48
parent 91 472a4841a8b6
child 135 6efae6456f14
equal deleted inserted replaced
94:6a4377ee1563 95:f417138e9c48
    63 ! !
    63 ! !
    64 
    64 
    65 !GDBStoppedEvent methodsFor:'accessing'!
    65 !GDBStoppedEvent methodsFor:'accessing'!
    66 
    66 
    67 stoppedThread
    67 stoppedThread
       
    68     thread_id isNil ifTrue:[ ^ nil ].
    68     ^ threads detect:[:thread | thread id = thread_id ]
    69     ^ threads detect:[:thread | thread id = thread_id ]
    69 
    70 
    70     "Created: / 22-09-2014 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    71     "Created: / 22-09-2014 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    71     "Modified: / 27-02-2015 / 12:36:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    72     "Modified: / 27-02-2015 / 12:36:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    73     "Modified: / 15-01-2018 / 11:52:17 / jv"
    72 !
    74 !
    73 
    75 
    74 stoppedThreadId
    76 stoppedThreadId
    75     ^ thread_id asInteger
    77     ^ thread_id asInteger
    76 
    78 
    77     "Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    79     "Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    78     "Modified: / 22-09-2014 / 23:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    80     "Modified: / 22-09-2014 / 23:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    79 !
    81 !
    80 
    82 
    81 stoppedThreadIds
    83 stoppedThreadIds
    82     ^ stopped_threads
    84     ^ stopped_threads ? 'all'
    83 
    85 
    84     "Created: / 08-09-2014 / 22:15:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    86     "Created: / 08-09-2014 / 22:15:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    87     "Modified: / 15-01-2018 / 11:50:38 / jv"
    85 !
    88 !
    86 
    89 
    87 type
    90 type
    88 	^  'stopped'
    91 	^  'stopped'
    89 ! !
    92 ! !
    90 
    93 
       
    94 !GDBStoppedEvent class methodsFor:'documentation'!
       
    95 
       
    96 version_HG
       
    97 
       
    98     ^ '$Changeset: <not expanded> $'
       
    99 ! !
       
   100