Packages September 2009

packages@lists.squeakfoundation.org

1 participants
34 discussions

DeltaStreams: DeltaStreams-Model-gk.20.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Sep '09

07 Sep '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-gk.20.mcz ==================== Summary ==================== Name: DeltaStreams-Model-gk.20 Author: gk Time: 7 September 2009, 6:27:02 am UUID: 9cf8d97e-16dd-4839-a2e4-6f5d001f513d Ancestors: DeltaStreams-Model-Igor.Stasenko.19 Removed some cruft. Removed the grouper decoration. Renamed clearChanges to removeAll. =============== Diff against DeltaStreams-Model-Igor.Stasenko.19 =============== Item was added: + ----- Method: DSChangeSequence>>removeAll (in category 'applying') ----- + removeAll + "Remove all changes and return them." + + | oldChanges | + oldChanges := changes. + changes := nil. + ^oldChanges! Item was changed: ----- Method: DSMethodChange>>fromChange: (in category 'initialize-release') ----- fromChange: aChange super fromChange: aChange. - self className: aChange className. self selector: aChange selector. self meta: aChange meta. self source: aChange source. self protocol: aChange protocol. self stamp: aChange stamp. ! Item was changed: + ----- Method: DSDelta>>compress (in category 'changes') ----- - ----- Method: DSDelta>>compress (in category 'manipulate') ----- compress "Modify changes so that they are compacted into the minimal form still producing the equivalent end result. In other words - remove redundancy. Fir we move all class rename changes to the beginning, but AFTER any DoIts. Then we remove all redundant shadowed changes. Finally we merge those we can merge." changeSequence ifNotNil: [ changeSequence moveClassNameChanges; removeShadows; mergeChanges]! Item was changed: ----- Method: DSDelta>>remove: (in category 'changes') ----- remove: aChange | change | + change := changeSequence remove: change. - change := self changes remove: change. - self grouper ifNotNil: [self grouper remove: change]. self changed: #changeList. ^ change! Item was changed: DSChange subclass: #DSDoIt + instanceVariableNames: 'contextWasNil kind status antiDoIt doIt' - instanceVariableNames: 'expression antiExpression contextWasNil kind status antiDoIt doIt' classVariableNames: '' poolDictionaries: '' category: 'DeltaStreams-Model-Base'! !DSDoIt commentStamp: 'gk 9/5/2009 15:24' prior: 0! A DSDoIt change is only recorded if you expressly configure the Delta to record them. While catching all doits this also creates redundant doits because for class definition changes the Delta will record both the event coming from ClassBuilder and then the doit itself too. Not sure exactly how we can prevent this in a NICE way Currently DoIts are handled like this: - We only record them if the Delta is configured to do that, see #recordDoits: - We only apply them if they are marked explicitly to be applied, see #executeOnApply: - We only consider a DoIt reversable if the antiDoIt if is set to something other than nil. Good rules to follow: 1. Do not record or use DoIts. :) If you really need to have a DoIt in your Delta, put it there manually. 2. If you record DoIts because you do not want to miss anything , prune them out before distributing the Delta. 3. If you still have a DoIt in your Delta that you intend to distribute, make sure that: - It can cope with missing globals/classes!! - It can be safely run multiple times without problems!! - You marked it to be run on apply using #executeOnApply:. This is an EXPLICIT step for a reason. - If it should do able to be REVERSED you need to supply an antiDoIt. - Put DoIts preferrably first or last in the Delta to avoid strange situations. Remember that even if changes are ordered they may be applied atomically by an applier. NOTE: A Delta containing any DoIt will be visualized as "dangerous" in the user interfaces so please avoid them unless you REALLY need them.! Item was changed: + ----- Method: DSDelta>>classGroupsDo: (in category 'changes') ----- - ----- Method: DSDelta>>classGroupsDo: (in category 'manipulate') ----- classGroupsDo: aBlock "Execute a block for all groups of changes per class." | groups coll | groups := Dictionary new. self changes do: [:each | coll := groups at: each className ifAbsentPut: [SortedCollection new]. coll add: each]. groups values do: [:group | aBlock value: group]! Item was changed: ----- Method: DSDelta>>add: (in category 'changes') ----- add: aChange + changeSequence add: aChange. - self changes add: aChange. - self grouper ifNotNil: [self grouper add: aChange]. self changed: #changeList. ^ aChange! Item was removed: - ----- Method: DSChangeSequence>>clearChanges (in category 'applying') ----- - clearChanges - "Remove all changes and return them." - - | oldChanges | - oldChanges := changes. - changes := nil. - ^oldChanges! Item was removed: - ----- Method: DSDoIt>>expression (in category 'accessing') ----- - expression - ^ expression! Item was removed: - ----- Method: DSDelta>>grouper (in category 'accessing') ----- - grouper - - ^self propertyAt: #grouper! Item was removed: - ----- Method: DSDelta>>test (in category 'accessing') ----- - test - - ^test!

