equal
deleted
inserted
replaced
60 "Modified (format): / 07-09-2014 / 21:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
60 "Modified (format): / 07-09-2014 / 21:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61 ! ! |
61 ! ! |
62 |
62 |
63 !GDBThreadGroup methodsFor:'event handling'! |
63 !GDBThreadGroup methodsFor:'event handling'! |
64 |
64 |
65 onThreadCreated:aGDBThreadCreatedEvent |
65 onThreadCreatedEvent:aGDBThreadCreatedEvent |
66 | thread | |
66 | thread | |
67 threads isNil ifTrue:[ |
67 |
|
68 threads isNil ifTrue:[ |
68 threads := List new. |
69 threads := List new. |
69 ]. |
70 ]. |
70 thread := GDBThread newWithDebugger: debugger id: aGDBThreadCreatedEvent threadId group: self. |
71 thread := GDBThread |
71 threads add: thread. |
72 newWithDebugger:debugger |
72 aGDBThreadCreatedEvent setThread: thread. |
73 id:aGDBThreadCreatedEvent threadId |
|
74 group:self. |
|
75 threads add:thread. |
|
76 aGDBThreadCreatedEvent setThread:thread. |
73 |
77 |
74 "Created: / 07-09-2014 / 21:25:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
78 "Created: / 07-09-2014 / 21:25:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
75 ! |
79 ! |
76 |
80 |
77 onThreadExited:aGDBThreadExitedEvent |
81 onThreadExitedEvent:aGDBThreadExitedEvent |
78 | thread | |
82 | thread | |
79 |
83 |
80 thread := self threadWithId:aGDBThreadExitedEvent threadId. |
84 thread := self threadWithId:aGDBThreadExitedEvent threadId. |
81 thread setTerminated. |
85 thread setTerminated. |
82 aGDBThreadExitedEvent setThread: thread |
86 aGDBThreadExitedEvent setThread:thread |
83 |
87 |
84 "Created: / 07-09-2014 / 21:25:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
88 "Created: / 07-09-2014 / 21:25:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
85 ! ! |
89 ! ! |
86 |
90 |
87 !GDBThreadGroup methodsFor:'initialization'! |
91 !GDBThreadGroup methodsFor:'initialization'! |