Make FSPlatformResolver non-abstract so we can support any platform

Resolves #4 (comment).

Author: LinqLover

src/FS-Core.package/FSPlatformResolver.class/class/forCurrentPlatform.st

@@ -1,5 +1,6 @@
 instance creation
 forCurrentPlatform
+	 
 	| platformName |
 	platformName :=  Smalltalk os platformName.
-	^ (self allSubclasses detect: [:ea | ea platformName = platformName]) new
+	^ (self allSubclasses detect: [:ea | ea platformName = platformName] ifNone: [self]) new

src/FS-Core.package/FSPlatformResolver.class/instance/desktop.st

@@ -1,3 +1,4 @@
 origins
 home
-	^ self subclassResponsibility
+	 
+	^ self resolveString: self class primitiveGetUntrustedUserDirectory

src/FS-Core.package/FSPlatformResolver.class/instance/documents.st

@@ -1,3 +1,4 @@
 resolving
 supportedOrigins
-	^ #(home desktop documents)
+	 
+	^ self class allMethodsInCategory: 'origins'

src/FS-Core.package/FSPlatformResolver.class/instance/home.st

@@ -1,10 +1,8 @@
 {
 	"class" : {
-		"forCurrentPlatform" : "tg 11/8/2010 19:05",
+		"forCurrentPlatform" : "ct 9/3/2021 16:25",
 		"platformName" : "cwp 10/27/2009 10:58",
 		"primitiveGetUntrustedUserDirectory" : "CamilloBruni 8/12/2011 17:36" },
 	"instance" : {
-		"desktop" : "lr 7/13/2010 15:35",
-		"documents" : "lr 7/13/2010 15:35",
-		"home" : "cwp 10/27/2009 21:01",
-		"supportedOrigins" : "cwp 10/27/2009 21:45" } }
+		"home" : "ct 9/3/2021 16:22",
+		"supportedOrigins" : "ct 9/3/2021 16:24" } }