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