107 |
107 |
108 "Created: 3.12.1995 / 18:06:35 / cg" |
108 "Created: 3.12.1995 / 18:06:35 / cg" |
109 "Modified: 3.12.1995 / 18:13:06 / cg" |
109 "Modified: 3.12.1995 / 18:13:06 / cg" |
110 ! ! |
110 ! ! |
111 |
111 |
|
112 !ChangeSetBrowser ignoredMethodsFor:'private'! |
|
113 |
|
114 applyChange:changeNr |
|
115 "fileIn a change" |
|
116 |
|
117 |nm applyAction| |
|
118 |
|
119 nm := self classNameOfChange:changeNr. |
|
120 nm notNil ifTrue:[ |
|
121 |cls| |
|
122 |
|
123 cls := Smalltalk at:(nm asSymbol) ifAbsent:[]. |
|
124 cls notNil ifTrue:[ |
|
125 cls isLoaded ifFalse:[ |
|
126 cls autoload |
|
127 ] |
|
128 ] |
|
129 ]. |
|
130 |
|
131 changeNrProcessed := changeNr. |
|
132 |
|
133 applyAction := [ |
|
134 |sig| |
|
135 |
|
136 (skipSignal notNil) ifTrue:[ |
|
137 sig := skipSignal |
|
138 ] ifFalse:[ |
|
139 sig := Object abortSignal |
|
140 ]. |
|
141 sig catch:[ |
|
142 |change reader doItChunk methodsForChunk| |
|
143 |
|
144 (changeSet at:changeNr) applyChange. |
|
145 ]. |
|
146 changeNrProcessed := nil. |
|
147 ]. |
|
148 |
|
149 "/ |
|
150 "/ if I am showing the changes file, dont update it |
|
151 "/ |
|
152 changeFileName = ObjectMemory nameForChanges ifTrue:[ |
|
153 Class withoutUpdatingChangesDo:applyAction |
|
154 ] ifFalse:[ |
|
155 applyAction value |
|
156 ]. |
|
157 |
|
158 "Created: / 7.2.1998 / 19:32:35 / cg" |
|
159 "Modified: / 7.2.1998 / 19:35:11 / cg" |
|
160 ! ! |
|
161 |
112 !ChangeSetBrowser methodsFor:'private'! |
162 !ChangeSetBrowser methodsFor:'private'! |
113 |
163 |
114 changeIsFollowupMethodChange:changeNr |
164 changeIsFollowupMethodChange:changeNr |
115 ^ false |
165 ^ false |
116 |
166 |
117 "Created: / 6.2.1998 / 13:04:59 / cg" |
167 "Created: / 6.2.1998 / 13:04:59 / cg" |
|
168 "Modified: / 7.2.1998 / 19:28:52 / cg" |
118 ! |
169 ! |
119 |
170 |
120 changeSet:aChangeSet |
171 changeSet:aChangeSet |
121 originalChangeSet := aChangeSet. |
172 originalChangeSet := aChangeSet. |
122 changeSet := OrderedCollection new. |
173 changeSet := OrderedCollection new. |
142 "Created: 3.12.1995 / 13:52:30 / cg" |
193 "Created: 3.12.1995 / 13:52:30 / cg" |
143 "Modified: 3.12.1995 / 14:15:06 / cg" |
194 "Modified: 3.12.1995 / 14:15:06 / cg" |
144 ! |
195 ! |
145 |
196 |
146 classNameOfChange:nr |
197 classNameOfChange:nr |
147 ^ (changeSet at:nr) class name |
198 ^ (changeSet at:nr) className |
148 |
199 |
149 "Created: 3.12.1995 / 18:15:56 / cg" |
200 "Created: / 3.12.1995 / 18:15:56 / cg" |
150 "Modified: 3.12.1995 / 18:20:12 / cg" |
201 "Modified: / 7.2.1998 / 19:24:29 / cg" |
151 ! |
202 ! |
152 |
203 |
153 fullClassNameOfChange:nr |
204 fullClassNameOfChange:nr |
154 ^ (changeSet at:nr) className |
205 ^ (changeSet at:nr) className |
155 |
206 |
208 ! |
259 ! |
209 |
260 |
210 silentDeleteChange:changeNr |
261 silentDeleteChange:changeNr |
211 "delete a change do not update changeListView" |
262 "delete a change do not update changeListView" |
212 |
263 |
213 anyChanges := true. |
264 changeSet removeIndex:changeNr. |
214 changeChunks removeIndex:changeNr. |
265 super silentDeleteChange:changeNr. |
215 changeHeaderLines removeIndex:changeNr. |
266 |
216 "/ changeClassNames removeIndex:changeNr. |
267 "Created: / 3.12.1995 / 18:14:17 / cg" |
217 changeSet removeIndex:changeNr |
268 "Modified: / 7.2.1998 / 19:57:57 / cg" |
218 |
269 ! |
219 "Created: 3.12.1995 / 18:14:17 / cg" |
270 |
220 "Modified: 3.12.1995 / 18:18:42 / cg" |
271 silentDeleteInternalChange:changeNr |
|
272 "delete a change do not update changeListView" |
|
273 |
|
274 changeSet removeIndex:changeNr. |
|
275 super silentDeleteInternalChange:changeNr. |
|
276 |
|
277 "Modified: / 7.2.1998 / 19:44:45 / cg" |
|
278 "Created: / 7.2.1998 / 19:58:02 / cg" |
221 ! |
279 ! |
222 |
280 |
223 streamForChange:changeNr |
281 streamForChange:changeNr |
224 "answer a stream for change" |
282 "answer a stream for change" |
225 |
283 |
226 |change| |
284 |change s| |
227 |
285 |
228 change := changeSet at:changeNr. |
286 change := changeSet at:changeNr. |
229 change isNil ifTrue:[^nil]. |
287 change isNil ifTrue:[^nil]. |
|
288 change isMethodChange ifTrue:[ |
|
289 s := '!!' , change className , |
|
290 ' methodsFor:''' , change methodCategory , '''!!\' withCRs , |
|
291 change source , '\' withCRs , '!! !!\' withCRs. |
|
292 ^ ReadStream on:s |
|
293 ]. |
230 ^ ReadStream on:(change source) |
294 ^ ReadStream on:(change source) |
|
295 |
|
296 "Modified: / 7.2.1998 / 19:52:44 / cg" |
231 ! ! |
297 ! ! |
232 |
298 |
233 !ChangeSetBrowser methodsFor:'user actions'! |
299 !ChangeSetBrowser methodsFor:'user actions'! |
234 |
300 |
235 doSaveBack |
301 doSaveBack |