The Trunk: Morphic-nice.708.mcz

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!