Support non-/ path separators when choosing paths from the Git Browser

j4yk · j4yk · commit 8c5e99086acc · 2019-02-24T19:21:06.000+01:00
ref #168
diff --git a/src/FS-FileDirectory-Adapters.package/.squot-contents b/src/FS-FileDirectory-Adapters.package/.squot-contents
@@ -1,4 +1,4 @@
-{
+SquotTrackedObjectMetadata {
 	#objectClassName : #PackageInfo,
 	#serializer : #SquotCypressCodeSerializer
 }
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/asFSReference.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/asFSReference.st
@@ -0,0 +1,3 @@
+as yet unclassified
+asFSReference
+	^ reference
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json
@@ -4,6 +4,7 @@
 		"on:" : "jr 4/23/2017 23:04" },
 	"instance" : {
 		"/" : "jr 4/23/2017 23:06",
+		"asFSReference" : "jr 4/6/2018 21:44",
 		"createDirectory:" : "jr 6/29/2017 16:06",
 		"directoryNamed:" : "jr 4/23/2017 23:10",
 		"directoryNames" : "jr 4/23/2017 23:09",
diff --git a/src/FS-FileDirectory-Adapters.package/FileDirectory.extension/instance/asFSReference.st b/src/FS-FileDirectory-Adapters.package/FileDirectory.extension/instance/asFSReference.st
@@ -0,0 +1,3 @@
+*FS-FileDirectory-Adapters-converting
+asFSReference
+	^ FileSystem disk referenceTo: self pathName
diff --git a/src/FS-FileDirectory-Adapters.package/FileDirectory.extension/methodProperties.json b/src/FS-FileDirectory-Adapters.package/FileDirectory.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"asFSReference" : "jr 4/6/2018 21:47" } }
diff --git a/src/FS-FileDirectory-Adapters.package/FileDirectory.extension/properties.json b/src/FS-FileDirectory-Adapters.package/FileDirectory.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "FileDirectory" }

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-{`
	`1`	`+SquotTrackedObjectMetadata {`
`2`	`2`	`#objectClassName : #PackageInfo,`
`3`	`3`	`#serializer : #SquotCypressCodeSerializer`
`4`	`4`	`}`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+as yet unclassified`
	`2`	`+asFSReference`
	`3`	`+ ^ reference`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+*FS-FileDirectory-Adapters-converting`
	`2`	`+asFSReference`
	`3`	`+ ^ FileSystem disk referenceTo: self pathName`