File Resource View Tab - Dynamic Name

seandenigris · Oct 26, 2020 · 9c334fa · 9c334fa
1 parent 647b1e4
commit 9c334fa
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/src/ResourcesLive/AbstractFileReference.extension.st b/src/ResourcesLive/AbstractFileReference.extension.st
@@ -8,10 +8,13 @@ AbstractFileReference >> asRlResource [
 { #category : #'*ResourcesLive' }
 AbstractFileReference >> gtRlResourceFor: aView inContext: aContext [
 	<gtView>
+	| resource |
 	(RlResource doesSpecificallyHandle: self)
 		ifFalse: [ ^ aView empty ].
+
+	resource := self asRlResource.
 	^ aView composite
-		title: 'Resource';
+		title: resource displayName;
 		priority: 1;
-		views: (self asRlResource gtViewsInContext: aContext)
+		views: (resource gtViewsInContext: aContext)
 ]
diff --git a/src/ResourcesLive/RlResource.class.st b/src/ResourcesLive/RlResource.class.st
@@ -123,6 +123,11 @@ RlResource >> descriptionShowInFinder [
 		yourself
 ]
 
+{ #category : #accessing }
+RlResource >> displayName [
+	^ (self className allButFirst: 2) piecesCutWhereCamelCase joinUsing: Character space
+]
+
 { #category : #'as yet unclassified' }
 RlResource >> ensureFileCopiedInto: folder asBase: base [
 	| reference |