SourceCodeManagerUtilities.st
changeset 3332 bc7ab41bb5bb
parent 3327 a3200580a76f
child 3334 c3473a753372
--- a/SourceCodeManagerUtilities.st	Tue Jul 02 03:25:24 2013 +0000
+++ b/SourceCodeManagerUtilities.st	Thu Jul 04 15:09:15 2013 +0200
@@ -3358,8 +3358,11 @@
         symbolicNames notNil ifTrue:[
             stableRevision := symbolicNames at:'stable' ifAbsent:[].
             releasedRevision := symbolicNames at:'released' ifAbsent:[].
-            tagList := ((symbolicNames associations sort:[:a :b | self versionString:(a value) isLessThan:(b value)])
+            tagList := ((symbolicNames associations sort:[:a :b | a key < b key "self versionString:(a value) isLessThan:(b value)"])
                          collect:[:assoc | assoc key]) reverse.
+            tagList remove:'stable' ifAbsent:[].
+            tagList notEmpty ifTrue:[tagList addFirst:'-'].
+            tagList addFirst:'stable'.
         ].
             
         items := revisions collect:[:each | |rev date who flag|
@@ -3924,10 +3927,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.285 2013-06-30 09:12:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.286 2013-07-04 13:09:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.285 2013-06-30 09:12:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.286 2013-07-04 13:09:15 cg Exp $'
 ! !