--- a/Tools_NavigatorModel.st	Thu Jul 07 15:22:36 2011 +0200
+++ b/Tools_NavigatorModel.st	Thu Jul 07 15:38:31 2011 +0200
@@ -65,6 +65,37 @@
     "Created: / 29-08-2006 / 10:26:05 / cg"
 !
 
+markForBeingManagedBySVN: package
+
+    | repo branch mark |    
+    self hasSubversionSupport ifFalse:[^''].
+    package = PackageId noProjectID ifTrue:[^''].
+    
+    repo := (Smalltalk at:#SVN::RepositoryManager) current 
+                repositoryForPackage: package onlyFromCache: true.
+    repo ifNil:[^''].
+    mark := ' [SVN]'.
+    branch := repo workingCopy branchOrNil.
+    branch ifNotNil:[mark := ' [SVN: ', branch path,']'].
+    ^mark asText colorizeAllWith: Color gray
+
+    "Created: / 06-04-2010 / 11:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+markForBeingManagedBySVN: package branch: branch
+
+    | mark |
+    mark := branch 
+                ifNil:
+                    [' [SVN]']
+                ifNotNil:
+                    [' [SVN: ',branch,']'].
+
+    ^mark asText colorizeAllWith: Color gray.
+
+    "Created: / 14-12-2010 / 15:56:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 nameListEntryForALL
     ^ AllEntry ? '* all *'
 
@@ -96,6 +127,12 @@
     ^ '* extensions (%1) *'
 !
 
+nameListEntryForFailedTests
+    ^ '* failed tests (%1) *'
+
+    "Created: / 08-03-2010 / 18:26:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 nameListEntryForLong
     ^ '* long (%1) *'
 !
@@ -120,6 +157,12 @@
     ^ '* override (%1) *'
 !
 
+nameListEntryForPassedTests
+    ^ '* passed tests (%1) *'
+
+    "Created: / 08-03-2010 / 18:26:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 nameListEntryForRedefined
     ^ '* redefined (%1) *'
 !
@@ -239,6 +282,15 @@
     ^ NewSystemBrowser classResources
 ! !
 
+!NavigatorModel class methodsFor:'queries'!
+
+hasSubversionSupport
+
+    ^NewSystemBrowser hasSubversionSupport
+
+    "Created: / 06-04-2010 / 11:09:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !NavigatorModel methodsFor:'misc'!
 
 resources
@@ -252,14 +304,20 @@
     ^ super resources
 ! !
 
+!NavigatorModel methodsFor:'queries'!
+
+hasSubversionSupport
+    ^ self class hasSubversionSupport
+! !
+
 !NavigatorModel class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.16 2009-10-29 18:10:38 cg Exp $'
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.17 2011-07-07 13:38:31 vrany Exp $'
 !
 
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.16 2009-10-29 18:10:38 cg Exp $'
+version_SVN
+    ^ '§Id: Tools__NavigatorModel.st 7802 2011-07-05 18:33:36Z vranyj1 §'
 ! !
 
 NavigatorModel initialize!