Merge branch 'develop' into merge-cmf-cmf-callgraph-develop

Author: codeZeilen

.squot

@@ -3,5 +3,6 @@ OrderedDictionary {
 	'packages/Babylonian-Core.package' : #SquotCypressCodeSerializer,
 	'packages/Babylonian-Compiler.package' : #SquotCypressCodeSerializer,
 	'packages/Babylonian-Tests.package' : #SquotCypressCodeSerializer,
-	'packages/Babylonian-UI.package' : #SquotCypressCodeSerializer
+	'packages/Babylonian-UI.package' : #SquotCypressCodeSerializer,
+	'packages/Babylonian-Demo.package' : #SquotCypressCodeSerializer
 }

packages/Babylonian-Core.package/BPMethodExample.class/class/pragmaSelectors.st

@@ -0,0 +1,17 @@
+utility
+pragmaSelectors
+	
+	"This method exists solely to fill the Symbol Table so users are not
+	bothered with UnknownSelectors notifications during programming.
+	Generated by:
+	#('' 'active:') gather: [:activeString |
+		#('' 'setUp:') gather: [:setupString |
+			#('' 'tearDown:') gather: [:tearDownString |
+				#('' 'self:') gather: [:receiverString |
+					((1 to: 10) collect: [:i | ((1 to: i) collect: [:x | 'with:']) joinSeparatedBy: '']) collect: [:argumentsString |
+						((self bpExamplePragmaPrefix , ':'), 
+							activeString, 
+							setupString, tearDownString, 
+							receiverString, argumentsString) asSymbol]]]]]"
+		
+	^ #(#exampleNamed:with: #exampleNamed:with:with: #exampleNamed:with:with:with: #exampleNamed:with:with:with:with: #exampleNamed:with:with:with:with:with: #exampleNamed:with:with:with:with:with:with: #exampleNamed:with:with:with:with:with:with:with: #exampleNamed:with:with:with:with:with:with:with:with: #exampleNamed:with:with:with:with:with:with:with:with:with: #exampleNamed:with:with:with:with:with:with:with:with:with:with: #exampleNamed:self:with: #exampleNamed:self:with:with: #exampleNamed:self:with:with:with: #exampleNamed:self:with:with:with:with: #exampleNamed:self:with:with:with:with:with: #exampleNamed:self:with:with:with:with:with:with: #exampleNamed:self:with:with:with:with:with:with:with: #exampleNamed:self:with:with:with:with:with:with:with:with: #exampleNamed:self:with:with:with:with:with:with:with:with:with: #exampleNamed:self:with:with:with:with:with:with:with:with:with:with: #exampleNamed:tearDown:with: #exampleNamed:tearDown:with:with: #exampleNamed:tearDown:with:with:with: #exampleNamed:tearDown:with:with:with:with: #exampleNamed:tearDown:with:with:with:with:with: #exampleNamed:tearDown:with:with:with:with:with:with: #exampleNamed:tearDown:with:with:with:with:with:with:with: #exampleNamed:tearDown:with:with:with:with:with:with:with:with: #exampleNamed:tearDown:with:with:with:with:with:with:with:with:with: #exampleNamed:tearDown:with:with:with:with:with:with:with:with:with:with: #exampleNamed:tearDown:self:with: #exampleNamed:tearDown:self:with:with: #exampleNamed:tearDown:self:with:with:with: #exampleNamed:tearDown:self:with:with:with:with: #exampleNamed:tearDown:self:with:with:with:with:with: #exampleNamed:tearDown:self:with:with:with:with:with:with: #exampleNamed:tearDown:self:with:with:with:with:with:with:with: #exampleNamed:tearDown:self:with:with:with:with:with:with:with:with: #exampleNamed:tearDown:self:with:with:with:with:with:with:with:with:with: #exampleNamed:tearDown:self:with:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:with: #exampleNamed:setUp:with:with: #exampleNamed:setUp:with:with:with: #exampleNamed:setUp:with:with:with:with: #exampleNamed:setUp:with:with:with:with:with: #exampleNamed:setUp:with:with:with:with:with:with: #exampleNamed:setUp:with:with:with:with:with:with:with: #exampleNamed:setUp:with:with:with:with:with:with:with:with: #exampleNamed:setUp:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:with:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:self:with: #exampleNamed:setUp:self:with:with: #exampleNamed:setUp:self:with:with:with: #exampleNamed:setUp:self:with:with:with:with: #exampleNamed:setUp:self:with:with:with:with:with: #exampleNamed:setUp:self:with:with:with:with:with:with: #exampleNamed:setUp:self:with:with:with:with:with:with:with: #exampleNamed:setUp:self:with:with:with:with:with:with:with:with: #exampleNamed:setUp:self:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:self:with:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:with: #exampleNamed:setUp:tearDown:with:with: #exampleNamed:setUp:tearDown:with:with:with: #exampleNamed:setUp:tearDown:with:with:with:with: #exampleNamed:setUp:tearDown:with:with:with:with:with: #exampleNamed:setUp:tearDown:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:with:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:with:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:self:with: #exampleNamed:setUp:tearDown:self:with:with: #exampleNamed:setUp:tearDown:self:with:with:with: #exampleNamed:setUp:tearDown:self:with:with:with:with: #exampleNamed:setUp:tearDown:self:with:with:with:with:with: #exampleNamed:setUp:tearDown:self:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:self:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:self:with:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:self:with:with:with:with:with:with:with:with:with: #exampleNamed:setUp:tearDown:self:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:with: #exampleNamed:active:with:with: #exampleNamed:active:with:with:with: #exampleNamed:active:with:with:with:with: #exampleNamed:active:with:with:with:with:with: #exampleNamed:active:with:with:with:with:with:with: #exampleNamed:active:with:with:with:with:with:with:with: #exampleNamed:active:with:with:with:with:with:with:with:with: #exampleNamed:active:with:with:with:with:with:with:with:with:with: #exampleNamed:active:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:self:with: #exampleNamed:active:self:with:with: #exampleNamed:active:self:with:with:with: #exampleNamed:active:self:with:with:with:with: #exampleNamed:active:self:with:with:with:with:with: #exampleNamed:active:self:with:with:with:with:with:with: #exampleNamed:active:self:with:with:with:with:with:with:with: #exampleNamed:active:self:with:with:with:with:with:with:with:with: #exampleNamed:active:self:with:with:with:with:with:with:with:with:with: #exampleNamed:active:self:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:with: #exampleNamed:active:tearDown:with:with: #exampleNamed:active:tearDown:with:with:with: #exampleNamed:active:tearDown:with:with:with:with: #exampleNamed:active:tearDown:with:with:with:with:with: #exampleNamed:active:tearDown:with:with:with:with:with:with: #exampleNamed:active:tearDown:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:with:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:with:with:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:self:with: #exampleNamed:active:tearDown:self:with:with: #exampleNamed:active:tearDown:self:with:with:with: #exampleNamed:active:tearDown:self:with:with:with:with: #exampleNamed:active:tearDown:self:with:with:with:with:with: #exampleNamed:active:tearDown:self:with:with:with:with:with:with: #exampleNamed:active:tearDown:self:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:self:with:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:self:with:with:with:with:with:with:with:with:with: #exampleNamed:active:tearDown:self:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:with: #exampleNamed:active:setUp:with:with: #exampleNamed:active:setUp:with:with:with: #exampleNamed:active:setUp:with:with:with:with: #exampleNamed:active:setUp:with:with:with:with:with: #exampleNamed:active:setUp:with:with:with:with:with:with: #exampleNamed:active:setUp:with:with:with:with:with:with:with: #exampleNamed:active:setUp:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:self:with: #exampleNamed:active:setUp:self:with:with: #exampleNamed:active:setUp:self:with:with:with: #exampleNamed:active:setUp:self:with:with:with:with: #exampleNamed:active:setUp:self:with:with:with:with:with: #exampleNamed:active:setUp:self:with:with:with:with:with:with: #exampleNamed:active:setUp:self:with:with:with:with:with:with:with: #exampleNamed:active:setUp:self:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:self:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:self:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:with: #exampleNamed:active:setUp:tearDown:with:with: #exampleNamed:active:setUp:tearDown:with:with:with: #exampleNamed:active:setUp:tearDown:with:with:with:with: #exampleNamed:active:setUp:tearDown:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:with:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:self:with: #exampleNamed:active:setUp:tearDown:self:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with:with:with:with:with:with:with: #exampleNamed:active:setUp:tearDown:self:with:with:with:with:with:with:with:with:with:with:)

