To open the external source of a template in an external web browser, copies the Template URL to the system clipboard for pasting into external web browser.
ADD
src/PharoLauncher-Core.package/PhLOpenSourceTemplateCommand.class/README.md
+Open the source of a template in an external web browser.
\ No newline at end of file

ADD
src/PharoLauncher-Core.package/PhLOpenSourceTemplateCommand.class/class/group.st
+as yet unclassified
+group
+ ^3
\ No newline at end of file

ADD
src/PharoLauncher-Core.package/PhLOpenSourceTemplateCommand.class/class/title.st
+as yet unclassified
+title
+ ^ 'Open template source location'
\ No newline at end of file

ADD
src/PharoLauncher-Core.package/PhLOpenSourceTemplateCommand.class/instance/execute.st
+as yet unclassified
+execute
+ | sourceURLstring baseCutIndex baseURLString |
+ sourceURLstring := context singleTemplate url asString.
+ baseCutIndex := sourceURLstring findString: '/lastSuccessfulBuild' .
+ baseURLString := sourceURLstring first: baseCutIndex - 1.
+
+ "Here each platform should invoke its web browser, but for now... "
+ Clipboard clipboardText: baseURLString.
+ self inform: baseURLString , String crlf , 'copied to clipboard'.

ADD
src/PharoLauncher-Core.package/PhLOpenSourceTemplateCommand.class/properties.json
+{
+ "commentStamp" : "<historical>",
+ "super" : "PhLTemplateCommand",
+ "category" : "PharoLauncher-Core-Commands",
+ "classinstvars" : [ ],
+ "pools" : [ ],
+ "classvars" : [ ],
+ "instvars" : [ ],
+ "name" : "PhLOpenSourceTemplateCommand",
+ "type" : "normal"
+}
\ No newline at end of file

MODIFY
src/PharoLauncher-Core.package/PhLTemplateGroupRepository.class/class/settingsOn..st
src/PharoLauncher-Core.package/PhLTemplateGroupRepository.class/class/settingsOn..st
@@ -2,16 +2,10 @@ settings
settingsOn: aBuilder
<systemsettings>
<pharoLauncherSettings>
- (aBuilder group: #templateGroupRepositories)
- label: 'Choose Template Repositories' ;
- description: 'Configure which Template Repositories to show' translated ;
- parent: #pharoLauncher;
- with:
- [ self allGroups do:
- [ :group |
+ self allGroups
+ do: [ :group |
(aBuilder setting: ('want' , group name capitalized) asLegalSelector)
label: 'Display ' , group name , ' projects';
+ parent: #pharoLauncher;
target: self;
- description: 'When enabled, projects from ' , group name , ' will be presented'
- ].
- ].
\ No newline at end of file
+ description: 'When enabled, projects from ' , group name , ' will be presented' ]
\ No newline at end of file

To open the external source of a template in an external web browser, copies the Template URL to the system clipboard for pasting into external web browser.