Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.77.mcz==================== Summary ====================
Name: Tests-ul.77
Author: ul
Time: 2 May 2010, 12:49:16.79 pm
UUID: 387cc179-09f4-6441-a182-1f59f180a100
Ancestors: Tests-jcg.76
- fix: windows created with #edit:label:accept: can be an instance of a subclass of SystemWindow
=============== Diff against Tests-jcg.76 ===============
Item was changed:
----- Method: MorphicUIBugTest>>findWindowInWorldLabeled: (in category 'as yet unclassified') -----
findWindowInWorldLabeled: aLabel
+
+ ^World submorphs
+ detect: [ :each |
+ (each isKindOf: SystemWindow)
+ and: [ each label = aLabel ] ]
+ ifNone: nil.!
- ^ World submorphs detect: [ :each |
- each class == SystemWindow
- and: [ each label = aLabel ] ] ifNone: [ nil ] .!