Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.464.mcz

==================== Summary ====================

Name: Morphic-ar.464
Author: ar
Time: 5 September 2010, 11:09:07.755 am
UUID: 037b6dab-9cfc-b84d-b40b-bab44908f91b
Ancestors: Morphic-ar.463

Restructurings to reduce package depencencies.

=============== Diff against Morphic-ar.463 ===============

Item was added:
+ ----- Method: Form>>asMorph (in category '*Morphic') -----
+ asMorph
+ 	^ImageMorph new image: self!

Item was added:
+ ----- Method: Object>>openAsMorph (in category '*morphic') -----
+ openAsMorph
+ 	"Open a morph, as best one can, on the receiver"
+ 
+ 	^ self asMorph openInHand
+ 
+ "
+ 234 openAsMorph
+ (ScriptingSystem formAtKey: #TinyMenu) openAsMorph
+ 'fred' openAsMorph
+ "!

Item was added:
+ ----- Method: Object>>asMorph (in category '*morphic') -----
+ asMorph
+ 	"Open a morph, as best one can, on the receiver"
+ 
+ 	^ self asStringMorph
+ 
+ 	"
+ 234 asMorph
+ (ScriptingSystem formAtKey: #TinyMenu) asMorph
+ 'fred' asMorph
+ "
+ 
+ !

Item was added:
+ ----- Method: Object>>asStringMorph (in category '*morphic') -----
+ asStringMorph
+ 	"Open a StringMorph, as best one can, on the receiver"
+ 
+ 	^ self asStringOrText asStringMorph
+ !

Item was added:
+ ----- Method: Object>>asDraggableMorph (in category '*morphic') -----
+ asDraggableMorph
+ 	"Converts the receiver into a Morph suitable for dragging"
+ 	^(StringMorph contents: (
+ 			(self respondsTo: #dragLabel) 
+ 				ifTrue:[self dragLabel] 
+ 				ifFalse:[self printString]))
+ 		color: Color white;
+ 		yourself!

Item was added:
+ ----- Method: Object>>asTextMorph (in category '*morphic') -----
+ asTextMorph
+ 	"Open a TextMorph, as best one can, on the receiver"
+ 
+ 	^ TextMorph new contentsAsIs: self asStringOrText
+ !

Item was removed:
- ----- Method: Number>>isNonZero (in category '*Morphic-NewCurve-testing') -----
- isNonZero
- 	"Return true for numbers not zero and false for all other
- 	objects "
- 	^ self isZero not!

Item was removed:
- ----- Method: Object>>isNonZero (in category '*Morphic-NewCurve-testing''') -----
- isNonZero
- "Overriden in Number. This returns the backstop answer for non-numbers"
- ^false.!