Adds the graphical ReferencingExample infrastructure.

codeZeilen · codeZeilen · commit 6a089c9727d9 · 2023-01-11T15:11:38.000+01:00
diff --git a/packages/Babylonian-Compiler.package/BPExtractAnnotations.class/instance/Pragma.with.with.with..st b/packages/Babylonian-Compiler.package/BPExtractAnnotations.class/instance/Pragma.with.with.with..st
@@ -2,7 +2,7 @@ rules
 Pragma: aNode with: literal with: values with: anotherLiteral
 
 	| exampleName |
-	(BPExample bpExamplePragmaPrefixes anySatisfy: [:prefix | values children first interval contents beginsWith: prefix]) ifTrue: [
+	(BPAbstractExample bpExamplePragmaPrefixes anySatisfy: [:prefix | values children first interval contents beginsWith: prefix]) ifTrue: [
 		exampleName := self value: values children first children first.
 		annotations add: (BPExampleAnnotation new
 			exampleName: exampleName;
diff --git a/packages/Babylonian-Compiler.package/BPExtractAnnotations.class/methodProperties.json b/packages/Babylonian-Compiler.package/BPExtractAnnotations.class/methodProperties.json
@@ -16,7 +16,7 @@
 		"KeywordPragma:with:with:" : "pre 7/23/2019 12:10",
 		"MethodDeclaration:with:and:and:" : "pre 7/23/2022 20:12",
 		"MethodHeader:with:" : "pre 7/23/2022 16:19",
-		"Pragma:with:with:with:" : "pre 9/6/2022 11:12",
+		"Pragma:with:with:with:" : "pre 1/11/2023 14:38",
 		"Pragmas:pragmas:" : "jb 12/7/2020 18:01",
 		"defaultExpression:" : "jb 12/7/2020 18:01",
 		"initialize" : "pre 3/24/2020 09:39",
diff --git a/packages/Babylonian-Core.package/BPExample.class/class/bpExamplePragmaPrefixes.st b/packages/Babylonian-Core.package/BPExample.class/class/bpExamplePragmaPrefixes.st
diff --git a/packages/Babylonian-Core.package/BPExample.class/class/fromPragma..st b/packages/Babylonian-Core.package/BPExample.class/class/fromPragma..st
diff --git a/packages/Babylonian-Core.package/BPExample.class/class/newFor..st b/packages/Babylonian-Core.package/BPExample.class/class/newFor..st
diff --git a/packages/Babylonian-Core.package/BPExample.class/methodProperties.json b/packages/Babylonian-Core.package/BPExample.class/methodProperties.json
@@ -1,10 +1,7 @@
 {
 	"class" : {
 		"bpExamplePragmaPrefix" : "pre 9/6/2022 09:06",
-		"bpExamplePragmaPrefixes" : "pre 9/5/2022 14:29",
-		"exampleColors" : "pre 3/2/2021 17:58",
-		"fromPragma:" : "pre 9/6/2022 08:52",
-		"newFor:" : "pre 9/30/2020 11:08" },
+		"exampleColors" : "pre 3/2/2021 17:58" },
 	"instance" : {
 		"exampleName" : "pre 9/30/2020 09:50",
 		"exampleName:" : "jb 12/7/2020 18:10",
diff --git a/packages/Babylonian-Core.package/BPProbe.class/instance/label.st b/packages/Babylonian-Core.package/BPProbe.class/instance/label.st
@@ -2,4 +2,4 @@ accessing
 label
 	
 	"stores a name or message of a probe which the BPPrintbugger uses to print along a probe's values"
-	^ label
+	^ label ifNil: [super label]
diff --git a/packages/Babylonian-Core.package/BPProbe.class/methodProperties.json b/packages/Babylonian-Core.package/BPProbe.class/methodProperties.json
@@ -15,7 +15,7 @@
 		"instrumentationCallFor:" : "pre 1/10/2023 17:33",
 		"isProbe" : "pre 7/3/2019 11:12",
 		"isTemporaryProbe" : "pre 9/2/2022 14:40",
-		"label" : "lu 6/1/2021 21:29",
+		"label" : "pre 12/5/2022 10:20",
 		"label:" : "lu 5/20/2021 15:07",
 		"makeReferenceReadsDynamic:" : "pre 1/10/2023 17:41",
 		"probeId" : "pre 9/21/2020 17:13",
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/class/bpExamplePragmaPrefix.st b/packages/Babylonian-Core.package/BPReferencingExample.class/class/bpExamplePragmaPrefix.st
@@ -0,0 +1,4 @@
+as yet unclassified
+bpExamplePragmaPrefix
+
+	^ 'referencingExample'
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/asPragma.st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/asPragma.st
@@ -1,5 +1,6 @@
 serialization
 asPragma
 	
-	^ '<referencingExample: ''{1}''>' format: {
-		referencedExample exampleName.}
+	^ '<referencingExample: {1} referencing: {2}>' format: {
+		self uuid asString printString.
+		referencedExample uniqueIdentifier printString}
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/exampleName.st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/exampleName.st
@@ -1,4 +1,4 @@
 accessing
 exampleName
 
-	^ referencedExample exampleName
+	^ self uuid
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/expectedResult.st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/expectedResult.st
@@ -1,4 +1,4 @@
 accessing
 expectedResult
 
-	^ referencedExample expectedResult
+	^ referencedExample ifNil: [nil] ifNotNil: [:ex | ex expectedResult]
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/initializeFromPragma..st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/initializeFromPragma..st
@@ -0,0 +1,10 @@
+initialize-release
+initializeFromPragma: aPragma
+
+	uuid := aPragma arguments first asSymbol.
+	
+	BPExamples value examples
+		detect: [:example | example uniqueIdentifier = aPragma arguments second]
+		ifFound: [:example | self referencedExample: example]
+		ifNone: ["welp"]
+	
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/referencedExample..st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/referencedExample..st
@@ -2,4 +2,5 @@ accessing
 referencedExample: anExample
 
 	anExample == self ifTrue: [self error: 'Referencing example can not reference itself'].
-	referencedExample := anExample.
+	referencedExample := anExample.
+	self changed.
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/referencedExampleName.st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/referencedExampleName.st
@@ -0,0 +1,3 @@
+accessing
+referencedExampleName
+	^ referencedExample ifNil: ['no example referenced yet'] ifNotNil: [:ex | ex exampleName]
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/uniqueIdentifier.st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/uniqueIdentifier.st
@@ -0,0 +1,4 @@
+accessing
+uniqueIdentifier
+
+	^ self uuid
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/instance/uuid.st b/packages/Babylonian-Core.package/BPReferencingExample.class/instance/uuid.st
@@ -0,0 +1,4 @@
+accessing
+uuid
+
+	^ uuid ifNil: [uuid := (UUID new asString findTokens: '-') first asSymbol]
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/methodProperties.json b/packages/Babylonian-Core.package/BPReferencingExample.class/methodProperties.json
@@ -1,25 +1,29 @@
 {
 	"class" : {
-		 },
+		"bpExamplePragmaPrefix" : "pre 1/11/2023 14:39" },
 	"instance" : {
-		"asPragma" : "pre 1/11/2023 13:20",
+		"asPragma" : "pre 1/11/2023 14:54",
 		"canBeUsedForDoIts" : "pre 1/11/2023 13:27",
-		"exampleName" : "pre 1/11/2023 14:06",
+		"exampleName" : "pre 1/11/2023 14:51",
 		"exampleName:" : "pre 1/11/2023 10:58",
 		"execute" : "pre 1/11/2023 14:07",
-		"expectedResult" : "pre 1/11/2023 14:07",
+		"expectedResult" : "pre 1/11/2023 14:29",
 		"expectedResult:" : "pre 1/11/2023 13:20",
 		"initialize" : "pre 1/11/2023 10:36",
+		"initializeFromPragma:" : "pre 1/11/2023 15:02",
 		"isActive" : "pre 1/11/2023 13:22",
 		"method" : "pre 1/11/2023 13:22",
 		"method:" : "pre 1/11/2023 13:22",
 		"morphClass" : "pre 1/11/2023 13:28",
-		"referencedExample:" : "pre 1/11/2023 13:57",
+		"referencedExample:" : "pre 1/11/2023 14:29",
+		"referencedExampleName" : "pre 1/11/2023 14:52",
 		"setIsActive:" : "pre 1/11/2023 13:22",
 		"setUpScript" : "pre 1/11/2023 13:22",
 		"setUpScript:" : "pre 1/11/2023 13:22",
 		"tearDownScript" : "pre 1/11/2023 13:23",
 		"tearDownScript:" : "pre 1/11/2023 13:23",
 		"timeout" : "pre 1/11/2023 13:23",
 		"timeout:" : "pre 1/11/2023 13:23",
-		"traceInformation" : "pre 1/11/2023 10:58" } }
+		"traceInformation" : "pre 1/11/2023 10:58",
+		"uniqueIdentifier" : "pre 1/11/2023 14:44",
+		"uuid" : "pre 1/11/2023 14:42" } }
diff --git a/packages/Babylonian-Core.package/BPReferencingExample.class/properties.json b/packages/Babylonian-Core.package/BPReferencingExample.class/properties.json
@@ -9,7 +9,8 @@
 		"isActive",
 		"method",
 		"referencedExample",
-		"traceInformation" ],
+		"traceInformation",
+		"uuid" ],
 	"name" : "BPReferencingExample",
 	"pools" : [
 		 ],