1 0

DeltaStreams: DeltaStreams-Model-Igor.Stasenko.19.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Sep '09

07 Sep '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-Igor.Stasenko.1… ==================== Summary ==================== Name: DeltaStreams-Model-Igor.Stasenko.19 Author: Igor.Stasenko Time: 7 September 2009, 5:59:11 am UUID: 9a4c0c26-2aa2-7a40-9db8-5c9704f703f6 Ancestors: DeltaStreams-Model-Igor.Stasenko.18 - a better fix of #isReversable and #executeOnApply code in DSDoIt - still wonder what are 'expression' ivars added for? =============== Diff against DeltaStreams-Model-Igor.Stasenko.18 =============== Item was changed: ----- Method: DSDoIt>>executeOnApply (in category 'configuration') ----- executeOnApply + "Auto-convert nil to false" + ^(self propertyAt: #executeOnApply) == true! - ^self propertyAt: #executeOnApply! Item was changed: ----- Method: DSDoIt>>isReversable (in category 'testing') ----- isReversable "If this DoIt is marked to NOT execute (then it of course does nothing and is trivially reversable) or if there is a supplied antiDoIt signifying that it indeed can be reversed. NOTE: We trust the developer here. isReversable does NOT mean that it will work." + ^self executeOnApply not or: [antiDoIt notNil]! - ^self executeOnApply == false or: [antiDoIt notNil]!

1 0

DeltaStreams: DeltaStreams-Browser-Igor.Stasenko.3.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Sep '09

07 Sep '09

1 0

DeltaStreams: DeltaStreams-Model-Igor.Stasenko.18.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Sep '09

07 Sep '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-Igor.Stasenko.1… ==================== Summary ==================== Name: DeltaStreams-Model-Igor.Stasenko.18 Author: Igor.Stasenko Time: 7 September 2009, 5:09:30 am UUID: 7b30c951-3fce-b045-8a83-adb83114f5f0 Ancestors: DeltaStreams-Model-Igor.Stasenko.17 - fixed some stuff in DSDoIt to make it play nicely with viewer =============== Diff against DeltaStreams-Model-Igor.Stasenko.17 =============== Item was changed: ----- Method: DSDoIt>>applyUsing: (in category 'applying') ----- applyUsing: anApplier "Apply this change to the image. Double dispatch." + ^ anApplier applyDoIt: self! - anApplier applyDoIt: self! Item was added: + ----- Method: DSDoIt>>doIt (in category 'accessing') ----- + doIt + ^ doIt! Item was added: + ----- Method: DSDoIt>>expression (in category 'accessing') ----- + expression + ^ expression! Item was changed: ----- Method: DSDoIt>>isReversable (in category 'testing') ----- isReversable "If this DoIt is marked to NOT execute (then it of course does nothing and is trivially reversable) or if there is a supplied antiDoIt signifying that it indeed can be reversed. NOTE: We trust the developer here. isReversable does NOT mean that it will work." + ^self executeOnApply == false or: [antiDoIt notNil]! - ^self executeOnApply not or: [antiDoIt notNil]!

1 0

DeltaStreams: DeltaStreams-Browser-Igor.Stasenko.2.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Sep '09

07 Sep '09

