diff --git a/bin/createStone.solo b/bin/createStone.solo index f2582c37..af6ac549 100755 --- 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 index 434b1f28..5eda6790 100755 --- 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 index 61d11861..cb952b92 100644 --- 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 \ No newline at end of file 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 index e6a6d901..25da8137 100644 --- 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' \ No newline at end of file + ^ 'STONES_DATA_HOME' \ No newline at end of file diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed..st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed..st index a32fbaae..e98e05f1 100644 --- 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.