[Pkg] SystemEditor: SystemEditor-Squeak-mtf.164.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Thu Dec 11 22:08:39 UTC 2008
A new version of SystemEditor-Squeak was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-mtf.164.mcz
==================== Summary ====================
Name: SystemEditor-Squeak-mtf.164
Author: mtf
Time: 11 December 2008, 3:08:21 pm
UUID: ab4008a3-407c-48ab-9e59-5beea94b21b7
Ancestors: SystemEditor-Squeak-mtf.163
made the test suite yellow, and removed a bunch of unused methods from CategorizerEditor
=============== Diff against SystemEditor-Squeak-mtf.163 ===============
Item was added:
+ ----- Method: PureBehaviorEditor>>compile: (in category 'editing') -----
+ compile: source
+ ^ self
+ compile: source
+ classified: nil!
Item was added:
+ ----- Method: PureBehaviorEditor class>>on: (in category 'instance creation') -----
+ on: anObject
+ ^ self on: anObject for: SystemEditor new!
Item was changed:
----- Method: CategorizerEditor>>addCategory:before: (in category 'reflecting - accessing') -----
addCategory: catString before: nextCategory
- "I don't support ordering"
| newCategory |
newCategory := catString asSymbol.
(self categories includes: newCategory) ifTrue: [^ self].
+ nextCategory
+ ifNil: [categories add: newCategory]
+ ifNotNil: [categories add: newCategory before: nextCategory]!
- categories add: newCategory before: nextCategory!
Item was removed:
- ----- Method: CategorizerEditor>>changedElementsAndCategoriesCollect: (in category 'accessing changed elements') -----
- changedElementsAndCategoriesCollect: aBlock
- "Evaluates aBlock for each added or recategorized elements, and its category. Answers an OrderedCollection of the results"
-
- | newCollection |
- newCollection := OrderedCollection new.
- self changedElementsAndCategoriesDo: [:anElement :aCategory |
- newCollection add: (aBlock value: anElement value: aCategory)].
- ^ newCollection!
Item was removed:
- ----- Method: CategorizerEditor>>changedCategories (in category 'accessing changed elements') -----
- changedCategories
- "Answer the set of categories whose elements have changed"
-
- ^ (self changedElementsAndCategoriesCollect:
- [:anElement :aCategory | aCategory]) asSet
- !
Item was removed:
- ----- Method: CategorizerEditor>>changedElementsAndCategoriesSelect:thenCollect: (in category 'accessing changed elements') -----
- changedElementsAndCategoriesSelect: selectBlock thenCollect: collectBlock
- "Evaluates collectBlock for each added or recategorized element and its category for which selectBlock answers true. Answers an OrderedCollection of the results"
-
- | newCollection |
- newCollection := OrderedCollection new.
- self changedElementsAndCategoriesDo: [:anElement :aCategory |
- (selectBlock value: anElement value: aCategory) ifTrue: [newCollection
- add: (collectBlock value: anElement value: aCategory)]].
- ^ newCollection!
Item was removed:
- ----- Method: CategorizerEditor>>changesInCategory: (in category 'accessing changed elements') -----
- changesInCategory: category
- "Answers a list of new or recategorized elements in category"
-
- ^ self changedElementsAndCategoriesSelect:
- [:anElement :aCategory | category = aCategory]
- thenCollect: [:anElement :aCategory | anElement]!
Item was removed:
- ----- Method: CategorizerEditor>>changedElements (in category 'accessing changed elements') -----
- changedElements
- "Answers the list of elements that have been added or recategorized"
-
- ^ self changedElementsAndCategoriesCollect: [:anElement :aCategory | anElement]!
More information about the Packages
mailing list