FileList "Workspace from Foo.txt" is a redundant OCD nightmare

On 18 Oct 2020, at 07:41, Eliot Miranda <[hidden email]> wrote:

Hi Tim,

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

Thanks Javier, I integrated it today.  Finally :-)

On Sun, Oct 18, 2020 at 8:59 AM Javier Diaz-Reinoso via Squeak-dev <[hidden email]> 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 <[hidden email]> wrote:

Hi Tim,

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

On 20 Oct 2020, at 12:31, Eliot Miranda <[hidden email]> wrote:

On Tue, Oct 20, 2020 at 10:26 AM Javier Diaz-Reinoso via Squeak-dev <[hidden email]> 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 <[hidden email]> 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 [hidden email] wrote ----

Thanks Javier, I integrated it today.  Finally :-)

On Sun, Oct 18, 2020 at 8:59 AM Javier Diaz-Reinoso via Squeak-dev <[hidden email]> 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 <[hidden email]> wrote:

Hi Tim,

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