The Trunk: Morphic-ar.464.mcz

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.!