diff --git a/packages/Babylonian-Core.package/CompiledMethod.extension/instance/bpExamples.st b/packages/Babylonian-Core.package/CompiledMethod.extension/instance/bpExamples.st
@@ -8,13 +8,13 @@ bpExamples
 	Removing examples only works via BPExamples>>#remove:. The collection of CompiledMethods
 	will be rebuild on every recompile based on the examples stored in BPExamples."
 	| pragmaPrefixes |
-	pragmaPrefixes := BPExample bpExamplePragmaPrefixes.
+	pragmaPrefixes := BPAbstractExample bpExamplePragmaPrefixes.
 	^ self properties at: #bpExamples ifAbsentPut: [ | newExamples existingExamples |
 		newExamples := self pragmas 
 				select: [:p | pragmaPrefixes anySatisfy: [:prefix | 
 								p keyword beginsWith: prefix]]
 				thenCollect: [:pragma |
-					(BPExample fromPragma: pragma)
+					(BPAbstractExample fromPragma: pragma)
 						method: self;
 						yourself].
 	  	
diff --git a/packages/Babylonian-Core.package/CompiledMethod.extension/methodProperties.json b/packages/Babylonian-Core.package/CompiledMethod.extension/methodProperties.json
@@ -4,7 +4,7 @@
 	"instance" : {
 		"bpActiveExamples" : "pre 8/20/2020 15:51",
 		"bpAnnotations" : "pre 6/24/2021 14:26",
-		"bpExamples" : "pre 5/10/2021 09:11",
+		"bpExamples" : "pre 1/11/2023 15:01",
 		"bpNewExampleFrom:" : "pre 5/10/2021 09:11",
 		"bpRemoveExample:" : "pre 5/19/2021 21:35",
 		"compiledMethod" : "pre 7/7/2020 15:39",
diff --git a/packages/Babylonian-Tests.package/BPExampleTest.class/instance/testReferencingExampleShowTheNamesOfTheReferencedOne.st b/packages/Babylonian-Tests.package/BPExampleTest.class/instance/testReferencingExampleShowTheNamesOfTheReferencedOne.st
@@ -4,5 +4,4 @@ testReferencingExampleShowTheNamesOfTheReferencedOne
 	| example referencingExample |
 	example := self createExamples first.
 	referencingExample := self createExamples third.
-	self assert: example exampleName equals: referencingExample exampleName.
-	self assert: 'BPMoreTestExamplesClass>>#binarySearchIn:theElement:>>#''test name''' equals: referencingExample uniqueIdentifier.
+	self assert: example exampleName equals: referencingExample referencedExampleName.
diff --git a/packages/Babylonian-Tests.package/BPExampleTest.class/methodProperties.json b/packages/Babylonian-Tests.package/BPExampleTest.class/methodProperties.json
@@ -32,7 +32,7 @@
 		"testReferencingExampleHasItsOwnActiveState" : "pre 1/11/2023 14:08",
 		"testReferencingExampleHasItsOwnTracingState" : "pre 1/11/2023 14:08",
 		"testReferencingExampleRunsTheOtherExample" : "pre 1/11/2023 13:59",
-		"testReferencingExampleShowTheNamesOfTheReferencedOne" : "pre 1/11/2023 14:06",
+		"testReferencingExampleShowTheNamesOfTheReferencedOne" : "pre 1/11/2023 15:10",
 		"testRemovingAnExampleNotifiesDependents" : "pre 5/20/2021 15:30",
 		"testScriptExamplesCanAccessArgumentsFromTheSetup" : "pre 7/22/2022 21:38",
 		"testScriptExamplesCanAccessArgumentsInTheTeardown" : "pre 7/22/2022 21:40",
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/README.md b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/README.md
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/class/openOnSelection..st b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/class/openOnSelection..st
@@ -0,0 +1,9 @@
+opening
+openOnSelection: aCallbackBlock
+
+	| browser |
+	browser := self new
+		selectionBlock: aCallbackBlock;
+		yourself.
+	ToolBuilder open: browser.
+	
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/buildSelectionButtonWith..st b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/buildSelectionButtonWith..st
@@ -0,0 +1,8 @@
+as yet unclassified
+buildSelectionButtonWith: aBuilder
+
+	^ aBuilder pluggableButtonSpec new
+		model: self;
+		label: 'reference selected example';
+		action: #selectionButtonClicked;
+		yourself
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/buildWith..st b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/buildWith..st
@@ -0,0 +1,13 @@
+as yet unclassified
+buildWith: builder
+	
+	| windowSpec max result |
+	max := 0.5.
+	windowSpec := self buildWindowWith: builder specs: {
+		(0@0 corner: 1@0.1) -> [self buildSelectionButtonWith: builder].
+		(0@0.1 corner: 0.5@max) -> [self buildPackagesListWith: builder].
+		(0.5@0.1 corner: 1@max) -> [self buildExamplesListWith: builder].
+		(0@max corner: 1@1) -> [self buildCodePaneWith: builder].
+	}.
+	result := builder build: windowSpec.
+	^result
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/selectionBlock..st b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/selectionBlock..st
@@ -0,0 +1,4 @@
+accessing
+selectionBlock: anObject
+
+	selectionBlock := anObject.
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/selectionBlock.st b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/selectionBlock.st
@@ -0,0 +1,4 @@
+accessing
+selectionBlock
+
+	^ selectionBlock
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/selectionButtonClicked.st b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/instance/selectionButtonClicked.st
@@ -0,0 +1,7 @@
+as yet unclassified
+selectionButtonClicked
+
+	self selectedExample ifNotNil: [
+		self selectionBlock ifNotNil: [self selectionBlock value: self selectedExample].
+		self changed: #close.].
+	
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/methodProperties.json b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/methodProperties.json
@@ -0,0 +1,9 @@
+{
+	"class" : {
+		"openOnSelection:" : "pre 1/11/2023 14:20" },
+	"instance" : {
+		"buildSelectionButtonWith:" : "pre 1/11/2023 14:23",
+		"buildWith:" : "pre 1/11/2023 14:22",
+		"selectionBlock" : "pre 1/11/2023 14:20",
+		"selectionBlock:" : "pre 1/11/2023 14:20",
+		"selectionButtonClicked" : "pre 1/11/2023 14:26" } }
diff --git a/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/properties.json b/packages/Babylonian-UI.package/BPExamplesBrowserForSelecting.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "Babylonian-UI-Tools",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"selectionBlock" ],
+	"name" : "BPExamplesBrowserForSelecting",
+	"pools" : [
+		 ],
+	"super" : "BPExamplesBrowser",
+	"type" : "normal" }
diff --git a/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/addReferencingExampleButtonClicked.st b/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/addReferencingExampleButtonClicked.st
@@ -0,0 +1,3 @@
+adding examples
+addReferencingExampleButtonClicked
+	self createAndAddNewExampleFrom: BPReferencingExample. 
diff --git a/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/createAndAddNewExampleFrom..st b/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/createAndAddNewExampleFrom..st
@@ -1,6 +1,5 @@
 adding examples
 createAndAddNewExampleFrom: aClass
