--- a/AbstractFileBrowser.st	Thu Jul 07 16:14:07 2011 +0200
+++ b/AbstractFileBrowser.st	Thu Jul 07 16:14:30 2011 +0200
@@ -7417,6 +7417,7 @@
     ^ false
 ! !
 
+
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -7587,6 +7588,21 @@
     ^ ImageColorHistogram notNil
 !
 
+hasSubversionSupport
+
+    ^(Smalltalk classNamed: #'SVN::RepositoryManager') notNil
+
+    "Created: / 24-06-2010 / 19:59:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+hasSubversionWorkingCopySelected
+
+    ^((self currentDirectory  / '.svn') exists) and:
+        [(self currentDirectory  / '.svn' / 'entries') exists].
+
+    "Created: / 24-06-2010 / 20:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 initialCommandFor:fileName into:aBox
     "set a useful initial command for execute box."
 
@@ -8317,10 +8333,6 @@
 
 !AbstractFileBrowser class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.460 2011-06-27 14:12:42 cg Exp $'
-!
-
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.460 2011-06-27 14:12:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.461 2011-07-07 14:14:30 vrany Exp $'
 ! !