packages/Babylonian-Core.package/BPMethodExample.class/instance/liveSpecimen.st

@@ -1,6 +1,7 @@
 accessing
 liveSpecimen
 
-	^ (self argumentScripts , {self receiverConstructor}) 
-		select: [:aScript | self isLiveSpecimenReference: aScript]
+	^ ((self argumentScripts , {self receiverConstructor}) 
+		select: [:aScript | self isLiveSpecimenReference: aScript])
+		select: [:specimen | specimen notNil]
 		thenCollect: [:aSpecimen | self resolveLiveSpecimen: aSpecimen]

packages/Babylonian-Core.package/BPMethodExample.class/methodProperties.json

@@ -1,6 +1,7 @@
 {
 	"class" : {
-		"bpExamplePragmaPrefix" : "pre 1/21/2021 15:45" },
+		"bpExamplePragmaPrefix" : "pre 1/21/2021 15:45",
+		"pragmaSelectors" : "pre 2/1/2021 10:47" },
 	"instance" : {
 		"=" : "pre 1/12/2021 15:22",
 		"argumentNames" : "pre 8/25/2020 09:41",
@@ -13,7 +14,7 @@
 		"initializeFromMethod:" : "jb 12/3/2020 23:18",
 		"initializeFromPragma:" : "pre 1/21/2021 16:06",
 		"isLiveSpecimenReference:" : "pre 7/10/2020 18:22",
-		"liveSpecimen" : "jb 12/3/2020 23:19",
+		"liveSpecimen" : "pre 1/22/2021 18:52",
 		"morphClass" : "pre 9/30/2020 10:40",
 		"newArguments" : "pre 8/21/2020 16:51",
 		"newReceiver" : "pre 11/11/2020 10:28",

packages/Babylonian-Core.package/BPScriptExample.class/class/pragmaSelectors.st

@@ -0,0 +1,16 @@
+utility
+pragmaSelectors
+	
+	"This method exists solely to fill the Symbol Table so users are not
+	bothered with UnknownSelectors notifications during programming.
+	Generated by:
+	#('' 'active:') gather: [:activeString |
+		#('' 'setUp:') gather: [:setupString |
+			#('' 'tearDown:') gather: [:tearDownString |
+				#('' 'script:') collect: [:scriptString |
+						((self bpExamplePragmaPrefix , ':'), 
+							activeString, 
+							setupString, tearDownString, 
+							scriptString) asSymbol]]]]"
+			
+	^  #(#scriptExampleNamed: #scriptExampleNamed:script: #scriptExampleNamed:tearDown: #scriptExampleNamed:tearDown:script: #scriptExampleNamed:setUp: #scriptExampleNamed:setUp:script: #scriptExampleNamed:setUp:tearDown: #scriptExampleNamed:setUp:tearDown:script: #scriptExampleNamed:active: #scriptExampleNamed:active:script: #scriptExampleNamed:active:tearDown: #scriptExampleNamed:active:tearDown:script: #scriptExampleNamed:active:setUp: #scriptExampleNamed:active:setUp:script: #scriptExampleNamed:active:setUp:tearDown: #scriptExampleNamed:active:setUp:tearDown:script:)

