Issue #4: clean up use of GDKGsDevKit_stonesBase class>>dataHomeEnvVa…

…r ... had embedded '$' which was wrong
GsDevKit · Jun 1, 2023 · a9a9474 · a9a9474
1 parent 1f26802
commit a9a9474
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/bin/createStone.solo b/bin/createStone.solo
@@ -96,7 +96,7 @@ doit
 		gemstoneVersionString: gemstoneVersion.
 	stoneSpec
 		parentRegistryName: self registry;
-		parentRegistryPath: (self globalNamed: 'GDKGsDevKit_stonesBase') dataHomeEnvVar, '/' , (stonesRegistry registryFile relativeTo: stonesRegistry class base_data_home) pathString;
+		parentRegistryPath: '$', (self globalNamed: 'GDKGsDevKit_stonesBase') dataHomeEnvVar, '/' , (stonesRegistry registryFile relativeTo: stonesRegistry class base_data_home) pathString;
 		yourself.
 	(stoneSpec registryFile exists or: [stoneSpec rootDir exists])
 		ifTrue: [ 

diff --git a/bin/updateProjectSet.solo b/bin/updateProjectSet.solo
@@ -104,7 +104,7 @@ createProjectSet: name in: registry
 	| projectSet |
 	projectSet := ((self globalNamed: 'GDKProjectSet') newNamed: name)
 		parentRegistryName: registry name;
-		parentRegistryPath: (self globalNamed: 'GDKGsDevKit_stonesBase') dataHomeEnvVar, '/' , (registry registryFile relativeTo: registry class base_data_home) pathString;
+		parentRegistryPath: '$', (self globalNamed: 'GDKGsDevKit_stonesBase') dataHomeEnvVar, '/' , (registry registryFile relativeTo: registry class base_data_home) pathString;
 		yourself.
 	projectSet registryFile exists
 		ifTrue: [ self error: 'project set ', projectSet registryfile pathString printString, ' already exists'].

diff --git a/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/registryPath.st b/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/registryPath.st
@@ -1,4 +1,4 @@
 accessing
 registryPath
-	^ GDKGsDevKit_stonesBase dataHomeEnvVar, '/'
+	^ '$' , GDKGsDevKit_stonesBase dataHomeEnvVar , '/'
 		, (self registryFile relativeTo: self class base_data_home) pathString
diff --git a/src/GsDevKit_stones-Core.package/GDKGsDevKit_stonesBase.class/class/dataHomeEnvVar.st b/src/GsDevKit_stones-Core.package/GDKGsDevKit_stonesBase.class/class/dataHomeEnvVar.st
@@ -1,3 +1,3 @@
 accessing
 dataHomeEnvVar
-	^ '$STONES_DATA_HOME'
+	^ 'STONES_DATA_HOME'
diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed..st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed..st
@@ -5,7 +5,7 @@ newRegistryNamed: registryName
 	stoneRegistry := (GDKStonesRegistry newNamed: registryName)
 		parentRegistryName: registryName;
 		parentRegistryPath:
-				GDKGsDevKit_stonesBase dataHomeEnvVar , '/'
+				'$' , GDKGsDevKit_stonesBase dataHomeEnvVar , '/'
 						, (self configFile relativeTo: GDKGsDevKit_stonesBase base_data_home) pathString;
 		yourself.
 	registryFile := stoneRegistry registryFile.