Nicolas Cellier uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-nice.24.mcz

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

Name: MorphicTests-nice.24
Author: nice
Time: 16 December 2013, 5:25:47.407 pm
UUID: e33a9ad3-2f39-4c19-a3a7-dc87f18177fc
Ancestors: MorphicTests-fbs.23

MorphicToolBuilderTests as other kind of TestCase should go in MorphicTests

=============== Diff against MorphicTests-fbs.23 ===============

Item was added:
+ ToolBuilderTests subclass: #MorphicToolBuilderTests
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'MorphicTests-ToolBuilder'!
+ 
+ !MorphicToolBuilderTests commentStamp: 'ar 2/11/2005 15:02' prior: 0!
+ Tests for the Morphic tool builder.!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>acceptWidgetText (in category 'support') -----
+ acceptWidgetText
+ 	widget hasUnacceptedEdits: true.
+ 	widget accept.!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>buttonWidgetEnabled (in category 'support') -----
+ buttonWidgetEnabled
+ 	"Answer whether the current widget (a button) is currently enabled"
+ 	^widget enabled!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>changeListWidget (in category 'support') -----
+ changeListWidget
+ 	widget changeModelSelection: widget getCurrentSelectionIndex + 1.!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>expectedButtonSideEffects (in category 'support') -----
+ expectedButtonSideEffects
+ 	^#(getColor getState getEnabled)!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>fireButtonWidget (in category 'support') -----
+ fireButtonWidget
+ 	widget performAction.!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>fireMenuItemWidget (in category 'support') -----
+ fireMenuItemWidget
+ 	(widget itemWithWording: 'Menu Item')
+ 		ifNotNil: [:item | item doButtonAction]!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>setUp (in category 'support') -----
+ setUp
+ 	super setUp.
+ 	builder := MorphicToolBuilder new.!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>testWindowDynamicLabel (in category 'tests-window') -----
+ testWindowDynamicLabel
+ 	self makeWindow.
+ 	self assert: (widget label = 'TestLabel').!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>testWindowStaticLabel (in category 'tests-window') -----
+ testWindowStaticLabel
+ 	| spec |
+ 	spec := builder pluggableWindowSpec new.
+ 	spec model: self.
+ 	spec children: #().
+ 	spec label: 'TestLabel'.
+ 	widget := builder build: spec.
+ 	self assert: (widget label = 'TestLabel').!

Item was added:
+ ----- Method: MorphicToolBuilderTests>>widgetColor (in category 'support') -----
+ widgetColor
+ 	"Answer color from widget"
+ 	^widget color!