<div dir="ltr">Yes, exactly what I thought... Or do the same with Utilities uodateFromServer<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/11/25 Frank Shearar <span dir="ltr"><<a href="mailto:frank.shearar@gmail.com" target="_blank">frank.shearar@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">How about I re-add Utilities >> #setSystemVersionFromConfig: like this:<br>
<br>
setSystemVersionFromConfig: aConfig<br>
self deprecated: 'Use MCConfiguration >> #setSystemVersion'.<br>
aConfig setSystemVersion<br>
<br>
and then in a later step move this to 45Deprecated?<br>
<span class="HOEnZb"><font color="#888888"><br>
frank<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
On 25 November 2013 10:34, Frank Shearar <<a href="mailto:frank.shearar@gmail.com">frank.shearar@gmail.com</a>> wrote:<br>
> Ah crumbs. OK, so while System-fbs.623 re-adds the method, the<br>
> existing method is still executing and so still fails. Hey, at least I<br>
> broke the update stream in a _new_ way. I tried issuing a config to<br>
> leap past this, but because the old version's executing, that doesn't<br>
> help.<br>
><br>
> Help!<br>
><br>
> frank<br>
><br>
> On 24 November 2013 21:24, Nicolas Cellier<br>
> <<a href="mailto:nicolas.cellier.aka.nice@gmail.com">nicolas.cellier.aka.nice@gmail.com</a>> wrote:<br>
>> It seems that there is a load order problem, because I have a message not<br>
>> understood #setSystemVersionFromConfig: when updating... The old code below<br>
>> still invoke the Utilities (as well as TheWorldMenu and other senders...)<br>
>> TheWorldMainDockingBar>>updateSqueak<br>
>> Utilities updateFromServer<br>
>><br>
>><br>
>> 2013/11/23 <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>><br>
>><br>
>>> Frank Shearar uploaded a new version of System to project The Trunk:<br>
>>> <a href="http://source.squeak.org/trunk/System-fbs.620.mcz" target="_blank">http://source.squeak.org/trunk/System-fbs.620.mcz</a><br>
>>><br>
>>> ==================== Summary ====================<br>
>>><br>
>>> Name: System-fbs.620<br>
>>> Author: fbs<br>
>>> Time: 23 November 2013, 9:13:28.936 pm<br>
>>> UUID: a640a27d-9472-204b-8a5d-67c861e94eeb<br>
>>> Ancestors: System-fbs.619<br>
>>><br>
>>> #setSystemVersionFromConfig: clearly belongs better with the parameter's<br>
>>> class. #updateFromServer belongs (IMO at least) with the class involved with<br>
>>> updating.<br>
>>><br>
>>> Keep the Utilities stubs, but deprecate them.<br>
>>><br>
>>> =============== Diff against System-fbs.619 ===============<br>
>>><br>
>>> Item was added:<br>
>>> + ----- Method: MCConfiguration>>setSystemVersion (in category<br>
>>> '*System-Support-updating') -----<br>
>>> + setSystemVersion<br>
>>> + "Set the current system version date to the latest date found in<br>
>>> my configuration (or the associated working copy). Also set the highest<br>
>>> update number to the sum of version numbers in my configuration."<br>
>>> +<br>
>>> + | versionNumbers versionDates |<br>
>>> + versionNumbers := self dependencies collect: [:d |<br>
>>> + (d versionInfo name copyAfterLast: $.) asInteger].<br>
>>> + versionDates := self dependencies collect: [:d |<br>
>>> + d versionInfo date<br>
>>> + ifNil: [d package workingCopy ancestors first<br>
>>> date]].<br>
>>> + SystemVersion current<br>
>>> + date: versionDates max;<br>
>>> + highestUpdate: versionNumbers sum.!<br>
>>><br>
>>> Item was added:<br>
>>> + ----- Method: MCMcmUpdater class>>updateFromServer (in category<br>
>>> '*System-Support-updating') -----<br>
>>> + updateFromServer<br>
>>> + "Update the image by loading all pending updates from the server."<br>
>>> + | config |<br>
>>> + "Flush all caches. If a previous download failed this is often<br>
>>> helpful"<br>
>>> + MCFileBasedRepository flushAllCaches.<br>
>>> + config := MCMcmUpdater updateFromDefaultRepository.<br>
>>> + config ifNil: [^self inform: 'Unable to retrieve updates from<br>
>>> remote repository.' translated].<br>
>>> + config setSystemVersion.<br>
>>> + self inform: ('Update completed.<br>
>>> + Current update number: ' translated, SystemVersion current<br>
>>> highestUpdate).!<br>
>>><br>
>>> Item was removed:<br>
>>> - ----- Method: Utilities class>>setSystemVersionFromConfig: (in category<br>
>>> 'fetching updates') -----<br>
>>> - setSystemVersionFromConfig: anMCConfiguration<br>
>>> - "Set the current system version date to the latest date found in<br>
>>> anMCConfiguration (or the associated working copy). Also set the highest<br>
>>> update number to the sum of version numbers in the config."<br>
>>> -<br>
>>> - | versionNumbers versionDates |<br>
>>> - versionNumbers := anMCConfiguration dependencies collect: [:d |<br>
>>> - (d versionInfo name copyAfterLast: $.) asInteger].<br>
>>> - versionDates := anMCConfiguration dependencies collect: [:d |<br>
>>> - d versionInfo date<br>
>>> - ifNil: [d package workingCopy ancestors first<br>
>>> date]].<br>
>>> - SystemVersion current<br>
>>> - date: versionDates max;<br>
>>> - highestUpdate: versionNumbers sum.<br>
>>> - !<br>
>>><br>
>>> Item was removed:<br>
>>> - ----- Method: Utilities class>>updateFromServer (in category 'fetching<br>
>>> updates') -----<br>
>>> - updateFromServer<br>
>>> - "Update the image by loading all pending updates from the server."<br>
>>> - | config |<br>
>>> - "Flush all caches. If a previous download failed this is often<br>
>>> helpful"<br>
>>> - MCFileBasedRepository flushAllCaches.<br>
>>> - config := MCMcmUpdater updateFromDefaultRepository.<br>
>>> - config ifNil: [^self inform: 'Unable to retrieve updates from<br>
>>> remote repository.' translated].<br>
>>> - self setSystemVersionFromConfig: config.<br>
>>> - self inform: ('Update completed.<br>
>>> - Current update number: ' translated, SystemVersion current<br>
>>> highestUpdate).!<br>
>>><br>
>>><br>
>><br>
>><br>
>><br>
>><br>
<br>
</div></div></blockquote></div><br></div>