Fixing breakpoint icon styling using proper node breakpoint properties

tesonep · Jul 31, 2020 · b058dfe · b058dfe
1 parent 3760ded
commit b058dfe
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/src/Reflectivity-Tools/BreakpointIconStyler.class.st b/src/Reflectivity-Tools/BreakpointIconStyler.class.st
@@ -14,9 +14,9 @@ BreakpointIconStyler >> highlightColor [
 
 { #category : #defaults }
 BreakpointIconStyler >> iconBlock: aNode [
-	^[ :seg | 
-		Breakpoint removeFrom: aNode.
-		seg delete]
+	 ^ [ :seg | 
+	   aNode breakpoints do: [ :breakpoint | breakpoint remove ].
+	   seg delete ]
 ]
 
 { #category : #defaults }

diff --git a/src/Reflectivity-Tools/MetaLinkIconStyler.class.st b/src/Reflectivity-Tools/MetaLinkIconStyler.class.st
@@ -29,10 +29,10 @@ MetaLinkIconStyler >> iconLabel: aNode [
 
 { #category : #testing }
 MetaLinkIconStyler >> shouldStyleNode: aNode [
-	^ aNode hasLinks and: [ 
-		  aNode links anySatisfy: [ :link | 
-			  (link metaObject == Break or: [ 
-				   { 
-					   Watch.
-					   ExecutionCounter } includes: link metaObject class ]) not ] ]
+	 aNode hasBreakpoint ifTrue: [ ^ false ].	
+	 ^ aNode hasLinks and: [ 
+		   aNode links anySatisfy: [ :link | 
+			   ({ 
+				    Watch.
+				    ExecutionCounter } includes: link metaObject class) not ] ]
 ]