Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

SystemEditor: SystemEditor-mtf.127.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.127.mcz ==================== Summary ==================== Name: SystemEditor-mtf.127 Author: mtf Time: 7 October 2008, 10:54:10 am UUID: 8ff18dcf-d1de-4a12-a7e4-2783cf9bf661 Ancestors: SystemEditor-mtf.126 fixed a few bugs in the Categorizer build method =============== Diff against SystemEditor-mtf.126 =============== Item was changed: ----- Method: CategorizerEditor>>edBuild (in category 'building') ----- edBuild | result processed newCat | + result := self productClass defaultList: Array new. - result := self productClass new. result categories: categories. self changedElementsAndCategoriesDo: [:ea :cat | result classify: ea under: cat]. + processed := IdentitySet new + addAll: result elementArray; + addAll: self removedElements; + yourself. - processed := (result elementArray, self removedElements) asSet. self subject categories do: [:oldCat | newCat := self newCategoryFor: oldCat. (subject listAtCategoryNamed: oldCat) do: [:ea | (processed includes: ea) ifFalse: [ result classify: ea under: newCat]]]. ^ result!

1 0

SystemEditor: SystemEditor-mtf.126.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.126.mcz ==================== Summary ==================== Name: SystemEditor-mtf.126 Author: mtf Time: 7 October 2008, 10:31:05 am UUID: db503ac4-772b-4fb9-af1f-57b2a3d40658 Ancestors: SystemEditor-mtf.125 Refactor of CategorizerEditor: - reorganized the methods in Categorizer - now remember the order of categories - moved the responsibility of building down from OrganizationEditor to CategorizerEditor =============== Diff against SystemEditor-mtf.125 =============== Item was changed: + ----- Method: CategorizerEditor>>listAtCategoryNamed: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>listAtCategoryNamed: (in category 'accessing') ----- listAtCategoryNamed: catName + | category list | - | oldList newList category | category := catName asSymbol. (self categories includes: category) ifFalse: [^ nil]. + list := self subject ifNotNil: [self subject listAtCategoryNamed: category]. + list ifNil: [list := OrderedCollection new]. + list := list asOrderedCollection. + self removedElements do: [:ea | list removeAll: ea]. + self changedElementsAndCategoriesDo: [:ea :cat | + list removeAll: ea. cat = category ifTrue: [list add: ea]]. + ^ list - newList := (self changesInCategory: category) ifNil: [#()]. - oldList := (self subjectListAtCategoryNamed: category) ifNil: [#()]. - ^ oldList, newList ! Item was changed: + ----- Method: CategorizerEditor>>removeElement: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>removeElement: (in category 'accessing') ----- removeElement: element + self subclassResponsibility! - (self removedElements includes: element) ifTrue: [^ self]. - self changesRemoveElement: element. - self subject ifNotNil: [(self subject elementArray includes: element) - ifTrue: [self removedElements add: element]]! Item was changed: + ----- Method: CategorizerEditor>>changedCategories (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>changedCategories (in category 'private') ----- changedCategories + "Answer the set of categories whose elements have changed" - "Answer the categories of all the elements that have changed" ^ (self changedElementsAndCategoriesCollect: [:anElement :aCategory | aCategory]) asSet ! Item was changed: + ----- Method: CategorizerEditor>>renameCategory:toBe: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>renameCategory:toBe: (in category 'accessing') ----- renameCategory: oldCatString toBe: newCatString | oldCategory newCategory originalCategory | newCategory := newCatString asSymbol. oldCategory := oldCatString asSymbol. originalCategory := self oldCategoryFor: oldCategory. (self categories includes: newCategory) ifTrue: [^ self]. (self categories includes: oldCategory) ifFalse: [^ self]. + categories replaceAll: oldCategory with: newCategory. + renamedCategories at: originalCategory put: newCategory.! - self changesRenameCategory: oldCategory toBe: newCategory. - (addedCategories includes: oldCategory) - ifTrue: [addedCategories replaceAll: oldCategory with: newCategory] - ifFalse: [renamedCategories at: originalCategory put: newCategory]! Item was changed: + ----- Method: CategorizerEditor>>classify:under: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>classify:under: (in category 'accessing') ----- classify: element under: heading self classify: element under: heading suppressIfDefault: true! Item was changed: + ----- Method: CategorizerEditor>>oldCategoryFor: (in category 'as yet unclassified') ----- - ----- Method: CategorizerEditor>>oldCategoryFor: (in category 'private') ----- oldCategoryFor: newCategory ^ renamedCategories keyAtValue: newCategory ifAbsent: [newCategory]! Item was changed: + ----- Method: CategorizerEditor>>addCategory:before: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>addCategory:before: (in category 'accessing') ----- addCategory: catString before: nextCategory "I don't support ordering" | newCategory | newCategory := catString asSymbol. (self categories includes: newCategory) ifTrue: [^ self]. + categories add: newCategory before: nextCategory! - self changesAddCategory: newCategory before: nextCategory. - (removedCategories includes: newCategory) - ifTrue: [removedCategories remove: newCategory] - ifFalse: [addedCategories add: newCategory]! Item was added: + ----- Method: AbstractEditor>>productClass (in category 'accessing') ----- + productClass + "Answers the class of the object that is the result of applying my edits to my subject" + + ^ self subject class! Item was added: + ----- Method: CategorizerEditor>>edPrepareMigration: (in category 'building') ----- + edPrepareMigration: txn + self edRequiresBuild + ifTrue: [txn addMigrator: (ObjectMigrator + origin: self subject + destination: self edBuild)]! Item was added: + ----- Method: OrganizationEditor>>edBuild (in category 'building') ----- + edBuild + | result | + result := super edBuild. + result + edClassComment: self commentRemoteStr + stamp: self commentStamp. + ^ result! Item was added: + ----- Method: CategorizerEditor>>edBuild (in category 'building') ----- + edBuild + | result processed newCat | + result := self productClass new. + result categories: categories. + self changedElementsAndCategoriesDo: [:ea :cat | + result classify: ea under: cat]. + processed := (result elementArray, self removedElements) asSet. + self subject categories do: [:oldCat | + newCat := self newCategoryFor: oldCat. + (subject listAtCategoryNamed: oldCat) do: [:ea | + (processed includes: ea) ifFalse: [ + result classify: ea under: newCat]]]. + ^ result! Item was added: + ----- Method: CategorizerEditor>>hasChangedElements (in category 'accessing changed elements') ----- + hasChangedElements + self changedElementsAndCategoriesDo: [:element :category | ^ true]. + ^ false! Item was changed: ----- Method: OrganizationEditor>>edRequiresBuild (in category 'building') ----- edRequiresBuild + ^ isDirty or: [super edRequiresBuild]! - ^ isDirty or: [classEditor isMethodsChanged]! Item was added: + ----- Method: CategorizerEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + ^ self hasChangedElements or: [self removedElements notEmpty]! Item was changed: + ----- Method: CategorizerEditor>>changesInCategory: (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>changesInCategory: (in category 'private') ----- changesInCategory: category + "Answers a list of new or recategorized elements in category" + ^ self changedElementsAndCategoriesSelect: [:anElement :aCategory | category = aCategory] thenCollect: [:anElement :aCategory | anElement]! Item was changed: + ----- Method: CategorizerEditor>>changedElementsAndCategoriesDo: (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>changedElementsAndCategoriesDo: (in category 'subclass responsibility') ----- changedElementsAndCategoriesDo: aBlock + "Evaluates aBlock for each added or recategorized elements, and its category" + - "Enumerate all changed elements and its associated category via the two-argument block" self subclassResponsibility! Item was changed: AbstractEditor subclass: #CategorizerEditor + instanceVariableNames: 'subject renamedCategories categories' - instanceVariableNames: 'subject addedCategories renamedCategories removedCategories' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! !CategorizerEditor commentStamp: '<historical>' prior: 0! + An abstract superclass for editors of Categorizers. Implements the public interface of a Categorizer. I maintain the list of added, removed, or reordered categories, but it is up to subclasses to remember which elements were added, removed, or recategorized. + + subject (Categorizer) - The Categorizer I am editing + categories (OrderedCollection) - The ordered list of categories + renamedCategories (Dictionary) - A dictionary mapping old category names to new names! - An abstract superclass for editors of Categorizers. Takes care of most of the hassle of implementing the public interface of a Categorizer! Item was changed: + ----- Method: CategorizerEditor>>classifyAll:under: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>classifyAll:under: (in category 'accessing') ----- classifyAll: aCollection under: heading aCollection do: [:element | self classify: element under: heading]! Item was changed: + ----- Method: CategorizerEditor>>removeCategory: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>removeCategory: (in category 'accessing') ----- removeCategory: catString | category | category := catString asSymbol. (self categories includes: category) ifFalse: [^ self]. (self listAtCategoryNamed: category) ifNotEmpty: [^self error: 'cannot remove non-empty category']. + categories remove: category ifAbsent: []. - self changesRemoveCategory: category. - addedCategories remove: category ifAbsent: []. renamedCategories keysAndValuesRemove: [:key :value | value == category]. + ! - (self subjectCategories includes: category) - ifTrue: [removedCategories add: category]! Item was changed: + ----- Method: CategorizerEditor>>setSubject: (in category 'initialize-release') ----- - ----- Method: CategorizerEditor>>setSubject: (in category 'private') ----- setSubject: aCategorizer subject := aCategorizer. + renamedCategories := Dictionary new. + categories := OrderedCollection new.! - removedCategories := Set new. - addedCategories := OrderedCollection new. - renamedCategories := Dictionary new! Item was changed: + ----- Method: CategorizerEditor>>classify:under:suppressIfDefault: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>classify:under:suppressIfDefault: (in category 'accessing') ----- classify: element under: heading suppressIfDefault: aBoolean | category | ((heading = Categorizer nullCategory) or: [heading == nil]) ifTrue: [category := Categorizer default] ifFalse: [category := heading asSymbol]. self addCategory: category. - self classifyChange: element under: category suppressIfDefault: aBoolean. ((self categories includes: Categorizer default) and: [(self listAtCategoryNamed: Categorizer default) size = 0]) ifTrue: [self removeCategory: Categorizer default]. ! Item was changed: + ----- Method: CategorizerEditor>>elementArray (in category 'reflecting - private') ----- - ----- Method: CategorizerEditor>>elementArray (in category 'private') ----- elementArray ^ self categories gather: [:category | self listAtCategoryNamed: category]! Item was changed: + ----- Method: CategorizerEditor>>listAtCategoryNumber: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>listAtCategoryNumber: (in category 'accessing') ----- listAtCategoryNumber: anInteger ^ self listAtCategoryNamed: (self categories at: anInteger)! Item was changed: + ----- Method: CategorizerEditor>>changedElementsAndCategoriesCollect: (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>changedElementsAndCategoriesCollect: (in category 'private') ----- 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 changed: + ----- Method: CategorizerEditor>>subject (in category 'accessing') ----- - ----- Method: CategorizerEditor>>subject (in category 'private') ----- subject ^ subject! Item was changed: + ----- Method: CategorizerEditor>>categories: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>categories: (in category 'accessing') ----- categories: anArray + + categories := anArray! - "I don't support ordering" - ^ self! Item was changed: + ----- Method: CategorizerEditor>>removedElements (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>removedElements (in category 'subclass responsibility') ----- removedElements + "Answers a list of elements that have been removed" + ^ Array new! Item was changed: + ----- Method: CategorizerEditor>>addCategory: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>addCategory: (in category 'accessing') ----- addCategory: newCategory ^ self addCategory: newCategory before: nil! Item was changed: + ----- Method: CategorizerEditor>>categories (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>categories (in category 'accessing') ----- categories + ^ categories! - ^ self subjectCategories, addedCategories! Item was changed: + ----- Method: CategorizerEditor>>newCategoryFor: (in category 'as yet unclassified') ----- - ----- Method: CategorizerEditor>>newCategoryFor: (in category 'private') ----- newCategoryFor: oldCategory ^ renamedCategories at: oldCategory ifAbsent: [oldCategory]! Item was added: + ----- Method: AbstractEditor>>subject (in category 'accessing') ----- + subject + "Answers the object I am editing" + + self subclassResponsibility! Item was changed: + ----- Method: CategorizerEditor>>categoryOfChange: (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>categoryOfChange: (in category 'private') ----- categoryOfChange: element + "Answers the category of a new or recategorized element" + self changedElementsAndCategoriesDo: [:anElement :aCategory | element = anElement ifTrue: [^ aCategory]]. ^ nil! Item was changed: + ----- Method: CategorizerEditor>>printOn: (in category 'reflecting - printing') ----- - ----- Method: CategorizerEditor>>printOn: (in category 'printing') ----- printOn: aStream self categories do: [:category | aStream nextPutAll: '('''; nextPutAll: category; nextPut: $'. (self listAtCategoryNamed: category) do: [:element | aStream space; nextPutAll: element]. aStream nextPut: $); cr]! Item was changed: + ----- Method: CategorizerEditor>>categoryOfElement: (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>categoryOfElement: (in category 'accessing') ----- categoryOfElement: element (self removedElements includes: element) ifTrue: [^ nil]. (self categoryOfChange: element) ifNotNilDo: [:cat | ^ cat]. self subject ifNil: [^ nil]. ^ self newCategoryFor: (self subject categoryOfElement: element) ! Item was changed: + ----- Method: CategorizerEditor>>changedElementsAndCategoriesSelect:thenCollect: (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>changedElementsAndCategoriesSelect:thenCollect: (in category 'private') ----- 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 changed: ----- Method: MethodDictionaryEditor>>buildFor: (in category 'editing') ----- buildFor: aClassEditor | result old | + self halt. result := MethodDictionary new. self subject keysAndValuesDo: [:selector :cm | (self selectorIsModified: selector) ifFalse: [result at: selector put: (self recompile: selector from: cm for: aClassEditor)]]. additions keysAndValuesDo: [:selector :mm | old := self subject at: selector ifAbsent: [nil]. result at: selector put: (mm compileFrom: old for: aClassEditor)]. ^ result ! Item was changed: + ----- Method: CategorizerEditor>>allMethodSelectors (in category 'reflecting - accessing') ----- - ----- Method: CategorizerEditor>>allMethodSelectors (in category 'accessing') ----- allMethodSelectors "give a list of all method selectors." ^ self elementArray copy sort! Item was changed: + ----- Method: CategorizerEditor>>changedElements (in category 'accessing changed elements') ----- - ----- Method: CategorizerEditor>>changedElements (in category 'private') ----- changedElements + "Answers the list of elements that have been added or recategorized" + ^ self changedElementsAndCategoriesCollect: [:anElement :aCategory | anElement]! Item was removed: - ----- Method: CategorizerEditor>>subjectListAtCategoryNamed: (in category 'private') ----- - subjectListAtCategoryNamed: catName - | category subjectCategory elements | - self subject ifNil: [^ Array new]. - category := catName asSymbol. - (self subjectCategories includes: category) ifFalse: [^ nil]. - subjectCategory := self oldCategoryFor: category. - elements := (subject listAtCategoryNamed: subjectCategory) ifNil: [^ nil]. - ^ elements difference: self removedElements, self changedElements! Item was removed: - ----- Method: CategorizerEditor>>changesRemoveCategory: (in category 'subclass responsibility') ----- - changesRemoveCategory: category! Item was removed: - ----- Method: OrganizationEditor>>edPrepareMigration: (in category 'building') ----- - edPrepareMigration: txn - self edRequiresBuild - ifTrue: [txn addMigrator: (ObjectMigrator - origin: self subject - destination: self build)]! Item was removed: - ----- Method: CategorizerEditor>>classifyChange:under:suppressIfDefault: (in category 'subclass responsibility') ----- - classifyChange: element under: category suppressIfDefault: aBoolean! Item was removed: - ----- Method: OrganizationEditor>>build (in category 'building') ----- - build - | result | - self subject. - subject ifNil: [ - result := ClassOrganizer defaultList: #()] - ifNotNil: [ - result := ClassOrganizer defaultList: self subject elementArray. - self subject categories ifNotNilDo: - [:categories | categories do: [:ea | - result classifyAll: (subject listAtCategoryNamed: ea) under: ea]]]. - classEditor edMethodsDo: [:ea | - result classify: ea selector under: (self categoryOfElement: ea selector)]. - result - edClassComment: self commentRemoteStr - stamp: self commentStamp. - ^ result! Item was removed: - ----- Method: CategorizerEditor>>changesAddCategory:before: (in category 'subclass responsibility') ----- - changesAddCategory: newCategory before: nextCategory - ! Item was removed: - ----- Method: CategorizerEditor>>changesRemoveElement: (in category 'subclass responsibility') ----- - changesRemoveElement: element! Item was removed: - ----- Method: CategorizerEditor>>subjectCategories (in category 'private') ----- - subjectCategories - self subject ifNil: [^ Array new]. - ^ (self subject categories difference: removedCategories) - collect: [:cat | self newCategoryFor: cat]! Item was removed: - ----- Method: CategorizerEditor>>changesRenameCategory:toBe: (in category 'subclass responsibility') ----- - changesRenameCategory: oldCategory toBe: newCategory!

1 0

SystemEditor: SystemEditor-mtf.125.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.125.mcz ==================== Summary ==================== Name: SystemEditor-mtf.125 Author: mtf Time: 6 October 2008, 1:51:23 pm UUID: b0d09004-12ee-4beb-9c69-711083d3894a Ancestors: SystemEditor-mtf.124 Class organization was not being updated if methods were removed from a class, but not added =============== Diff against SystemEditor-mtf.124 =============== Item was changed: ----- Method: OrganizationEditor>>edRequiresBuild (in category 'building') ----- edRequiresBuild + ^ isDirty or: [classEditor isMethodsChanged]! - classEditor edMethodsDo: [:ea | ^ true]. - ^ isDirty! Item was added: + ----- Method: ClassDescriptionEditor>>isMethodsChanged (in category 'testing') ----- + isMethodsChanged + methods ifNil: [^ false]. + ^ methods isChanged! Item was added: + ----- Method: OldMetaclassEditor>>isMethodsChanged (in category 'testing') ----- + isMethodsChanged + methods ifNil: [^ false]. + ^ methods isChanged! Item was added: + ----- Method: DictionaryEditor>>isChanged (in category 'testing') ----- + isChanged + ^ additions notEmpty or: [removals notEmpty]!

1 0

SystemEditor: SystemEditor-mtf.124.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.124.mcz ==================== Summary ==================== Name: SystemEditor-mtf.124 Author: mtf Time: 6 October 2008, 12:33:39 pm UUID: 25458d7e-9457-4e14-be42-e583e0cb0a12 Ancestors: SystemEditor-mtf.123 fixed an atomicity violation in MethodDictionaryEditor, and documented the reason why it was changed in the first place (SystemEditor-mtf.108), namely to support SyntaxError dialogs =============== Diff against SystemEditor-mtf.123 =============== Item was changed: ----- Method: MetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. result := class basicNew. + "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; organization: self organization build. result setInstVarNames: self instVarNames. ^ result! Item was changed: ----- Method: MethodEditor>>compileFor: (in category 'building') ----- compileFor: aClassEditor [ | node method | node := aClassEditor compilerClass new compile: source in: aClassEditor product notifying: requestor ifFail: nil. node encoder requestor: self. method := node generate: #(0 0 0 0). (method respondsTo: #selector:) "set selector on 3.9 and above" ifTrue: [method selector: node selector]. ^ method ] on: SyntaxErrorNotification do: [:ex | "In 3.10, the class category needs to be set" ex instVarNamed: #category put: aClassEditor category. + "Let the user fix and install the fixed code into the class's old or temporary MethodDictionary" - "Let the user install the fixed code into the system" ex outer. "Now fetch and use that code instead" source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil]. ^ aClassEditor product compiledMethodAt: self selector ]! Item was changed: ----- Method: OldMetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. result := class basicNew. + "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; organization: self organization build. result setInstVarNames: self instVarNames. ^ result! Item was changed: ----- Method: ClassEditor>>edBuild (in category 'building') ----- edBuild | meta | meta := self class edBuild. product := subject ifNil: [meta new] ifNotNil: [meta adoptInstance: subject from: subject class]. product superclass: self edSuperclass; setFormat: self format; setName: self name; setInstVarNames: self instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization build. + "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" product methodDictionary: MethodDictionary new. self decoratorsDo: [:ea | ea buildFor: self]. "Class methods should be compiled before instance methods, since #compilerClass may be among the class methods" self class methods buildFor: self class. self methods buildFor: self. ^product! Item was changed: ----- Method: MethodDictionaryEditor>>buildFor: (in category 'editing') ----- buildFor: aClassEditor | result old | + result := MethodDictionary new. - result := aClassEditor product methodDictionary. self subject keysAndValuesDo: [:selector :cm | (self selectorIsModified: selector) ifFalse: [result at: selector put: (self recompile: selector from: cm for: aClassEditor)]]. additions keysAndValuesDo: [:selector :mm | old := self subject at: selector ifAbsent: [nil]. result at: selector put: (mm compileFrom: old for: aClassEditor)]. ^ result !

1 0

Monticello Public: Monticello.impl-mtf.579.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.579.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.579 Author: mtf Time: 7 October 2008, 3:28:58 pm UUID: 6be37648-104a-48e8-b3e2-b339f143e086 Ancestors: Monticello.impl-mtf.578 fixed bug 7208: merging or viewing changes of a package now shows diffs where packaged elements override things outside the package =============== Diff against Monticello.impl-mtf.578 =============== Item was changed: ----- Method: MCPackage>>patchSnapshot (in category 'patching') ----- patchSnapshot + ^ self snapshot asPatchSnapshot! - ^ MCImageBackedSnapshot fromDefinitions: (self snapshot definitions)! Item was changed: ----- Method: MCThreeWayMerger>>addDefinition: (in category 'as yet unclassified') ----- addDefinition: aDefinition index definitionLike: aDefinition ifPresent: [:other | (self removalForDefinition: aDefinition) ifNotNilDo: [:op | self addOperation: (MCModification of: other to: aDefinition). self removeOperation: op. ^ self]. other = aDefinition + ifFalse: [(aDefinition isMethodDefinition and: [aDefinition isOverrideMethod]) + ifTrue: [self addOperation: (MCModification of: other to: aDefinition)] + ifFalse: [self addConflictWithOperation: (MCModification of: other to: aDefinition)]] - ifFalse: [self addConflictWithOperation: (MCModification of: other to: aDefinition)] ifTrue: [self redundantAdds add: aDefinition]] ifAbsent: [self addOperation: (MCAddition of: aDefinition)]! Item was changed: ----- Method: MCImageBackedDefinitionIndex>>definitionLike:ifPresent:ifAbsent: (in category 'as yet unclassified') ----- definitionLike: aDefinition ifPresent: foundBlock ifAbsent: errorBlock + | definition | + ^ super definitionLike: aDefinition ifPresent: foundBlock ifAbsent: [ + definition := aDefinition fromImage. + definition + ifNil: [errorBlock value] + ifNotNil: [foundBlock value: definition]]! - ^ super definitionLike: aDefinition ifPresent: foundBlock - ifAbsent: [aDefinition fromImage ifNil: [errorBlock value]]! Item was changed: ----- Method: MCVersion>>changes (in category 'accessing') ----- changes + ^ self snapshot patchRelativeToBase: package patchSnapshot! - ^ self snapshot patchRelativeToBase: package snapshot! Item was changed: ----- Method: MCThreeWayMerger>>initialize (in category 'as yet unclassified') ----- initialize + index := MCImageBackedDefinitionIndex new. - index := MCDefinitionIndex new. provisions := Set new! Item was added: + ----- Method: MCImageBackedDefinitionIndex>>asPatchSnapshot (in category 'as yet unclassified') ----- + asPatchSnapshot + ^ self! Item was added: + ----- Method: MCSnapshot>>asPatchSnapshot (in category 'patching') ----- + asPatchSnapshot + ^ MCImageBackedSnapshot fromDefinitions: definitions!

1 0

Monticello Public: Monticello.impl-mtf.578.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.578.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.578 Author: mtf Time: 7 October 2008, 1:20:20 pm UUID: 8fb1b304-95dd-4e84-9c6b-142c90a9ff0a Ancestors: Monticello.impl-mtf.577 implemented MCPackage>>patchSnapshot, which will make diffs that fix bug 7208 =============== Diff against Monticello.impl-mtf.577 =============== Item was added: + ----- Method: MCPackage>>patchSnapshot (in category 'patching') ----- + patchSnapshot + ^ MCImageBackedSnapshot fromDefinitions: (self snapshot definitions)! Item was changed: ----- Method: MCPatch>>initializeWithBase:target: (in category 'intializing') ----- + initializeWithBase: base target: target + "Generates operation from the given MCDefinitionIndexes" + - initializeWithBase: baseSnapshot target: targetSnapshot - | base target | operations := OrderedCollection new. - base := MCDefinitionIndex definitions: baseSnapshot definitions. - target := MCDefinitionIndex definitions: targetSnapshot definitions. target definitions do: [:t | base definitionLike: t ifPresent: [:b | (b isSameRevisionAs: t) ifFalse: [operations add: (MCModification of: b to: t)]] ifAbsent: [operations add: (MCAddition of: t)]] displayingProgress: 'Diffing...'. base definitions do: [:b | target definitionLike: b ifPresent: [:t] ifAbsent: [operations add: (MCRemoval of: b)]] ! Item was changed: ----- Method: MCPatch class>>fromBase:target: (in category 'as yet unclassified') ----- fromBase: baseSnapshot target: targetSnapshot + ^ self new initializeWithBase: baseSnapshot definitionIndex + target: targetSnapshot definitionIndex! - ^ self new initializeWithBase: baseSnapshot target: targetSnapshot! Item was added: + ----- Method: MCDefinition>>fromImage (in category 'converting') ----- + fromImage + "Answer a copy of myself, but at the version that exists in the image. Answers nil if no such version exists" + + ^ nil! Item was added: + ----- Method: MCImageBackedDefinitionIndex>>definitionLike:ifPresent:ifAbsent: (in category 'as yet unclassified') ----- + definitionLike: aDefinition ifPresent: foundBlock ifAbsent: errorBlock + ^ super definitionLike: aDefinition ifPresent: foundBlock + ifAbsent: [aDefinition fromImage ifNil: [errorBlock value]]! Item was added: + ----- Method: MCClassDefinition>>fromImage (in category 'converting') ----- + fromImage + ^ self actualClass ifNotNil: [self actualClass asClassDefinition]! Item was added: + ----- Method: MCImageBackedSnapshot>>definitionIndex (in category 'as yet unclassified') ----- + definitionIndex + ^ MCImageBackedDefinitionIndex definitions: definitions! Item was added: + ----- Method: MCMethodDefinition>>fromImage (in category 'converting') ----- + fromImage + | class | + class := self actualClass ifNil: [^ nil]. + (class includesLocalSelector: selector) ifFalse: [^ nil]. + ^(MethodReference new setStandardClass: class methodSymbol: selector) asMethodDefinition! Item was added: + MCDefinitionIndex subclass: #MCImageBackedDefinitionIndex + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Patching'! + + !MCImageBackedDefinitionIndex commentStamp: '<historical>' prior: 0! + When using definitionLike: ... I go to the image before giving up! Item was added: + MCSnapshot subclass: #MCImageBackedSnapshot + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Patching'! Item was changed: ----- Method: MCMethodDefinition>>actualClassIn: (in category 'accessing') ----- actualClassIn: anEnvironment + ^ (theClass := anEnvironment classNamed: className) + ifNotNilDo: [:class | classIsMeta ifTrue: [class classSide] ifFalse: [class]]! - ^ theClass := anEnvironment at: className - ifPresent: [:class | classIsMeta ifTrue: [class classSide] ifFalse: [class]]! Item was added: + ----- Method: MCSnapshot>>definitionIndex (in category 'patching') ----- + definitionIndex + ^ MCDefinitionIndex definitions: definitions!

1 0

Monticello Public: Monticello.impl-mtf.577.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.577.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.577 Author: mtf Time: 4 October 2008, 10:54:31 am UUID: 3b365775-b75a-443a-94dd-1e87ca5300ef Ancestors: Monticello.impl-mtf.576 Moved the extension MethodReference>>category into mantis issue 7205 =============== Diff against Monticello.impl-mtf.576 =============== Item was removed: - ----- Method: MethodReference>>category (in category '*monticello') ----- - category - ^ self actualClass organization categoryOfElement: methodSymbol!

1 0

Monticello Public: PackageInfo-Base-mtf.56.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-mtf.56.mcz ==================== Summary ==================== Name: PackageInfo-Base-mtf.56 Author: mtf Time: 4 October 2008, 10:18:21 am UUID: ea7fa2e0-3be1-4482-be7c-fc040b5caf32 Ancestors: PackageInfo-Base-mtf.55 Make use of Mantis fix 7205: use the category ivar of MethodReference to speed up MC snapshotting Removed an unused extension method from MethodReference =============== Diff against PackageInfo-Base-mtf.55 =============== Item was changed: ----- Method: PackageInfo>>methodsInClass:category:do: (in category 'single-pass') ----- methodsInClass: aClass category: aCategory do: aBlock "Enumerate the methods in the given class and category" (aClass organization listAtCategoryNamed: aCategory) do: [:selector | + aBlock value: ((self referenceForMethod: selector ofClass: aClass) category: aCategory)]! - aBlock value: (self referenceForMethod: selector ofClass: aClass)]! Item was removed: - ----- Method: MethodReference>>sourceCode (in category '*packageinfo-base') ----- - sourceCode - ^ self actualClass sourceCodeAt: methodSymbol!

