--- a/AbstractFileBrowser.st	Tue Apr 03 13:32:03 2012 +0100
+++ b/AbstractFileBrowser.st	Tue Apr 03 18:37:50 2012 +0100
@@ -1965,8 +1965,8 @@
 
 
     "
-     MenuEditor new openOnClass:FileBrowserV2 andSelector:#scmMenuSlice
-     (Menu new fromLiteralArrayEncoding:(FileBrowserV2 scmMenuSlice)) startUp
+     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#scmMenuSlice
+     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser scmMenuSlice)) startUp
     "
 
     <resource: #menu>
@@ -5923,55 +5923,6 @@
     "Created: / 15-01-2012 / 19:43:08 / cg"
 ! !
 
-!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
-
-svnExecuteCommand: command
-    "Executes svn command on currently selected objects"
-
-    | objects workdir objectsAsString executionBlock |
-
-    objects := self currentSelectedObjects.
-
-    self class == FileBrowserV2 ifTrue:[
-        workdir := self fileEntryFieldHolder value asFilename.
-        workdir isDirectory ifFalse:[
-            workdir := workdir directory
-        ].
-    ] ifFalse:[
-        (objects size == 1 and:[objects anElement isDirectory]) ifTrue:[
-            workdir := objects anElement
-        ] ifFalse:[
-            workdir := Filename currentDirectory.
-        ]
-    ].
-
-    objectsAsString := String streamContents:[:s|
-        objects size == 1 ifTrue:[
-            workdir asString = objects anElement asString ifTrue:[
-                s nextPut:$.
-            ] ifFalse:[
-                s nextPutAll: objects anElement asString.
-            ]
-        ] ifFalse:[
-            objects do:[:each|s nextPut:$"; nextPutAll:each asString; nextPut:$"]
-                separatedBy:[s space]
-        ]
-    ].
-
-    executionBlock := [:stream |
-        | cmd |
-
-        cmd := '%1 %2 %3' 
-                bindWith: SVN::Command executable
-                    with: command
-                    with: objectsAsString.
-
-        (self getExecutionBlockForCommand:cmd inDirectory: workdir) value:stream.
-    ].
-    self makeExecutionResultProcessFor:executionBlock withName:'svn ', command.
-
-    "Created: / 04-02-2012 / 19:22:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
 
 !AbstractFileBrowser methodsFor:'menu actions-tools'!
 
@@ -8287,6 +8238,7 @@
     ^ false
 ! !
 
+
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -8471,14 +8423,6 @@
     "Modified: / 19-01-2012 / 10:43:37 / 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."
 
@@ -9209,7 +9153,7 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.492 2012/02/28 10:16:29 cg Exp $'
+    ^ '$Id: AbstractFileBrowser.st 7964 2012-04-03 17:37:50Z vranyj1 $'
 !
 
 version_CVS
@@ -9217,5 +9161,5 @@
 !
 
 version_SVN
-    ^ '$Id: AbstractFileBrowser.st 7952 2012-03-21 17:50:14Z vranyj1 $'
+    ^ '$Id: AbstractFileBrowser.st 7964 2012-04-03 17:37:50Z vranyj1 $'
 ! !