<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><meta content="text/html;charset=UTF-8" http-equiv="Content-Type"></head><body ><div style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt;"><div>Ignore as fitting<br></div><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><br></div><div><br></div><div><br></div><div>cheers,<br></div><div><br></div><div>tty</div></div><br></body></html>