Update target features from `=target-connected event`
authorJan Vrany <jan.vrany@fit.cvut.cz>
Thu, 24 Jan 2019 21:59:23 +0000
changeset 172 836209352efb
parent 171 de7559c2ba7f
child 173 02546d4fbe6d
Update target features from `=target-connected event` ...so feature list is up-to-date
GDBDebugger.st
GDBTargetConnectedEvent.st
--- a/GDBDebugger.st	Wed Jan 23 22:20:29 2019 +0000
+++ b/GDBDebugger.st	Thu Jan 24 21:59:23 2019 +0000
@@ -911,6 +911,12 @@
     "Modified: / 09-04-2018 / 15:42:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+onTargetConnectedEvent: aGDBTargetConnectedEvent
+    targetFeatures := aGDBTargetConnectedEvent features
+
+    "Created: / 22-01-2019 / 13:44:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 onThreadCreatedEvent:aGDBThreadCreatedEvent 
     | inferior |
 
@@ -1060,10 +1066,12 @@
         when: GDBBreakpointModifiedEvent    send: #onBreakpointModifiedEvent: to: self;
         when: GDBBreakpointDeletedEvent     send: #onBreakpointDeletedEvent:  to: self;
 
-        when: GDBCmdParamChangedEvent       send: #onCmdParamChangedEvent:    to: self.
+        when: GDBCmdParamChangedEvent       send: #onCmdParamChangedEvent:    to: self;
+
+        when: GDBTargetConnectedEvent       send: #onTargetConnectedEvent:    to: self.
 
     "Created: / 20-06-2014 / 22:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-01-2019 / 22:20:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-01-2019 / 13:36:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 unsubscribe
--- a/GDBTargetConnectedEvent.st	Wed Jan 23 22:20:29 2019 +0000
+++ b/GDBTargetConnectedEvent.st	Thu Jan 24 21:59:23 2019 +0000
@@ -21,7 +21,7 @@
 "{ NameSpace: Smalltalk }"
 
 GDBNotificationEvent subclass:#GDBTargetConnectedEvent
-	instanceVariableNames:''
+	instanceVariableNames:'name features'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'GDB-Core-Events'
@@ -52,7 +52,22 @@
 
 !GDBTargetConnectedEvent methodsFor:'accessing'!
 
+features
+    ^ features
+!
+
+name
+    ^ name
+!
+
 type
 	^  'target-connected'
 ! !
 
+!GDBTargetConnectedEvent class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+