The Trunk: Tests-kb.47.mcz

A new version of Tests was added to project The Trunk:
http://source.squeak.org/trunk/Tests-kb.47.mcz

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

Name: Tests-kb.47
Author: kb
Time: 24 February 2010, 10:28:21.771 pm
UUID: 600e3998-d345-4572-bdcc-30721da4688a
Ancestors: Tests-nice.46

 - fix: MCSnapshotBrowserTest by using ToolBuilder to build the morph if it's available.

=============== Diff against Tests-nice.46 ===============

Item was changed:
  ----- Method: MCSnapshotBrowserTest>>testAnnotationPane (in category 'testing') -----
  testAnnotationPane
  | oldPref |
  oldPref := Preferences annotationPanes.
 
  Preferences disable: #annotationPanes.
+ self buildWindow.
- morph := model buildWindow.
  self assert: (self morphsOfClass: TextMorph) size = 1.
 
  Preferences enable: #annotationPanes.
+ self buildWindow.
- morph := model buildWindow.
  self assert: (self morphsOfClass: TextMorph) size = 2.
 
  Preferences setPreference: #annotationPanes toValue: oldPref!

Item was added:
+ ----- Method: MCSnapshotBrowserTest>>buildWindow (in category 'morphic') -----
+ buildWindow
+
+ Smalltalk at: #ToolBuilder ifPresent: [:tb |
+ morph := tb build: model.
+ ^self ].
+ morph := model buildWindow.!

Item was changed:
  ----- Method: MCSnapshotBrowserTest>>setUp (in category 'running') -----
  setUp
  model := MCSnapshotBrowser forSnapshot: MCSnapshotResource current snapshot.
+ self buildWindow!
- morph := model buildWindow.!