The Trunk: MorphicTests-cmm.16.mcz

Chris Muller uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-cmm.16.mcz

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

Name: MorphicTests-cmm.16
Author: cmm
Time: 12 June 2010, 10:49:13.066 pm
UUID: f6e388ab-3fbf-44df-b30e-853a5baf2475
Ancestors: MorphicTests-cmm.15

Fixed new testBeginWithAnAnchor to not use Maui extension method, Text>>#nextPut:.

=============== Diff against MorphicTests-cmm.15 ===============

Item was changed:
  ----- Method: TextAnchorTest>>testBeginWithAnAnchor (in category 'initialize-release') -----
  testBeginWithAnAnchor
  | text morph model |
  text := Text streamContents:
  [ : stream | stream
+ nextPutAll:
+ (Text
+ string: (String value: 1)
+ attributes: {TextAnchor new anchoredMorph: Morph new.
+ TextColor color: Color transparent}) ;
- nextPut: Morph new ;
  nextPutAll: ' should be able to begin with an embedded object. ' ].
  model := text -> nil.
  morph := PluggableTextMorph
  on: model
  text: #key
  accept: nil.
+ [ morph openInWorld ] ensure: [ morph delete ]!
- [morph openInWorld] ensure: [ morph delete ]!