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> 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> wrote:


Hi Tim,





On Oct 18, 2020, at 3:57 AM, gettimothy via Squeak-dev <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/





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/20201019/d3bea420/attachment-0001.html>