hg/stx-libtool: comparison VersionDiffBrowser.st

equal deleted inserted replaced

-:6cac06c54187
+:ef306e387021
 ApplicationModel subclass:#VersionDiffBrowser
-	instanceVariableNames:'classBeingCompared versionA versionB changeSetA changeSetB
+	instanceVariableNames:'classChangeSet diffTextView'
-		filteredChangeSetA filteredChangeSetB changedMethodsChangeSet
-		indexFromChangedToA indexFromChangedToB diffTextView'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers'
+!
+HierarchicalItem subclass:#ClassChangeSet
+	instanceVariableNames:'classBeingCompared labelA labelB changeSet onlyInA onlyInB
+		changedMethods'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:VersionDiffBrowser
 !
 VersionDiffBrowser comment:'some comment
 '!
 #name: #windowSpec
 #window:
 #(#WindowSpec
 #label: 'Version DiffBrowser'
 #name: 'Version DiffBrowser'
-#layout: #(#LayoutFrame 220 0 200 0 1084 0 703 0)
-#level: 0
 #min: #(#Point 10 10)
 #max: #(#Point nil nil)
-#bounds: #(#Rectangle 220 200 1085 704)
+#bounds: #(#Rectangle 110 151 975 655)
 #menu: #mainMenu
-#usePreferredExtent: false
-#returnIsOKInDialog: true
-#escapeIsCancelInDialog: true
 )
 #component:
 #(#SpecCollection
 #collection: #(
 #(#VariableVerticalPanelSpec
 #name: 'VariableVerticalPanel1'
 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-#handles: #(#Any 0.319444 1.0)
 #component:
 #(#SpecCollection
 #collection: #(
 #(#HorizontalPanelViewSpec
 #name: 'TopHorizontalPanel'
 #sequenceList: #methodsOnlyInA
 )
 )
 )
-#extent: #(#Point 286 160)
+#extent: #(#Point 286 252)
 )
 #(#ViewSpec
 #name: 'BoxM'
 #component:
 #(#SpecCollection
 #sequenceList: #methodsChanged
 )
 )
 )
-#extent: #(#Point 286 160)
+#extent: #(#Point 286 252)
 )
 #(#ViewSpec
 #name: 'BoxB'
 #component:
 #(#SpecCollection
 #sequenceList: #methodsOnlyInB
 )
 )
 )
-#extent: #(#Point 287 160)
+#extent: #(#Point 287 252)
 )
 )
 )
 )
 )
 )
 )
 )
+#handles: #(#Any 0.5 1.0)
 )
 )
 )
 )
 )
 ! !
 !VersionDiffBrowser class methodsFor:'startup'!
-openOnClass:aClass labelA:lblA sourceA:srcA labelB:lblB sourceB:srcB
+openOnClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB
-|browser|
+|theBrowser|
-browser := self new.
+theBrowser := self new.
-browser allButOpen.
+theBrowser allButOpen.
+theBrowser classChangeSet:(ClassChangeSet newForClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB).
-browser classBeingCompared:aClass.
+theBrowser updateLabels.
-browser
+theBrowser updateLists.
-labelA:lblA sourceA:srcA
+theBrowser openWindow.
-labelB:lblB sourceB:srcB.
+^ theBrowser.
-browser openWindow.
-^ browser.
 "
 self openOnClass:Array versionA:'1.116' versionB:'1.113'
 "
 !
-openOnClass:aClass versionA:vsnA versionB:vsnB
+openOnClass:aClass versionA:aVersionA versionB:aVersionB
-|browser|
+|theBrowser|
-browser := self new.
+theBrowser := self new.
-browser allButOpen.
+theBrowser allButOpen.
+theBrowser classChangeSet:(ClassChangeSet newForClass:aClass versionA:aVersionA versionB:aVersionB).
-browser classBeingCompared:aClass.
+theBrowser updateLabels.
-browser versionA:vsnA.
+theBrowser updateLists.
-browser versionB:vsnB.
+theBrowser openWindow.
+^ theBrowser.
-browser openWindow.
-^ browser.
 "
 self openOnClass:Array versionA:'1.116' versionB:'1.113'
 "
 ! !
 !VersionDiffBrowser methodsFor:'accessing'!
