List the content of all workspaces of all projects in an image.
Last updated at 9:47 am UTC on 18 September 2019
Transcript clear.
Project allProjects do: [:project | | wsColl |
wsColl := project world submorphsSatisfying:
[:m | (m isKindOf: SystemWindow)
and: [m model isKindOf: Workspace]
].
wsColl size > 0 ifTrue: [Transcript show: '===========================';cr.
Transcript show: project name; cr.
Transcript show: '===========================';cr.
wsColl do: [:workspaceWindow | | content |
content := workspaceWindow paneMorphs first textMorph text.
Transcript show: content.
Transcript cr.
Transcript show: '....................................................................................................................................'.
Transcript cr]]].
See also
Workspace addModelItemsToWindowMenu: