Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.613.mcz
==================== Summary ====================
Name: System-ul.613
Author: ul
Time: 2 November 2013, 1:47:09.671 pm
UUID: de29e18c-22f5-4299-823a-e6b207c3f552
Ancestors: System-cmm.612
- fix: SystemNavigation >> #allBehaviorsDo: shouldn't enumerate Trait more than once.
=============== Diff against System-cmm.612 ===============
Item was changed:
----- Method: SystemNavigation>>allBehaviorsDo: (in category 'query') -----
allBehaviorsDo: aBlock
"Evaluate the argument, aBlock, for each kind of Behavior in the system
(that is, Object and its subclasses and Traits).
ar 7/15/1999: The code below will not enumerate any obsolete or anonymous
behaviors for which the following should be executed:
Smalltalk allObjectsDo:[:obj| obj isBehavior ifTrue:[aBlock value: obj]].
but what follows is way faster than enumerating all objects."
self environment allClassesAndTraitsDo: [ :class |
+ aBlock value: class.
+ class isTrait ifFalse: [ "class of a Trait is Trait, there are no MetaTraits"
+ aBlock value: class class ] ]!
- aBlock
- value: class;
- value: class class ]!
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.613.mcz
==================== Summary ====================
Name: System-ul.613
Author: ul
Time: 2 November 2013, 1:47:09.671 pm
UUID: de29e18c-22f5-4299-823a-e6b207c3f552
Ancestors: System-cmm.612
- fix: SystemNavigation >> #allBehaviorsDo: shouldn't enumerate Trait more than once.
=============== Diff against System-cmm.612 ===============
Item was changed:
----- Method: SystemNavigation>>allBehaviorsDo: (in category 'query') -----
allBehaviorsDo: aBlock
"Evaluate the argument, aBlock, for each kind of Behavior in the system
(that is, Object and its subclasses and Traits).
ar 7/15/1999: The code below will not enumerate any obsolete or anonymous
behaviors for which the following should be executed:
Smalltalk allObjectsDo:[:obj| obj isBehavior ifTrue:[aBlock value: obj]].
but what follows is way faster than enumerating all objects."
self environment allClassesAndTraitsDo: [ :class |
+ aBlock value: class.
+ class isTrait ifFalse: [ "class of a Trait is Trait, there are no MetaTraits"
+ aBlock value: class class ] ]!
- aBlock
- value: class;
- value: class class ]!
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.613.mcz
==================== Summary ====================
Name: System-ul.613
Author: ul
Time: 2 November 2013, 1:47:09.671 pm
UUID: de29e18c-22f5-4299-823a-e6b207c3f552
Ancestors: System-cmm.612
- fix: SystemNavigation >> #allBehaviorsDo: shouldn't enumerate Trait more than once.
=============== Diff against System-cmm.612 ===============
Item was changed:
----- Method: SystemNavigation>>allBehaviorsDo: (in category 'query') -----
allBehaviorsDo: aBlock
"Evaluate the argument, aBlock, for each kind of Behavior in the system
(that is, Object and its subclasses and Traits).
ar 7/15/1999: The code below will not enumerate any obsolete or anonymous
behaviors for which the following should be executed:
Smalltalk allObjectsDo:[:obj| obj isBehavior ifTrue:[aBlock value: obj]].
but what follows is way faster than enumerating all objects."
self environment allClassesAndTraitsDo: [ :class |
+ aBlock value: class.
+ class isTrait ifFalse: [ "class of a Trait is Trait, there are no MetaTraits"
+ aBlock value: class class ] ]!
- aBlock
- value: class;
- value: class class ]!
Nicolas Cellier uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-nice.300.mcz
==================== Summary ====================
Name: Traits-nice.300
Author: nice
Time: 2 November 2013, 12:30:54.426 am
UUID: fced9294-e4ef-4fb3-b2db-6e8da24a6e82
Ancestors: Traits-nice.299
Avoid spurious warnings in Trait>>rename: when an Undeclared isn't really referenced.
This may help some SUnit tests to pass.
=============== Diff against Traits-nice.299 ===============
Item was changed:
----- Method: Trait>>rename: (in category 'initialize') -----
rename: aString
"The new name of the receiver is the argument, aString."
| newName |
(newName := aString asSymbol) ~= self name
ifFalse: [^ self].
(self environment includesKey: newName)
ifTrue: [^ self error: newName , ' already exists'].
+ ((self environment undeclared includesKey: newName)
+ and: [(self environment undeclared unreferencedKeys includes: newName) not])
- (self environment undeclared includesKey: newName)
ifTrue: [self inform: 'There are references to, ' , aString printString , '
from Undeclared. Check them after this change.'].
self environment renameClass: self as: newName.
name := newName!
Nicolas Cellier uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-nice.300.mcz
==================== Summary ====================
Name: Traits-nice.300
Author: nice
Time: 2 November 2013, 12:30:54.426 am
UUID: fced9294-e4ef-4fb3-b2db-6e8da24a6e82
Ancestors: Traits-nice.299
Avoid spurious warnings in Trait>>rename: when an Undeclared isn't really referenced.
This may help some SUnit tests to pass.
=============== Diff against Traits-nice.299 ===============
Item was changed:
----- Method: Trait>>rename: (in category 'initialize') -----
rename: aString
"The new name of the receiver is the argument, aString."
| newName |
(newName := aString asSymbol) ~= self name
ifFalse: [^ self].
(self environment includesKey: newName)
ifTrue: [^ self error: newName , ' already exists'].
+ ((self environment undeclared includesKey: newName)
+ and: [(self environment undeclared unreferencedKeys includes: newName) not])
- (self environment undeclared includesKey: newName)
ifTrue: [self inform: 'There are references to, ' , aString printString , '
from Undeclared. Check them after this change.'].
self environment renameClass: self as: newName.
name := newName!
Nicolas Cellier uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-nice.300.mcz
==================== Summary ====================
Name: Traits-nice.300
Author: nice
Time: 2 November 2013, 12:30:54.426 am
UUID: fced9294-e4ef-4fb3-b2db-6e8da24a6e82
Ancestors: Traits-nice.299
Avoid spurious warnings in Trait>>rename: when an Undeclared isn't really referenced.
This may help some SUnit tests to pass.
=============== Diff against Traits-nice.299 ===============
Item was changed:
----- Method: Trait>>rename: (in category 'initialize') -----
rename: aString
"The new name of the receiver is the argument, aString."
| newName |
(newName := aString asSymbol) ~= self name
ifFalse: [^ self].
(self environment includesKey: newName)
ifTrue: [^ self error: newName , ' already exists'].
+ ((self environment undeclared includesKey: newName)
+ and: [(self environment undeclared unreferencedKeys includes: newName) not])
- (self environment undeclared includesKey: newName)
ifTrue: [self inform: 'There are references to, ' , aString printString , '
from Undeclared. Check them after this change.'].
self environment renameClass: self as: newName.
name := newName!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.818.mcz
==================== Summary ====================
Name: Kernel-nice.818
Author: nice
Time: 2 November 2013, 12:05:29.34 am
UUID: 3dae8edc-b873-491e-8b54-596cae38eb5f
Ancestors: Kernel-cmm.817
Avoid spurious warnings in Class>>rename: when an Undeclared isn't really referenced.
This may help some SUnit tests to pass.
=============== Diff against Kernel-cmm.817 ===============
Item was changed:
----- Method: Class>>rename: (in category 'class name') -----
rename: aString
"The new name of the receiver is the argument, aString."
| oldName newName |
(newName := aString asSymbol) = (oldName := self name)
ifTrue: [^ self].
(self environment includesKey: newName)
ifTrue: [^ self error: newName , ' already exists'].
+ ((self environment undeclared includesKey: newName)
+ and: [(self environment undeclared unreferencedKeys includes: newName) not])
- (self environment undeclared includesKey: newName)
ifTrue: [self inform: 'There are references to ' , aString printString , '
from Undeclared. Check them after this change.'].
name := newName.
self environment renameClass: self from: oldName!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.818.mcz
==================== Summary ====================
Name: Kernel-nice.818
Author: nice
Time: 2 November 2013, 12:05:29.34 am
UUID: 3dae8edc-b873-491e-8b54-596cae38eb5f
Ancestors: Kernel-cmm.817
Avoid spurious warnings in Class>>rename: when an Undeclared isn't really referenced.
This may help some SUnit tests to pass.
=============== Diff against Kernel-cmm.817 ===============
Item was changed:
----- Method: Class>>rename: (in category 'class name') -----
rename: aString
"The new name of the receiver is the argument, aString."
| oldName newName |
(newName := aString asSymbol) = (oldName := self name)
ifTrue: [^ self].
(self environment includesKey: newName)
ifTrue: [^ self error: newName , ' already exists'].
+ ((self environment undeclared includesKey: newName)
+ and: [(self environment undeclared unreferencedKeys includes: newName) not])
- (self environment undeclared includesKey: newName)
ifTrue: [self inform: 'There are references to ' , aString printString , '
from Undeclared. Check them after this change.'].
name := newName.
self environment renameClass: self from: oldName!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.818.mcz
==================== Summary ====================
Name: Kernel-nice.818
Author: nice
Time: 2 November 2013, 12:05:29.34 am
UUID: 3dae8edc-b873-491e-8b54-596cae38eb5f
Ancestors: Kernel-cmm.817
Avoid spurious warnings in Class>>rename: when an Undeclared isn't really referenced.
This may help some SUnit tests to pass.
=============== Diff against Kernel-cmm.817 ===============
Item was changed:
----- Method: Class>>rename: (in category 'class name') -----
rename: aString
"The new name of the receiver is the argument, aString."
| oldName newName |
(newName := aString asSymbol) = (oldName := self name)
ifTrue: [^ self].
(self environment includesKey: newName)
ifTrue: [^ self error: newName , ' already exists'].
+ ((self environment undeclared includesKey: newName)
+ and: [(self environment undeclared unreferencedKeys includes: newName) not])
- (self environment undeclared includesKey: newName)
ifTrue: [self inform: 'There are references to ' , aString printString , '
from Undeclared. Check them after this change.'].
name := newName.
self environment renameClass: self from: oldName!