+changeSetA
+"
+gets the change set which contains only the new methods
+in versionA of the class
+<return: ChangeSet>
+"
+^ self classChangeSet methodsOnlyInA
+!
+changeSetB
+"
+gets the change set which contains only the new methods
+in versionB of the class
+<return: ChangeSet>
+"
+^ self classChangeSet methodsOnlyInB
+!
 classBeingCompared
-"return the value of the instance variable 'classBeingCompared' (automatically generated)"
+^ self classChangeSet classBeingCompared
-^ classBeingCompared!
+!
-classBeingCompared:something
+classChangeSet
-"set the value of the instance variable 'classBeingCompared' (automatically generated)"
+"return the value of the instance variable 'classChangeSet' (automatically generated)"
-classBeingCompared := something.
+^ classChangeSet!
-self updateViewsIfPossible.
-!
+classChangeSet:something
+"set the value of the instance variable 'classChangeSet' (automatically generated)"
-labelA:lblA sourceA:srcA labelB:lblB sourceB:srcB
-|s|
+classChangeSet := something.!
-changeSetA := ChangeSet fromStream:(s := srcA readStream).
-s close.
-changeSetB := ChangeSet fromStream:(s := srcB readStream).
-s close.
-versionA := lblA.
-versionB := lblB.
-self updateLabels.
-self updateLists.
-!
 versionA
 "return the value of the instance variable 'versionA' (automatically generated)"
-^ versionA!
+^ self classChangeSet labelA
-versionA:something
-"set the value of the instance variable 'versionA' (automatically generated)"
-versionA := something.
-self updateViewsIfPossible.
 !
 versionB
 "return the value of the instance variable 'versionB' (automatically generated)"
-^ versionB!
+^ self classChangeSet labelB
-versionB:something
-"set the value of the instance variable 'versionB' (automatically generated)"
-versionB := something.
-self updateViewsIfPossible.
 ! !
 !VersionDiffBrowser methodsFor:'actions'!
 sel := self methodsChangedSelection value.
 sel notNil ifTrue:[
 self methodsOnlyInASelection value:nil.
 self methodsOnlyInBSelection value:nil.
-idxA := indexFromChangedToA at:sel ifAbsent:nil.
+changeA := (self classChangeSet methodsChanged at:sel) first.
-idxB := indexFromChangedToB at:sel ifAbsent:nil.
+changeB := (self classChangeSet methodsChanged at:sel) second.
-changeA := changeSetA at:idxA.
-changeB := changeSetB at:idxB.
 self withWaitCursorDo:[
 self diffTextView text1:changeA source text2:changeB source.
 self diffTextView moveToNextChanged.
 ].
 sel := self methodsOnlyInASelection value.
 sel notNil ifTrue:[
 self methodsOnlyInBSelection value:nil.
 self methodsChangedSelection value:nil.
-change := filteredChangeSetA at:sel.
+change := self changeSetA at:sel.
 self methodText value:(change source).
 self showSingleTextView.
 ]
 !
 sel := self methodsOnlyInBSelection value.
 sel notNil ifTrue:[
 self methodsOnlyInASelection value:nil.
 self methodsChangedSelection value:nil.
-change := filteredChangeSetB at:sel.
+change := self changeSetB at:sel.
 self methodText value:(change source).
 self showSingleTextView.
 ]
 ! !
 builder aspectAt:#diffTextLabelB put:(holder :=  ValueHolder new).
 ].
 ^ holder.
 !
+diffTextView
+"automatically generated by UIPainter ..."
+diffTextView isNil ifTrue:[
+diffTextView := HVScrollableView
+for:DiffTextView
+miniScrollerH:true miniScrollerV:false.
+diffTextView addNextPreviousButtons.
+self addAcceptToTextViewMenus.
+].
+^ diffTextView
+!
 methodText
 "automatically generated by UIPainter ..."
 "*** the code below creates a default model when invoked."
 "*** (which may not be the one you wanted)"
 ].
 ^ holder.
 ! !
 !VersionDiffBrowser methodsFor:'initialization & release'!
