Tools__NavigatorModel.st
changeset 19073 187b9328a18e
parent 18093 af2d8b0f8715
child 19259 c7d33ca562f1
equal deleted inserted replaced
19072:f32c5df40e8a 19073:187b9328a18e
   117                 repositoryForPackage: package onlyFromCache: true.
   117                 repositoryForPackage: package onlyFromCache: true.
   118     repo ifNil:[^''].
   118     repo ifNil:[^''].
   119     mark := ' [SVN]'.
   119     mark := ' [SVN]'.
   120     branch := repo workingCopy branchOrNil.
   120     branch := repo workingCopy branchOrNil.
   121     branch ifNotNil:[mark := ' [SVN: ', branch path,']'].
   121     branch ifNotNil:[mark := ' [SVN: ', branch path,']'].
   122     ^mark withColor: Color gray
   122     ^mark allGray
   123 
   123 
   124     "Created: / 06-04-2010 / 11:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   124     "Created: / 06-04-2010 / 11:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   125     "Modified (comment): / 07-09-2011 / 10:43:00 / cg"
   125     "Modified (comment): / 07-09-2011 / 10:43:00 / cg"
   126     "Modified: / 19-01-2012 / 10:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   126     "Modified: / 19-01-2012 / 10:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   127 !
   127 !
   133                 ifNil:
   133                 ifNil:
   134                     [' [SVN]']
   134                     [' [SVN]']
   135                 ifNotNil:
   135                 ifNotNil:
   136                     [' [SVN: ',branch,']'].
   136                     [' [SVN: ',branch,']'].
   137 
   137 
   138     ^mark withColor: Color gray.
   138     ^mark allGray.
   139 
   139 
   140     "Created: / 14-12-2010 / 15:56:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   140     "Created: / 14-12-2010 / 15:56:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   141 !
   141 !
   142 
   142 
   143 nameListEntryForALL
   143 nameListEntryForALL