prep work for introducing RwProjectDefinition and RwLoadeProject (both not actually used to date). All tests were passing prior to 'self halt' being added to RwGsPackageAdditionSymbolDictPatch>>createLoadedPackage.

  58 run, 57 passes, 1 expected defects, 0 failures, 0 errors, 0 unexpected passes

Author: dalehenrich

tonel/Rowan-Core/RwLoadedProject.class.st

@@ -42,8 +42,7 @@ RwLoadedProject >> initializeForLoadSpecification: aLoadSpecification [
 
 	self initialize.
 	self initializeForName: aLoadSpecification specName.
-	handle := aLoadSpecification.
-	Rowan
+	handle := aLoadSpecification
 ]
 
 { #category : 'testing' }

tonel/Rowan-Core/RwProjectDefinition.class.st

@@ -0,0 +1,53 @@
+Class {
+	#name : 'RwProjectDefinition',
+	#superclass : 'RwDefinition',
+	#instVars : [
+		'packageSet'
+	],
+	#category : 'Rowan-Core'
+}
+
+{ #category : 'instance creation' }
+RwProjectDefinition class >> newNamed: packageName [
+
+	^ self
+		withProperties: (Dictionary with: 'name' -> packageName)
+		packageSet: RwPackageSetDefinition new
+]
+
+{ #category : 'instance creation' }
+RwProjectDefinition class >> withProperties: properties packageSet: packageSetDefinition [
+
+	^ self basicNew
+		properties: properties;
+		packageSet: packageSetDefinition;
+		yourself
+]
+
+{ #category : 'initialization' }
+RwProjectDefinition >> initialize [
+
+	super initialize.
+	packageSet := RwPackageSetDefinition new
+]
+
+{ #category : 'properties' }
+RwProjectDefinition >> key [
+	"Answer an object that can be used to uniquely identify myself in the context of my container."
+
+	^self propertyAt: 'name' ifAbsent: [nil]
+]
+
+{ #category : 'accessing' }
+RwProjectDefinition >> packageSet [
+
+   ^packageSet
+
+]
+
+{ #category : 'accessing' }
+RwProjectDefinition >> packageSet: anObject [
+
+   packageSet := anObject
+
+]

tonel/Rowan-GemStone/RwGsPackageAdditionSymbolDictPatch.class.st

@@ -14,6 +14,9 @@ Class {
 { #category : 'applying' }
 RwGsPackageAdditionSymbolDictPatch >> createLoadedPackage [
 
-	self packageSymbolDictionary
-		createLoadedPackageFromDefinition: self packageDefinition
+	| loadedPackage |
+	loadedPackage := self packageSymbolDictionary
+		createLoadedPackageFromDefinition: self packageDefinition.	"Right here we need to register the loaded package with the loaded project ... what that really means is that we need to have a createLoadedProject message sent to a RwGBwProjectAdditionSymbolDictPatch, etc. which means that we need to wrap a RwPackageSetDefinition with a RwProjectDefinition ... ACTUALLY ... the RwPackageSetDefinition should be renamed/replaced with RwProjectDefinition that has ref to the spec and set of packages involved in the operation ... compare will identify new packages, etc. ... "	"then we will be able to manage the loaded projects"
+
+	self halt
 ]

tonel/Rowan-GemStone/RwGsPackageSymbolDictionary.class.st

@@ -402,7 +402,7 @@ RwGsPackageSymbolDictionary >> classRegistry [
 { #category : 'package - patch api' }
 RwGsPackageSymbolDictionary >> createLoadedPackageFromDefinition: packageDefinition [
 
-	self
+	^ self
 		createLoadedPackageNamed: packageDefinition key
 		properties: packageDefinition properties
 ]
@@ -416,7 +416,8 @@ RwGsPackageSymbolDictionary >> createLoadedPackageNamed: packageName properties:
 		ifNotNil: [ self error: 'Internal error -- Attempt to add a package that exists.' ].
 	newLoadedPackage := RwGsLoadedSymbolDictPackage newNamed: packageName.
 	newLoadedPackage setPropertiesTo: properties.
-	packageRegistry at: packageName put: newLoadedPackage
+	packageRegistry at: packageName put: newLoadedPackage.
+	^ newLoadedPackage
 ]
 
 { #category : 'class - patch api' }