hg/stx-libtool: comparison VersionDiffBrowser.st

equal deleted inserted replaced

-:09f7f34c2d10
+:b34302928a92
 "
 COPYRIGHT (c) 2000 by eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 !VersionDiffBrowser class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 2000 by eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 VersionDiffBrowser open
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: windowSpec
+	name: windowSpec
-window:
+	window:
 (WindowSpec
-label: 'Version DiffBrowser'
+	  label: 'Version DiffBrowser'
-name: 'Version DiffBrowser'
+	  name: 'Version DiffBrowser'
-min: (Point 10 10)
+	  min: (Point 10 10)
-bounds: (Rectangle 0 0 865 504)
+	  bounds: (Rectangle 0 0 865 504)
-menu: mainMenu
+	  menu: mainMenu
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(VariableVerticalPanelSpec
+	   (VariableVerticalPanelSpec
-name: 'VariableVerticalPanel1'
+	      name: 'VariableVerticalPanel1'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
+	      layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(HorizontalPanelViewSpec
+		 (HorizontalPanelViewSpec
-name: 'TopHorizontalPanel'
+		    name: 'TopHorizontalPanel'
-horizontalLayout: fit
+		    horizontalLayout: fit
-verticalLayout: fit
+		    verticalLayout: fit
-horizontalSpace: 3
+		    horizontalSpace: 3
-verticalSpace: 3
+		    verticalSpace: 3
-component:
+		    component:
-(SpecCollection
+		   (SpecCollection
-collection: (
+		      collection: (
-(ViewSpec
+		       (ViewSpec
-name: 'BoxA'
+			  name: 'BoxA'
-level: 0
+			  level: 0
-visibilityChannel: boxAVisible
+			  visibilityChannel: boxAVisible
-component:
+			  component:
-(SpecCollection
+			 (SpecCollection
-collection: (
+			    collection: (
-(LabelSpec
+			     (LabelSpec
-label: 'Only in A'
+				label: 'Only in A'
-name: 'OnlyInALabel'
+				name: 'OnlyInALabel'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
+				layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
-translateLabel: true
+				translateLabel: true
-labelChannel: onlyInALabelHolder
+				labelChannel: onlyInALabelHolder
-)
+			      )
-(SequenceViewSpec
+			     (SequenceViewSpec
-name: 'ListA'
+				name: 'ListA'
-layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
+				layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
-model: methodsOnlyInASelection
+				model: methodsOnlyInASelection
-menu: menuA
+				menu: menuA
-hasHorizontalScrollBar: true
+				hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+				hasVerticalScrollBar: true
-miniScrollerHorizontal: true
+				miniScrollerHorizontal: true
-doubleClickSelector: methodInADoubleClicked:
+				doubleClickSelector: methodInADoubleClicked:
-valueChangeSelector: methodsOnlyInASelectionChanged
+				valueChangeSelector: methodsOnlyInASelectionChanged
-useIndex: true
+				useIndex: true
-sequenceList: methodsOnlyInA
+				sequenceList: methodsOnlyInA
-)
+			      )
-)
+			     )
-)
+			  )
-extent: (Point 286 199)
+			  extent: (Point 286 199)
-)
+			)
-(ViewSpec
+		       (ViewSpec
-name: 'BoxM'
+			  name: 'BoxM'
-visibilityChannel: boxMVisible
+			  visibilityChannel: boxMVisible
-component:
+			  component:
-(SpecCollection
+			 (SpecCollection
-collection: (
+			    collection: (
-(LabelSpec
+			     (LabelSpec
-label: 'Changed'
+				label: 'Changed'
-name: 'ChangedLabel'
+				name: 'ChangedLabel'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
+				layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
-translateLabel: true
+				translateLabel: true
-labelChannel: changedLabelHolder
+				labelChannel: changedLabelHolder
-)
+			      )
-(SequenceViewSpec
+			     (SequenceViewSpec
-name: 'ListM'
+				name: 'ListM'
-layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
+				layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
-model: methodsChangedSelection
+				model: methodsChangedSelection
-menu: menuM
+				menu: menuM
-hasHorizontalScrollBar: true
+				hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+				hasVerticalScrollBar: true
-miniScrollerHorizontal: true
+				miniScrollerHorizontal: true
-doubleClickSelector: methodInChangedDoubleClicked:
+				doubleClickSelector: methodInChangedDoubleClicked:
-valueChangeSelector: methodsChangedSelectionChanged
+				valueChangeSelector: methodsChangedSelectionChanged
-useIndex: true
+				useIndex: true
-sequenceList: methodsChanged
+				sequenceList: methodsChanged
-)
+			      )
-)
+			     )
-)
+			  )
-extent: (Point 286 199)
+			  extent: (Point 286 199)
-)
+			)
-(ViewSpec
+		       (ViewSpec
-name: 'BoxB'
+			  name: 'BoxB'
-visibilityChannel: boxBVisible
+			  visibilityChannel: boxBVisible
-component:
+			  component:
-(SpecCollection
+			 (SpecCollection
-collection: (
+			    collection: (
-(LabelSpec
+			     (LabelSpec
-label: 'Only in B'
+				label: 'Only in B'
-name: 'OnlyInBLabel'
+				name: 'OnlyInBLabel'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
+				layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
-translateLabel: true
+				translateLabel: true
-labelChannel: onlyInBLabelHolder
+				labelChannel: onlyInBLabelHolder
-)
+			      )
-(SequenceViewSpec
+			     (SequenceViewSpec
-name: 'ListB'
+				name: 'ListB'
-layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
+				layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
-model: methodsOnlyInBSelection
+				model: methodsOnlyInBSelection
-menu: menuB
+				menu: menuB
-hasHorizontalScrollBar: true
+				hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+				hasVerticalScrollBar: true
-miniScrollerHorizontal: true
+				miniScrollerHorizontal: true
-doubleClickSelector: methodInBDoubleClicked:
+				doubleClickSelector: methodInBDoubleClicked:
-valueChangeSelector: methodsOnlyInBSelectionChanged
+				valueChangeSelector: methodsOnlyInBSelectionChanged
-useIndex: true
+				useIndex: true
-sequenceList: methodsOnlyInB
+				sequenceList: methodsOnlyInB
-)
+			      )
-)
+			     )
-)
+			  )
-extent: (Point 287 199)
+			  extent: (Point 287 199)
-)
+			)
-)
+		       )
-)
+		    )
-)
+		  )
-(ViewSpec
+		 (ViewSpec
-name: 'Box4'
+		    name: 'Box4'
-component:
+		    component:
-(SpecCollection
+		   (SpecCollection
-collection: (
+		      collection: (
-(ViewSpec
+		       (ViewSpec
-name: 'diffTextViewBox'
+			  name: 'diffTextViewBox'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+			  layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-initiallyInvisible: true
+			  initiallyInvisible: true
-component:
+			  component:
-(SpecCollection
+			 (SpecCollection
-collection: (
+			    collection: (
-(LabelSpec
+			     (LabelSpec
-label: 'A'
+				label: 'A'
-name: 'DiffTextLabelA'
+				name: 'DiffTextLabelA'
-layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
+				layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
-translateLabel: true
+				translateLabel: true
-labelChannel: diffTextLabelA
+				labelChannel: diffTextLabelA
-)
+			      )
-(LabelSpec
+			     (LabelSpec
-label: 'B'
+				label: 'B'
-name: 'DiffTextLabelB'
+				name: 'DiffTextLabelB'
-layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
+				layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
-translateLabel: true
+				translateLabel: true
-labelChannel: diffTextLabelB
+				labelChannel: diffTextLabelB
-)
+			      )
-(ArbitraryComponentSpec
+			     (ArbitraryComponentSpec
-name: 'diffTextView'
+				name: 'diffTextView'
-layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
+				layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
-hasBorder: false
+				hasBorder: false
-component: diffTextView
+				component: diffTextView
-)
+			      )
-)
+			     )
-)
+			  )
-)
+			)
-(CodeViewSpec
+		       (CodeViewSpec
-name: 'singleTextView'
+			  name: 'singleTextView'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+			  layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-model: methodText
+			  model: methodText
-hasHorizontalScrollBar: true
+			  hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+			  hasVerticalScrollBar: true
-miniScrollerHorizontal: true
+			  miniScrollerHorizontal: true
-isReadOnly: true
+			  isReadOnly: true
-hasKeyboardFocusInitially: false
+			  hasKeyboardFocusInitially: false
-)
+			)
-)
+		       )
-)
+		    )
-)
+		  )
-)
+		 )
-)
+	      )
-handles: (Any 0.42379958246347 1.0)
+	      handles: (Any 0.42379958246347 1.0)
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-name: 'InfoLabel'
+	      name: 'InfoLabel'
-layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
+	      layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
-level: -1
+	      level: -1
-translateLabel: true
+	      translateLabel: true
-labelChannel: infoHolder
+	      labelChannel: infoHolder
-adjust: left
+	      adjust: left
-)
+	    )
-)
+	   )
-)
+	)
 )
 ! !
 !VersionDiffBrowser class methodsFor:'menu specs'!
 (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser mainMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'File'
+	    label: 'File'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Create PatchFile...'
+		  label: 'Create PatchFile...'
-itemValue: createPatchFile
+		  itemValue: createPatchFile
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Exit'
+		  label: 'Exit'
-itemValue: closeRequest
+		  itemValue: closeRequest
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'View'
+	    label: 'View'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-enabled: canIncludeExtensionsHolder
+		  enabled: canIncludeExtensionsHolder
-label: 'Include Extensions'
+		  label: 'Include Extensions'
-itemValue: includeExtensions:
+		  itemValue: includeExtensions:
-translateLabel: true
+		  translateLabel: true
-indication: includeExtensionsHolder
+		  indication: includeExtensionsHolder
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Help'
+	    label: 'Help'
-translateLabel: true
+	    translateLabel: true
-startGroup: conditionalRight
+	    startGroup: conditionalRight
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Documentation'
+		  label: 'Documentation'
-itemValue: openDocumentation
+		  itemValue: openDocumentation
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'About this Application...'
+		  label: 'About this Application...'
-itemValue: openAboutThisApplication
+		  itemValue: openAboutThisApplication
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 menuA
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser menu1)) startUp
 "
 <resource: #menu>
 ^
 #(#Menu
