mercurial/HGRevset.st
branchcvs_MAIN
changeset 872 04559020c368
parent 667 ec5d0fc4f77a
child 886 3212abc7b9f8
equal deleted inserted replaced
871:9f0cb6b2661d 872:04559020c368
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2 stx:libscm - a new source code management library for Smalltalk/X
     4 stx:libscm - a new source code management library for Smalltalk/X
     3 Copyright (C) 2012-2015 Jan Vrany
     5 Copyright (C) 2012-2015 Jan Vrany
     4 
     6 
     5 This library is free software; you can redistribute it and/or
     7 This library is free software; you can redistribute it and/or
   127 
   129 
   128 !HGRevset methodsFor:'displaying'!
   130 !HGRevset methodsFor:'displaying'!
   129 
   131 
   130 displayString
   132 displayString
   131     comment notNil 
   133     comment notNil 
   132         ifTrue:[ ^ expression asText , ((' - ', comment) withColor: Color gray)]
   134         ifTrue:[ ^ expression , ((' - ', comment) withColor: Color gray)]
   133         ifFalse:[ ^ expression ]
   135         ifFalse:[ ^ expression ]
   134 
   136 
   135     "Created: / 24-03-2014 / 21:44:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   137     "Created: / 24-03-2014 / 21:44:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   136     "Modified: / 25-03-2014 / 01:27:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   138     "Modified: / 25-03-2014 / 01:27:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   139     "Modified: / 07-06-2019 / 22:58:33 / Claus Gittinger"
   137 ! !
   140 ! !
   138 
   141 
   139 !HGRevset methodsFor:'initialization'!
   142 !HGRevset methodsFor:'initialization'!
   140 
   143 
   141 setComment: aString
   144 setComment: aString