104 Configurations isNil ifTrue:[ |
104 Configurations isNil ifTrue:[ |
105 "JV@2011-01-17: Changed to not use UserPrefs current at:ifAbsent: but |
105 "JV@2011-01-17: Changed to not use UserPrefs current at:ifAbsent: but |
106 #svnConfigurations2 as it was in my original version. |
106 #svnConfigurations2 as it was in my original version. |
107 Rationale: #svnConfigurations2 does the literal array decoding, |
107 Rationale: #svnConfigurations2 does the literal array decoding, |
108 The real config is not stored under #svnConfigurations2. Therefore |
108 The real config is not stored under #svnConfigurations2. Therefore |
109 using at:igAbsent: ALWAYS falls into ifabsent block. |
109 using at:ifAbsent: ALWAYS falls into ifAbsent block. |
110 Using #svnConfigurations2 here is safe - the method belongs to |
110 Using #svnConfigurations2 here is safe - the method belongs to |
111 libsvn as well as this class." |
111 libsvn as well as this class." |
112 Configurations := UserPreferences current svnConfigurations2. |
112 Configurations := UserPreferences current svnConfigurations2. |
113 "/Original CVS code |
113 "/Original CVS code |
114 "/Configurations := UserPreferences current at:#svnConfigurations2 ifAbsent:#() |
114 "/Configurations := UserPreferences current at:#svnConfigurations2 ifAbsent:#() |
116 ^ Configurations |
116 ^ Configurations |
117 |
117 |
118 "Created: / 09-01-2010 / 15:46:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
118 "Created: / 09-01-2010 / 15:46:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
119 "Modified (format): / 05-10-2011 / 14:37:40 / cg" |
119 "Modified (format): / 05-10-2011 / 14:37:40 / cg" |
120 "Modified: / 17-01-2012 / 23:14:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
120 "Modified: / 17-01-2012 / 23:14:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
121 "Modified (format): / 23-02-2012 / 15:11:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
121 ! |
122 ! |
122 |
123 |
123 configurations: aCollection"of Configuration" |
124 configurations: aCollection"of Configuration" |
124 |
125 |
125 UserPreferences current at:#svnConfigurations2 put:aCollection |
126 "JV@2012-02-23: Changed to not use UserPrefs current at:ifAbsent: but |
|
127 #svnConfigurations2: as it was in my original version. |
|
128 Rationale: #svnConfigurations2 does the literal array decoding, |
|
129 The real config is not stored under #svnConfigurations2 key anyway. |
|
130 Doing |
|
131 UserPrefs current at:#svnConfigurations2 put: ... |
|
132 Causes configuration structure __storeString__ to be saved, |
|
133 which will lead into troubles later on as libsvn may not |
|
134 be present. DONT DO THAT. |
|
135 Using #svnConfigurations2: here is safe - the method belongs to |
|
136 libsvn as well as this class. |
|
137 " |
|
138 |
|
139 Configurations := aCollection. |
|
140 UserPreferences current svnConfigurations2: aCollection. |
126 |
141 |
127 "Created: / 11-02-2010 / 16:17:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
142 "Created: / 11-02-2010 / 16:17:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
128 "Modified: / 05-10-2011 / 14:36:49 / cg" |
143 "Modified: / 05-10-2011 / 14:36:49 / cg" |
|
144 "Modified (comment): / 23-02-2012 / 15:11:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
129 ! |
145 ! |
130 |
146 |
131 current |
147 current |
132 |
148 |
133 Current ifNil:[ |
149 Current ifNil:[ |