Fix #1315: View Composer cannot save new view (#1316)

Core/Object Arts/Dolphin/Base/UI.ResourceIdentifier.cls

@@ -191,7 +191,7 @@ class: aClass name: aString
 		yourself!
 
 class: aClass selector: aSymbol
-	(aSymbol beginsWith: SelectorPrefix)
+	(aSymbol isNil or: [aSymbol beginsWith: SelectorPrefix])
 		ifFalse: [self error: 'Invalid resource selector ' , aSymbol printString].
 	^self newClass: aClass selector: aSymbol!
 

Core/Object Arts/Dolphin/MVP/Tests/UI.Tests.ResourceIdentifierTest.cls

@@ -51,6 +51,23 @@ testAssignResource
 				[self class class removeSelector: #resource_Test_view ifAbsent: nil.
 				self assert: (self class respondsTo: #resource_Test_view) not]!
 
+testCopy
+	| subject copy |
+	subject := ResourceIdentifier class: Shell name: Shell defaultView.
+	copy := subject copy.
+	self assert: copy equals: subject.
+	self deny: copy identicalTo: subject.
+	self assert: copy owningClass identicalTo: subject owningClass.
+	self assert: copy selector identicalTo: subject selector.
+	subject name: nil.
+	self assertIsNil: subject selector.
+	self assert: subject printString equals: 'Shell.untitled'.
+	copy := subject copy.
+	self assert: copy equals: subject.
+	self deny: copy identicalTo: subject.
+	self assert: copy owningClass identicalTo: subject owningClass.
+	self assert: copy selector identicalTo: subject selector!
+
 testDeserializeAll
 	"Test's that all view resources are deserializable. The most common cause of breakage would
 	be changing the layout of a class with serialized instances in resources without adding an
@@ -119,6 +136,7 @@ createResourceNamed:for:on:!helpers!private! !
 setUp!private!unit tests! !
 tempViewResource!private!unit tests! !
 testAssignResource!public!unit tests! !
+testCopy!public!unit tests! !
 testDeserializeAll!public!unit tests! !
 testReferenceToNonExistentView!public!unit tests! !
 testResourceSelector!public!unit tests! !