Implement adapter methods required by FileAbstractSelectionDialog etc.

j4yk · j4yk · commit e66afa3542ad · 2020-12-03T00:38:46.000+01:00
diff --git a/src/FS-FileDirectory-Adapters.package/.squot-contents b/src/FS-FileDirectory-Adapters.package/.squot-contents
@@ -1,4 +1,5 @@
 SquotTrackedObjectMetadata {
 	#objectClassName : #PackageInfo,
+	#objectsReplacedByNames : true,
 	#serializer : #SquotCypressCodeSerializer
 }
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/class/directoryOrEntry..st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/class/directoryOrEntry..st
@@ -2,4 +2,4 @@ instance creation
 directoryOrEntry: aFSReference
 	^ aFSReference isDirectory
 		ifTrue: [self on: aFSReference]
-		ifFalse: [FSFileDirectoryEntryAdapter on: aFSReference]
+		ifFalse: [FSFileDirectoryEntryAdapter onEntry: aFSReference]
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/^equals.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/^equals.st
@@ -0,0 +1,4 @@
+comparing
+= anObject
+	(anObject isMemberOf: FSFileDirectoryAdapter) ifFalse: [^ false].
+	^ reference = anObject asFSReference
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/containingDirectory.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/containingDirectory.st
@@ -0,0 +1,3 @@
+enumeration
+containingDirectory
+	^ FSFileDirectoryAdapter on: reference parent
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/fileEntries.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/fileEntries.st
@@ -0,0 +1,5 @@
+enumeration
+fileEntries
+	^ reference entries
+		select: [:each | each isFile]
+		thenCollect: [:each | FSFileDirectoryEntryAdapter onEntry: each]
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/hasSubDirectories.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/hasSubDirectories.st
@@ -0,0 +1,3 @@
+testing
+hasSubDirectories
+	^ reference entries anySatisfy: [:each | each isDirectory]
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/hash.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/hash.st
@@ -0,0 +1,3 @@
+comparing
+hash
+	^ reference hash hashMultiply bitXor: self class hash
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/localName.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/localName.st
@@ -0,0 +1,3 @@
+enumeration
+localName
+	^ reference basename
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/printOn..st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/printOn..st
@@ -0,0 +1,4 @@
+printing
+printOn: aStream
+	super printOn: aStream.
+	aStream nextPutAll: ' on: '; print: reference.
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json
@@ -1,16 +1,23 @@
 {
 	"class" : {
-		"directoryOrEntry:" : "jr 4/23/2017 23:07",
+		"directoryOrEntry:" : "jr 10/4/2020 18:42",
 		"on:" : "jr 4/23/2017 23:04" },
 	"instance" : {
 		"/" : "jr 4/23/2017 23:06",
+		"=" : "jr 9/6/2020 12:53",
 		"asFSReference" : "jr 4/6/2018 21:44",
+		"containingDirectory" : "jr 9/6/2020 13:02",
 		"createDirectory:" : "jr 6/29/2017 16:06",
 		"directoryNamed:" : "jr 4/23/2017 23:10",
 		"directoryNames" : "jr 4/23/2017 23:09",
 		"entries" : "jr 4/23/2017 23:23",
+		"fileEntries" : "jr 9/6/2020 12:35",
+		"hasSubDirectories" : "jr 9/6/2020 12:42",
+		"hash" : "jr 9/6/2020 12:56",
 		"isRemoteDirectory" : "jr 4/23/2017 23:14",
+		"localName" : "jr 9/6/2020 12:31",
 		"pathName" : "jr 4/23/2017 23:28",
 		"pathParts" : "jr 4/23/2017 23:22",
+		"printOn:" : "jr 9/6/2020 12:49",
 		"reference:" : "jr 4/23/2017 23:03",
 		"sleep" : "jr 4/23/2017 23:29" } }

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,5 @@`
`1`	`1`	`SquotTrackedObjectMetadata {`
`2`	`2`	`#objectClassName : #PackageInfo,`
	`3`	`+ #objectsReplacedByNames : true,`
`3`	`4`	`#serializer : #SquotCypressCodeSerializer`
`4`	`5`	`}`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+enumeration`
	`2`	`+containingDirectory`
	`3`	`+ ^ FSFileDirectoryAdapter on: reference parent`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+testing`
	`2`	`+hasSubDirectories`
	`3`	`+ ^ reference entries anySatisfy: [:each \| each isDirectory]`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+comparing`
	`2`	`+hash`
	`3`	`+ ^ reference hash hashMultiply bitXor: self class hash`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+enumeration`
	`2`	`+localName`
	`3`	`+ ^ reference basename`