1 0

Monticello Public: Monticello.impl-mtf.576.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.576.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.576 Author: mtf Time: 3 October 2008, 11:23:53 pm UUID: 0f9c8ae1-7183-4ab2-8211-16f40ba88324 Ancestors: Monticello.impl-mtf.575 use the progress bar routine in the new PackageInfo fast snapshot collector =============== Diff against Monticello.impl-mtf.575 =============== Item was changed: ----- Method: MCPackage>>snapshot (in category 'as yet unclassified') ----- snapshot | definitions categories packageInfo | packageInfo := self packageInfo. definitions := OrderedCollection new. categories := packageInfo systemCategories. definitions addAll: (self orphanage orphansFor: packageInfo). definitions removeAllFoundIn: self orphanage unlinkedClasses. categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ]. packageInfo classesDo: [:ea | definitions addAll: ea classDefinitions] + methodsDo: [:ea | definitions add: ea asMethodDefinition] + displayingProgress: 'Snapshotting...'. - methodsDo: [:ea | definitions add: ea asMethodDefinition]. MCScriptDefinition subclassesDo: [ :ea | ea from: packageInfo addTo: definitions ]. ^ MCSnapshot fromDefinitions: definitions !

1 0

Monticello Public: PackageInfo-Base-mtf.55.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-mtf.55.mcz ==================== Summary ==================== Name: PackageInfo-Base-mtf.55 Author: mtf Time: 3 October 2008, 11:22:58 pm UUID: 80c3622f-1833-4552-84f0-ff8c38e02a2f Ancestors: PackageInfo-Base-mtf.54 added a progress bar to the new fast collector =============== Diff against PackageInfo-Base-mtf.54 =============== Item was added: + ----- Method: PackageInfo>>classesDo:methodsDo:displayingProgress: (in category 'single-pass') ----- + classesDo: classBlock methodsDo: methodBlock displayingProgress: aString + "Enumerates all non-meta classes and all methods in the package, and displays a progress bar" + + | classes methods i | + (1 to: 2) do: [:ignored | ] displayingProgress: 'Collecting...'. + classes := OrderedCollection new. + methods := OrderedCollection new. + self + classesDo: [:class | classes add: class] + methodsDo: [:method | methods add: method]. + aString displayProgressAt: Sensor cursorPoint + from: 1 to: classes size + methods size + during: [:bar | i := 0. + classes do: [:class | bar value: (i := i + 1). classBlock value: class]. + methods do: [:method | bar value: (i := i + 1). methodBlock value: method]]!

1 0

← Newer
1
...
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008