[Pkg] The Trunk: Tests-kb.47.mcz

[commits at source.squeak.org]

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