diff --git a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/class/root.projectsHome.gemstone..st b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/class/root.projectsHome.gemstone..st deleted file mode 100644 index d04c6254..00000000 --- a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/class/root.projectsHome.gemstone..st +++ /dev/null @@ -1,9 +0,0 @@ -instance creation -root: aFileReferenceOrPath projectsHome: aProjectsHome gemstone: gemstonePath - "if aFileReferenceOrPath exists, it will be deleted and recreated ... empty" - - ^ self new - root: aFileReferenceOrPath asFileReference - projectsHome: aProjectsHome - gemstone: gemstonePath; - yourself diff --git a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForExport.st b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForExport.st index 68b36c76..8f64edc3 100644 --- a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForExport.st +++ b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForExport.st @@ -1,3 +1,2 @@ -export -initializeForExport - root ifNotNil: [ root := root pathString ] +other +initializeForExport \ No newline at end of file diff --git a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForImport.st b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForImport.st index bb83bc77..14b9a5fe 100644 --- a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForImport.st +++ b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/initializeForImport.st @@ -1,3 +1,2 @@ export -initializeForImport - root ifNotNil: [ root := root asFileReference ] +initializeForImport \ No newline at end of file diff --git a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/root.projectsHome.gemstone..st b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/root.projectsHome.gemstone..st deleted file mode 100644 index 7cbdb4b9..00000000 --- a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/root.projectsHome.gemstone..st +++ /dev/null @@ -1,13 +0,0 @@ -accessing -root: aFileReference projectsHome: aProjectsHome gemstone: gemstonePath - root := aFileReference asFileReference. - root ensureDeleteAll. - aFileReference ensureCreateDirectory. - self projectsHome: aProjectsHome. - self gemstone: gemstonePath. - self class instVarNames - do: [ :iv | - (#(#'root' #'projectHome' #'gemstone') includes: iv) - ifFalse: [ self perform: (iv , 'Dir') asSymbol ] ]. - aFileReference / 'directorySpec.ston' - writeStreamDo: [ :stream | self exportToStream: stream ] diff --git a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/root.st b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/root.st deleted file mode 100644 index 82b4461d..00000000 --- a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/root.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -root - ^ root diff --git a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/properties.json b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/properties.json index 97b567d4..58f61631 100644 --- a/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/properties.json +++ b/src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/properties.json @@ -6,7 +6,6 @@ ], "commentStamp" : "", "instvars" : [ - "root", "dbfSource", "backups", "bin", diff --git a/src/GsDevKit_stones-Core.package/GDKhomeStoneDirectorySpec.class/class/_defaultProjectsHome.st b/src/GsDevKit_stones-Core.package/GDKhomeStoneDirectorySpec.class/class/_defaultProjectsHome.st deleted file mode 100644 index b9dda969..00000000 --- a/src/GsDevKit_stones-Core.package/GDKhomeStoneDirectorySpec.class/class/_defaultProjectsHome.st +++ /dev/null @@ -1,3 +0,0 @@ -private -_defaultProjectsHome - ^ '$GS_HOME/shared/repos' diff --git a/src/GsDevKit_stones-Core.package/GDKhomeStoneDirectorySpec.class/class/root.gemstone..st b/src/GsDevKit_stones-Core.package/GDKhomeStoneDirectorySpec.class/class/root.gemstone..st deleted file mode 100644 index 45763d72..00000000 --- a/src/GsDevKit_stones-Core.package/GDKhomeStoneDirectorySpec.class/class/root.gemstone..st +++ /dev/null @@ -1,8 +0,0 @@ -instance creation -root: aFileReferenceOrPath gemstone: gemstonePath - "if aFileReferenceOrPath exists, it will be deleted and recreated ... empty" - - ^ self - root: aFileReferenceOrPath asFileReference - projectsHome: self _defaultProjectsHome - gemstone: gemstonePath