#REFACTORING by cg
class: DebugView
changed:
#allowBreakPointsInDebugger
#controlLoopCatchingErrors
#doShowSelection:
#ignoreBreakpoints
--- a/DebugView.st Thu Feb 07 17:45:58 2019 +0100
+++ b/DebugView.st Sun Feb 10 13:48:36 2019 +0100
@@ -6682,7 +6682,9 @@
!
allowBreakPointsInDebugger
- ^ ignoreBreakpoints not
+ ^ self ignoreBreakpoints not
+
+ "Modified: / 10-02-2019 / 12:47:52 / Claus Gittinger"
!
allowBreakPointsInDebugger:aBoolean
@@ -7812,9 +7814,10 @@
!
ignoreBreakpoints
- ^ ignoreBreakpoints
-
- "Created: / 17.11.2001 / 18:20:16 / cg"
+ ^ ignoreBreakpoints ? false
+
+ "Created: / 17-11-2001 / 18:20:16 / cg"
+ "Modified: / 10-02-2019 / 12:47:22 / Claus Gittinger"
! !
!DebugView methodsFor:'private-cache handling'!
@@ -8927,7 +8930,7 @@
"/ ignore recursive breakpoints
"/
(signal isControlInterrupt) ifTrue:[
- ignoreBreakpoints == true ifTrue:[
+ self ignoreBreakpoints == true ifTrue:[
'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
self topView raiseDeiconified.
@@ -9032,7 +9035,7 @@
"Created: / 24-11-1995 / 20:33:45 / cg"
"Modified: / 26-09-2012 / 15:03:39 / cg"
"Modified: / 15-05-2018 / 20:38:41 / stefan"
- "Modified: / 25-09-2018 / 10:18:26 / Claus Gittinger"
+ "Modified: / 10-02-2019 / 12:47:11 / Claus Gittinger"
! !
!DebugView methodsFor:'queries'!
@@ -9447,7 +9450,7 @@
Also sent to autoselect an interesting context on entry."
HaltInterrupt handle:[:ex |
- ignoreBreakpoints ifFalse:[ex reject].
+ self ignoreBreakpoints ifFalse:[ex reject].
('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
ex proceed
] do:[
@@ -9455,7 +9458,8 @@
].
self updateMenuItems
- "Modified: / 17.11.2001 / 22:12:16 / cg"
+ "Modified: / 17-11-2001 / 22:12:16 / cg"
+ "Modified: / 10-02-2019 / 12:48:20 / Claus Gittinger"
!
hideStackInspector