Igor Stasenko uploaded a new version of DeltaStreams-Browser to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Browser-Igor.Stasenko… ==================== Summary ==================== Name: DeltaStreams-Browser-Igor.Stasenko.2 Author: Igor.Stasenko Time: 7 September 2009, 4:46:43 am UUID: 39e1b5dc-2a21-be46-8d40-b4dda2eb105f Ancestors: DeltaStreams-Browser-Igor.Stasenko.1 - covered all class change types - cleaned up the code a bit =============== Diff against DeltaStreams-Browser-Igor.Stasenko.1 =============== Item was changed: + ----- Method: DSDeltaChangeViewer>>applyClassChange: (in category 'class changes') ----- - ----- Method: DSDeltaChangeViewer>>applyClassChange: (in category 'dschange dispatch') ----- applyClassChange: aChange "Default handler for any class change." ^ { (self makeTextLabel: 'No view for ' , aChange class name) frame: (0@0 corner: 1 @ 1); yourself. } ! Item was added: + ----- Method: DSDeltaChangeViewer>>applyClassTypeChanged: (in category 'class changes') ----- + applyClassTypeChanged: aChange + "Changed the type of a class" + + ^ self buildClassChangePane: aChange + message: 'Class type changed' + showMeta: false + ! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyMethodAdded: (in category 'method changes') ----- - ----- Method: DSDeltaChangeViewer>>applyMethodAdded: (in category 'dschange dispatch') ----- applyMethodAdded: aChange ^ { (self makeTextLabel: 'Method added - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: aChange stamp, ' - ', aChange protocol) frame: (0(a)0.05 corner: 1 @ 0.1); yourself. builder pluggableTextSpec new model: aChange; getText: #source; frame: (0(a)0.1 corner: 1 @ 1); yourself. }! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyMethodRemoved: (in category 'method changes') ----- - ----- Method: DSDeltaChangeViewer>>applyMethodRemoved: (in category 'dschange dispatch') ----- applyMethodRemoved: aChange ^ { (self makeTextLabel: 'Method removed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: aChange stamp, ' - ', aChange protocol) frame: (0(a)0.05 corner: 1 @ 0.1); yourself. builder pluggableTextSpec new model: aChange; getText: #source; frame: (0(a)0.1 corner: 1 @ 1); yourself. }! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyClassRemoved: (in category 'class changes') ----- - ----- Method: DSDeltaChangeViewer>>applyClassRemoved: (in category 'dschange dispatch') ----- applyClassRemoved: aChange ^ { (self makeTextLabel: 'Class removed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. builder pluggableCodePaneSpec new model: (self getEditorFor: aChange) definition; getText: #value; frame: (0(a)0.05 corner: 1 @ 1); yourself. }! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyClassCreated: (in category 'class changes') ----- - ----- Method: DSDeltaChangeViewer>>applyClassCreated: (in category 'dschange dispatch') ----- applyClassCreated: aChange ^ { (self makeTextLabel: 'Class added - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. builder pluggableCodePaneSpec new model: (self getEditorFor: aChange) definition; getText: #value; frame: (0(a)0.05 corner: 1 @ 1); yourself. }! Item was changed: DSVisitor subclass: #DSDeltaChangeViewer instanceVariableNames: 'before change builder' classVariableNames: '' poolDictionaries: '' category: 'DeltaStreams-Browser'! + + !DSDeltaChangeViewer commentStamp: 'Igor.Stasenko 9/7/2009 16:25' prior: 0! + This is a DSChange viewer which using a ToolBuilder to construct a UI for + displaying a single delta change.! Item was added: + ----- Method: DSDeltaChangeViewer>>applyClassNameChanged: (in category 'class changes') ----- + applyClassNameChanged: aChange + "Changed a class name." + ^ self buildClassChangePane: aChange + message: 'Class name changed' + showMeta: false + ! Item was changed: ----- Method: DSDeltaChangeViewer>>applyChange: (in category 'dschange dispatch') ----- applyChange: change + "We should never get here" + self shouldNotImplement + ! - ^ 'boom...'! Item was changed: + ----- Method: DSDeltaChangeViewer>>makeLabel (in category 'utils') ----- - ----- Method: DSDeltaChangeViewer>>makeLabel (in category 'as yet unclassified') ----- makeLabel ^ builder pluggableInputFieldSpec new model: self; yourself! Item was added: + ----- Method: DSDeltaChangeViewer>>applyClassVarsChanged: (in category 'class changes') ----- + applyClassVarsChanged: aChange + "Changed class vars, we ignore ordering as it is irrelevant - + they are actually kept in a Dictionary." + + ^ self buildClassChangePane: aChange + message: 'Class variables changed' + showMeta: false + ! Item was added: + ----- Method: DSDeltaChangeViewer>>applySharedPoolVarsChanged: (in category 'class changes') ----- + applySharedPoolVarsChanged: aChange + "Changed shared pool vars. Currently we just raise error if missing!!" + + ^ self buildClassChangePane: aChange + message: 'Class shared pools changed' + showMeta: false + ! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyClassCategoryChanged: (in category 'class changes') ----- - ----- Method: DSDeltaChangeViewer>>applyClassCategoryChanged: (in category 'dschange dispatch') ----- applyClassCategoryChanged: aChange - ^ { - (self makeTextLabel: 'Class category changed - ', aChange timeStampString) - frame: (0@0 corner: 1 @ 0.05); yourself. + ^ self buildClassChangePane: aChange + message: 'Class category changed' + showMeta: false + ! - builder pluggableTextSpec new - model: - (self diffFrom: - ((self getEditorFor: aChange) category: aChange oldCategory; yourself) definition - to: (self getEditorFor: aChange) definition); - getText: #value; - frame: (0(a)0.05 corner: 1 @ 1); - yourself. - - }! Item was changed: + ----- Method: DSDeltaChangeViewer>>buildViewOf:using: (in category 'utils') ----- - ----- Method: DSDeltaChangeViewer>>buildViewOf:using: (in category 'as yet unclassified') ----- buildViewOf: aChange using: aBuilder builder := aBuilder. ^ aChange applyUsing: self.! Item was changed: + ----- Method: DSDeltaChangeViewer>>getEditorFor: (in category 'utils') ----- - ----- Method: DSDeltaChangeViewer>>getEditorFor: (in category 'as yet unclassified') ----- getEditorFor: change | superclassEditor classEditor | superclassEditor := SystemEditor new ensureClassNamed: change superclassName. classEditor := superclassEditor subclass: change className instanceVariableNames: change instVarNames asSpaceString classVariableNames: change classVarNames asSpaceString poolDictionaries: change poolDictionaryNames asSpaceString category: change category. classEditor typeOfClass: change type. classEditor class instanceVariableNames: change classInstVarNames asSpaceString. classEditor classComment: change comment stamp: change stamp. ^ classEditor! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyClassInstVarsChanged: (in category 'class changes') ----- - ----- Method: DSDeltaChangeViewer>>applyClassInstVarsChanged: (in category 'dschange dispatch') ----- applyClassInstVarsChanged: aChange + + ^ self buildClassChangePane: aChange + message: 'Class classinstance variables changed' + showMeta: true - ^ { - (self makeTextLabel: 'ClassInstance variables changed - ', aChange timeStampString ) - frame: (0@0 corner: 1 @ 0.05); yourself. + ! - (self makeTextLabel: ( - self diffFrom: ((self getEditorFor: aChange) classSide - instanceVariableNames: aChange oldVars; yourself) definitionST80 - to: (self getEditorFor: aChange) classSide definitionST80)) - frame: (0(a)0.05 corner: 1 @ 1); - yourself. - }! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyMethodChange: (in category 'method changes') ----- - ----- Method: DSDeltaChangeViewer>>applyMethodChange: (in category 'dschange dispatch') ----- applyMethodChange: aChange ^ { (self makeTextLabel: 'No view for ' , aChange class name) frame: (0@0 corner: 1 @ 1); yourself. } ! Item was changed: + ----- Method: DSDeltaChangeViewer>>applySuperclassChanged: (in category 'class changes') ----- - ----- Method: DSDeltaChangeViewer>>applySuperclassChanged: (in category 'dschange dispatch') ----- applySuperclassChanged: aChange - "Default handler for any class change." - | ed | - ed := self getEditorFor: aChange. - ed superclass: (ed system ensureClassNamed: aChange oldSuperclassName). - - ^ { - (self makeTextLabel: 'Class superclass changed - ', aChange timeStampString) - frame: (0@0 corner: 1 @ 0.05); yourself. - - (self makeTextLabel: - (self diffFrom: ed definition to: (self getEditorFor: aChange) definition)) - frame: (0(a)0.05 corner: 1 @ 1); - yourself. + ^ self buildClassChangePane: aChange + message: 'Class superclass changed' + showMeta: false + ! - }! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyMethodSourceChanged: (in category 'method changes') ----- - ----- Method: DSDeltaChangeViewer>>applyMethodSourceChanged: (in category 'dschange dispatch') ----- applyMethodSourceChanged: aChange "Change the source of a method" ^ { (self makeTextLabel: 'Method source changed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: (self diffFrom: aChange oldStamp, ' - ', aChange protocol to: aChange newStamp, ' - ', aChange protocol)) frame: (0(a)0.05 corner: 1 @ 0.15); yourself. builder pluggableTextSpec new model: (self diffFrom: aChange oldSource to: aChange source); getText: #value; frame: (0(a)0.15 corner: 1 @ 1); yourself. } ! Item was changed: Object subclass: #DSDeltaInspector + instanceVariableNames: 'subject changeSelected displayBefore rightPane' - instanceVariableNames: 'subject changeSelected displayBefore chViewer rightPane' classVariableNames: '' poolDictionaries: '' category: 'DeltaStreams-Browser'! Item was changed: + ----- Method: DSDeltaChangeViewer>>diffFrom:to: (in category 'utils') ----- - ----- Method: DSDeltaChangeViewer>>diffFrom:to: (in category 'as yet unclassified') ----- diffFrom: oldStr to: newStr ^ TextDiffBuilder buildDisplayPatchFrom: oldStr to: newStr! Item was added: + ----- Method: DSDeltaChangeViewer>>classPaneFor:meta: (in category 'utils') ----- + classPaneFor: aChange meta: aBool + "Build a text panel which should show a class definition, or metaclass definition" + + | ed oldEd text | + + ed := self getEditorFor: aChange. + oldEd := self getOldEditorFor: aChange. + + text := aBool ifTrue: [ self diffFrom: oldEd classSide definitionST80 to: ed classSide definitionST80] + ifFalse: [ self diffFrom: oldEd definitionST80 to: ed definitionST80]. + ^ self makeTextLabel: text + ! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyMethodProtocolChanged: (in category 'method changes') ----- - ----- Method: DSDeltaChangeViewer>>applyMethodProtocolChanged: (in category 'dschange dispatch') ----- applyMethodProtocolChanged: aChange ^ { (self makeTextLabel: 'Method protocol changed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: (self diffFrom: aChange stamp, ' - ', aChange oldProtocol to: aChange stamp, ' - ', aChange newProtocol)) frame: (0(a)0.05 corner: 1 @ 0.15); yourself. builder pluggableTextSpec new model: aChange; getText: #source; frame: (0(a)0.15 corner: 1 @ 1); yourself. }! Item was added: + ----- Method: DSDeltaChangeViewer>>buildClassChangePane:message:showMeta: (in category 'utils') ----- + buildClassChangePane: aChange message: aMessage showMeta: aBool + "Common method for building the right pane to display a class change" + + ^ { + (self makeTextLabel: aMessage , ' - ', aChange timeStampString) + frame: (0@0 corner: 1 @ 0.05); yourself. + + (self classPaneFor: aChange meta: aBool) + frame: (0(a)0.05 corner: 1 @ 1); + yourself. + }! Item was added: + ----- Method: DSDeltaChangeViewer>>getOldEditorFor: (in category 'utils') ----- + getOldEditorFor: change + + | superclassEditor classEditor | + superclassEditor := SystemEditor new ensureClassNamed: change oldSuperclassName. + + classEditor := superclassEditor + subclass: change oldName + instanceVariableNames: change oldInstVarNames asSpaceString + classVariableNames: change oldClassVarNames asSpaceString + poolDictionaries: change oldPoolDictionaryNames asSpaceString + category: change oldCategory. + + classEditor typeOfClass: change oldType. + classEditor class instanceVariableNames: change oldClassInstVarNames asSpaceString. + classEditor classComment: change oldComment stamp: change oldStamp. + + ^ classEditor! Item was changed: + ----- Method: DSDeltaChangeViewer>>makeTextLabel: (in category 'utils') ----- - ----- Method: DSDeltaChangeViewer>>makeTextLabel: (in category 'as yet unclassified') ----- makeTextLabel: aString ^ self makeLabel model: aString; getText: #value; yourself. ! Item was added: + ----- Method: DSDeltaChangeViewer>>applyClassCommentChanged: (in category 'class changes') ----- + applyClassCommentChanged: aChange + ^ { + (self makeTextLabel: 'Class comment changed - ', aChange timeStampString) + frame: (0@0 corner: 1 @ 0.05); yourself. + + (self makeTextLabel: + (self diffFrom: aChange oldStamp to: aChange stamp)) + frame: (0(a)0.05 corner: 1 @ 0.15); yourself. + + builder pluggableTextSpec new + model: (self diffFrom: aChange oldComment to: aChange comment); + getText: #value; + frame: (0(a)0.15 corner: 1 @ 1); + yourself. + }! Item was changed: + ----- Method: DSDeltaChangeViewer>>applyInstVarsChanged: (in category 'class changes') ----- - ----- Method: DSDeltaChangeViewer>>applyInstVarsChanged: (in category 'dschange dispatch') ----- applyInstVarsChanged: aChange + + ^ self buildClassChangePane: aChange + message: 'Instance variables changed' + showMeta: false - ^ { - (self makeTextLabel: 'Instance variables changed - ', aChange timeStampString ) - frame: (0@0 corner: 1 @ 0.05); yourself. + ! - (self makeTextLabel: ( - self diffFrom: ((self getEditorFor: aChange) - instanceVariableNames: aChange oldVars; yourself) definition - to: (self getEditorFor: aChange) definition)) - frame: (0(a)0.05 corner: 1 @ 1); - yourself. - }! Item was removed: - ----- Method: DSDeltaInspector>>initialize (in category 'as yet unclassified') ----- - initialize - chViewer := DSDeltaChangeViewer new!

1 0

DeltaStreams: DeltaStreams-Model-Igor.Stasenko.17.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Sep '09

07 Sep '09

1 0

DeltaStreams: DeltaStreams-Installer-Igor.Stasenko.6.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Installer was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Installer-Igor.Stasen… ==================== Summary ==================== Name: DeltaStreams-Installer-Igor.Stasenko.6 Author: Igor.Stasenko Time: 6 September 2009, 9:51:16 am UUID: 8aea9691-d2c3-2447-8f8f-515cb7a905c7 Ancestors: DeltaStreams-Installer-gk.5 - added load of DeltaStreams-Browser =============== Diff against DeltaStreams-Installer-gk.5 =============== Item was changed: ----- Method: DSInstaller class>>install (in category 'as yet unclassified') ----- install "DSInstaller install" Installer squeaksource project: 'SystemEditor'; "Main mechanism used for actual Delta apply" install: 'SystemEditor-Core'; install: 'SystemEditor-Squeak'; install: 'SystemEditor-Traits'; install: 'SystemEditor-Tests'; install: 'SystemEditorBrowser'; project: 'Tirade'; "This is used for serialization/deserialization - not essential unless you need to store Deltas" install: 'Tirade'; install: 'Tirade-Tests'; project: 'DeltaStreams'; install: 'System'; "Fixes for change notifications" install: 'Traits'; "Fixes for change notifications" install: 'Monticello'; "Fixes for change notifications" install: 'SystemChangeNotification-Tests'; install: 'DeltaStreams-Model'; "Domain model of Deltas" install: 'DeltaStreams-Logging'; "Extensions for hooking into SystemChangeNotification in Squeak" install: 'DeltaStreams-Tirade'; "Support for filing out/in Deltas in Tirade syntax" + install: 'DeltaStreams-Browser'; "ToolBuilder based UI" install: 'DeltaStreams-Tests'. "All the tests for all packages" self inform: 'DeltaStreams successfully installed!! Time to put your helmet on.' !

1 0

DeltaStreams: DeltaStreams-Browser-Igor.Stasenko.1.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

Igor Stasenko uploaded a new version of DeltaStreams-Browser to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Browser-Igor.Stasenko… ==================== Summary ==================== Name: DeltaStreams-Browser-Igor.Stasenko.1 Author: Igor.Stasenko Time: 6 September 2009, 9:47:52 am UUID: c99ae673-1f78-8a45-9f2d-5e82533ae62b Ancestors: initial implementation of DSDeltaInspector ==================== Snapshot ==================== SystemOrganization addCategory: #'DeltaStreams-Browser'! DSVisitor subclass: #DSDeltaChangeViewer instanceVariableNames: 'before change builder' classVariableNames: '' poolDictionaries: '' category: 'DeltaStreams-Browser'! ----- Method: DSDeltaChangeViewer>>applyChange: (in category 'dschange dispatch') ----- applyChange: change ^ 'boom...'! ----- Method: DSDeltaChangeViewer>>applyClassCategoryChanged: (in category 'dschange dispatch') ----- applyClassCategoryChanged: aChange ^ { (self makeTextLabel: 'Class category changed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. builder pluggableTextSpec new model: (self diffFrom: ((self getEditorFor: aChange) category: aChange oldCategory; yourself) definition to: (self getEditorFor: aChange) definition); getText: #value; frame: (0(a)0.05 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyClassChange: (in category 'dschange dispatch') ----- applyClassChange: aChange "Default handler for any class change." ^ { (self makeTextLabel: 'No view for ' , aChange class name) frame: (0@0 corner: 1 @ 1); yourself. } ! ----- Method: DSDeltaChangeViewer>>applyClassCreated: (in category 'dschange dispatch') ----- applyClassCreated: aChange ^ { (self makeTextLabel: 'Class added - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. builder pluggableCodePaneSpec new model: (self getEditorFor: aChange) definition; getText: #value; frame: (0(a)0.05 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyClassInstVarsChanged: (in category 'dschange dispatch') ----- applyClassInstVarsChanged: aChange ^ { (self makeTextLabel: 'ClassInstance variables changed - ', aChange timeStampString ) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: ( self diffFrom: ((self getEditorFor: aChange) classSide instanceVariableNames: aChange oldVars; yourself) definitionST80 to: (self getEditorFor: aChange) classSide definitionST80)) frame: (0(a)0.05 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyClassRemoved: (in category 'dschange dispatch') ----- applyClassRemoved: aChange ^ { (self makeTextLabel: 'Class removed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. builder pluggableCodePaneSpec new model: (self getEditorFor: aChange) definition; getText: #value; frame: (0(a)0.05 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyInstVarsChanged: (in category 'dschange dispatch') ----- applyInstVarsChanged: aChange ^ { (self makeTextLabel: 'Instance variables changed - ', aChange timeStampString ) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: ( self diffFrom: ((self getEditorFor: aChange) instanceVariableNames: aChange oldVars; yourself) definition to: (self getEditorFor: aChange) definition)) frame: (0(a)0.05 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyMethodAdded: (in category 'dschange dispatch') ----- applyMethodAdded: aChange ^ { (self makeTextLabel: 'Method added - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: aChange stamp, ' - ', aChange protocol) frame: (0(a)0.05 corner: 1 @ 0.1); yourself. builder pluggableTextSpec new model: aChange; getText: #source; frame: (0(a)0.1 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyMethodChange: (in category 'dschange dispatch') ----- applyMethodChange: aChange ^ { (self makeTextLabel: 'No view for ' , aChange class name) frame: (0@0 corner: 1 @ 1); yourself. } ! ----- Method: DSDeltaChangeViewer>>applyMethodProtocolChanged: (in category 'dschange dispatch') ----- applyMethodProtocolChanged: aChange ^ { (self makeTextLabel: 'Method protocol changed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: (self diffFrom: aChange stamp, ' - ', aChange oldProtocol to: aChange stamp, ' - ', aChange newProtocol)) frame: (0(a)0.05 corner: 1 @ 0.15); yourself. builder pluggableTextSpec new model: aChange; getText: #source; frame: (0(a)0.15 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyMethodRemoved: (in category 'dschange dispatch') ----- applyMethodRemoved: aChange ^ { (self makeTextLabel: 'Method removed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: aChange stamp, ' - ', aChange protocol) frame: (0(a)0.05 corner: 1 @ 0.1); yourself. builder pluggableTextSpec new model: aChange; getText: #source; frame: (0(a)0.1 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>applyMethodSourceChanged: (in category 'dschange dispatch') ----- applyMethodSourceChanged: aChange "Change the source of a method" ^ { (self makeTextLabel: 'Method source changed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: (self diffFrom: aChange oldStamp, ' - ', aChange protocol to: aChange newStamp, ' - ', aChange protocol)) frame: (0(a)0.05 corner: 1 @ 0.15); yourself. builder pluggableTextSpec new model: (self diffFrom: aChange oldSource to: aChange source); getText: #value; frame: (0(a)0.15 corner: 1 @ 1); yourself. } ! ----- Method: DSDeltaChangeViewer>>applySuperclassChanged: (in category 'dschange dispatch') ----- applySuperclassChanged: aChange "Default handler for any class change." | ed | ed := self getEditorFor: aChange. ed superclass: (ed system ensureClassNamed: aChange oldSuperclassName). ^ { (self makeTextLabel: 'Class superclass changed - ', aChange timeStampString) frame: (0@0 corner: 1 @ 0.05); yourself. (self makeTextLabel: (self diffFrom: ed definition to: (self getEditorFor: aChange) definition)) frame: (0(a)0.05 corner: 1 @ 1); yourself. }! ----- Method: DSDeltaChangeViewer>>buildViewOf:using: (in category 'as yet unclassified') ----- buildViewOf: aChange using: aBuilder builder := aBuilder. ^ aChange applyUsing: self.! ----- Method: DSDeltaChangeViewer>>diffFrom:to: (in category 'as yet unclassified') ----- diffFrom: oldStr to: newStr ^ TextDiffBuilder buildDisplayPatchFrom: oldStr to: newStr! ----- Method: DSDeltaChangeViewer>>getEditorFor: (in category 'as yet unclassified') ----- getEditorFor: change | superclassEditor classEditor | superclassEditor := SystemEditor new ensureClassNamed: change superclassName. classEditor := superclassEditor subclass: change className instanceVariableNames: change instVarNames asSpaceString classVariableNames: change classVarNames asSpaceString poolDictionaries: change poolDictionaryNames asSpaceString category: change category. classEditor typeOfClass: change type. classEditor class instanceVariableNames: change classInstVarNames asSpaceString. classEditor classComment: change comment stamp: change stamp. ^ classEditor! ----- Method: DSDeltaChangeViewer>>makeLabel (in category 'as yet unclassified') ----- makeLabel ^ builder pluggableInputFieldSpec new model: self; yourself! ----- Method: DSDeltaChangeViewer>>makeTextLabel: (in category 'as yet unclassified') ----- makeTextLabel: aString ^ self makeLabel model: aString; getText: #value; yourself. ! Object subclass: #DSDeltaInspector instanceVariableNames: 'subject changeSelected displayBefore chViewer rightPane' classVariableNames: '' poolDictionaries: '' category: 'DeltaStreams-Browser'! ----- Method: DSDeltaInspector class>>buildOn: (in category 'as yet unclassified') ----- buildOn: aDelta ^ ToolBuilder build: (self new subject: aDelta)! ----- Method: DSDeltaInspector class>>openOn: (in category 'as yet unclassified') ----- openOn: aDelta | i m | i := self new subject: aDelta. m := ToolBuilder build: i. i applyLayoutTo: m. . ^ m openInWorld! ----- Method: DSDeltaInspector>>applyLayoutTo: (in category 'layout') ----- applyLayoutTo: morph morph layoutPolicy: self! ----- Method: DSDeltaInspector>>buildChangesListWith: (in category 'building') ----- buildChangesListWith: builder ^ builder pluggableListSpec new model: self; name: #changes; list: #changeList; getIndex: #changeSelected; setIndex: #changeSelected: ; yourself! ----- Method: DSDeltaInspector>>buildRightPane (in category 'building') ----- buildRightPane | change builder | builder := ToolBuilder default. change := self currentChange. change ifNotNil: [ builder buildAll: (DSDeltaChangeViewer new buildViewOf: change using: builder) in: rightPane ]! ----- Method: DSDeltaInspector>>buildWith: (in category 'building') ----- buildWith: builder | spec window | spec := builder pluggableWindowSpec new model: self; label: (subject class name, ' ' , subject name); children: { (self buildChangesListWith: builder) frame:(0 @ 0 corner: 0.5 @ 1 ); yourself. builder pluggablePanelSpec new children: #(); name: #rightPane; frame:(0.5 @ 0 corner: 1 @ 1 ); yourself }. window := builder build: spec. rightPane := builder widgetAt: #rightPane. ^window! ----- Method: DSDeltaInspector>>changeList (in category 'as yet unclassified') ----- changeList ^ subject changes! ----- Method: DSDeltaInspector>>changeSelected (in category 'as yet unclassified') ----- changeSelected changeSelected ifNil: [ changeSelected := 0 ]. ^ changeSelected! ----- Method: DSDeltaInspector>>changeSelected: (in category 'as yet unclassified') ----- changeSelected: index changeSelected := index. self changed: #changeSelected. rightPane removeAllMorphs. self buildRightPane.! ----- Method: DSDeltaInspector>>currentChange (in category 'as yet unclassified') ----- currentChange ^ changeSelected = 0 ifTrue: [ nil ] ifFalse: [ self changeList at: changeSelected ]! ----- Method: DSDeltaInspector>>flushLayoutCache (in category 'as yet unclassified') ----- flushLayoutCache! ----- Method: DSDeltaInspector>>initialize (in category 'as yet unclassified') ----- initialize chViewer := DSDeltaChangeViewer new! ----- Method: DSDeltaInspector>>layout:in: (in category 'layout') ----- layout: aMorph in: newBounds "Compute the layout for the given morph based on the new bounds" aMorph submorphsDo:[:m| m layoutProportionallyIn: newBounds].! ----- Method: DSDeltaInspector>>subject (in category 'as yet unclassified') ----- subject ^ subject! ----- Method: DSDeltaInspector>>subject: (in category 'as yet unclassified') ----- subject: aDelta subject := aDelta!

1 0

SystemEditor: SystemEditor-Squeak-Igor.Stasenko.169.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of SystemEditor-Squeak was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-Igor.Stasenko.… ==================== Summary ==================== Name: SystemEditor-Squeak-Igor.Stasenko.169 Author: Igor.Stasenko Time: 6 September 2009, 9:44:32 am UUID: bc5bf296-f787-7045-aa62-ba1e13fd16c4 Ancestors: SystemEditor-Squeak-mtf.168 - fixed printing of #definitionST80 in ClassEditor and MetaclassEditor =============== Diff against SystemEditor-Squeak-mtf.168 =============== Item was changed: ----- Method: MetaclassEditor>>definitionST80 (in category 'reflecting') ----- definitionST80 ^ String streamContents: [:strm | + strm nextPutAll: self name; - strm print: self; crtab; nextPutAll: 'instanceVariableNames: '; store: self instanceVariablesString]! Item was changed: ----- Method: ClassEditor>>definitionST80 (in category 'reflecting') ----- definitionST80 "Answer a String that defines the receiver." | aStream | aStream := WriteStream on: (String new: 300). self superclass == nil ifTrue: [aStream nextPutAll: 'ProtoObject'] ifFalse: [aStream nextPutAll: self superclass name]. aStream nextPutAll: self kindOfSubclass; store: self name. aStream cr; tab; nextPutAll: 'instanceVariableNames: '; store: self instanceVariablesString. aStream cr; tab; nextPutAll: 'classVariableNames: '; store: self classVariablesString. aStream cr; tab; nextPutAll: 'poolDictionaries: '; store: self sharedPoolsString. aStream cr; tab; nextPutAll: 'category: '; + store: self category asString. - store: (SystemOrganization categoryOfElement: self name) asString. self superclass ifNil: [ aStream nextPutAll: '.'; cr. aStream nextPutAll: self name. aStream space; nextPutAll: 'superclass: nil'. ]. ^ aStream contents!

1 0

DeltaStreams: DeltaStreams-Logging-gk.8.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Logging was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Logging-gk.8.mcz ==================== Summary ==================== Name: DeltaStreams-Logging-gk.8 Author: gk Time: 6 September 2009, 4:43:38 am UUID: c16bf752-84d5-4f80-8d6d-b83ec428ee30 Ancestors: DeltaStreams-Logging-gk.7 Fix so that class comments are saved as strings. Not sure how we should treat Text .. what does MC do? =============== Diff against DeltaStreams-Logging-gk.7 =============== Item was changed: ----- Method: DSDelta>>logClassCommentChangedEvent: (in category '*deltastreams-logging') ----- logClassCommentChangedEvent: event "A class comment has been changed." (self addClassChange: DSClassCommentChange from: event) + oldComment: event oldComment asString stamp: event oldStamp! - oldComment: event oldComment stamp: event oldStamp!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2009