-closeDownViews
-"This is a hook method generated by the Browser.
-It will be invoked when your app/dialog-window is really closed."
-"/ change the code below as required ...
-"/ This should cleanup any leftover resources
-"/ (for example, temporary files)
-"/ super closeRequest will initiate the closeDown
-"/ add your code here
-"/ do not remove the one below ...
-^ super closeDownViews
-!
-closeRequest
-"This is a hook method generated by the Browser.
-It will be invoked when your app/dialog-window is about to be
-closed (and has a chance to suppress the close)."
-"/ change the code below as required ...
-"/ Closing can be suppressed, by returning.
-"/ super closeRequest will initiate the closeDown
-^ super closeRequest
-!
 postBuildWith:aBuilder
 "This is a hook method generated by the Browser.
 It will be invoked during the initialization of your app/dialog,
 after all of the visual components have been built,
 values etc.)"
 "/ add any code here ...
 (aBuilder componentAt:#TopHorizontalPanel) ignoreInvisibleComponents:true.
 ^ super postBuildWith:aBuilder
 ! !
 !VersionDiffBrowser methodsFor:'menu action'!
 "create a pacthFile, to patch the old version (versionB) into
 the new version (versionA)"
 |oldVersion newVersion vsnMthdA vsnMthdB vsnA vsnB info|
-^ self warn:'This function is not yet implemented'.
+vsnMthdA := self changeSetA
-vsnMthdA := changeSetA
 detect:[:ch | ch isMethodChange
 and:[ch changeClass isMeta
 and:[ch changeSelector = #version]]]
 ifNone:nil.
-vsnMthdB := changeSetA
+vsnMthdB := self changeSetA
 detect:[:ch | ch isMethodChange
 and:[ch changeClass isMeta
 and:[ch changeSelector = #version]]]
 ifNone:nil.
 self warn:'The generated patch file will not be able to validate/update the class version'.
 ].
 self halt.
-"Modified: / 14.12.1999 / 15:34:28 / cg"
 !
 inspectSelectedChangeInA
 self selectedChangeInA inspect.
 !
 selectedChangeInA
 |sel change|
 sel := self methodsOnlyInASelection value.
 sel notNil ifTrue:[
-change := (changeSetA at:sel).
+change := (self changeSetA at:sel).
 ].
 ^ change
 !
 selectedChangeInB
 |sel change|
 sel := self methodsOnlyInBSelection value.
 sel notNil ifTrue:[
-change := (changeSetB at:sel).
+change := (self changeSetB at:sel).
 ].
 ^ change
 !
 selectedChangesInM
 |sel idxA idxB|
 sel := self methodsChangedSelection value.
 sel notNil ifTrue:[
-idxA := indexFromChangedToA at:sel ifAbsent:nil.
+idxA := self indexFromChangedToA at:sel ifAbsent:nil.
-idxB := indexFromChangedToB at:sel ifAbsent:nil.
+idxB := self indexFromChangedToB at:sel ifAbsent:nil.
-^ Array with:(changeSetA at:idxA)
+^ Array with:(self changeSetA at:idxA)
-with:(changeSetB at:idxB)
+with:(self changeSetB at:idxB)
 ].
 ^ nil
 ! !
 !VersionDiffBrowser methodsFor:'private'!
-showDiffTextView
+generator
-(self builder componentAt:#diffTextViewBox) raise; beVisible.
-(self builder componentAt:#singleTextView) beInvisible.
+^[:c |
-(self builder componentAt:#diffTextView) realizeAllSubViews.
-self addAcceptToTextViewMenus.
-!
-showSingleTextView
-(self builder componentAt:#singleTextView) raise; beVisible.
-(self builder componentAt:#diffTextViewBox) beInvisible.
-!
-updateFromVersions
-|mgr versionAStream versionBStream|
-mgr := classBeingCompared sourceCodeManager.
-versionAStream := mgr getSourceStreamFor:classBeingCompared revision:versionA.
-changeSetA := ChangeSet fromStream:versionAStream.
-versionAStream close.
-versionBStream := mgr getSourceStreamFor:classBeingCompared revision:versionB.
-changeSetB := ChangeSet fromStream:versionBStream.
-versionBStream close.
-self updateLists
-!
-updateLabels
-versionA notNil ifTrue:[
-self diffTextLabelA value:versionA.
-self onlyInALabelHolder value:('Only in ' , versionA).
-(self builder componentAt:#OnlyInALabel) backgroundColor:Color green darkened.
-].
-versionB notNil ifTrue:[
-self diffTextLabelB value:versionB.
-self onlyInBLabelHolder value:('Only in ' , versionB).
-(self builder componentAt:#OnlyInBLabel) backgroundColor:Color red darkened.
-].
-!
-updateLists
-"walk over the two changeSets and add change to one of the tree lists"
-|mgr nmListA nmListB nmListM generator|
-filteredChangeSetA := ChangeSet new.
-filteredChangeSetB := ChangeSet new.
-changedMethodsChangeSet := ChangeSet new.
-indexFromChangedToA := OrderedCollection new.
-indexFromChangedToB := OrderedCollection new.
-changeSetA keysAndValuesDo:[:idxA :aChangeInA |
-|anyFound ch|
-anyFound := false.
-changeSetB keysAndValuesDo:[:idxB :aChangeInB |
-(aChangeInA isForSameAs:aChangeInB) ifTrue:[
-anyFound := true.
-"/ also in B - is it different ?
-(aChangeInA sameAs:aChangeInB) ifFalse:[
-changedMethodsChangeSet add:aChangeInA.
-indexFromChangedToA add:idxA.
-indexFromChangedToB add:idxB.
-] ifTrue:[
-aChangeInA isMethodChange ifTrue:[
-aChangeInA methodCategory ~= aChangeInB methodCategory ifTrue:[
-"/ only the category is different;
-"/ make it a MethodCategory changes.
-ch := MethodCategoryChange new
-className:aChangeInA className
-selector:aChangeInA selector
-category:aChangeInA methodCategory.
-changeSetA at:idxA put:ch.
-ch := MethodCategoryChange new
-className:aChangeInB className
-selector:aChangeInB selector
-category:aChangeInB methodCategory.
-changeSetB at:idxB put:ch.
-changedMethodsChangeSet add:aChangeInA.
-indexFromChangedToA add:idxA.
-indexFromChangedToB add:idxB.
-]
-].
-]
-] ifFalse:[
-(aChangeInA sameAs:aChangeInB) ifTrue:[
-anyFound := true.
-] ifFalse:[
-]
-]
-].
-anyFound ifFalse:[
-filteredChangeSetA add:aChangeInA.
-]
-].
-changeSetB keysAndValuesDo:[:idxB :aChangeInB |
-|anyFound|
-anyFound := false.
-changeSetA do:[:aChangeInA |
-|idxM|
-(aChangeInA isForSameAs:aChangeInB) ifTrue:[
-anyFound := true.
-"/ also in B - is it different ?
-(aChangeInA sameAs:aChangeInB) ifFalse:[
-"/ already there ?
-idxM := changedMethodsChangeSet findFirst:[:c | c isForSameAs:aChangeInB].
-idxM == 0 ifTrue:[
-changedMethodsChangeSet add:aChangeInB.
-indexFromChangedToB add:idxB.
-] ifFalse:[
-indexFromChangedToB at:idxM put:idxB
-]
-]
-] ifFalse:[
-(aChangeInA sameAs:aChangeInB) ifTrue:[
-anyFound := true.
-] ifFalse:[
-]
-]
-].
-anyFound ifFalse:[
-filteredChangeSetB add:aChangeInB.
-]
-].
-generator := [:c |
 |result mPkg cPkg cls m|
 c isClassDefinitionChange ifTrue:[
 result := c printStringWithoutClass
 ] ifFalse:[
 c isDoIt ifTrue:[
 result := c source , ' (doIt)'
 ] ifFalse:[
-c className = classBeingCompared name ifTrue:[
+c className = self classBeingCompared name ifTrue:[
 result := c printStringWithoutClass.
 c isMethodChange ifTrue:[
 cls := c changeClass.
 cls notNil ifTrue:[
 m := cls compiledMethodAt:c selector.
 ].
 ].
 ]
 ] ifFalse:[
 "/ include name in private class changes
-(c className startsWith:(classBeingCompared name , '::')) ifTrue:[
+(c className startsWith:(self classBeingCompared name , '::')) ifTrue:[
-result := (c className copyFrom:(classBeingCompared name size + 3)) , ' ' ,  c printStringWithoutClass
+result := (c className copyFrom:(self classBeingCompared name size + 3)) , ' ' ,  c printStringWithoutClass
 ] ifFalse:[
 result := c printString
 ]
 ]
 ]
 ].
 result
 ].
-nmListA := self methodsOnlyInA.
+!
-nmListA removeAll.
-nmListA addAll:(filteredChangeSetA collect:generator).
+showDiffTextView
+(self builder componentAt:#diffTextViewBox) raise; beVisible.
-nmListB := self methodsOnlyInB.
+(self builder componentAt:#singleTextView) beInvisible.
-nmListB removeAll.
+(self builder componentAt:#diffTextView) realizeAllSubViews.
-nmListB addAll:(filteredChangeSetB collect:generator).
+self addAcceptToTextViewMenus.
-nmListM := self methodsChanged.
+!
-nmListM removeAll.
-nmListM addAll:(changedMethodsChangeSet collect:generator).
+showSingleTextView
+(self builder componentAt:#singleTextView) raise; beVisible.
-nmListA isEmpty ifTrue:[
+(self builder componentAt:#diffTextViewBox) beInvisible.
+!
+updateLabels
+|theVersionA theVersionB|
+(theVersionA := self versionA) notNil ifTrue:[
+self diffTextLabelA value:theVersionA.
+self onlyInALabelHolder value:('Only in ' , theVersionA).
+(self builder componentAt:#OnlyInALabel) backgroundColor:Color green darkened.
+].
+(theVersionB :=self versionB) notNil ifTrue:[
+self diffTextLabelB value:theVersionB.
+self onlyInBLabelHolder value:('Only in ' , theVersionB).
+(self builder componentAt:#OnlyInBLabel) backgroundColor:Color red darkened.
+].
+!
+updateLists
+"walk over the two changeSets and add change to one of the tree lists"
+self methodsOnlyInA removeAll.
+self methodsOnlyInA addAll: (self classChangeSet methodsOnlyInA collect:self generator).
+self methodsOnlyInB removeAll.
+self methodsOnlyInB addAll: (self classChangeSet methodsOnlyInB collect:self generator).
+self methodsChanged removeAll.
+self methodsChanged addAll: (self classChangeSet methodsChanged collect:[:arr| self generator value:(arr first)]).
+self methodsOnlyInA value isEmpty ifTrue:[
 (self builder componentAt:#BoxA) beInvisible.
 ] ifFalse:[
 (self builder componentAt:#BoxA) beVisible.
 ].
-nmListB isEmpty ifTrue:[
+self methodsOnlyInB value isEmpty ifTrue:[
 (self builder componentAt:#BoxB) beInvisible.
 ] ifFalse:[
 (self builder componentAt:#BoxB) beVisible.
 ].
-nmListM isEmpty ifTrue:[
+self methodsChanged value isEmpty ifTrue:[
-(nmListA notEmpty or:[nmListB notEmpty]) ifTrue:[
+(self methodsOnlyInA value notEmpty or:[self methodsOnlyInB value notEmpty]) ifTrue:[
 (self builder componentAt:#BoxM) beInvisible.
 ]
 ] ifFalse:[
 (self builder componentAt:#BoxM) beVisible.
 ]
-!
-updateViewsIfPossible
-classBeingCompared notNil ifTrue:[
-self window label:'Version Diff Browser on ' , classBeingCompared name.
-self updateLabels.
-changeSetA notNil ifTrue:[
-changeSetB notNil ifTrue:[
-self updateLists.
-^ self
-]
-].
-versionA notNil ifTrue:[
-versionB notNil ifTrue:[
-self updateFromVersions
-]
-]
-]
 ! !
 !VersionDiffBrowser methodsFor:'values'!
 addAcceptToTextViewMenus
 |m v|
 (Array
-with:diffTextView leftTextView
+with:self diffTextView leftTextView
-with:diffTextView rightTextView)
+with:self diffTextView rightTextView)
 do:[:v |
 m := v editMenu.
 m addLabels:#('-' 'accept')
 selectors:(Array with:nil with:#accept)
 after:#copySelection.
 actionAt:#accept
 put:[|idx idx2 text change|
 idx := self methodsChangedSelection value.
-v == diffTextView leftTextView ifTrue:[
+v == self diffTextView leftTextView ifTrue:[
-idx2 := indexFromChangedToA at:idx.
+idx2 := self indexFromChangedToA at:idx.
-change := changeSetA at:idx2.
+change := self changeSetA at:idx2.
 ] ifFalse:[
-idx2 := indexFromChangedToB at:idx.
+idx2 := self indexFromChangedToB at:idx.
-change := changeSetB at:idx2.
+change := self changeSetB at:idx2.
 ].
 change apply
 ].
 m selectorAt:#accept put:nil.
 v menuHolder:m.
 v menuMessage:#value.
 ]
-!
-diffTextView
-"automatically generated by UIPainter ..."
-diffTextView isNil ifTrue:[
-diffTextView := HVScrollableView
-for:DiffTextView
-miniScrollerH:true miniScrollerV:false.
-diffTextView addNextPreviousButtons.
-self addAcceptToTextViewMenus.
-].
-^ diffTextView
 ! !
+!VersionDiffBrowser::ClassChangeSet class methodsFor:'instance creation'!
+changeSetForClass:aClass andRevision:aVersion
+"return a ChangeSet for the class aClass and version aVersion.
+The version from the class source stream is checked out from the repositiory
+into a source stream. Then the change set is generated from the source stream.
+<return: ChangeSet|nil>
+"
+|theSourceCodeManager theSourceStream theChangeSet|
+theSourceCodeManager := aClass sourceCodeManager.
+[theSourceStream := theSourceCodeManager getSourceStreamFor:aClass revision:aVersion.
+theSourceStream notNil
+ifTrue:[theChangeSet:=ChangeSet fromStream:theSourceStream]]
+valueNowOrOnUnwindDo:
+[theSourceStream notNil ifTrue:[theSourceStream close]].
+^theChangeSet
+!
+changeSetForClass:aClass andSource:aSource
+"return a ChangeSet for the class aClass and source aSource.
+The source is converted to a stream and then the change set is generated
+from the source stream.
+<return: ChangeSet|nil>
+"
+|theChangeSet theSourceStream|
+[(theSourceStream := aSource readStream) notNil
+ifTrue:[theChangeSet:=ChangeSet fromStream:(theSourceStream := aSource readStream)]]
+valueNowOrOnUnwindDo:
+[theSourceStream notNil
+ifTrue:[theSourceStream close]].
+^theChangeSet
+!
+newForClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB
+"return a ClassChangeSet for the class aClass and the two sources.
+The two classes are compared via the source files. A new instance of
+ClassChangeSet is generated containing the correspondenting changes.
+<return: ClassChangeSet>
+"
+|theChangeSetA theChangeSetB theClassChangeSet|
+theClassChangeSet := self new.
+theClassChangeSet classBeingCompared:aClass.
+theClassChangeSet labelA:aLabelA.
+theClassChangeSet labelB:aLabelB.
+theChangeSetA:=self changeSetForClass:aClass andSource:aSourceA.
+theChangeSetB:=self changeSetForClass:aClass andSource:aSourceB.
+theChangeSetA isNil
+ifTrue: [theChangeSetA := ChangeSet new].
+theChangeSetB isNil
+ifTrue: [theChangeSetB := ChangeSet new].
+^theClassChangeSet changeSet:(theChangeSetA diffSetsAgainst:theChangeSetB)
+!
+newForClass:aClass versionA:aVersionA versionB:aVersionB
+"return a ClassChangeSet for the class aClass and the two versions.
+The two class version are checked out from the repository and then being
+compared. A new instance of ClassChangeSet is generated containing
+the correspondenting changes.
+<return: ClassChangeSet>
+"
+|theChangeSetA theChangeSetB theClassChangeSet|
+theClassChangeSet := self new.
+theClassChangeSet classBeingCompared:aClass.
+theClassChangeSet labelA:aVersionA.
+theClassChangeSet labelB:aVersionB.
+theChangeSetA := self changeSetForClass: aClass andRevision: aVersionA.
+theChangeSetB := self changeSetForClass: aClass andRevision: aVersionB.
+theChangeSetA isNil
+ifTrue: [theChangeSetA := ChangeSet new].
+theChangeSetB isNil
+ifTrue: [theChangeSetB := ChangeSet new].
+^theClassChangeSet changeSet:(theChangeSetA diffSetsAgainst:theChangeSetB)
+! !
+!VersionDiffBrowser::ClassChangeSet methodsFor:'accessing'!
+changeSet
+"returns a identity dictionary containing the different changes.
+key:            value:
+#changed        OrderedCollection of arrays containing ChangeSets for methods
+which are changed and exists in the class versionA and versionB
+#onlyInArg      ChangeSet for the methods which exists only in the class versionB
+#onlyInReceiver ChangeSet for the methods which exists only in the class versionA
+<return: IdentityDictionary>
+"
+^ changeSet
+!
+changeSet:something
+"sets a identity dictionary containing the different changes.
+key:            value:
+#changed        OrderedCollection of arrays containing ChangeSets for methods
+which are changed and exists in the class versionA and versionB
+#onlyInArg      ChangeSet for the methods which exists only in the class versionB
+#onlyInReceiver ChangeSet for the methods which exists only in the class versionA
+<return: self>
+"
+changeSet := something.
+!
+classBeingCompared
+"returns the value of the class which is compared
+<return: Behavior>
+"
+^ classBeingCompared
+!
+classBeingCompared:something
+"set the value of the class which is compared
+<return: self>"
+classBeingCompared := something.
+!
+labelA
+"returns the label for the class versionA
+<return: String>
+"
+^ labelA
+!
+labelA:something
+"sets the label for the class versionA
+<return: self>
+"
+labelA := something.
+!
+labelB
+"returns the label for the class versionB
+<return: String>
+"
+^ labelB
+!
+labelB:something
+"sets the label for the class versionB
+<return: self>
+"
+labelB := something.
+!
+methodsChanged
+"returns a  OrderedCollection of arrays containing ChangeSets for methods
+which are changed and exists in the class versionA and versionB
+<return: OrderedCollection>
+"
+^ self changeSet at:#changed
+!
+methodsOnlyInA
+"returns a ChangeSet for the methods which exists only in the class versionA
+<return: ChangeSet>
+"
+^ self changeSet at:#onlyInReceiver
+!
+methodsOnlyInB
+"returns a ChangeSet for the methods which exists only in the class versionB
+<return: ChangeSet>
+"
+^ self changeSet at:#onlyInArg
+! !
 !VersionDiffBrowser class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.13 1999-12-14 14:33:52 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.14 1999-12-18 10:57:21 ps Exp $'
 ! !

changeset 2497	ef306e387021
parent 2486	29a320ed5f2a
child 2501	e86fae15642d