Scales Assertion icons correctly

hpi-swa-lab · Mar 8, 2024 · 8779ea6 · 8779ea6
1 parent 532f53d
commit 8779ea6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/instance/addValues.st b/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/instance/addValues.st
@@ -2,7 +2,9 @@ ui
 addValues
 
 	values collect: [:result |
-					(result tracedValue 
+					((result tracedValue 
 						ifTrue: [ToolIcons testGreen] 
-						ifFalse: [ToolIcons testOrange]) asMorph]
+						ifFalse: [ToolIcons testOrange]) 
+							scaledToSize: BPAnnotationMorph fontHeight)
+								asMorph]
 			thenDo: [:iconMorph |  self addMorphBack: iconMorph].
diff --git a/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/methodProperties.json
@@ -2,5 +2,5 @@
 	"class" : {
 		 },
 	"instance" : {
-		"addValues" : "joabe 7/1/2023 16:11",
+		"addValues" : "pre 3/8/2024 17:30",
 		"basicValuesFor:" : "joabe 7/1/2023 16:07" } }