Improve visualization of Boolean and make access to probe method refe…

…rence more resilient.
hpi-swa-lab · Mar 8, 2024 · 532f53d · 532f53d
1 parent 7b5c92a
commit 532f53d
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 2 deletions.
diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/methodReference.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/methodReference.st
@@ -1,4 +1,4 @@
 accessing
 methodReference
 
-	^ self annotation methodReference
+	^ self annotation ifNotNil: [:annotation | annotation methodReference]
diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json
@@ -42,7 +42,7 @@
 		"isReplacement" : "pre 7/3/2019 11:11",
 		"isSlider" : "pre 1/24/2020 16:15",
 		"isTypeProbe" : "pre 11/30/2022 09:37",
-		"methodReference" : "pre 11/18/2019 12:28",
+		"methodReference" : "pre 3/8/2024 10:34",
 		"methodReference:" : "pre 11/18/2019 12:28",
 		"newContainerMorph" : "pre 10/12/2020 17:47",
 		"newExampleLabelMorphFor:" : "pre 6/8/2021 13:57",

diff --git a/packages/Babylonian-UI.package/Boolean.extension/instance/bpProbeValueMorphIn..st b/packages/Babylonian-UI.package/Boolean.extension/instance/bpProbeValueMorphIn..st
@@ -0,0 +1,8 @@
+*Babylonian-UI
+bpProbeValueMorphIn: traceValue
+
+	^ BPAnnotationMorph newContainerMorph 
+		addMorph: ((self printString asMorph)
+						color: BPAnnotationMorph textColor;
+						yourself); 
+		yourself
diff --git a/packages/Babylonian-UI.package/Boolean.extension/methodProperties.json b/packages/Babylonian-UI.package/Boolean.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"bpProbeValueMorphIn:" : "pre 3/8/2024 10:35" } }
diff --git a/packages/Babylonian-UI.package/Boolean.extension/properties.json b/packages/Babylonian-UI.package/Boolean.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "Boolean" }