Generate an executable list of all projects
Last updated at 1:51 pm UTC on 5 April 2019
Put the following into a Workspace and evaluate it
| ws |
ws := WriteStream on: ''.
(Project allProjects asSortedCollection: [:a :b | a name asLowercase < b name asLowercase]) do: [:proj | ws nextPutAll: '(Project named: ''', proj name, ''') enter.';cr].
StringHolder
new textContents: (ws contents)
withSqueakLineEndings;
openLabel: 'List of all projects ', Date today asString
You may create a class
GenerateListOfAllProjects
and put the code above into a #do method (instance side).
Then you may add the command
GenerateListOfAllProjects new do
to the do menu.