-#(
+	#(
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Apply'
+	    #label: 'Apply'
-#translateLabel: true
+	    #translateLabel: true
-#value: #applySelectedChangeInA
+	    #value: #applySelectedChangeInA
-#enabled: #hasChangeSelectedInA
+	    #enabled: #hasChangeSelectedInA
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Browse'
+	    #label: 'Browse'
-#translateLabel: true
+	    #translateLabel: true
-#value: #browseClassInA
+	    #value: #browseClassInA
-#enabled: #hasChangeSelectedInA
+	    #enabled: #hasChangeSelectedInA
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Inspect'
+	    #label: 'Inspect'
-#translateLabel: true
+	    #translateLabel: true
-#value: #inspectSelectedChangeInA
+	    #value: #inspectSelectedChangeInA
-#choiceValue: 'nil "UndefinedObject" '
+	    #choiceValue: 'nil "UndefinedObject" '
-#enabled: #hasChangeSelectedInA
+	    #enabled: #hasChangeSelectedInA
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 menuB
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser menuB)) startUp
 "
 <resource: #menu>
 ^
 #(#Menu
-#(
+	#(
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Apply'
+	    #label: 'Apply'
-#translateLabel: true
+	    #translateLabel: true
-#value: #applySelectedChangeInB
+	    #value: #applySelectedChangeInB
-#enabled: #hasChangeSelectedInB
+	    #enabled: #hasChangeSelectedInB
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Browse'
+	    #label: 'Browse'
-#translateLabel: true
+	    #translateLabel: true
-#value: #browseClassInB
+	    #value: #browseClassInB
-#enabled: #hasChangeSelectedInB
+	    #enabled: #hasChangeSelectedInB
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Remove in Image'
+	    #label: 'Remove in Image'
-#translateLabel: true
+	    #translateLabel: true
-#value: #removeSelectedChangeInBFromImage
+	    #value: #removeSelectedChangeInBFromImage
-#enabled: #hasChangeSelectedInB
+	    #enabled: #hasChangeSelectedInB
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Inspect'
+	    #label: 'Inspect'
-#translateLabel: true
+	    #translateLabel: true
-#value: #inspectSelectedChangeInB
+	    #value: #inspectSelectedChangeInB
-#choiceValue: 'nil "UndefinedObject" '
+	    #choiceValue: 'nil "UndefinedObject" '
-#enabled: #hasChangeSelectedInB
+	    #enabled: #hasChangeSelectedInB
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 15-08-2010 / 21:24:49 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser menu1)) startUp
 "
 <resource: #menu>
 ^
 #(#Menu
-#(
+	#(
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Browse'
+	    #label: 'Browse'
-#translateLabel: true
+	    #translateLabel: true
-#value: #browseClassInM
+	    #value: #browseClassInM
-#enabled: #hasChangeSelectedInM
+	    #enabled: #hasChangeSelectedInM
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Apply Left Version'
+	    #label: 'Apply Left Version'
-#translateLabel: true
+	    #translateLabel: true
-#value: #acceptInLeftView
+	    #value: #acceptInLeftView
-#enabled: #hasChangeSelectedInM
+	    #enabled: #hasChangeSelectedInM
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Apply Right Version'
+	    #label: 'Apply Right Version'
-#translateLabel: true
+	    #translateLabel: true
-#value: #acceptInRightView
+	    #value: #acceptInRightView
-#enabled: #hasChangeSelectedInM
+	    #enabled: #hasChangeSelectedInM
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Inspect both'
+	    #label: 'Inspect both'
-#translateLabel: true
+	    #translateLabel: true
-#value: #inspectSelectedChangeInM
+	    #value: #inspectSelectedChangeInM
-#choiceValue: 'nil "UndefinedObject" '
+	    #choiceValue: 'nil "UndefinedObject" '
-#enabled: #hasChangeSelectedInM
+	    #enabled: #hasChangeSelectedInM
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 31-08-2007 / 14:16:39 / cg"
 ! !
 "Return a description of exported aspects;
 these can be connected to aspects of an embedding application
 (if this app is embedded in a subCanvas)."
 ^ #(
-#changedLabelHolder
+	#changedLabelHolder
-#onlyInALabelHolder
+	#onlyInALabelHolder
-#onlyInBLabelHolder
+	#onlyInBLabelHolder
 ).
 ! !
 !VersionDiffBrowser class methodsFor:'startup'!
 openOnClass:aClass againstVersion:aVersionA
 "create a VersionDiffBrowser instance and set the class change set of the
 browser. The class diff set is generated from aClasses current against some version
 via the source code manager."
 |theBrowser|
 (self openOnClass:ByteArray againstVersion:'1.116') includeExtensionsHolder value:true
 "
 !
 openOnClass:classA labelA:aLabelA andClass:classB labelB:aLabelB title:ignoredTitle
 "create a VersionDiffBrowser instance and set the class change set of the
 browser. The class diff set is generated from two classes."
 ^ self
-openOnClass:classA labelA:aLabelA
+	openOnClass:classA labelA:aLabelA
-andClass:classB labelB:aLabelB
+	andClass:classB labelB:aLabelB
-title:ignoredTitle ifSame:nil
+	title:ignoredTitle ifSame:nil
 "
 self
-openOnClass:Array labelA:'Array'
+	openOnClass:Array labelA:'Array'
-andClass:Collection labelB:'Collection'
+	andClass:Collection labelB:'Collection'
-title:'Array vs. Collection'
+	title:'Array vs. Collection'
 "
 !
 openOnClass:classA labelA:aLabelA andClass:classB labelB:aLabelB title:ignoredTitle ifSame:sameAction
 "create a VersionDiffBrowser instance and set the class change set of the
 |classChangeSet|
 classChangeSet := ClassChangeSet newForClass:classA labelA:aLabelA andClass:classB labelB:aLabelB.
 classChangeSet removeAllVersionMethods.
 sameAction notNil ifTrue:[
-"/ check if same ...
+	"/ check if same ...
-(classChangeSet methodsOnlyInA isEmpty
+	(classChangeSet methodsOnlyInA isEmpty
-and:[classChangeSet methodsOnlyInB isEmpty
+	and:[classChangeSet methodsOnlyInB isEmpty
-and:[classChangeSet diffSet isEmpty]]) ifTrue:[
+	and:[classChangeSet diffSet isEmpty]]) ifTrue:[
-sameAction value.
+	    sameAction value.
-^ self "/ do not open
+	    ^ self "/ do not open
-]
+	]
 ].
 ^ self openOnClassChangeSet:classChangeSet title:ignoredTitle
 !
 openOnClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB
 "create a VersionDiffBrowser instance and set the class change set of the
 browser. The class diff set is generated from two source files."
 ^ self
-openOnClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB
+	openOnClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB
-title:nil
+	title:nil
 !
 openOnClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB title:ignoredTitle
 "create a VersionDiffBrowser instance and set the class change set of the
 browser. The class diff set is generated from two source files."
 ^ self
-openOnClass:aClass labelA:aLabelA sourceA:aSourceA
+	openOnClass:aClass labelA:aLabelA sourceA:aSourceA
-labelB:aLabelB sourceB:aSourceB
+	labelB:aLabelB sourceB:aSourceB
-title:ignoredTitle ifSame:nil
+	title:ignoredTitle ifSame:nil
 !
 openOnClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB title:ignoredTitle ifSame:sameAction
 "create a VersionDiffBrowser instance and set the class change set of the
 browser. The class diff set is generated from two source files."
 |diffs hasChangedMethods classChangeSet versionMethodChanges|
 classChangeSet := ClassChangeSet newForClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB.
 classChangeSet removeAllVersionMethods.
 sameAction notNil ifTrue:[
-"/ check if same ...
+	"/ check if same ...
-(classChangeSet methodsOnlyInA isEmpty
+	(classChangeSet methodsOnlyInA isEmpty
-and:[classChangeSet methodsOnlyInB isEmpty]) ifTrue:[
+	and:[classChangeSet methodsOnlyInB isEmpty]) ifTrue:[
-diffs := classChangeSet diffSet.
+	    diffs := classChangeSet diffSet.
-hasChangedMethods := diffs changed notEmpty.
+	    hasChangedMethods := diffs changed notEmpty.
-hasChangedMethods ifTrue:[
+	    hasChangedMethods ifTrue:[
-versionMethodChanges := diffs changed select:[:eachDifference |
+		versionMethodChanges := diffs changed select:[:eachDifference |
-|eachChange|
+		    |eachChange|
-eachChange := eachDifference first.
+		    eachChange := eachDifference first.
-(eachChange isMethodChange
+		    (eachChange isMethodChange
-and:[ (AbstractSourceCodeManager isVersionMethodSelector:eachChange selector)
+		    and:[ (AbstractSourceCodeManager isVersionMethodSelector:eachChange selector)
-and:[ eachChange changeClass isMeta ]]).
+		    and:[ eachChange changeClass isMeta ]]).
-].
+		].
-diffs changed size == versionMethodChanges size ifTrue: [
+		diffs changed size == versionMethodChanges size ifTrue: [
-hasChangedMethods := false.
+		    hasChangedMethods := false.
-].
+		].
 "/                diffs changed size == 1 ifTrue:[
 "/                    theOnlyDifference := diffs changed first.
 "/                    theOnlyChange := theOnlyDifference first.
 "/                    (theOnlyChange isMethodChange
 "/                    and:[ ((theOnlyChange selector == #version) or:[theOnlyChange selector startsWith:'version_'])
 "/                    and:[ theOnlyChange changeClass isMeta ]]) ifTrue:[
 "/                        hasChangedMethods := false
 "/                    ]
 "/                ]
-].
+	    ].
-(hasChangedMethods not
+	    (hasChangedMethods not
-and:[diffs onlyInArg isEmpty
+	    and:[diffs onlyInArg isEmpty
-and:[diffs onlyInReceiver isEmpty]]) ifTrue:[
+	    and:[diffs onlyInReceiver isEmpty]]) ifTrue:[
-sameAction value.
+		sameAction value.
-^ self "/ do not open
+		^ self "/ do not open
-].
+	    ].
-]
+	]
 ].
 ^ self openOnClassChangeSet:classChangeSet title:ignoredTitle
 "Modified: / 13-10-2006 / 01:01:05 / cg"
 ^ theBrowser.
 !
 openOnDiffSet:diffSet labelA:aLabelA labelB:aLabelB title:ignoredTitle
 ^ self
-openOnDiffSet:diffSet labelA:aLabelA labelB:aLabelB title:ignoredTitle
+	openOnDiffSet:diffSet labelA:aLabelA labelB:aLabelB title:ignoredTitle
-ignoreExtensions:false
+	ignoreExtensions:false
 "Modified: / 12-09-2011 / 11:52:44 / cg"
 !
 openOnDiffSet:diffSet labelA:aLabelA labelB:aLabelB title:ignoredTitle ignoreExtensions:aBoolean
 theBrowser window label:('%1 vs. %2' bindWith:file1 asFilename baseName with:file2 asFilename baseName).
 theBrowser openWindow.
 ^ theBrowser.
 "
 VersionDiffBrowser
