The Trunk: Tests-ar.88.mcz

Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.88.mcz

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

Name: Tests-ar.88
Author: ar
Time: 22 July 2010, 7:58:08.503 pm
UUID: 7a106762-fe28-7d4c-86a6-921c4a812193
Ancestors: Tests-ar.87

Add a test documenting an bug in UIManager>>edit:label:accept: which would evaluate the accept block initially.

=============== Diff against Tests-ar.87 ===============

Item was added:
+ ----- Method: MorphicUIBugTest>>testUIManagerNoAcceptInitially (in category 'as yet unclassified') -----
+ testUIManagerNoAcceptInitially
+ "Ensure that UIManager does not invoke the accept: action initially."
+
+ | accepted window |
+ accepted := false.
+ window := UIManager default edit: Text new label: 'Test' accept: [:val| accepted := true].
+ window delete.
+ self deny: accepted.!