GDBMI_break_enable.st
changeset 231 dcadeaddd0c8
parent 122 c939f8a4c3cd
child 259 651864c2aa29
--- a/GDBMI_break_enable.st	Sat May 22 16:52:20 2021 +0100
+++ b/GDBMI_break_enable.st	Mon Jun 28 12:43:27 2021 +0100
@@ -1,6 +1,7 @@
 "
 jv:libgdbs - GNU Debugger Interface Library
 Copyright (C) 2015-now Jan Vrany
+Copyright (C) 2021 LabWare
 
 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
@@ -33,6 +34,7 @@
 "
 jv:libgdbs - GNU Debugger Interface Library
 Copyright (C) 2015-now Jan Vrany
+Copyright (C) 2021 LabWare
 
 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
@@ -97,6 +99,33 @@
 	^ 'break-enable'
 ! !
 
+!GDBMI_break_enable methodsFor:'accessing-descriptors'!
+
+resultDescription
+    ^ (super resultDescription)
+        define:#bkpt as:GDBBreakpoint;
+        yourself
+
+    "Created: / 22-05-2021 / 15:28:49 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
+!GDBMI_break_enable methodsFor:'hooks'!
+
+postExecuteIn: debugger result: result 
+    result isDone ifTrue: [
+        | breakpoints event |
+
+        breakpoints := arguments collect: [ :id | debugger breakpointForId: id ].
+        breakpoints do: [:bkpt | bkpt _enabled: true ].
+        event := GDBBreakpointModifiedEvent new.
+        event _bkpt: breakpoints.
+        debugger push: event.
+    ].
+
+    "Created: / 22-05-2021 / 15:31:20 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 22-05-2021 / 16:36:29 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
 !GDBMI_break_enable class methodsFor:'documentation'!
 
 version_HG