<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto">Hi Tim,<br><div dir="ltr"><br></div><div dir="ltr"><br><blockquote type="cite">On Oct 18, 2020, at 3:57 AM, gettimothy via Squeak-dev <squeak-dev@lists.squeakfoundation.org> wrote:<br><br></blockquote></div><blockquote type="cite"><div dir="ltr"><meta content="text/html;charset=UTF-8" http-equiv="Content-Type"><div style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt;"><div>Ignore as fitting<br></div></div></div></blockquote><div><br></div>I can join you; this gets on my tits.<div><br><blockquote type="cite"><div dir="ltr"><div style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt;"><div><br></div><div><a href="https://www.pinterest.com/indigogeek/ocd-nightmares/" target="_blank">https://www.pinterest.com/indigogeek/ocd-nightmares/</a><br></div><div><br></div><div><br></div><blockquote style="border: 1px solid rgb(204, 204, 204); padding: 7px; background-color: rgb(245, 245, 245);"><div><div>FileList >>viewContentsInWorkspace<br></div><div>"View the contents of my selected file in a new workspace"<br></div><div><br></div><div>| aString aFileStream aName |<br></div><div>aString := (aFileStream := directory readOnlyFileNamed: self fullName) setConverterForCode contentsOfEntireFile.<br></div><div>aName := aFileStream localName.<br></div><div>aFileStream close.<br></div><div>UIManager default edit: aString withSqueakLineEndings label:<b> 'Workspace from ',</b> aName<br></div></div></blockquote><div><br></div><div>maybe its the OCD in me, but that verbiage preceding the file name at the top of a workspace is redundant and annoying.<br></div><div><br></div><div>1. redundant--it is at the top of a Workspace.<br></div><div>2. the infinitely expanding title ala <i><b>Worspace from Workspace from Worspace from Workspace from Foo.txt</b></i><br></div><div>3. I have to edit each title upon file in. see OCD above.<br></div><div><br></div><div><br></div><div>A simple change to the method:<br></div><blockquote style="border: 1px solid rgb(204, 204, 204); padding: 7px; background-color: rgb(245, 245, 245);"><div><div>FileList >> viewContentsInWorkspace<br></div><div>"View the contents of my selected file in a new workspace"<br></div><div><br></div><div>| aString aFileStream aName |<br></div><div>aString := (aFileStream := directory readOnlyFileNamed: self fullName) setConverterForCode contentsOfEntireFile.<br></div><div>aName := aFileStream localName.<br></div><div>aFileStream close.<br></div><div><b>UIManager default edit: aString withSqueakLineEndings label: aName</b><br></div><div><br></div><div><br></div></div></blockquote><div><br></div><div>eradicates the OCD nightmare <br></div></div></div></blockquote><div><br></div>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.</div><div><br><blockquote type="cite"><div dir="ltr"><div style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt;"><div><span style="font-size: 10pt;">cheers,</span></div><div><br></div><div>tty</div></div></div></blockquote></div></body></html>