-	
-	| compiledMethod newExample |
+	| compiledMethod newExample | 
 	compiledMethod := self containingBrowser compiledMethod.
 	newExample := compiledMethod bpNewExampleFrom: aClass.
diff --git a/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/initialize.st
@@ -19,7 +19,7 @@ initialize
 	self 
 		addButtonBar;
 		addCreateExampleButtonLabeled: 'add example' selector: #addExampleButtonClicked;
-		addCreateExampleButtonLabeled: '| add script example' selector: #addScriptExampleButtonClicked;
-		addCreateExampleButtonLabeled: '| add world example' selector: #addWorldExampleButtonClicked.
+		addCreateExampleButtonLabeled: '| add script example' selector: #addScriptExampleButtonClicked;	
+		addCreateExampleButtonLabeled: '| add referencing example' selector: #addReferencingExampleButtonClicked.
 		
 	BPExamples value addDependent: self.
diff --git a/packages/Babylonian-UI.package/BPExamplesMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPExamplesMorph.class/methodProperties.json
@@ -6,16 +6,17 @@
 		"addCollapsedExamplesMorph" : "pre 1/12/2021 10:11",
 		"addCreateExampleButtonLabeled:selector:" : "jb 12/7/2020 18:59",
 		"addExampleButtonClicked" : "jb 12/7/2020 18:59",
