--- a/Tools__CodeView2.st	Wed May 29 15:23:55 2019 +0200
+++ b/Tools__CodeView2.st	Wed May 29 15:25:00 2019 +0200
@@ -185,6 +185,13 @@
                   itemValue: inspectSyntaxElements
                   translateLabel: true
                 )
+               (MenuItem
+                  label: 'Inspect Breakpoints'
+                  itemValue: inspectBreakpoints
+                  isVisible: hasBreakpointService
+                  enabled: hasBreakpoints
+                  translateLabel: true
+                )
 "/               (MenuItem
 "/                  label: 'Inspect Selected Selector'
 "/                  itemValue: inspectSelectedSelector
@@ -196,6 +203,7 @@
             )
 
     "Created: / 08-07-2011 / 13:36:02 / cg"
+    "Modified: / 29-05-2019 / 14:55:03 / Claus Gittinger"
 !
 
 editMenu
@@ -2354,6 +2362,27 @@
     "Created: / 18-02-2019 / 19:45:52 / Claus Gittinger"
 !
 
+hasBreakpointService
+    ^ self breakpointService notNil
+
+    "Created: / 29-05-2019 / 14:54:42 / Claus Gittinger"
+!
+
+hasBreakpoints
+    |bpService|
+    
+    ^ (bpService := self breakpointService) notNil 
+    and:[ bpService hasBreakpoints]
+
+    "Created: / 29-05-2019 / 14:53:29 / Claus Gittinger"
+!
+
+inspectBreakpoints
+    self breakpointService breakpoints inspect.
+
+    "Created: / 29-05-2019 / 14:53:20 / Claus Gittinger"
+!
+
 lintService
     "prefers the smallsense-lint service over others"