On Tue, Oct 20, 2020 at 10:26 AM Javier Diaz-Reinoso via Squeak-dev <
squeak-dev at lists.squeakfoundation.org> wrote:

> Not with this change.
>

I tweaked it a bit.  It should be ok now.  If you'd like to review my
massage of your code I'd appreciate it.

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

-- 
_,,,^..^,,,_
best, Eliot
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20201020/2d63e4e7/attachment.html>