Implemented Binding

source/BaselineOfBuoy.package/BaselineOfBuoy.class/instance/baseline..st

@@ -6,8 +6,10 @@ baseline: spec
 		for: #common
 		do: [ spec
 				package: 'Buoy';
-				package: 'Buoy-Tests' with: [ spec requires: 'Buoy' ].
+				package: 'Buoy-Tests' with: [ spec requires: 'Buoy' ];
+				package: 'Buoy-Dynamic-Binding';
+				package: 'Buoy-Dynamic-Binding-Tests' with: [ spec requires: 'Buoy-Dynamic-Binding' ].
 			spec
-				group: 'Deployment' with: #('Buoy');
-				group: 'Development' with: #('Deployment' 'Buoy-Tests');
+				group: 'Deployment' with: #('Buoy' 'Buoy-Dynamic-Binding');
+				group: 'Development' with: #('Deployment' 'Buoy-Tests' 'Buoy-Dynamic-Binding-Tests');
 				group: 'default' with: #('Deployment') ]

source/BaselineOfBuoy.package/BaselineOfBuoy.class/methodProperties.json

@@ -1,6 +1,6 @@
 {
 	"instance" : {
-		"baseline:" : "GabrielOmarCotelli 1/26/2017 19:41"
+		"baseline:" : "GabrielOmarCotelli 3/15/2017 16:47"
 	},
 	"class" : { }
 }

source/BaselineOfBuoy.package/monticello.meta/version

@@ -1 +1 @@
-(name 'BaselineOfBuoy-GabrielOmarCotelli.3' message 'Renamed a method' id 'd5ded4e0-e1da-4012-9820-ba8d7660503d' date '26 January 2017' time '7:52:00.732487 pm' author 'GabrielOmarCotelli' ancestors ((name 'BaselineOfBuoy-GabrielOmarCotelli.2' message 'Fixed baseline' id 'f98545ba-2938-4f1d-a9cf-bcc50f795618' date '26 January 2017' time '7:41:40.33839 pm' author 'GabrielOmarCotelli' ancestors ((name 'BaselineOfBuoy-GabrielOmarCotelli.1' message 'Renamed packages' id '7025211b-51c4-4db3-adcd-d8fe28315704' date '26 January 2017' time '7:29:54.026429 pm' author 'GabrielOmarCotelli' ancestors () stepChildren ())) stepChildren ())) stepChildren ())
+(name 'BaselineOfBuoy-GabrielOmarCotelli.4' message 'Updated Baseline to include new packages' id '41e46af6-2b07-0d00-9c09-cc4d0dc74540' date '15 March 2017' time '4:48:16.427317 pm' author 'GabrielOmarCotelli' ancestors ((name 'BaselineOfBuoy-GabrielOmarCotelli.3' message 'Renamed a method' id 'd5ded4e0-e1da-4012-9820-ba8d7660503d' date '26 January 2017' time '7:52:00.732487 pm' author 'GabrielOmarCotelli' ancestors ((name 'BaselineOfBuoy-GabrielOmarCotelli.2' message 'Fixed baseline' id 'f98545ba-2938-4f1d-a9cf-bcc50f795618' date '26 January 2017' time '7:41:40.33839 pm' author 'GabrielOmarCotelli' ancestors ((name 'BaselineOfBuoy-GabrielOmarCotelli.1' message 'Renamed packages' id '7025211b-51c4-4db3-adcd-d8fe28315704' date '26 January 2017' time '7:29:54.026429 pm' author 'GabrielOmarCotelli' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())

source/Buoy-Dynamic-Binding-Tests.package/.filetree

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

source/Buoy-Dynamic-Binding-Tests.package/BindingTest.class/instance/testBoundObjectWhenBound.st

@@ -0,0 +1,8 @@
+tests
+testBoundObjectWhenBound
+
+	| boundObject |
+
+	boundObject := Binding to: 1.
+
+	self assert: boundObject content equals: 1

source/Buoy-Dynamic-Binding-Tests.package/BindingTest.class/instance/testUnbound.st

@@ -0,0 +1,12 @@
+tests
+testUnbound
+
+	| unbound explanation |
+
+	explanation := 'Parameter not yet configured'.
+	unbound := Binding unboundBecause: explanation.
+
+	self
+		should: [ unbound content ]
+		raise: AssertionFailed
+		withExceptionDo: [ :error | self assert: error messageText equals: explanation ]

source/Buoy-Dynamic-Binding-Tests.package/BindingTest.class/methodProperties.json

@@ -0,0 +1,7 @@
+{
+	"instance" : {
+		"testBoundObjectWhenBound" : "GabrielOmarCotelli 3/15/2017 15:35",
+		"testUnbound" : "GabrielOmarCotelli 3/15/2017 15:35"
+	},
+	"class" : { }
+}

source/Buoy-Dynamic-Binding-Tests.package/BindingTest.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "TestCase",
+	"category" : "Buoy-Dynamic-Binding-Tests",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "BindingTest",
+	"type" : "normal"
+}

source/Buoy-Dynamic-Binding-Tests.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #'Buoy-Dynamic-Binding-Tests'!

source/Buoy-Dynamic-Binding-Tests.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'Buoy-Dynamic-Binding-Tests')

source/Buoy-Dynamic-Binding-Tests.package/monticello.meta/version

@@ -0,0 +1 @@
+(name 'Buoy-Dynamic-Binding-Tests-GabrielOmarCotelli.1' message 'Add Binding' id 'c3216def-2b07-0d00-9c08-b1180dc74540' date '15 March 2017' time '4:46:19.133575 pm' author 'GabrielOmarCotelli' ancestors () stepChildren ())

source/Buoy-Dynamic-Binding-Tests.package/properties.json

@@ -0,0 +1 @@
+{ }

source/Buoy-Dynamic-Binding.package/.filetree

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

source/Buoy-Dynamic-Binding.package/Binding.class/README.md

@@ -0,0 +1 @@
+I'm an abstract class representing a binding. 

source/Buoy-Dynamic-Binding.package/Binding.class/class/to..st

@@ -0,0 +1,4 @@
+Instance Creation
+to: anObject
+
+	^BoundObject for: anObject 

source/Buoy-Dynamic-Binding.package/Binding.class/class/unboundBecause..st

@@ -0,0 +1,4 @@
+Instance Creation
+unboundBecause: anExplanation
+
+	^ self unboundBecause: anExplanation raising: AssertionFailed

source/Buoy-Dynamic-Binding.package/Binding.class/class/unboundBecause.raising..st

@@ -0,0 +1,4 @@
+Instance Creation
+unboundBecause: anExplanation raising: anErrorClass
+
+	^ self unboundBecauseAll: {anExplanation} raising: anErrorClass

source/Buoy-Dynamic-Binding.package/Binding.class/class/unboundBecauseAll.raising..st

@@ -0,0 +1,4 @@
+Instance Creation
+unboundBecauseAll: anExplanationCollection raising: anErrorClass
+
+	^ UnboundObject becauseAll: anExplanationCollection raising: anErrorClass

source/Buoy-Dynamic-Binding.package/Binding.class/instance/content.st

@@ -0,0 +1,4 @@
+accessing
+content
+
+	^self subclassResponsibility 

source/Buoy-Dynamic-Binding.package/Binding.class/methodProperties.json

@@ -0,0 +1,11 @@
+{
+	"instance" : {
+		"content" : "GabrielOmarCotelli 3/15/2017 15:34"
+	},
+	"class" : {
+		"unboundBecause:" : "GabrielOmarCotelli 3/15/2017 15:30",
+		"unboundBecauseAll:raising:" : "GabrielOmarCotelli 3/15/2017 15:30",
+		"to:" : "GabrielOmarCotelli 3/15/2017 15:16",
+		"unboundBecause:raising:" : "GabrielOmarCotelli 3/15/2017 15:30"
+	}
+}

source/Buoy-Dynamic-Binding.package/Binding.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "GabrielOmarCotelli 3/15/2017 15:31",
+	"super" : "Object",
+	"category" : "Buoy-Dynamic-Binding",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "Binding",
+	"type" : "normal"
+}

source/Buoy-Dynamic-Binding.package/BoundObject.class/README.md

@@ -0,0 +1 @@
+I represent  a binding to some object, so I can return a content. 

source/Buoy-Dynamic-Binding.package/BoundObject.class/class/for..st

@@ -0,0 +1,4 @@
+Instance Creation
+for: anObject
+
+	^ self new initializeFor: anObject

source/Buoy-Dynamic-Binding.package/BoundObject.class/instance/content.st

@@ -0,0 +1,4 @@
+Accessing
+content
+
+	^ contents

source/Buoy-Dynamic-Binding.package/BoundObject.class/instance/initializeFor..st

@@ -0,0 +1,4 @@
+initialize
+initializeFor: anObject
+
+	contents := anObject 

source/Buoy-Dynamic-Binding.package/BoundObject.class/methodProperties.json

@@ -0,0 +1,9 @@
+{
+	"instance" : {
+		"content" : "GabrielOmarCotelli 3/15/2017 15:34",
+		"initializeFor:" : "GabrielOmarCotelli 3/15/2017 15:17"
+	},
+	"class" : {
+		"for:" : "GabrielOmarCotelli 3/15/2017 15:30"
+	}
+}

source/Buoy-Dynamic-Binding.package/BoundObject.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "GabrielOmarCotelli 3/15/2017 15:32",
+	"super" : "Binding",
+	"category" : "Buoy-Dynamic-Binding",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"contents"
+	],
+	"name" : "BoundObject",
+	"type" : "normal"
+}

source/Buoy-Dynamic-Binding.package/UnboundObject.class/README.md

@@ -0,0 +1 @@
+I represent  an unbound object and will raise an error when asked about my contents

source/Buoy-Dynamic-Binding.package/UnboundObject.class/class/becauseAll.raising..st

@@ -0,0 +1,4 @@
+Instance Creation
+becauseAll: anExplanationCollection raising: anErrorClass
+
+	^ self new initializeBecauseAll: anExplanationCollection raising: anErrorClass

source/Buoy-Dynamic-Binding.package/UnboundObject.class/instance/content.st

@@ -0,0 +1,4 @@
+Accessing
+content
+
+		^errorClass signalAll: explanations 

source/Buoy-Dynamic-Binding.package/UnboundObject.class/instance/initializeBecauseAll.raising..st

@@ -0,0 +1,5 @@
+initialize
+initializeBecauseAll: anExplanationCollection raising: anErrorClass
+
+	explanations := anExplanationCollection.
+	errorClass := anErrorClass

source/Buoy-Dynamic-Binding.package/UnboundObject.class/methodProperties.json

@@ -0,0 +1,9 @@
+{
+	"instance" : {
+		"content" : "GabrielOmarCotelli 3/15/2017 15:34",
+		"initializeBecauseAll:raising:" : "GabrielOmarCotelli 3/15/2017 16:39"
+	},
+	"class" : {
+		"becauseAll:raising:" : "GabrielOmarCotelli 3/15/2017 15:31"
+	}
+}

source/Buoy-Dynamic-Binding.package/UnboundObject.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "GabrielOmarCotelli 3/15/2017 15:32",
+	"super" : "Binding",
+	"category" : "Buoy-Dynamic-Binding",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"errorClass",
+		"explanations"
+	],
+	"name" : "UnboundObject",
+	"type" : "normal"
+}

source/Buoy-Dynamic-Binding.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #'Buoy-Dynamic-Binding'!

source/Buoy-Dynamic-Binding.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'Buoy-Dynamic-Binding')

source/Buoy-Dynamic-Binding.package/monticello.meta/version

@@ -0,0 +1 @@
+(name 'Buoy-Dynamic-Binding-GabrielOmarCotelli.1' message 'Add Binding' id '1d891bee-2b07-0d00-9c07-90ae0dc74540' date '15 March 2017' time '4:45:57.00884 pm' author 'GabrielOmarCotelli' ancestors () stepChildren ())

source/Buoy-Dynamic-Binding.package/properties.json

@@ -0,0 +1 @@
+{ }