-openOnDiffsBetweenFile:'/phys/exept/tmp/ws/Workflow::BlockDescription.st'
+	openOnDiffsBetweenFile:'/phys/exept/tmp/ws/Workflow::BlockDescription.st'
-and:'/phys/exept/tmp/workflowClasses/Workflow::BlockDescription.st'
+	and:'/phys/exept/tmp/workflowClasses/Workflow::BlockDescription.st'
 "
 ! !
 !VersionDiffBrowser methodsFor:'accessing'!
 classBeingCompared
 "
 gets the class from the change set which is compared.
 <return: Class>
 "
 ^ self classChangeSet classBeingCompared
 !
 classChangeSet
 "returns the class change set which is the model of the version diff browser."
 ^ classChangeSet
 !
 classChangeSet:aClassChangeSet
 "
 |sel change|
 sel := self methodsOnlyInASelection value.
 sel notNil ifTrue:[
-change := self changeSetA at:sel.
+	change := self changeSetA at:sel.
 ].
 ^ change
 !
 selectedChangeInB
 "
 |sel change|
 sel := self methodsOnlyInBSelection value.
 sel notNil ifTrue:[
-change := (self changeSetB at:sel).
+	change := (self changeSetB at:sel).
 ].
 ^ change
 !
 selectedChangesInM
 "
 |sel changeA changeB theTwoChanges|
 sel := self methodsChangedSelection value.
 sel notNil ifTrue:[
-theTwoChanges := self classChangeSet methodsChanged at:sel.
+	theTwoChanges := self classChangeSet methodsChanged at:sel.
 "/        changeA := theTwoChanges first.
 "/        changeB := theTwoChanges second.
 "/        ^ Array with:changeA with:changeB.
-^ theTwoChanges.
+	^ theTwoChanges.
 ].
 ^ #(nil nil)
 !
 versionA
 ! !
 !VersionDiffBrowser methodsFor:'actions'!
 acceptInLeftView
 |change|
 change := self selectedChangesInM first.
 self applyChange:change
 !
 acceptInRightView
 |change|
 change := self selectedChangesInM second.
 self applyChange:change
 !
 acceptInSingleView
 |change|
 change := self selectedChangeInA.
 change isNil ifTrue:[
-change := self selectedChangeInB
+	change := self selectedChangeInB
 ].
 self applyChange:change
 !
 applySelectedChangeInA
 self applyChange:(self selectedChangeInA)
 !
 applySelectedChangeInB
 self applyChange:(self selectedChangeInB)
 !
 methodInADoubleClicked:index
 "/    |change|
 "/
 self infoHolder value:''.
 sel := self methodsChangedSelection value.
 sel notNil ifTrue:[
-self methodsOnlyInASelection value:nil.
+	self methodsOnlyInASelection value:nil.
-self methodsOnlyInBSelection value:nil.
+	self methodsOnlyInBSelection value:nil.
-methodsChanged := self classChangeSet methodsChanged.
+	methodsChanged := self classChangeSet methodsChanged.
-changeA := (methodsChanged at:sel) first.
+	changeA := (methodsChanged at:sel) first.
-changeB := (methodsChanged at:sel) second.
+	changeB := (methodsChanged at:sel) second.
-self withReadCursorDo:[
+	self withReadCursorDo:[
-"/ see if the semantics have changed (or only prettyPrinted)
+	    "/ see if the semantics have changed (or only prettyPrinted)
-RBParser notNil ifTrue:[
+	    RBParser notNil ifTrue:[
-(classChangeSet notNil
+		(classChangeSet notNil
-and:[ classChangeSet classBeingCompared notNil ]) ifTrue:[
+		and:[ classChangeSet classBeingCompared notNil ]) ifTrue:[
-parseError := false.
+		    parseError := false.
-treeA := RBParser parseMethod:changeA source onError: [:str :pos | parseError := true].
+		    treeA := RBParser parseMethod:changeA source onError: [:str :pos | parseError := true].
-treeB := RBParser parseMethod:changeB source onError: [:str :pos | parseError := true].
+		    treeB := RBParser parseMethod:changeB source onError: [:str :pos | parseError := true].
-parseError ifFalse:[
+		    parseError ifFalse:[
-(treeA equalTo:treeB withMapping:(Dictionary  new)) ifTrue:[
+			(treeA equalTo:treeB withMapping:(Dictionary  new)) ifTrue:[
-self infoHolder value:'Methods only differ in formatting / comments.'.
+			    self infoHolder value:'Methods only differ in formatting / comments.'.
-]
+			]
-]
+		    ]
-].
+		].
-].
+	    ].
-self diffTextView
+	    self diffTextView
-text1:(changeA prettyPrintedSource) text2:(changeB prettyPrintedSource);
+		text1:(changeA prettyPrintedSource) text2:(changeB prettyPrintedSource);
-moveToNextChanged
+		moveToNextChanged
-].
+	].
-self showDiffTextView.
+	self showDiffTextView.
 ]
 "Modified: / 3.9.1999 / 15:01:30 / ps"
 !
 self infoHolder value:''.
 sel := self methodsOnlyInASelection value.
 sel notNil ifTrue:[
-self methodsOnlyInBSelection value:nil.
+	self methodsOnlyInBSelection value:nil.
-self methodsChangedSelection value:nil.
+	self methodsChangedSelection value:nil.
-change := self changeSetA at:sel.
+	change := self changeSetA at:sel.
-self methodText value:(change prettyPrintedSource).
+	self methodText value:(change prettyPrintedSource).
-self showSingleTextView.
+	self showSingleTextView.
 ]
 !
 methodsOnlyInBSelectionChanged
 "
 self infoHolder value:''.
 sel := self methodsOnlyInBSelection value.
 sel notNil ifTrue:[
-self methodsOnlyInASelection value:nil.
+	self methodsOnlyInASelection value:nil.
-self methodsChangedSelection value:nil.
+	self methodsChangedSelection value:nil.
-change := self changeSetB at:sel.
+	change := self changeSetB at:sel.
-self methodText value:(change prettyPrintedSource).
+	self methodText value:(change prettyPrintedSource).
-self showSingleTextView.
+	self showSingleTextView.
 ]
 !
 removeSelectedChangeInBFromImage
 |change cls sel op|
 change := self selectedChangeInB.
 change isMethodChange ifTrue:[
-(cls := change changeClass) notNil ifTrue:[
+	(cls := change changeClass) notNil ifTrue:[
-(sel := change selector) notNil ifTrue:[
+	    (sel := change selector) notNil ifTrue:[
-RefactoryChangeManager notNil ifTrue:[
+		RefactoryChangeManager notNil ifTrue:[
-op := RemoveMethodChange remove:sel from:cls.
+		    op := RemoveMethodChange remove:sel from:cls.
-RefactoryChangeManager performChange: op.
+		    RefactoryChangeManager performChange: op.
-] ifFalse:[
+		] ifFalse:[
-cls removeSelector:sel
+		    cls removeSelector:sel
-]
+		]
-]
+	    ]
-]
+	]
 ]
 "Modified: / 15-08-2010 / 21:35:00 / cg"
 ! !
 !VersionDiffBrowser methodsFor:'aspects'!
 boxAVisible
 boxAVisible isNil ifTrue:[
-boxAVisible := true asValue.
+	boxAVisible := true asValue.
 ].
 ^ boxAVisible.
 !
 boxBVisible
 boxBVisible isNil ifTrue:[
-boxBVisible := true asValue.
+	boxBVisible := true asValue.
 ].
 ^ boxBVisible.
 !
 boxMVisible
 boxMVisible isNil ifTrue:[
-boxMVisible := true asValue.
+	boxMVisible := true asValue.
 ].
 ^ boxMVisible.
 !
 canIncludeExtensionsHolder
 "can include extensions ? (menu item enabler)"
 canIncludeExtensionsHolder isNil ifTrue:[
-canIncludeExtensionsHolder := true asValue.
+	canIncludeExtensionsHolder := true asValue.
 ].
 ^ canIncludeExtensionsHolder.
 !
 changedLabelHolder
 <return: ValueHolder on: nil>
 "
 changedLabelHolder isNil ifTrue:[
-changedLabelHolder := ValueHolder new.
+	changedLabelHolder := ValueHolder new.
 ].
 ^ changedLabelHolder.
 !
 diffTextLabelA
 <return: ValueHolder on: nil>
 "
 diffTextLabelA isNil ifTrue:[
-diffTextLabelA := ValueHolder new.
+	diffTextLabelA := ValueHolder new.
 ].
 ^ diffTextLabelA.
 !
 diffTextLabelB
 <return: ValueHolder on: nil>
 "
 diffTextLabelB isNil ifTrue:[
-diffTextLabelB := ValueHolder new.
+	diffTextLabelB := ValueHolder new.
 ].
 ^ diffTextLabelB.
 !
 diffTextView
 <return: HVScrollableView>
 "
 |v|
 diffTextView isNil ifTrue:[
-v := DiffCodeView basicNew.
+	v := DiffCodeView basicNew.
-v textViewClass:CodeView.
+	v textViewClass:CodeView.
-v initialize.
+	v initialize.
-diffTextView := HVScrollableView
+	diffTextView := HVScrollableView
-forView:v
+			   forView:v
-miniScrollerH:true miniScrollerV:false.
+			   miniScrollerH:true miniScrollerV:false.
-diffTextView addNextPreviousButtons.
+	diffTextView addNextPreviousButtons.
 ].
 ^ diffTextView
 "Modified: / 06-10-2006 / 14:30:42 / cg"
 !
 includeExtensionsHolder
 "only compare base-methods or include extensions ?"
 includeExtensionsHolder isNil ifTrue:[
-includeExtensionsHolder := false asValue.
+	includeExtensionsHolder := false asValue.
-includeExtensionsHolder addDependent:self.
+	includeExtensionsHolder addDependent:self.
 ].
 ^ includeExtensionsHolder.
 "Modified: / 06-03-2012 / 15:36:52 / cg"
 !
 infoHolder
 infoHolder isNil ifTrue:[
-infoHolder := ValueHolder new.
+	infoHolder := ValueHolder new.
 ].
 ^ infoHolder.
 !
 methodText
 <return: ValueHolder on: nil>
 "
 methodText isNil ifTrue:[
-methodText := ValueHolder new.
+	methodText := ValueHolder new.
 ].
 ^ methodText.
 !
 methodsChanged
 <return: List>
 "
 methodsChanged isNil ifTrue:[
-methodsChanged := List new.
+	methodsChanged := List new.
 ].
 ^ methodsChanged.
 !
 methodsChangedSelection
 <return: ValueHolder on: nil>
 "
 methodsChangedSelection isNil ifTrue:[
-methodsChangedSelection := ValueHolder new.
+	methodsChangedSelection := ValueHolder new.
 ].
 ^ methodsChangedSelection.
 !
 methodsOnlyInA
 "aspect for the 'method only in version A' list."
 methodsOnlyInA isNil ifTrue:[
-methodsOnlyInA := List new.
+	methodsOnlyInA := List new.
 ].
 ^ methodsOnlyInA.
 "Modified: / 25-07-2006 / 11:14:43 / cg"
 !
 methodsOnlyInASelection
 "aspect for the selection holder of 'method only in version A'-list."
 methodsOnlyInASelection isNil ifTrue:[
-methodsOnlyInASelection := ValueHolder new.
+	methodsOnlyInASelection := ValueHolder new.
 ].
 ^ methodsOnlyInASelection.
 "Modified: / 25-07-2006 / 11:14:53 / cg"
 !
 methodsOnlyInB
 "aspect for the 'method only in version B' list"
 methodsOnlyInB isNil ifTrue:[
-methodsOnlyInB := List new.
+	methodsOnlyInB := List new.
 ].
 ^ methodsOnlyInB.
 "Modified: / 25-07-2006 / 11:14:48 / cg"
 !
 methodsOnlyInBSelection
 "aspect for the selection holder of 'method only in version B'-list."
 methodsOnlyInBSelection isNil ifTrue:[
-methodsOnlyInBSelection := ValueHolder new.
+	methodsOnlyInBSelection := ValueHolder new.
 ].
 ^ methodsOnlyInBSelection.
 "Modified: / 25-07-2006 / 11:15:00 / cg"
 !
 onlyInALabelHolder
 "aspect for the label for 'method only in version A'."
 onlyInALabelHolder isNil ifTrue:[
-onlyInALabelHolder := ValueHolder new.
+	onlyInALabelHolder := ValueHolder new.
 ].
 ^ onlyInALabelHolder.
 "Modified: / 25-07-2006 / 11:15:12 / cg"
 !
 onlyInBLabelHolder
 "aspect for the label for 'method only in version B'."
 onlyInBLabelHolder isNil ifTrue:[
-onlyInBLabelHolder := ValueHolder new.
+	onlyInBLabelHolder := ValueHolder new.
 ].
 ^ onlyInBLabelHolder.
 "Modified: / 25-07-2006 / 11:15:07 / cg"
 ! !
 !
 classHolder:aValueHolder
 classHolder notNil ifTrue:[
-classHolder removeDependent:self
+	classHolder removeDependent:self
 ].
 classHolder := aValueHolder.
 classHolder notNil ifTrue:[
-classHolder addDependent:self
+	classHolder addDependent:self
 ]
 !
 onlyInALabelHolder:aValueHolder
 builder aspectAt:#onlyInALabelHolder put:aValueHolder.
 builder aspectAt:#onlyInBLabelHolder put:aValueHolder.
 !
 versionAHolder:aValueHolder
 versionAHolder notNil ifTrue:[
-versionAHolder removeDependent:self
+	versionAHolder removeDependent:self
 ].
 versionAHolder := aValueHolder.
 versionAHolder notNil ifTrue:[
-versionAHolder addDependent:self
+	versionAHolder addDependent:self
 ]
 !
 versionBHolder:aValueHolder
 versionBHolder notNil ifTrue:[
-versionBHolder removeDependent:self
+	versionBHolder removeDependent:self
 ].
 versionBHolder := aValueHolder.
 versionBHolder notNil ifTrue:[
-versionBHolder addDependent:self
+	versionBHolder addDependent:self
 ]
 ! !
 !VersionDiffBrowser methodsFor:'aspects-menu'!
 ! !
 !VersionDiffBrowser methodsFor:'change & update'!
 update:something with:parameter from:changedObject
 changedObject == includeExtensionsHolder ifTrue:[
-self updateLists.
+	self updateLists.
-^ self
+	 ^ self
 ].
 (changedObject == classHolder
 or:[changedObject == versionAHolder
 or:[changedObject == versionBHolder]]) ifTrue:[
-self setupForClass:(classHolder value) versionA:(versionAHolder value) versionB:(versionBHolder value).
+	self setupForClass:(classHolder value) versionA:(versionAHolder value) versionB:(versionBHolder value).
-^ self
+	^ self
 ].
 super update:something with:parameter from:changedObject
 "Modified: / 06-03-2012 / 15:42:38 / cg"
 ! !
 aChange isNil ifTrue:[^ self].
 browserClass := UserPreferences systemBrowserClass.
 cls := aChange changeClass.
 aChange isMethodChange ifTrue:[
-sel := aChange changeSelector.
+	sel := aChange changeSelector.
 "/        (cls compiledMethodAt:sel) isNil ifTrue:[
 "/            (self confirm:'Method does not exist.\\Browse Class ?' withCRs) ifTrue:[
 "/                browserClass openInClass:cls
 "/            ].
 "/            sel := nil.
 "/        ]
 ].
 self withWaitCursorDo:[
-browserClass openInClass:cls selector:sel.
+	browserClass openInClass:cls selector:sel.
 ]
 "Modified: / 12-10-2006 / 23:58:40 / cg"
 !
 defaultName := 'patchFile.chg'.
 classBeingCompared := classChangeSet classBeingCompared.
 classBeingCompared notNil ifTrue:[
-defaultName := classBeingCompared nameWithoutPrefix.
+	defaultName := classBeingCompared nameWithoutPrefix.
-classChangeSet versionA notNil ifTrue:[
+	classChangeSet versionA notNil ifTrue:[
-defaultName := defaultName , '-'.
+	    defaultName := defaultName , '-'.
-defaultName := defaultName , classChangeSet versionA.
+	    defaultName := defaultName , classChangeSet versionA.
-classChangeSet versionB notNil ifTrue:[
+	    classChangeSet versionB notNil ifTrue:[
-defaultName := defaultName , '-'.
+		defaultName := defaultName , '-'.
-defaultName := defaultName , classChangeSet versionB.
+		defaultName := defaultName , classChangeSet versionB.
-].
+	    ].
-].
+	].
-defaultName := defaultName , '.chg'.
+	defaultName := defaultName , '.chg'.
 ].
 f := Dialog
