[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