A new version of DeltaStreams-Deprecated was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Deprecated-gk.4.mcz
==================== Summary ====================
Name: DeltaStreams-Deprecated-gk.4 Author: gk Time: 3 September 2009, 4:25:52 pm UUID: 38b0222f-d09e-45ce-b178-d0e7cd84358d Ancestors: DeltaStreams-Deprecated-gk.3
Removals.
=============== Diff against DeltaStreams-Deprecated-gk.3 ===============
Item was changed: ----- Method: DSDeltaEditor>>comment:stamp: (in category 'editing') ----- comment: aComment stamp: aStamp
class ifNotNil: [ ^delta commentClass: class + from: class organization classComment asString - from: class organization classComment to: aComment oldStamp: class organization commentStamp newStamp: aStamp] ifNil: [ ^delta commentClassName: className from: '' to: aComment oldStamp: nil newStamp: aStamp]!
Item was changed: ----- Method: DSDeltaEditor>>createClassName: (in category 'editing') ----- createClassName: aName "Add an existing class."
className := aName. + ^delta add: (DSClassCreatedChange className: className)! - ^delta addChange: (DSClassCreatedChange className: className)!
Item was removed: - ----- Method: DSChangeCategorizer class>>forMethods (in category 'as yet unclassified') ----- - forMethods - ^ self - default: [:aSymbol | DSCompositeMethodChange new] - classify: [:aChange | aChange selector]!
Item was removed: - ----- Method: DSGroupedClassChange>>do: (in category 'enumerating') ----- - do: aBlock - super do: aBlock. - self methodChanges do: aBlock. - self classMethodChanges do: aBlock!
Item was removed: - ----- Method: DSChangeCategorizer>>groupsDo: (in category 'enumerating') ----- - groupsDo: aBlock - self dictionary do: [:ea | ea groupsDo: aBlock]!
Item was removed: - ----- Method: DSGroupedClassChange>>classMethodChanges (in category 'accessing') ----- - classMethodChanges - ^ classMethodChanges - ifNil: [classMethodChanges := DSChangeCategorizer forMethods]!
Item was removed: - ----- Method: DSClassRecord>>initializeFrom: (in category 'initialize-release') ----- - initializeFrom: aClass - super initializeFrom: aClass. - classInstVarNames := aClass class instVarNames. - comment := aClass organization classComment. - stamp := aClass organization commentStamp.!
Item was removed: - ----- Method: DSSystemEditorMarker>>editor: (in category 'initialize-release') ----- - editor: aSystemEditor - - editor := aSystemEditor!
Item was removed: - ----- Method: DSGroupedClassChange>>add: (in category 'accessing') ----- - add: aChange - aChange isMethodChange ifTrue: [^ self addMethodChange: aChange]. - ^ super add: aChange!
Item was removed: - ----- Method: DSChangeCategorizer>>keys (in category 'accessing') ----- - keys - ^ self dictionary keys!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassVarsChanged: (in category 'class changes') ----- - applyClassVarsChanged: change - "Changed class vars, we ignore ordering as it is irrelevant - - they are actually kept in a Dictionary." - - | classEditor | - classEditor := self classEditorForChange: change. - change added do: [:each | classEditor addClassVarName: each]. - change removed do: [:each | classEditor removeClassVarName: each]!
Item was removed: - ----- Method: DSClassRecord>>asAntiChange (in category 'anti') ----- - asAntiChange - ^ self copy!
Item was removed: - ----- Method: DSMethodRecord>>asAntiChange (in category 'anti') ----- - asAntiChange - ^ self!
Item was removed: - ----- Method: DSSystemEditorMarker>>ensureSharedPools: (in category 'private') ----- - ensureSharedPools: anArray - anArray do: [:name | Smalltalk at: name asSymbol ifAbsentPut: [Dictionary new]]!
Item was removed: - ----- Method: DSGroupedClassChange>>groupsDo: (in category 'enumerating') ----- - groupsDo: aBlock - super groupsDo: aBlock. - self methodChanges groupsDo: aBlock. - self classMethodChanges groupsDo: aBlock!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyMethodRemoved: (in category 'method changes') ----- - applyMethodRemoved: change - "remove a method from a class. Does nothing if class does not exist." - - | classEditor | - classEditor := editor at: change className ifAbsent: [^ self]. - change isMeta ifTrue: [classEditor := classEditor class]. - classEditor removeSelector: change selector!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassRemoved: (in category 'class changes') ----- - applyClassRemoved: change - "Remove a class. Do nothing if it isn't there'" - - | classEditor | - classEditor := editor at: change className ifAbsent: [^ self]. - classEditor removeFromSystem!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassSuperclassChanged: (in category 'class changes') ----- - applyClassSuperclassChanged: change - "Changed a class superclass." - - (self classEditorForChange: change) - superclass: (editor at: change newSuperclassName ifAbsent: [editor at: #Object])!
Item was removed: - ----- Method: DSSystemEditorMarker>>applySuperclassChanged: (in category 'class changes') ----- - applySuperclassChanged: change - "Change the superclass of a class." - - | classEditor superEditor | - classEditor := editor ensureClassNamed: change className. - superEditor := editor at: change newSuperclassName ifAbsent: [^ self]. - classEditor superclass: superEditor!
Item was removed: - ----- Method: DSMethodRecord>>isRecord (in category 'testing') ----- - isRecord - ^ true!
Item was removed: - ----- Method: DSSystemEditorMarker class>>on: (in category 'as yet unclassified') ----- - on: aSystemEditor - ^ self new editor: aSystemEditor !
Item was removed: - DSClassChange subclass: #DSClassRecord - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'DeltaStreams-Deprecated'! - - !DSClassRecord commentStamp: 'mtf 9/12/2007 18:17' prior: 0! - My instances are responsible for storing the state of the class if there is no other change that can do that. For example, if the only change in a delta is an inst var change, there is no way to get the old class comment. In that case, a record would be logged prior to the inst var change so that the other class data is in the delta. This is not a change. - - A record can go in a Delta, and can be applied, but it should do nothing when applied, unless there is no other source available. So, it mostly serves as a marker in a stream of changes!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyMethodSourceChanged: (in category 'method changes') ----- - applyMethodSourceChanged: change - "Apply a method source change. If class or method is missing, create and categorize under default category." - - (self methodEditorForChange: change) - source: change newSource; - stamp: change newStamp!
Item was removed: - ----- Method: DSChangeCategorizer>>add:classified: (in category 'accessing') ----- - add: aChange classified: aSymbol - (self at: aSymbol) add: aChange. - categorizer ifNotNil: [categorizer classify: aSymbol under: (self at: aSymbol) category]. - ^ aChange!
Item was removed: - ----- Method: DSChangeCategorizer>>dictionary (in category 'accessing') ----- - dictionary - ^ dict ifNil: [dict := Dictionary new]!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassCommentChanged: (in category 'class changes') ----- - applyClassCommentChanged: change - "Changed a class comment." - - (self classEditorForChange: change) classComment: change newComment stamp: change newStamp!
Item was removed: - ----- Method: DSSystemEditorMarker>>methodEditorForChange: (in category 'private') ----- - methodEditorForChange: aMethodChange - "answer the method editor for the change, creating a new, empty method if absent" - - | classEditor | - classEditor := self classEditorForChange: aMethodChange. - classEditor edMethodAt: aMethodChange selector ifAbsent: [classEditor - compile: aMethodChange selector nullMethodSource - classified: Categorizer default]. - ^ classEditor edMethodAt: aMethodChange selector!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassNameChanged: (in category 'class changes') ----- - applyClassNameChanged: change - "Changed a class name. If the old class does not exist, do nothing. If the new name already exists, the behavior is not implemented" - - (editor includesKey: change oldName) ifFalse: [^ self]. - (editor includesKey: change newName) ifTrue: [^ self error: 'Class rename conflict. See the comment in DSDeltaDirtyApplyTest>>testClassRenameConfict']. - (self classEditorForChange: change) rename: change newName.!
Item was removed: - ----- Method: DSChangeCategorizer>>buildCategorizer (in category 'accessing') ----- - buildCategorizer - | aCategorizer | - aCategorizer := Categorizer defaultList: Array new. - self dictionary keysAndValuesDo: [:name :group | aCategorizer classify: name under: group category]. - ^ aCategorizer!
Item was removed: - ----- Method: DSGroupedClassChange>>reverseDo: (in category 'enumerating') ----- - reverseDo: aBlock - self classMethodChanges reverseDo: aBlock. - self methodChanges reverseDo: aBlock. - super reverseDo: aBlock. - !
Item was removed: - ----- Method: DSClassRecord>>classInstVarChange (in category 'convenience') ----- - classInstVarChange - ^ DSClassInstVarsChange className: className - from: Array new - to: classInstVarNames!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyMethodSnapshot: (in category 'as yet unclassified') ----- - applyMethodSnapshot: snapshot - "Snapshots just record the old version; there is no new version. So, only apply them if there is nothing better." - (self classEditorForChange: snapshot) - edMethodAt: snapshot selector ifAbsent: [self applyMethodAdded: snapshot]!
Item was removed: - ----- Method: DSChangeCategorizer>>at: (in category 'accessing') ----- - at: aSymbol - ^ self dictionary at: aSymbol ifAbsentPut: [defaultBlock value: aSymbol]!
Item was removed: - ----- Method: DSClassRecord>>isChange (in category 'testing') ----- - isChange - ^ false!
Item was removed: - ----- Method: DSMethodRecord>>isChange (in category 'testing') ----- - isChange - ^ false!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassInstVarsChanged: (in category 'class changes') ----- - applyClassInstVarsChanged: change - "Changed class instvars." - - | classEditor | - classEditor := self classEditorForChange: change. - change added do: [:each | classEditor addInstVarName: each]. - change removed do: [:each | classEditor removeInstVarName: each]. - change moved notEmpty ifTrue: [ - classEditor rearrangeInstVarNames: change movedWithIndices]!
Item was removed: - ----- Method: DSGroupedClassChange>>addMethodChange: (in category 'private') ----- - addMethodChange: aChange - ^ (aChange isMeta - ifFalse: [self methodChanges] - ifTrue: [self classMethodChanges] - ) add: aChange!
Item was removed: - ----- Method: DSGroupedClassChange>>methodChanges (in category 'accessing') ----- - methodChanges - ^ methodChanges ifNil: [methodChanges := DSChangeCategorizer forMethods]!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyMethodProtocolChanged: (in category 'method changes') ----- - applyMethodProtocolChanged: change - "Change the protocol of a method, Does nothing if either the class or the method don't exist'" - - (self methodEditorForChange: change) - category: change newProtocol!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyMethodAdded: (in category 'method changes') ----- - applyMethodAdded: change - "Add a method to the class." - - (self classEditorForChange: change) - compile: change source - classified: change protocol - withStamp: change stamp - notifying: nil - logSource: true!
Item was removed: - DSCompositeClassChange subclass: #DSGroupedClassChange - instanceVariableNames: 'methodChanges classMethodChanges' - classVariableNames: '' - poolDictionaries: '' - category: 'DeltaStreams-Deprecated'! - - !DSGroupedClassChange commentStamp: 'mtf 9/21/2007 12:55' prior: 0! - My instances represent changes made to a specific class, grouped by method for easy lookup. This is especially useful when browsing a delta - - I may be superceded by DSChangeCategorizer, but am still referenced. I may be removed in the future!
Item was removed: - ----- Method: DSClassRecord>>isRecord (in category 'testing') ----- - isRecord - ^ true!
Item was removed: - ----- Method: DSChangeCategorizer>>applyUsing: (in category 'applying') ----- - applyUsing: anApplier - anApplier applyCategorizedCompositeChange: self!
Item was removed: - ----- Method: DSChangeCategorizer>>do: (in category 'enumerating') ----- - do: aBlock - self dictionary do: [:ea | ea do: aBlock]!
Item was removed: - ----- Method: DSChangeCategorizer>>default:classify: (in category 'initialize-release') ----- - default: aDefaultBlock classify: aClassifyBlock - defaultBlock := aDefaultBlock. - classifyBlock := aClassifyBlock!
Item was removed: - ----- Method: DSSystemEditorMarker>>classEditorForChange: (in category 'private') ----- - classEditorForChange: change - | classEditor | - classEditor := editor ensureClassNamed: change className. - ^ change isMeta - ifTrue: [classEditor class] - ifFalse: [classEditor].!
Item was removed: - ----- Method: DSChangeCategorizer>>add: (in category 'accessing') ----- - add: aChange - self add: aChange classified: (classifyBlock value: aChange). - aChange isName ifTrue: [ - self dictionary at: aChange newName put: (self dictionary at: aChange oldName). - self dictionary removeKey: aChange oldName]. - ^ aChange - !
Item was removed: - ----- Method: DSMethodRecord>>isRevertable (in category 'testing') ----- - isRevertable - ^ false!
Item was removed: - ----- Method: DSChangeCategorizer>>organization (in category 'accessing') ----- - organization - ^ categorizer ifNil: [categorizer := self buildCategorizer]!
Item was removed: - ----- Method: DSChangeCategorizer class>>forClassesAndMethods (in category 'as yet unclassified') ----- - forClassesAndMethods - ^ self - default: [:aSymbol | DSGroupedClassChange new] - classify: [:aChange | aChange className]!
Item was removed: - DSMethodChange subclass: #DSMethodRecord - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'DeltaStreams-Deprecated'! - - !DSMethodRecord commentStamp: 'mtf 9/12/2007 18:16' prior: 0! - See the comment in DSClassRecord. My instances serve the same purpose, but for methods!
Item was removed: - ----- Method: DSChangeCategorizer class>>forClasses (in category 'as yet unclassified') ----- - forClasses - ^ self - default: [:aSymbol | DSCompositeClassChange new] - classify: [:aChange | aChange className]!
Item was removed: - DSMarker subclass: #DSSystemEditorMarker - instanceVariableNames: 'editor' - classVariableNames: '' - poolDictionaries: '' - category: 'DeltaStreams-Deprecated'! - - !DSSystemEditorMarker commentStamp: '<historical>' prior: 0! - My instances add some flags to changes that pass through it, based on the system state maintained in the editor!
Item was removed: - ----- Method: DSGroupedClassChange>>addChange: (in category 'accessing') ----- - addChange: aChange - aChange isMethodChange ifTrue: [^ self addMethodChange: aChange]. - ^ super addChange: aChange!
Item was removed: - ----- Method: DSChangeCategorizer class>>default:classify: (in category 'as yet unclassified') ----- - default: aDefaultBlock classify: aClassifyBlock - ^ self new default: aDefaultBlock classify: aClassifyBlock!
Item was removed: - DSCompositeChange subclass: #DSChangeCategorizer - instanceVariableNames: 'dict defaultBlock classifyBlock categorizer' - classVariableNames: '' - poolDictionaries: '' - category: 'DeltaStreams-Deprecated'! - - !DSChangeCategorizer commentStamp: 'mtf 9/6/2007 23:57' prior: 0! - My instances automatically group the changes added to them. I implement the Categorizer protocol, so I can be used directly by Browser and friends.!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassCreated: (in category 'class changes') ----- - applyClassCreated: change - "Add a class." - - | classEditor superclassEditor | - self ensureSharedPools: change poolDictionaryNames. - superclassEditor := editor at: change superclassName ifAbsent: [editor at: #Object]. - classEditor := superclassEditor subclass: change className - instanceVariableNames: change instVarNames asSpaceString - classVariableNames: change classVarNames asSpaceString - poolDictionaries: change poolDictionaryNames asSpaceString - category: change category. - classEditor typeOfClass: change type!
Item was removed: - ----- Method: DSSystemEditorMarker>>applySharedPoolVarsChanged: (in category 'class changes') ----- - applySharedPoolVarsChanged: change - "Changed shared pool vars. Currently we just raise error if missing!!" - - | classEditor | - self ensureSharedPools: change added. - classEditor := self classEditorForChange: change. - change added do: [:each | - classEditor addSharedPool: (classEditor system edResolve: each asSymbol ifAbsent:[ - self error: 'Pool variable ',each,' not found!!'])]. - change removed do: [:each | - classEditor removeSharedPool: (classEditor system edResolve: each asSymbol ifAbsent:[])]. - change moved notEmpty ifTrue: [ - classEditor rearrangeSharedPoolVarNames: change movedWithIndices]!
Item was removed: - ----- Method: DSClassRecord>>applyUsing: (in category 'applying') ----- - applyUsing: anApplier - ^ anApplier applyClassSnapshot: self!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyClassCategoryChanged: (in category 'class changes') ----- - applyClassCategoryChanged: change - "Changed a class category." - - (self classEditorForChange: change) category: change newCategory!
Item was removed: - ----- Method: DSMethodRecord>>applyUsing: (in category 'applying') ----- - applyUsing: anApplier - anApplier applyMethodSnapshot: self!
Item was removed: - ----- Method: DSClassRecord>>commentChange (in category 'convenience') ----- - commentChange - ^ DSClassCommentChange className: className - from: '' - to: comment - oldStamp: '' - newStamp: stamp!
Item was removed: - ----- Method: DSChangeCategorizer>>reverseDo: (in category 'enumerating') ----- - reverseDo: aBlock - self dictionary do: [:ea | ea reverseDo: aBlock]!
Item was removed: - ----- Method: DSSystemEditorMarker>>applyInstVarsChanged: (in category 'class changes') ----- - applyInstVarsChanged: change - "Changed instvars." - - | classEditor | - classEditor := self classEditorForChange: change. - change added do: [:each | classEditor addInstVarName: each]. - change removed do: [:each | classEditor removeInstVarName: each]. - change moved notEmpty ifTrue: [ - classEditor rearrangeInstVarNames: change movedWithIndices]!