-requestFileNameForSave:'Name of patchFile:'
+	    requestFileNameForSave:'Name of patchFile:'
-default:defaultName.
+	    default:defaultName.
 self warn:'Sorry: This function is not yet implemented'.
 ^ self.
 "/    vsnMthdA := self changeSetA
 "/                detect:[:ch | ch isMethodChange
 "/                              and:[ch changeClass isMeta
 "/                              and:[ch changeSelector = #version]]]
 "/                ifNone:nil.
 "/    vsnMthdB := self changeSetA
 "/                detect:[:ch | ch isMethodChange
 "/                              and:[ch changeClass isMeta
 "/                              and:[ch changeSelector = #version]]]
 "/                ifNone:nil.
 "/
 "/    vsnMthdA notNil ifTrue:[
 "/        "/ extract the version
 "/        vsnA := Class revisionStringFromSource:vsnMthdA source.
 "/        vsnA notNil ifTrue:[
 "/            info := Class revisionInfoFromString:vsnA.
 "/            info notNil ifTrue:[
 "/                vsnA := info at:#revision ifAbsent:nil.
 "/                vsnA := nil.
 "/            ].
 "/        ].
 "/    ].
 "/    vsnMthdB notNil ifTrue:[
 "/        "/ extract the version
 "/        vsnB := Class revisionStringFromSource:vsnMthdB source.
 "/        vsnB notNil ifTrue:[
 "/            info := Class revisionInfoFromString:vsnB.
 "/            info notNil ifTrue:[
 "/                vsnB := info at:#revision ifAbsent:nil.
 |changes|
 changes := self selectedChangesInM.
 changes do:[:change |
-change inspect
+	change inspect
 ].
 "Modified: / 25-07-2006 / 11:13:13 / cg"
 !
 mainMenu
 "if this application runs as an subapplication,
 the menu bar should not be used."
 self masterApplication isNil ifTrue:[
-^ self class mainMenu
+	^ self class mainMenu
 ].
 ^ nil
 "Modified: / 25-07-2006 / 11:13:44 / cg"
 !
 diffTextView := self diffTextView.
 leftView := diffTextView leftTextView.
 rightView := diffTextView rightTextView.
 singleView := self componentAt:#singleTextView.
 (Array
-with:leftView
+	with:leftView
-with:rightView
+	with:rightView
-with:singleView)
+	with:singleView)
 do:[:v |
-|mGen|
+	|mGen|
-mGen := [
+	mGen := [
-|m|
+	    |m|
-m := v editMenu.
+	    m := v editMenu.
-(m selectorAt:#accept) isNil ifTrue:[
+	    (m selectorAt:#accept) isNil ifTrue:[
-m addLabels:(resources array:#('-' 'Accept'))
+		m addLabels:(resources array:#('-' 'Accept'))
-selectors:(Array with:nil with:#accept)
+		  selectors:(Array with:nil with:#accept)
-after:#copySelection.
+		  after:#copySelection.
-].
+	    ].
-m
+	    m
-actionAt:#accept
+		actionAt:#accept
-put:[
+		put:[
-v == singleView ifTrue:[
+		    v == singleView ifTrue:[
-self acceptInSingleView
+			self acceptInSingleView
-] ifFalse:[
+		    ] ifFalse:[
-v == leftView ifTrue:[
+			v == leftView ifTrue:[
-self acceptInLeftView
+			   self acceptInLeftView
-] ifFalse:[
+			] ifFalse:[
-self acceptInRightView
+			   self acceptInRightView
-].
+			].
-].
+		    ].
-].
+		].
-m selectorAt:#accept put:nil.
+	    m selectorAt:#accept put:nil.
-m enable:#copySelection.
+	    m enable:#copySelection.
-m setEnable:#accept to:[self canAcceptInCodeView].
+	    m setEnable:#accept to:[self canAcceptInCodeView].
-m
+	    m
-].
+	].
-v menuHolder:mGen.
+	v menuHolder:mGen.
-v menuMessage:#value.
+	v menuMessage:#value.
 ]
 !
 applyChange:change
 change notNil ifTrue:[
-change apply
+	change apply
 ]
 !
 printStringForChange:aChange
 "generate a print string for a change."
 |m changeClassName useChangesString selectorString
 singleComparedClass singleComparedClassesName singleComparedMetaclassesName|
 (singleComparedClass := self classBeingCompared) notNil ifTrue:[
-singleComparedClassesName := singleComparedClass name.
+	singleComparedClassesName := singleComparedClass name.
-singleComparedMetaclassesName := singleComparedClass theMetaclass name.
+	singleComparedMetaclassesName := singleComparedClass theMetaclass name.
 ].
 aChange isClassDefinitionChange ifTrue:[
-^ aChange printStringWithoutClassName
+	^ aChange printStringWithoutClassName
 ].
 aChange isDoIt ifTrue:[
-^ aChange source , ' (doIt)'
+	^ aChange source , ' (doIt)'
 ].
 aChange isNameSpaceCreationChange ifTrue:[
-^ aChange source
+	^ aChange source
 ].
 changeClassName := aChange className.
 changeClassName isNil ifTrue:[
-^ aChange source
+	^ aChange source
 ].
 useChangesString := false.
 (changeClassName = singleComparedClassesName) ifTrue:[
-changeClassName := ''.
+	changeClassName := ''.
-useChangesString := true.
+	useChangesString := true.
 ] ifFalse:[
-(changeClassName = singleComparedMetaclassesName) ifTrue:[
+	(changeClassName = singleComparedMetaclassesName) ifTrue:[
-changeClassName := 'class '.
+	    changeClassName := 'class '.
-useChangesString := true.
+	    useChangesString := true.
-] ifFalse:[
+	] ifFalse:[
-((changeClassName includes:$:) and:[ changeClassName startsWith:((singleComparedClassesName ? ''),'::') ]) ifTrue:[
+	    ((changeClassName includes:$:) and:[ changeClassName startsWith:((singleComparedClassesName ? ''),'::') ]) ifTrue:[
-changeClassName := changeClassName copyFrom:(singleComparedClassesName,'::') size+1.
+		changeClassName := changeClassName copyFrom:(singleComparedClassesName,'::') size+1.
-].
+	    ].
-].
+	].
 ].
 selectorString := ''.
 (aChange isMethodChange
 and:[ aChange changeClass notNil ]) ifTrue:[
-selectorString := aChange selector.
+	selectorString := aChange selector.
-m := aChange changeMethod.
+	m := aChange changeMethod.
-m notNil ifTrue:[
+	m notNil ifTrue:[
-m := m originalMethodIfWrapped.
+	    m := m originalMethodIfWrapped.
-selectorString := m printStringForBrowserWithSelector:aChange selector inClass:aChange changeClass.
+	    selectorString := m printStringForBrowserWithSelector:aChange selector inClass:aChange changeClass.
-].
+	].
-selectorString := ' ',selectorString
+	selectorString := ' ',selectorString
 ].
 aChange isMethodCategoryChange ifTrue:[
-^ changeClassName,selectorString, ' (category)'
+	^ changeClassName,selectorString, ' (category)'
 ].
 ^ changeClassName,selectorString
 "Modified: / 24-11-2011 / 12:11:02 / cg"
 !
 resetSelectionHolders
 "
 reset all selection holders when a new change set is given.
 First set the selection to nil.
 <return: self>
 "
 self methodsChangedSelection value:nil.
 |theVersionA theVersionB builder|
 builder := self builder.
 (theVersionA := self versionA) notNil ifTrue:[
-self diffTextLabelA value:theVersionA.
+	self diffTextLabelA value:theVersionA.
-self onlyInALabelHolder value:('Only in ' , theVersionA).
+	self onlyInALabelHolder value:('Only in ' , theVersionA).
-(self componentAt:#OnlyInALabel)
+	(self componentAt:#OnlyInALabel)
-foregroundColor:Color white;
+	    foregroundColor:Color white;
-backgroundColor:Color green darkened.
+	    backgroundColor:Color green darkened.
 ].
 (theVersionB :=self versionB) notNil ifTrue:[
-self diffTextLabelB value:theVersionB.
+	self diffTextLabelB value:theVersionB.
-self onlyInBLabelHolder value:('Only in ' , theVersionB).
+	self onlyInBLabelHolder value:('Only in ' , theVersionB).
-(self componentAt:#OnlyInBLabel)
+	(self componentAt:#OnlyInBLabel)
-foregroundColor:Color white;
+	    foregroundColor:Color white;
-backgroundColor:Color red darkened.
+	    backgroundColor:Color red darkened.
 ].
 self changedLabelHolder value:('Different').
 "Modified: / 13-10-2006 / 01:07:08 / cg"
 !
 updateLists
 |classChangeSet listOnlyInA listOnlyInB listChanged
 printStringGenerator sortBlockForChangeLists filteredList
 isIgnoredChange numIgnoredExtensions|
 classChangeSet := self classChangeSet.
 printStringGenerator := [:aChange | self printStringForChange:aChange].
 sortBlockForChangeLists := [:a :b | (printStringGenerator value:a) < (printStringGenerator value:b)].
 numIgnoredExtensions := 0.
 isIgnoredChange :=
-[:change |
+	[:change |
-|packageOfMethodInChange packageOfMethodInImage changeMethod ignored|
+	    |packageOfMethodInChange packageOfMethodInImage changeMethod ignored|
-ignored := false.
+	    ignored := false.
-change isMethodCodeChange ifTrue:[
+	    change isMethodCodeChange ifTrue:[
-packageOfMethodInChange := change package.
+		packageOfMethodInChange := change package.
-(packageOfMethodInChange notNil
+		(packageOfMethodInChange notNil
-and:[ packageOfMethodInChange ~= PackageId noProjectID
+		  and:[ packageOfMethodInChange ~= PackageId noProjectID
-and:[ packageOfMethodInChange ~= change changeClass package ]]) ifTrue:[
+		  and:[ packageOfMethodInChange ~= change changeClass package ]]) ifTrue:[
-ignored := true
+		    ignored := true
-].
+		].
-changeMethod := change changeMethod.
+		changeMethod := change changeMethod.
-changeMethod notNil ifTrue:[
+		changeMethod notNil ifTrue:[
-packageOfMethodInImage := changeMethod package.
+		    packageOfMethodInImage := changeMethod package.
-(true "packageOfMethodInImage notNil"
+		    (true "packageOfMethodInImage notNil"
-and:[ packageOfMethodInImage ~= PackageId noProjectID
+		      and:[ packageOfMethodInImage ~= PackageId noProjectID
-and:[ packageOfMethodInImage ~= changeMethod mclass package ]]) ifTrue:[
+		      and:[ packageOfMethodInImage ~= changeMethod mclass package ]]) ifTrue:[
-ignored := true
+			ignored := true
-].
+		    ].
-].
+		].
-numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]).
+		numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]).
-].
+	    ].
-ignored.
+	    ignored.
-].
+	].
 listOnlyInA := self methodsOnlyInA.
 listOnlyInA removeAll.
 classChangeSet notNil ifTrue:[
-"/ classChangeSet methodsOnlyInA sort:sortBlockForChangeLists.
+	"/ classChangeSet methodsOnlyInA sort:sortBlockForChangeLists.
-filteredList := classChangeSet methodsOnlyInA.
+	filteredList := classChangeSet methodsOnlyInA.
-self includeExtensions ifFalse:[
+	self includeExtensions ifFalse:[
-filteredList := filteredList reject:isIgnoredChange.
+	    filteredList := filteredList reject:isIgnoredChange.
-].
+	].
-listOnlyInA addAll: (filteredList collect:printStringGenerator).
+	listOnlyInA addAll: (filteredList collect:printStringGenerator).
 ].
 listOnlyInB := self methodsOnlyInB.
 listOnlyInB removeAll.
 classChangeSet notNil ifTrue:[
-"/ classChangeSet methodsOnlyInB sort:sortBlockForChangeLists.
+	"/ classChangeSet methodsOnlyInB sort:sortBlockForChangeLists.
-filteredList := classChangeSet methodsOnlyInB.
+	filteredList := classChangeSet methodsOnlyInB.
-self includeExtensions ifFalse:[
+	self includeExtensions ifFalse:[
-filteredList := filteredList reject:isIgnoredChange.
+	    filteredList := filteredList reject:isIgnoredChange.
-].
+	].
-listOnlyInB addAll: (filteredList collect:printStringGenerator).
+	listOnlyInB addAll: (filteredList collect:printStringGenerator).
 ].
 listChanged := self methodsChanged.
 listChanged removeAll.
 classChangeSet notNil ifTrue:[
-"/ classChangeSet methodsChanged sort:[:a :b | sortBlockForChangeLists value:a first value:b first].
+	"/ classChangeSet methodsChanged sort:[:a :b | sortBlockForChangeLists value:a first value:b first].
-filteredList := classChangeSet methodsChanged.
+	filteredList := classChangeSet methodsChanged.
-self includeExtensions ifFalse:[
+	self includeExtensions ifFalse:[
-filteredList := filteredList reject:[:entry | isIgnoredChange value:entry first].
+	    filteredList := filteredList reject:[:entry | isIgnoredChange value:entry first].
-].
+	].
-listChanged addAll: (filteredList collect:[:entry| printStringGenerator value:(entry first)]).
+	listChanged addAll: (filteredList collect:[:entry| printStringGenerator value:(entry first)]).
 ].
 self boxAVisible value:(listOnlyInA notEmpty).
 self boxBVisible value:(listOnlyInB notEmpty).
 self boxMVisible value:(listChanged isEmpty
-and: [(listOnlyInA notEmpty
+			    and: [(listOnlyInA notEmpty
-or:[listOnlyInB notEmpty])]) not.
+				  or:[listOnlyInB notEmpty])]) not.
-self infoHolder value:(
-numIgnoredExtensions ~~ 0
+numIgnoredExtensions ~~ 0 ifTrue:[
-ifTrue:[('%1 extension methods ignored.' bindWith:numIgnoredExtensions)]
+	self infoHolder value:('%1 extension methods ignored.' bindWith:numIgnoredExtensions)
-ifFalse:[nil])
+] ifFalse:[
+	self infoHolder value:nil
+].
 "Modified: / 21-03-2012 / 17:00:13 / cg"
 ! !
 !VersionDiffBrowser methodsFor:'setup'!
 are updated."
 |changeSet|
 aClass isNil ifTrue:[
-changeSet := nil
+	changeSet := nil
 ] ifFalse:[
-aClass isNameSpace ifFalse:[
+	aClass isNameSpace ifFalse:[
-aClass isLoaded ifTrue:[
+	    aClass isLoaded ifTrue:[
-changeSet := (ClassChangeSet newForClass:aClass againstVersion:aVersionA).
+		changeSet := (ClassChangeSet newForClass:aClass againstVersion:aVersionA).
-]
+	    ]
-].
+	].
 ].
 self classChangeSet:changeSet.
 aVersionA isNil ifTrue:[
-self class:aClass versionA:'Repository' versionB:'Current'.
+	self class:aClass versionA:'Repository' versionB:'Current'.
 ] ifFalse:[
-self class:aClass versionA:aVersionA versionB:(aVersionA , 'm').
+	self class:aClass versionA:aVersionA versionB:(aVersionA , 'm').
 ]
 !
 setupForClass:classA labelA:aLabelA andClass:classB labelB:aLabelB
 "generate the class change set from the two classes A and B.
 are updated."
 |changeSet|
 aClass isRealNameSpace ifFalse:[
-aClass isLoaded ifTrue:[
+	aClass isLoaded ifTrue:[
-changeSet := (ClassChangeSet newForClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB).
+	    changeSet := (ClassChangeSet newForClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB).
-]
+	]
 ].
 self classChangeSet:changeSet
 "Modified: / 10-11-2006 / 17:15:26 / cg"
 !
 are updated."
 |changeSet|
 aClass isNameSpace ifFalse:[
-aClass isLoaded ifTrue:[
+	aClass isLoaded ifTrue:[
-changeSet := (ClassChangeSet newForClass:aClass versionA:aVersionA versionB:aVersionB).
+	    changeSet := (ClassChangeSet newForClass:aClass versionA:aVersionA versionB:aVersionB).
-]
+	]
 ].
 self classChangeSet:changeSet.
 self class:aClass versionA:aVersionA versionB:aVersionB.
 !
 self classChangeSet:changeSet
 ! !
 !VersionDiffBrowser::ClassChangeSet class methodsFor:'instance creation'!
 changeSetForClass:aClass
 "return a ChangeSet for the class aClass and its current source.
 The source is generated into a stream and then the change set is generated
 from the source stream."
 ^ ChangeSet forExistingClass:aClass.
 |theSourceCodeManager theSourceStream theChangeSet|
 theSourceCodeManager := SourceCodeManagerUtilities default sourceCodeManagerFor:aClass.
 [
-theSourceStream := theSourceCodeManager getSourceStreamFor:aClass revision:aVersion.
+	theSourceStream := theSourceCodeManager getSourceStreamFor:aClass revision:aVersion.
-theSourceStream notNil
+	theSourceStream notNil
-ifTrue:[theChangeSet := ChangeSet fromStream:theSourceStream]
+	    ifTrue:[theChangeSet := ChangeSet fromStream:theSourceStream]
 ] ensure:[
-theSourceStream notNil ifTrue:[theSourceStream close]
+	theSourceStream notNil ifTrue:[theSourceStream close]
 ].
 self sortChangeSet:theChangeSet.
 ^ theChangeSet
 "Modified: / 12-09-2006 / 14:24:51 / cg"
 !
 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.
 Raise an error if the source stream cannot be opened."
 |theChangeSet theSourceStream|
 [
-theSourceStream := aSource readStream.
+	theSourceStream := aSource readStream.
-theChangeSet := ChangeSet fromStream:(theSourceStream := aSource readStream)
+	theChangeSet := ChangeSet fromStream:(theSourceStream := aSource readStream)
 ] ensure:[
-theSourceStream notNil ifTrue:[
+	theSourceStream notNil ifTrue:[
-theSourceStream close
+	    theSourceStream close
-]
+	]
 ].
 self sortChangeSet:theChangeSet.
 ^ theChangeSet
 !
 newForClass:aClass againstVersion:aVersionA
 "return a ClassChangeSet for the class aClass against some verson in the repository.
 A new instance of ClassChangeSet is generated containing
 the correspondenting changes."
 |theClassChangeSet|
 theClassChangeSet := self new.
 aStream := '' writeStream.
 Method flushSourceStreamCache.
 classB fileOutOn:aStream withTimeStamp:false.
 sourceB := aStream contents asString.
 theChangeSetA:=self changeSetForClass:classA andSource:sourceA.
 theChangeSetB:=self changeSetForClass:classB andSource:sourceB.
 theChangeSetA isNil
-ifTrue: [theChangeSetA := ChangeSet new].
+	ifTrue: [theChangeSetA := ChangeSet new].
 theChangeSetB isNil
-ifTrue: [theChangeSetB := ChangeSet new].
+	ifTrue: [theChangeSetB := ChangeSet new].
 "/ just in case (if comparing a class against another),
 "/ unify the classes of the changes (to avoid that all changes are detected as different)
 theChangeSetB do:[:eachChange |
-eachChange isMethodChange ifTrue:[
+	eachChange isMethodChange ifTrue:[
-eachChange changeClass isMeta ifTrue:[
+	    eachChange changeClass isMeta ifTrue:[
-eachChange changeClass ~~ classA theMetaclass ifTrue:[
+		eachChange changeClass ~~ classA theMetaclass ifTrue:[
-eachChange changeClass:classA theMetaclass.
+		    eachChange changeClass:classA theMetaclass.
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-eachChange changeClass ~~ classA theNonMetaclass ifTrue:[
+		eachChange changeClass ~~ classA theNonMetaclass ifTrue:[
-eachChange changeClass:classA theNonMetaclass.
+		    eachChange changeClass:classA theNonMetaclass.
-]
+		]
-].
+	    ].
-].
+	].
 ].
 "/ remove all #initialize doIts
 theChangeSetA := theChangeSetA select:[:eachChange | eachChange isDoIt not or:[eachChange isInitialize not]].
 theChangeSetB := theChangeSetB select:[:eachChange | eachChange isDoIt not or:[eachChange isInitialize not]].
 ^ theClassChangeSet
 !
 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."
 |theChangeSetA theChangeSetB theClassChangeSet className metaClassName|
 theClassChangeSet := self new.
 theClassChangeSet classBeingCompared:aClass.
 theClassChangeSet labelA:aLabelA.
 theClassChangeSet labelB:aLabelB.
 theChangeSetA:=self changeSetForClass:aClass andSource:aSourceA.
 theChangeSetB:=self changeSetForClass:aClass andSource:aSourceB.
 className := aClass name.
 metaClassName := aClass class name.
 aClass isPrivate ifTrue:[
-theChangeSetA := theChangeSetA select:[:change | change isMethodChange not
+	theChangeSetA := theChangeSetA select:[:change | change isMethodChange not
-or:[change className = className or:[change className = metaClassName]]].
+							 or:[change className = className or:[change className = metaClassName]]].
-theChangeSetA := theChangeSetA select:[:change | change isClassDefinitionChange not
+	theChangeSetA := theChangeSetA select:[:change | change isClassDefinitionChange not
-or:[change className = className or:[change className = metaClassName]]].
+							 or:[change className = className or:[change className = metaClassName]]].
-theChangeSetA := theChangeSetA select:[:change | change isDoIt not
+	theChangeSetA := theChangeSetA select:[:change | change isDoIt not
-or:[change receiverClassName = className or:[change receiverClassName = metaClassName]]].
+							 or:[change receiverClassName = className or:[change receiverClassName = metaClassName]]].
-theChangeSetB := theChangeSetB select:[:change | change isMethodChange not
+	theChangeSetB := theChangeSetB select:[:change | change isMethodChange not
-or:[change className = className or:[change className = metaClassName]]].
+							 or:[change className = className or:[change className = metaClassName]]].
-theChangeSetB := theChangeSetB select:[:change | change isClassDefinitionChange not
+	theChangeSetB := theChangeSetB select:[:change | change isClassDefinitionChange not
-or:[change className = className or:[change className = metaClassName]]].
+							 or:[change className = className or:[change className = metaClassName]]].
-theChangeSetB := theChangeSetB select:[:change | change isDoIt not
+	theChangeSetB := theChangeSetB select:[:change | change isDoIt not
-or:[change receiverClassName = className or:[change receiverClassName = metaClassName]]].
+							 or:[change receiverClassName = className or:[change receiverClassName = metaClassName]]].
-"/ there might be more needed...
+	"/ there might be more needed...
 ].
 theChangeSetA isNil
-ifTrue: [theChangeSetA := ChangeSet new].
+	ifTrue: [theChangeSetA := ChangeSet new].
 theChangeSetB isNil
-ifTrue: [theChangeSetB := ChangeSet new].
+	ifTrue: [theChangeSetB := ChangeSet new].
 theClassChangeSet diffSet:(theChangeSetA diffSetsAgainst:theChangeSetB).
 ^ theClassChangeSet
 !
 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."
 |theChangeSetA theChangeSetB theClassChangeSet|
 theClassChangeSet := self new.
 !
 sortChangeSet:aChangeSet
 "/ sort by meta and selector
 aChangeSet
-sort:[:a :b |
+	sort:[:a :b |
-a == b ifTrue:[
+	    a == b ifTrue:[
-false
+		false
-] ifFalse:[
+	    ] ifFalse:[
-a isClassDefinitionChange == b isClassDefinitionChange ifTrue:[
+		a isClassDefinitionChange == b isClassDefinitionChange ifTrue:[
-a isClassChange == b isClassChange ifTrue:[
+		    a isClassChange == b isClassChange ifTrue:[
-a isClassChange ifTrue:[
+			a isClassChange ifTrue:[
-a isForMeta == b isForMeta ifTrue:[
+			    a isForMeta == b isForMeta ifTrue:[
-a isMethodChange == b isMethodChange ifTrue:[
+				a isMethodChange == b isMethodChange ifTrue:[
-a className < b className
+				    a className < b className
-or:[ a className = b className
+				    or:[ a className = b className
-and:[ a isPrimitiveChange not
+					 and:[ a isPrimitiveChange not
-and:[ b isPrimitiveChange not
+					 and:[ b isPrimitiveChange not
-and:[ a selector < b selector ]]]]
+					 and:[ a selector < b selector ]]]]
-] ifFalse:[
+				] ifFalse:[
-a isMethodChange not
+				    a isMethodChange not
-].
+				].
-] ifFalse:[
+			    ] ifFalse:[
-a isForMeta
+				a isForMeta
-].
+			    ].
-] ifFalse:[
+			] ifFalse:[
-a printString < b printString
+			    a printString < b printString
-].
+			].
-] ifFalse:[
+		    ] ifFalse:[
-a isClassChange
+			a isClassChange
-].
+		    ].
-] ifFalse:[
+		] ifFalse:[
-a isClassDefinitionChange
+		    a isClassDefinitionChange
-].
+		].
-]
+	    ]
-].
+	].
 ! !
 !VersionDiffBrowser::ClassChangeSet methodsFor:'accessing'!
 classBeingCompared
 diffSet
 "returns a diffSet containing the different changes.
 it responds to:
 changed         OrderedCollection of arrays containing ChangeSets for methods
-which are changed and exists in the class versionA and versionB
+		     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
 "
 ^ diffSet
 !
 diffSet:something
 "sets the diffSet containing the different changes.
 it responds to:
 changed         OrderedCollection of arrays containing ChangeSets for methods
-which are changed and exists in the class versionA and versionB
+		     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
 "
 diffSet := something.
 !
 labelA
 labelB := something.
 !
 methodsChanged
 "returns an OrderedCollection of arrays containing ChangeSets for methods
 which are changed and exists in the class versionA and versionB
 <return: OrderedCollection of Array(2)>
 "
 ^ self diffSet changed
 !
 methodsOnlyInA
 "returns a ChangeSet for the methods which exists only in the class versionA"
 ^ self diffSet onlyInReceiver
 !
 methodsOnlyInB
 "returns a ChangeSet for the methods which exists only in the class versionB"
 ^ self diffSet onlyInArg
 !
 versionA
 !VersionDiffBrowser::ClassChangeSet methodsFor:'setup'!
 setupForClass:aClass againstVersion:aVersionA
 "return a ClassChangeSet for the class aClass against some verison in the repository.
 A new instance of ClassChangeSet is generated containing
 the correspondenting changes."
 |theChangeSetA theChangeSetB versionCompared|
 self classBeingCompared:aClass.
 versionCompared := aVersionA.
 aVersionA isNil ifTrue:[
-self labelA:(versionCompared := aClass revision).
+	self labelA:(versionCompared := aClass revision).
-self versionA:versionCompared.
+	self versionA:versionCompared.
 ] ifFalse:[
-aVersionA == #newest ifTrue:[
+	aVersionA == #newest ifTrue:[
-self labelA:(VersionDiffBrowser resources string:'Newest').
+	    self labelA:(VersionDiffBrowser resources string:'Newest').
-] ifFalse:[
+	] ifFalse:[
-self labelA:versionCompared.
+	    self labelA:versionCompared.
-self versionA:versionCompared.
+	    self versionA:versionCompared.
-]
+	]
 ].
 self labelB:(VersionDiffBrowser resources string:'Current').
 theChangeSetA := self class changeSetForClass: aClass andRevision: versionCompared.
 theChangeSetB := self class changeSetForClass: aClass.
 theChangeSetA isNil ifTrue: [theChangeSetA := ChangeSet new].
 theChangeSetB isNil ifTrue: [theChangeSetB := ChangeSet new].
 "/ if we are comparing a private class, prune out other changes
 aClass isPrivate ifTrue:[
-theChangeSetA removeAllSuchThat:[:aChange | aChange className ~= aClass name ].
+	theChangeSetA removeAllSuchThat:[:aChange | aChange className ~= aClass name ].
-theChangeSetB removeAllSuchThat:[:aChange | aChange className ~= aClass name ].
+	theChangeSetB removeAllSuchThat:[:aChange | aChange className ~= aClass name ].
 ].
 self activityNotification:'Generating diff-set...'.
 self diffSet:(theChangeSetA diffSetsAgainst:theChangeSetB).
 self activityNotification:nil.
 ^ diffSet
 ! !
 !VersionDiffBrowser class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.103 2012-03-21 16:00:23 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.104 2012-03-22 08:32:02 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.103 2012-03-21 16:00:23 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.104 2012-03-22 08:32:02 cg Exp $'
 ! !

changeset 11453	b34302928a92
parent 11451	b74d43ee586f
child 11533	106faef31ef5