[Pkg] The Trunk: Morphic-nice.708.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-nice.708
Author: nice
Time: 16 December 2013, 5:26:24.378 pm
UUID: dd821ed0-7670-4399-83be-a41050cd462b
Ancestors: Morphic-nice.707

MorphicToolBuilderTests as other kind of TestCase should go in MorphicTests

=============== Diff against Morphic-nice.707 ===============

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

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

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

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

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

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

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

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

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

Item was removed:
- ----- 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 removed:
- ----- Method: MorphicToolBuilderTests>>widgetColor (in category 'support') -----
- widgetColor
- 	"Answer color from widget"
- 	^widget color!