Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.1004.mcz

==================== Summary ====================

Name: Tools-eem.1004
Author: eem
Time: 19 October 2020, 5:17:08.08257 pm
UUID: 8680e986-a863-4369-bc29-967b005c4851
Ancestors: Tools-eem.1003

Integrate Javier Diaz-Reinoso;s kindly contributed improvement to Workspace file editing.

=============== Diff against Tools-eem.1003 ===============

Item was changed:
  ----- Method: FileList>>viewContentsInWorkspace (in category 'own services') -----
  viewContentsInWorkspace
  	"View the contents of my selected file in a new workspace"
  	
+ 	| aFileStream aName lineConversion w | 
+ 	aFileStream := (directory readOnlyFileNamed: self fullName) setConverterForCode.
+ 	aFileStream wantsLineEndConversion: true.
+ 	lineConversion := aFileStream detectLineEndConvention.
- 	| aString aFileStream aName |
- 	aString := (aFileStream := directory readOnlyFileNamed: self fullName) setConverterForCode contentsOfEntireFile.
  	aName := aFileStream localName.
+ 	w:= UIManager default
+ 			edit: ([aFileStream contentsOfEntireFile] ensure: [aFileStream close])
+ 			label: ((aName includesSubstring: 'Workspace')
+ 					ifTrue: [(aName endsWith: '.text') ifTrue: [aName allButLast: 5] ifFalse: [aName]]
+ 					ifFalse: ['Workspace from ', aName]).
+ 	w setProperty: #lineConversion toValue: lineConversion.
+ 	directory ~= FileDirectory default ifTrue: [w setProperty: #myDir toValue: directory]!
- 	aFileStream close.
- 	UIManager default edit: aString withSqueakLineEndings label: 'Workspace from ', aName!