diff --git a/src/NewTools-ObjectCentricBreakpoints/StBreakpointCommand.class.st b/src/NewTools-ObjectCentricBreakpoints/StBreakpointCommand.class.st index 33207b38c..a339b7d91 100644 --- a/src/NewTools-ObjectCentricBreakpoints/StBreakpointCommand.class.st +++ b/src/NewTools-ObjectCentricBreakpoints/StBreakpointCommand.class.st @@ -21,3 +21,9 @@ StBreakpointCommand >> appliesTo: aTool [ on: Error do: [ false ] ] + +{ #category : #testing } +StBreakpointCommand >> canBeExecuted [ + + ^ context selectedItem class == StInspectorSlotNode +]