+		"addReferencingExampleButtonClicked" : "pre 1/11/2023 14:56",
 		"addScriptExampleButtonClicked" : "jb 12/7/2020 18:59",
 		"addWorldExampleButtonClicked" : "pre 9/6/2022 10:28",
 		"annotation:" : "pre 7/19/2022 15:42",
 		"anyExampleMorphsIsCollapsed" : "pre 1/12/2021 10:27",
 		"anyExampleMorphsIsExpanded" : "pre 1/12/2021 10:30",
-		"createAndAddNewExampleFrom:" : "pre 1/6/2021 19:42",
+		"createAndAddNewExampleFrom:" : "pre 1/11/2023 15:07",
 		"exampleMorphCollapsed:" : "pre 1/21/2021 17:29",
 		"exampleMorphExpanded:" : "pre 1/21/2021 17:31",
 		"exampleMorphs" : "pre 1/8/2021 16:25",
-		"initialize" : "pre 9/6/2022 09:00",
+		"initialize" : "pre 1/11/2023 14:27",
 		"isExamples" : "pre 11/25/2020 16:52",
 		"rememberThat:hasACollapsedStateOf:" : "pre 7/19/2022 15:23",
 		"step" : "pre 1/21/2021 18:20",
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/README.md b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/README.md
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/addExampleNameMorph.st b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/addExampleNameMorph.st
@@ -0,0 +1,7 @@
+private - ui
+addExampleNameMorph
+
+	nameTextMorph := self 
+		editFieldInitialContent: Text new
+		onChange: [:str | "nop"]
+		onAccept: [:str | "nop"].
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/addExampleSpecificMorphs.st b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/addExampleSpecificMorphs.st
@@ -0,0 +1,5 @@
+private - ui
+addExampleSpecificMorphs
+	
+	super addExampleSpecificMorphs.
+	self addSelectExampleButton.
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/addSelectExampleButton.st b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/addSelectExampleButton.st
@@ -0,0 +1,13 @@
+as yet unclassified
+addSelectExampleButton
+
+	selectExampleButton := SimpleButtonMorph newWithLabel: self referencedExampleName.
+	selectExampleButton 
+		color: Color transparent;
+		borderWidth: 0;
+		extent: selectExampleButton extent  * (1@0.8);
+		name: #selectExampleButton.
+	selectExampleButton 
+		actionSelector: #selectExampleButtonClicked;
+		target: self.
+	exampleSpecificMorphs addMorphBack: selectExampleButton.
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/referencedExampleName.st b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/referencedExampleName.st
@@ -0,0 +1,4 @@
+as yet unclassified
+referencedExampleName
+	
+	^ self example ifNil: [''] ifNotNil: [:rexample | rexample referencedExampleName]
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/selectExampleButtonClicked.st b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/instance/selectExampleButtonClicked.st
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/methodProperties.json
diff --git a/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/properties.json b/packages/Babylonian-UI.package/BPReferencingExampleMorph.class/properties.json
diff --git a/packages/Babylonian-UI.package/BPWorldExampleMorph.class/instance/addTraceControlButton.st b/packages/Babylonian-UI.package/BPWorldExampleMorph.class/instance/addTraceControlButton.st
diff --git a/packages/Babylonian-UI.package/BPWorldExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPWorldExampleMorph.class/methodProperties.json
