equal
deleted
inserted
replaced
4212 tagHolder |
4212 tagHolder |
4213 onChangeEvaluate:[ |
4213 onChangeEvaluate:[ |
4214 |tag rev| |
4214 |tag rev| |
4215 |
4215 |
4216 (tag := tagHolder value) notEmptyOrNil ifTrue:[ |
4216 (tag := tagHolder value) notEmptyOrNil ifTrue:[ |
4217 LastTag := tag. |
4217 "/ LastTag := tag. |
4218 rev := symbolicNames at:tag. |
4218 rev := symbolicNames at:tag. |
4219 rev ~= revisionHolder value ifTrue:[ |
4219 rev ~= revisionHolder value ifTrue:[ |
4220 lockChange := true. |
4220 lockChange := true. |
4221 revisionHolder value:rev. |
4221 revisionHolder value:rev. |
4222 lockChange := false. |
4222 lockChange := false. |
4259 box addAbortAndOkButtons. |
4259 box addAbortAndOkButtons. |
4260 |
4260 |
4261 AbortAllOperationWantedQuery query ifTrue:[ |
4261 AbortAllOperationWantedQuery query ifTrue:[ |
4262 (box addAbortButtonLabelled:'Cancel all') action:[AbortAllSignal raise]. |
4262 (box addAbortButtonLabelled:'Cancel all') action:[AbortAllSignal raise]. |
4263 ]. |
4263 ]. |
4264 |
4264 LastTag notEmptyOrNil ifTrue:[ |
|
4265 (symbolicNames notNil and:[symbolicNames includesKey:LastTag]) ifTrue:[ |
|
4266 tagHolder value:LastTag. |
|
4267 ]. |
|
4268 ]. |
|
4269 |
4265 box showAtPointer. |
4270 box showAtPointer. |
4266 |
4271 |
4267 box accepted ifFalse:[ |
4272 box accepted ifFalse:[ |
4268 box destroy. |
4273 box destroy. |
4269 ^ nil |
4274 ^ nil |
4270 ]. |
4275 ]. |
4271 box destroy. |
4276 box destroy. |
4272 |
4277 |
|
4278 LastTag := tagHolder value. |
|
4279 |
4273 "/ it is not a good idea to return the tag-name here, |
4280 "/ it is not a good idea to return the tag-name here, |
4274 "/ because it may get cached later when the source is fetched, |
4281 "/ because it may get cached later when the source is fetched, |
4275 "/ and the tag could move to another version (making the cached file invalid) |
4282 "/ and the tag could move to another version (making the cached file invalid) |
4276 "/ without me knowing about that fact. |
4283 "/ without me knowing about that fact. |
4277 "/ Therefore, we should return the real revision number. |
4284 "/ Therefore, we should return the real revision number. |