equal
deleted
inserted
replaced
209 "Modified: / 12-07-2017 / 13:42:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
209 "Modified: / 12-07-2017 / 13:42:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
210 "Modified: / 15-01-2018 / 09:44:09 / jv" |
210 "Modified: / 15-01-2018 / 09:44:09 / jv" |
211 ! |
211 ! |
212 |
212 |
213 onThreadSelectedEvent: aGDBThreadSelectedEvent |
213 onThreadSelectedEvent: aGDBThreadSelectedEvent |
214 | thread | |
214 | thread frame | |
215 |
215 |
216 thread := self threadWithId:aGDBThreadSelectedEvent threadId. |
216 thread := self threadWithId:aGDBThreadSelectedEvent threadId. |
217 aGDBThreadSelectedEvent |
217 aGDBThreadSelectedEvent setThread: thread. |
218 setThread: thread; |
218 "/ Be carefull, thread may be rinning!! |
219 setFrame: (thread stack at: (aGDBThreadSelectedEvent frame level + 1)) |
219 (thread isStopped and:[(frame := aGDBThreadSelectedEvent frame) notNil]) ifTrue:[ |
|
220 aGDBThreadSelectedEvent setFrame: (thread stack at: (frame level + 1)) |
|
221 ]. |
220 |
222 |
221 "Created: / 29-07-2018 / 22:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
223 "Created: / 29-07-2018 / 22:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
224 "Modified: / 16-01-2019 / 23:25:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
222 ! ! |
225 ! ! |
223 |
226 |
224 !GDBThreadGroup methodsFor:'initialization'! |
227 !GDBThreadGroup methodsFor:'initialization'! |
225 |
228 |
226 initialize |
229 initialize |