packages/Babylonian-Core.package/BPScriptExample.class/methodProperties.json

@@ -1,6 +1,7 @@
 {
 	"class" : {
-		"bpExamplePragmaPrefix" : "pre 1/21/2021 15:45" },
+		"bpExamplePragmaPrefix" : "pre 1/21/2021 15:45",
+		"pragmaSelectors" : "pre 2/1/2021 10:48" },
 	"instance" : {
 		"asPragma" : "pre 9/30/2020 10:57",
 		"initializeFromPragma:" : "pre 9/30/2020 10:59",

packages/Babylonian-Core.package/Form.extension/instance/bpSnapshot.st

@@ -0,0 +1,4 @@
+*Babylonian-Core
+bpSnapshot
+
+	^ self copy

packages/Babylonian-Core.package/Form.extension/methodProperties.json

@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"bpSnapshot" : "pre 2/9/2021 10:04" } }

packages/Babylonian-Core.package/Form.extension/properties.json

@@ -0,0 +1,2 @@
+{
+	"name" : "Form" }

packages/Babylonian-Demo.package/.filetree

@@ -0,0 +1,4 @@
+{
+	"noMethodMetaData" : true,
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }

packages/Babylonian-Demo.package/.squot-contents

@@ -0,0 +1,5 @@
+SquotTrackedObjectMetadata {
+	#objectClassName : #PackageInfo,
+	#objectsReplacedByNames : true,
+	#serializer : #SquotCypressCodeSerializer
+}

