#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Sun, 10 Feb 2019 13:48:36 +0100
changeset 18581 a4164d5736fb
parent 18580 50b05e10f8d7
child 18582 a339eaac383c
#REFACTORING by cg class: DebugView changed: #allowBreakPointsInDebugger #controlLoopCatchingErrors #doShowSelection: #ignoreBreakpoints
DebugView.st
--- 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