--- 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 $'
! !