--- a/extensions.st Wed Apr 04 12:32:50 2012 +0200
+++ b/extensions.st Wed Apr 04 12:33:31 2012 +0200
@@ -406,30 +406,17 @@
!UserPreferences methodsFor:'accessing-scm-monticello'!
mcRepositories
+ "Returns a list of MCRepository as in LITERAL ARRAY ENCODING"
- | repos |
- repos := self at: #mcRepositories ifAbsent:[#()].
- ^repos decodeAsLiteralArray
+ ^self at: #mcRepositories ifAbsent:[#(Array)].
"
- self mcRepositories: #()
+ UserPreferences current mcRepositories
+ UserPreferences current mcRepositories: #(Array)
"
"Created: / 16-09-2010 / 09:47:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 17-09-2010 / 11:45:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!UserPreferences methodsFor:'accessing-scm-monticello'!
-
-mcRepositories: aCollection
-
- | repos |
- repos := aCollection literalArrayEncoding.
- self at: #mcRepositories put:repos.
- MCRepositoryGroup default flushRepositories.
-
- "Created: / 16-09-2010 / 09:53:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 16-09-2010 / 13:56:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 04-04-2012 / 11:08:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!VersionInfo methodsFor:'accessing'!
@@ -446,5 +433,5 @@
!stx_goodies_monticello class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.15 2012-01-15 14:28:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.16 2012-04-04 10:33:31 vrany Exp $'
! !
\ No newline at end of file