--- 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