Not with this change.

> On 19 Oct 2020, at 20:29, gettimothy via Squeak-dev <squeak-dev at lists.squeakfoundation.org> wrote:
> 
> Thabk you.
> 
> 
> I am not sure if this other OCD nightmare has been addressed in this discusion, bot the tail end of the title suffers from a similar issue.
> 
> Workspace titled OCD.txt, save workspace contents to file->  OCD.txt.txt
> File in contents to Workspace...
> Workspace titled OCD.txt.txt  save workspace contents to file->  OCD.txt.txt.txt
> .....
> 
> Cheers
> 
> 
> ---- On Mon, 19 Oct 2020 20:19:19 -0400 eliot.miranda at gmail.com wrote ----
> 
> Thanks Javier, I integrated it today.  Finally :-)
> 
> On Sun, Oct 18, 2020 at 8:59 AM Javier Diaz-Reinoso via Squeak-dev <squeak-dev at lists.squeakfoundation.org <mailto:squeak-dev at lists.squeakfoundation.org>> wrote:
> I send the list a change set years ago and was ignored, the current version I use also preserve the lineConversion and remember the name for save:
> 
> 
> On 18 Oct 2020, at 07:41, Eliot Miranda <eliot.miranda at gmail.com <mailto:eliot.miranda at gmail.com>> wrote:
> 
> Hi Tim,
> 
> 
> On Oct 18, 2020, at 3:57 AM, gettimothy via Squeak-dev <squeak-dev at lists.squeakfoundation.org <mailto:squeak-dev at lists.squeakfoundation.org>> wrote:
> 
> 
> Ignore as fitting
> 
> I can join you; this gets on my tits.
> 
> 
> https://www.pinterest.com/indigogeek/ocd-nightmares/ <https://www.pinterest.com/indigogeek/ocd-nightmares/>
> 
> 
> FileList >>viewContentsInWorkspace
> "View the contents of my selected file in a new workspace"
> 
> | aString aFileStream aName |
> aString := (aFileStream := directory readOnlyFileNamed: self fullName) setConverterForCode contentsOfEntireFile.
> aName := aFileStream localName.
> aFileStream close.
> UIManager default edit: aString withSqueakLineEndings label: 'Workspace from ',aName
> 
> maybe its the OCD in me, but that verbiage preceding the file name at the top of a workspace is redundant and annoying.
> 
> 1. redundant--it is at the top of a Workspace.
> 2. the infinitely expanding title ala Worspace from Workspace from Worspace from Workspace from Foo.txt
> 3. I have to edit each title upon file in. see OCD above.
> 
> 
> A simple change to the method:
> FileList >> viewContentsInWorkspace
> "View the contents of my selected file in a new workspace"
> 
> | aString aFileStream aName |
> aString := (aFileStream := directory readOnlyFileNamed: self fullName) setConverterForCode contentsOfEntireFile.
> aName := aFileStream localName.
> aFileStream close.
> UIManager default edit: aString withSqueakLineEndings label: aName
> 
> 
> 
> eradicates the OCD nightmare  
> 
> The only thing I’d suggest differently is that it check if the file name contains “Workspace’ and if not, still adds the ‘Workspace from ’ prefix.
> 
> cheers,
> 
> tty
> 
> 
> 
> 
> -- 
> _,,,^..^,,,_
> best, Eliot
> 
> 
> 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20201020/818a5014/attachment.html>