checkin from browser
authorfm
Mon, 26 Oct 2009 16:19:10 +0100
changeset 554 8216cb912567
parent 553 4719ab0ce8e2
child 555 58211432b972
checkin from browser
extensions.st
--- 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