--- a/extensions.st Mon Oct 26 16:18:52 2009 +0100
+++ b/extensions.st Mon Oct 26 16:19:10 2009 +0100
@@ -873,6 +873,82 @@
"Created: / 16-08-2009 / 16:39:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+!UserPreferences methodsFor:'accessing-subversion'!
+
+svnConfigurations
+ "subversion source control configurations"
+
+ ^(self at:#'libsvn.configurations' ifAbsent:#())
+ collect:[:cfg|cfg decodeAsLiteralArray]
+
+ "Created: / 03-10-2008 / 11:14:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 19-08-2009 / 12:08:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-subversion'!
+
+svnConfigurations: aCollection
+ "subversion source control configurations"
+
+ (SVN::RepositoryManager notNil
+ and:[ SVN::RepositoryManager isLoaded ]) ifTrue:[
+ SVN::RepositoryManager allInstances do:[:e|
+ e configurations: aCollection
+ ]
+ ].
+
+ ^ self
+ at: #'libsvn.configurations'
+ put: (aCollection asArray collect:[:cfg|cfg literalArrayEncoding])
+
+ "
+ UserPreferences current svnConfigurations: #()
+ "
+
+ "Created: / 03-10-2008 / 11:14:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 19-08-2009 / 12:09:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-subversion'!
+
+svnEnabled
+ "subversion source control is enabled"
+
+ ^self at:#svnEnabled ifAbsent:[true]
+
+ "Created: / 03-10-2008 / 11:11:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-subversion'!
+
+svnEnabled: aBoolean
+ "subversion source control is enabled"
+
+ ^self at:#svnEnabled put: aBoolean
+
+ "Created: / 03-10-2008 / 11:13:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-subversion'!
+
+svnVerbose
+ "verbose messages from subversion source control (if enabled)"
+
+ ^self at:#svnVerbose ifAbsent: false
+
+ "Created: / 19-03-2009 / 14:00:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-subversion'!
+
+svnVerbose: aBoolean
+ "verbose messages from subversion source control (if enabled)"
+
+ ^self at:#svnVerbose put: aBoolean
+
+ "Created: / 19-03-2009 / 13:59:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
!XML::NodeSet methodsFor:'navigation'!
@ attributeName