packages/Babylonian-Demo.package/BPMountain.class/README.md

@@ -0,0 +1,4 @@
+accessing
+color: anObject
+
+	color := anObject.

packages/Babylonian-Demo.package/BPMountain.class/instance/color..st

@@ -0,0 +1,4 @@
+accessing
+color
+
+	^ color

packages/Babylonian-Demo.package/BPMountain.class/instance/color.st

@@ -0,0 +1,31 @@
+drawing
+drawOn: aCanvas
+	<exampleNamed: 'normal example' setUp: '(ActiveWorld submorphNamed: #demo)
+	form fillWhite.' tearDown: '(ActiveWorld submorphNamed: #demo) changed' self: 'BPMountain new
+	extent: 400@400;
+	yourself' with: '(ActiveWorld submorphNamed: ''demo'') form getCanvas'>
+	<exampleNamed: 'small example' active: true self: 'BPMountain new
+	extent: 20@20;
+	yourself' with: '(Form extent: 20@20 depth: 32) getCanvas'>
+	| pencilPosition delta vertices | 
+	vertices := OrderedCollection new.
+	pencilPosition := 0@(self height * (1 - self ratio)) rounded. 
+	delta := 0@0.
+	[pencilPosition x < self width] whileTrueDo: [
+		vertices add: (pencilPosition min: (self width@self height)).
+		delta := (2 to: 8) atRandom @ (-5 to: 5) atRandom.
+		pencilPosition := pencilPosition + delta].
+	
+	vertices
+		add: self width@pencilPosition y;
+		add: self width@self height;
+		add: 0@self height.
+	
+	aCanvas 
+		drawPolygon: "<bpProbe id: 3009345>"vertices"</bpProbe>"
+		color: self color
+		borderWidth: 0
+		borderColor: Color red.
+		
+	
+	"<bpProbe id: 7165636 expression: [:result | result form]>"aCanvas"</bpProbe>"

packages/Babylonian-Demo.package/BPMountain.class/instance/drawOn..st

@@ -0,0 +1,8 @@
+initialize-release
+initialize
+	
+	super initialize.
+	
+	self 
+		color: Color darkGray;
+		ratio: (1/3)

packages/Babylonian-Demo.package/BPMountain.class/instance/initialize.st

@@ -0,0 +1,4 @@
+accessing
+ratio: anObject
+
+	ratio := anObject.

packages/Babylonian-Demo.package/BPMountain.class/instance/ratio..st

@@ -0,0 +1,4 @@
+accessing
+ratio
+
+	^ ratio

packages/Babylonian-Demo.package/BPMountain.class/instance/ratio.st

@@ -0,0 +1,10 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"color" : "pre 2/5/2021 09:08",
+		"color:" : "pre 2/5/2021 09:08",
+		"drawOn:" : "pre 2/8/2021 17:34",
+		"initialize" : "pre 2/5/2021 09:57",
+		"ratio" : "pre 2/5/2021 09:57",
+		"ratio:" : "pre 2/5/2021 09:57" } }

