Change the value rendering in probe morphs to work with line breaks, lays the foundation for richer probe value representations

Author: codeZeilen

packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/newContainerMorph.st

@@ -0,0 +1,11 @@
+private - ui
+newContainerMorph
+	
+	^ Morph new
+		color: Color transparent;
+		vResizing: #shrinkWrap;
+		hResizing: #shrinkWrap;
+		changeTableLayout;
+		listDirection: #leftToRight;
+		borderWidth: 0;
+		yourself

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

@@ -31,6 +31,7 @@
 		"isSlider" : "pre 1/24/2020 16:15",
 		"methodReference" : "pre 11/18/2019 12:28",
 		"methodReference:" : "pre 11/18/2019 12:28",
+		"newContainerMorph" : "pre 10/12/2020 17:19",
 		"newRemoveButton" : "pre 8/21/2020 10:32",
 		"removeButtonClicked" : "pre 11/18/2019 12:29",
 		"scrollBarSize" : "pre 7/23/2019 11:18",

packages/Babylonian-UI.package/BPAssignmentProbeMorph.class/instance/valueMorphFor..st

@@ -0,0 +1,11 @@
+private
+valueMorphFor: traceValue
+	
+	| initialValueMorph previousValueMorph |
+	initialValueMorph := super valueMorphFor: traceValue.
+	initialValueMorph addMorphFront: '|' asText asMorph.
+	
+	previousValueMorph := (traceValue previousValueOf: traceValue assignedVariableNames first) printString asText asMorph.
+	initialValueMorph addMorphFront: previousValueMorph.
+	
+	^ initialValueMorph

packages/Babylonian-UI.package/BPAssignmentProbeMorph.class/instance/valueTextFor..st

@@ -2,4 +2,4 @@
 	"class" : {
 		 },
 	"instance" : {
-		"valueTextFor:" : "pre 7/10/2020 15:55" } }
+		"valueMorphFor:" : "pre 10/12/2020 17:27" } }

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

@@ -20,10 +20,9 @@ updateFrom: traces
 
 			scrollPane scroller removeAllMorphs.				
 
-			valuesMorph := (self valuesTextFor: t) asMorph
+			valuesMorph := (self valuesMorphFor: t)
 				lock;
 				hResizing: #shrinkWrap;
-				color: PluggableTextMorph basicNew userInterfaceTheme textColor;
 				yourself.
 
 			scrollPane scroller addMorph: valuesMorph.

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

@@ -0,0 +1,15 @@
+private
+valueMorphFor: traceValue
+	
+	| value valueContainer morph |
+	value := traceValue tracedValue.
+	valueContainer := self newContainerMorph.
+	morph := (value isCollection or: [value isNumber])
+		ifTrue: [valueContainer addMorphBack: value printString asText asMorph]
+		ifFalse: [
+			valueContainer 
+				addMorphBack: (self iconForValue: value);
+				addMorphBack:	 (' ' , value printString) asText asMorph].
+			
+	morph on: #click send: #value to: [value explore].
+	^ morph 

packages/Babylonian-UI.package/BPProbeMorph.class/instance/valueMorphFor..st

@@ -0,0 +1,17 @@
+private
+valuesMorphFor: trace
+	
+	| values valuesContainer |
+	values := trace valuesForProbeId: self id.
+	values first traceHasFailedBefore ifTrue: [
+		^ 'Error during execution: ' , trace recordedException printString].
+	
+	values := self filterValues: values throughSliderForTrace: trace.
+	values ifEmpty: [^ self noValuesText].
+	
+	valuesContainer := self newContainerMorph.
+	values 
+		do: [:v | valuesContainer addMorphBack: (self valueMorphFor: v)]
+		separatedBy: [valuesContainer addMorphBack: ', ' asMorph].
+	
+	^ valuesContainer