Squeak
  links to this page:    
View this PageEdit this PageUploads to this PageHistory of this PageTop of the SwikiRecent ChangesSearch the SwikiHelp Guide
List the content of all workspaces of all projects an image.
Last updated at 9:50 am UTC on 30 October 2018
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]]].