packages/Babylonian-Demo.package/BPMountain.class/methodProperties.json

@@ -0,0 +1,15 @@
+{
+	"category" : "Babylonian-Demo-TreeScene",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"color",
+		"ratio" ],
+	"name" : "BPMountain",
+	"pools" : [
+		 ],
+	"super" : "BPSceneObject",
+	"type" : "normal" }

packages/Babylonian-Demo.package/BPMountain.class/properties.json

@@ -0,0 +1,21 @@
+drawing
+drawMountainOn: aCanvas
+	<exampleNamed: 'normal example' active: true setUp: '(ActiveWorld submorphNamed: #demo)
+	form fillWhite.' tearDown: '(ActiveWorld submorphNamed: #demo) changed' self: 'BPMountainMorph new
+	extent: 400@400;
+	yourself' with: '(ActiveWorld submorphNamed: ''demo'') form getCanvas'>
+	<exampleNamed: 'small example' active: true self: 'BPMountainMorph new
+	extent: 20@20;
+	yourself' with: '(Form extent: 20@20 depth: 32) getCanvas'>
+	| pencilPosition delta |
+	pencilPosition := 0@(self height * (1/3)). 
+	[pencilPosition x < self width] whileTrueDo: [
+		delta := (2 to: 8) atRandom @ (-5 to: 3) atRandom.
+		aCanvas 
+			line: pencilPosition x + delta x @ self height 
+			to: pencilPosition + delta 
+			width: delta x + 3
+			color: self color.
+		pencilPosition := pencilPosition + delta].
+	
+	"<bpProbe id: 715165 expression: [:result | result form]>"aCanvas"</bpProbe>"

packages/Babylonian-Demo.package/BPMountainMorph.class/README.md

@@ -0,0 +1,5 @@
+private
+resetForm
+
+	super resetForm.
+	self drawMountainOn: cachedForm getCanvas.

packages/Babylonian-Demo.package/BPMountainMorph.class/instance/drawMountainOn..st

@@ -0,0 +1,6 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"drawMountainOn:" : "pre 2/5/2021 08:54",
+		"resetForm" : "pre 2/4/2021 19:35" } }

packages/Babylonian-Demo.package/BPMountainMorph.class/instance/resetForm.st

@@ -0,0 +1,14 @@
+{
+	"category" : "Babylonian-Demo-Morphs",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "BPMountainMorph",
+	"pools" : [
+		 ],
+	"super" : "BPSceneMorph",
+	"type" : "normal" }

packages/Babylonian-Demo.package/BPMountainMorph.class/methodProperties.json

@@ -0,0 +1,4 @@
+as yet unclassified
+compilerClass
+
+	^ BPCompiler

packages/Babylonian-Demo.package/BPMountainMorph.class/properties.json

@@ -0,0 +1,4 @@
+drawing
+desiredExtentFrom: anExtent
+	
+	^ anExtent y asPoint

packages/Babylonian-Demo.package/BPSceneMorph.class/README.md

@@ -0,0 +1,4 @@
+drawing
+drawOn: aCanvas
+	
+	aCanvas translucentImage: cachedForm at: self innerBounds origin.

packages/Babylonian-Demo.package/BPSceneMorph.class/class/compilerClass.st

