Hi,
Hmmm, not quite used to Celeste yet...
The message should read something like this at the beginning:
Knee deep in projects of various kinds I'm trying to move them all into
a 
flap. I would like the flap to be a verical scrolling thingie with 
all the project view morphs, system windows wrapping removed.
I need a way to collect all the  projects / project view morphs. 
It would be nice to discover project views in various navigators
and have a reference to them but not move them into the flap.

karl.ramberg at chello.se wrote:
> collect _ OrderedCollection new.
>      World submorphs do:[:m| (m isKindOf: SystemWindow) 
> 								ifTrue:[(m model isKindOf: Project)
> 											ifTrue:[collect add: m]]].
> 	1 to:  (collect size) do: [:i| projects addMorph: (collect at:i)].
> 
> Any enhancement here would be cool.
> 
>  
> I would also like the flap to be a scroll pane. Is there such a beast
> arround:
> a PasteUpWithScrollingMorph?
> 
> Also when new projects are initialized they should be added to the flap
> instead of 
> the world. I have not done that yet.
> Karl
>