Diff2.st
changeset 14903 f0d17117b5e9
parent 14840 6cc4674bfd18
child 15566 184cea584be5
child 16949 3b46d0b33f15
equal deleted inserted replaced
14902:8839c1bf35fb 14903:f0d17117b5e9
   240 ! !
   240 ! !
   241 
   241 
   242 !Diff2 methodsFor:'private'!
   242 !Diff2 methodsFor:'private'!
   243 
   243 
   244 addCommonBlock: aSubCollection ifNonEmptyTo: aCollection
   244 addCommonBlock: aSubCollection ifNonEmptyTo: aCollection
   245 	^ aSubCollection isEmpty
   245         aSubCollection isEmpty ifTrue:[
   246 		ifFalse: [aCollection add: #common -> aSubCollection asArray. OrderedCollection new]
   246             ^ aSubCollection
   247 		ifTrue: [aSubCollection]
   247         ] ifFalse: [
       
   248             aCollection add: #common -> aSubCollection asArray. 
       
   249             ^ OrderedCollection new.
       
   250         ]
   248 !
   251 !
   249 
   252 
   250 emptyCaches
   253 emptyCaches
   251 	"Subclasses should implement this to clear any cached state they may have built up."
   254 	"Subclasses should implement this to clear any cached state they may have built up."
   252 !
   255 !
   836 ! !
   839 ! !
   837 
   840 
   838 !Diff2 class methodsFor:'documentation'!
   841 !Diff2 class methodsFor:'documentation'!
   839 
   842 
   840 version
   843 version
   841     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.4 2014-11-18 18:12:59 cg Exp $'
   844     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.5 2014-11-24 14:15:56 cg Exp $'
   842 !
   845 !
   843 
   846 
   844 version_CVS
   847 version_CVS
   845     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.4 2014-11-18 18:12:59 cg Exp $'
   848     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.5 2014-11-24 14:15:56 cg Exp $'
   846 ! !
   849 ! !
   847 
   850