Doug Way wrote:
> If anyone has improvements which work, we can add them to the 3.4 update
> stream.

I've played with improving the removing of the eyes and the Worlds of 
Squeak.

remove the Worlds of Squeak
	ProjectViewMorph allInstancesDo:
	[ :m | (m hasProperty: #deleteWorldsOfSqueak) ifTrue:
		[ Project deletingProject: m project. m delete
		]
	].
	World submorphsDo:
	[ :i | (i isKindOf: SystemWindow) ifTrue:
		[ (i label = 'The Worlds of Squeak') ifTrue:
			[ i privateDelete.
			]
		]
	].
	Project rebuildAllProjects.
	ScriptingSystem spaceReclaimed

remove the eyes
	FlashCharacterMorph allInstancesDo:
	[ :i | (i extension externalName = 'SqueakLogo') ifTrue:
		[ i delete.
		]
	]

I'm sure this could be written better but it removes more than the 
existing examples.

Regards
            Chris Burkert
-- 
------------------------------------------------------------------------
Student of applied Computer Science at Chemnitz University of Technology
      http://www.chrisburkert.de/            chris at chrisburkert.de
------------------------------------------------------------------------
"I invented the term Object-Oriented, and I can tell you I did not have
  C++ in mind." - Alan Kay --> http://www.whysmalltalk.com/