Add missing selectors to FSFileDirectoryAdapter that are also understood by FileDirectory.

LinqLover · LinqLover · commit 74acb4ae27d8 · 2022-07-17T15:31:27.000+02:00
The protocol is very far from being exhaustive. However, it seems to suffice to get the SquitDirectoryInWorkingCopyChooser from Squot working again, which was broken in Squeak Trunk since ToolBuilder-Morphic-ct.320 (improvements to file selection dialogs).
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/exists.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/exists.st
@@ -0,0 +1,3 @@
+testing
+exists
+	^ reference exists
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/fullName.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/fullName.st
@@ -0,0 +1,3 @@
+enumeration
+fullName
+	^ self pathName
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json
@@ -12,7 +12,9 @@
 		"directoryNamed:" : "jr 4/23/2017 23:10",
 		"directoryNames" : "jr 4/23/2017 23:09",
 		"entries" : "jr 4/23/2017 23:23",
+		"exists" : "ct 7/17/2022 15:07",
 		"fileEntries" : "jr 9/6/2020 12:35",
+		"fullName" : "ct 7/17/2022 15:06",
 		"hasSubDirectories" : "jr 9/6/2020 12:42",
 		"hash" : "jr 9/6/2020 12:56",
 		"isRemoteDirectory" : "jr 4/23/2017 23:14",

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+testing`
	`2`	`+exists`
	`3`	`+ ^ reference exists`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+enumeration`
	`2`	`+fullName`
	`3`	`+ ^ self pathName`