@@ -0,0 +1,6 @@
+geometry
+extent: aPoint
+	
+	super extent: (self desiredExtentFrom: aPoint).
+	self resetForm.
+	

packages/Babylonian-Demo.package/BPSceneMorph.class/instance/desiredExtentFrom..st

@@ -0,0 +1,8 @@
+initialization
+initialize
+	
+	super initialize.
+	
+	self 
+		initializeParts;
+		initializeForm.

packages/Babylonian-Demo.package/BPSceneMorph.class/instance/drawOn..st

@@ -0,0 +1,4 @@
+private
+initializeForm
+	
+	self resetForm

packages/Babylonian-Demo.package/BPSceneMorph.class/instance/extent..st

@@ -0,0 +1,2 @@
+initialization
+initializeParts

packages/Babylonian-Demo.package/BPSceneMorph.class/instance/initialize.st

@@ -0,0 +1,4 @@
+private
+resetForm
+
+	cachedForm := Form extent: self extent depth: 32.

packages/Babylonian-Demo.package/BPSceneMorph.class/instance/initializeForm.st

@@ -0,0 +1,11 @@
+{
+	"class" : {
+		"compilerClass" : "pre 2/4/2021 19:36" },
+	"instance" : {
+		"desiredExtentFrom:" : "pre 2/5/2021 09:44",
+		"drawOn:" : "pre 2/4/2021 19:33",
+		"extent:" : "pre 2/5/2021 09:47",
+		"initialize" : "pre 2/5/2021 09:42",
+		"initializeForm" : "pre 2/5/2021 09:42",
+		"initializeParts" : "pre 2/5/2021 09:14",
+		"resetForm" : "pre 2/4/2021 19:34" } }

packages/Babylonian-Demo.package/BPSceneMorph.class/instance/initializeParts.st

@@ -0,0 +1,14 @@
+{
+	"category" : "Babylonian-Demo-Morphs",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"cachedForm" ],
+	"name" : "BPSceneMorph",
+	"pools" : [
+		 ],
+	"super" : "Morph",
+	"type" : "normal" }

packages/Babylonian-Demo.package/BPSceneMorph.class/instance/resetForm.st

@@ -0,0 +1,4 @@
+as yet unclassified
+compilerClass
+
+	^ BPCompiler

packages/Babylonian-Demo.package/BPSceneMorph.class/methodProperties.json

@@ -0,0 +1,4 @@
+accessing
+extent: anObject
+
+	extent := anObject.

packages/Babylonian-Demo.package/BPSceneMorph.class/properties.json

@@ -0,0 +1,4 @@
+accessing
+extent
+
+	^ extent

packages/Babylonian-Demo.package/BPSceneObject.class/README.md

@@ -0,0 +1,4 @@
+as yet unclassified
+height
+
+	^ self extent y

packages/Babylonian-Demo.package/BPSceneObject.class/class/compilerClass.st

@@ -0,0 +1,4 @@
+as yet unclassified
+width
+
+	^ self extent x

packages/Babylonian-Demo.package/BPSceneObject.class/instance/extent..st

@@ -0,0 +1,8 @@
+{
+	"class" : {
+		"compilerClass" : "pre 2/5/2021 09:13" },
+	"instance" : {
+		"extent" : "pre 2/5/2021 09:05",
+		"extent:" : "pre 2/5/2021 09:05",
+		"height" : "pre 2/5/2021 09:06",
+		"width" : "pre 2/5/2021 09:06" } }

packages/Babylonian-Demo.package/BPSceneObject.class/instance/extent.st

@@ -0,0 +1,14 @@
+{
+	"category" : "Babylonian-Demo-TreeScene",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"extent" ],
+	"name" : "BPSceneObject",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }

packages/Babylonian-Demo.package/BPSceneObject.class/instance/height.st

@@ -0,0 +1,4 @@
+accessing
+color: anObject
+
+	color := anObject.