Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
VersionDiffBrowser.st
changeset 14363 f70b27db57b6
parent 14078 92e2df7adcca
child 15167 eb562e8785bc 
--- a/VersionDiffBrowser.st	Wed May 14 01:23:07 2014 +0200
+++ b/VersionDiffBrowser.st	Wed May 14 12:02:21 2014 +0200
@@ -2669,37 +2669,37 @@
     "/ sort by meta and selector
 
     aChangeSet
-	sort:[:a :b |
-	    a == b ifTrue:[
-		false
-	    ] ifFalse:[
-		a isClassDefinitionChange == b isClassDefinitionChange ifTrue:[
-		    a isClassChange == b isClassChange ifTrue:[
-			a isClassChange ifTrue:[
-			    a isForMeta == b isForMeta ifTrue:[
-				a isMethodChange == b isMethodChange ifTrue:[
-				    a className < b className
-				    or:[ a className = b className
-					 and:[ a isPrimitiveChange not
-					 and:[ b isPrimitiveChange not
-					 and:[ a selector < b selector ]]]]
-				] ifFalse:[
-				    a isMethodChange not
-				].
-			    ] ifFalse:[
-				a isForMeta
-			    ].
-			] ifFalse:[
-			    a printString < b printString
-			].
-		    ] ifFalse:[
-			a isClassChange
-		    ].
-		] ifFalse:[
-		    a isClassDefinitionChange
-		].
-	    ]
-	].
+        sort:[:a :b |
+            a == b ifTrue:[
+                false
+            ] ifFalse:[
+                a isClassDefinitionChange == b isClassDefinitionChange ifTrue:[
+                    a isClassChange == b isClassChange ifTrue:[
+                        a isClassChange ifTrue:[
+                            a isForMeta == b isForMeta ifTrue:[
+                                (a isMethodChange and:[b isMethodChange]) ifTrue:[
+                                    a className < b className
+                                    or:[ a className = b className
+                                         and:[ a isPrimitiveChange not
+                                         and:[ b isPrimitiveChange not
+                                         and:[ a selector < b selector ]]]]
+                                ] ifFalse:[
+                                    a isMethodChange not
+                                ].
+                            ] ifFalse:[
+                                a isForMeta
+                            ].
+                        ] ifFalse:[
+                            a printString < b printString
+                        ].
+                    ] ifFalse:[
+                        a isClassChange
+                    ].
+                ] ifFalse:[
+                    a isClassDefinitionChange
+                ].
+            ]
+        ].
 ! !
 
 !VersionDiffBrowser::ClassChangeSet methodsFor:'accessing'!
@@ -2871,10 +2871,10 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.120 2014-02-28 18:58:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.121 2014-05-14 10:02:21 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.120 2014-02-28 18:58:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.121 2014-05-14 10:02:21 stefan Exp $'
 ! !
hg/stx-libtool