The Trunk: TraitsTests-nice.3.mcz

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

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

Name: TraitsTests-nice.3
Author: nice
Time: 3 January 2010, 5:10:14 am
UUID: 8c9b041f-0b45-480f-a3f7-0a7c49d2d5f7
Ancestors: TraitsTests-ar.2

remove some #or:or: #and:and: sends

=============== Diff against TraitsTests-ar.2 ===============

Item was changed:
  ----- Method: TraitsTestCase>>tearDown (in category 'running') -----
  tearDown
+
- | behaviorName |
  TraitsResource resetIfDirty.
  self createdClassesAndTraits do:
+ [:aClassOrTrait | | behaviorName |
- [:aClassOrTrait |
  behaviorName := aClassOrTrait name.
  Smalltalk at: behaviorName
  ifPresent: [:classOrTrait | classOrTrait removeFromSystem].
  ChangeSet current removeClassChanges: behaviorName].
  createdClassesAndTraits := nil!

Item was changed:
  ----- Method: TraitsResource>>tearDown (in category 'as yet unclassified') -----
  tearDown
+
- | behaviorName |
  SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self.
  self createdClassesAndTraits do:
+ [:aClassOrTrait | | behaviorName |
- [:aClassOrTrait |
  behaviorName := aClassOrTrait name.
  Smalltalk at: behaviorName
  ifPresent: [:classOrTrait | classOrTrait removeFromSystem].
  ChangeSet current removeClassChanges: behaviorName].
  createdClassesAndTraits := self t1: (self
  t2: (self t3: (self
  t4: (self t5: (self
  t6: (self c1: (self
  c2: (self c3: (self c4: (self c5: (self c6: (self c7: (self c8: nil)))))))))))))!

Item was changed:
  ----- Method: TraitsResource>>codeChangedEvent: (in category 'as yet unclassified') -----
  codeChangedEvent: anEvent
 
  (anEvent isDoIt not
+ and: [anEvent itemClass notNil
+ and: [self createdClassesAndTraits includes: anEvent itemClass instanceSide]]) ifTrue: [self setDirty] !
- and: [anEvent itemClass notNil]
- and: [self createdClassesAndTraits includes: anEvent itemClass instanceSide]) ifTrue: [self setDirty] !