--- a/GDBMI_break_disable.st Sat May 22 16:52:20 2021 +0100
+++ b/GDBMI_break_disable.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
@@ -98,6 +100,33 @@
^ 'break-disable'
! !
+!GDBMI_break_disable 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_disable methodsFor:'hooks'!
+
+postExecuteIn: debugger result: result
+ result isDone ifTrue: [
+ | breakpoints event |
+
+ breakpoints := arguments collect: [ :id | debugger breakpointForId: id ].
+ breakpoints do: [:bkpt | bkpt _enabled: false ].
+ 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:46 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
!GDBMI_break_disable class methodsFor:'documentation'!
version_HG