Ensures that assertion morphs respect the sliders

Author: codeZeilen

packages/Babylonian-UI.package/BPAssertionMorph.class/instance/updateFrom..st

@@ -5,16 +5,17 @@ updateFrom: traces
 	tracesMorph removeAllMorphs.
 
 	"Now to the results"
-	self relevantTracesOf: traces do: [:t | | lineMorph valuesMorph |
-		lineMorph := self ensureLineMorphFor: t.
+	self relevantTracesOf: traces do: [:trace | | lineMorph valuesMorph |
+		lineMorph := self ensureLineMorphFor: trace.
 		scrollPane := (lineMorph submorphNamed: #scrollWrapper) submorphNamed: #scrollPane.
 		scrollPane scroller removeAllMorphs.
 
 		valuesMorph := self newExampleLineMorph.
-		(t resultsForAssertionId: self annotation id) 
+		(trace resultsForAssertionId: self annotation id) 
 			ifEmpty: [lineMorph addMorphBack: ToolIcons testGray asMorph]
-			ifNotEmpty: [:results |
-				results do: [:result | | iconMorph |
+			ifNotEmpty: [:results | |values|
+				values := self filterValues: results throughSliderForTrace: trace.
+				values do: [:result | | iconMorph |
 					iconMorph := (result tracedValue ifTrue: [ToolIcons testGreen] ifFalse: [ToolIcons testOrange]) asMorph.
 					valuesMorph addMorphBack: iconMorph]].
 

packages/Babylonian-UI.package/BPAssertionMorph.class/methodProperties.json

@@ -9,4 +9,4 @@
 		"isProbe" : "pre 11/18/2019 12:31",
 		"relevantTracesOf:do:" : "pre 11/18/2019 12:54",
 		"updateAssertionFieldsMorph" : "pre 10/8/2020 11:45",
-		"updateFrom:" : "pre 10/8/2020 11:41" } }
+		"updateFrom:" : "pre 10/8/2020 11:51" } }