But there's nothing new there, is there?


2013/12/12 Chris Muller <asqueaker at gmail.com>

> This preference causes the image to interrupt the user with a modal
> question upon starting!  Now _I'm_ starting to hyperventilate!
>
> All this code.  And String literals.  And more modal #inform:
> interrupts.  (Shudder)  And right at the time when the user has
> inertia enough toward a purpose, his reason to start the image, an
> "intent" to do something else, is now interrupted by the stupid
> software with a modal question.
>
> Not even MS Windows punishes its users this harshly.
>
> If you want to tell in image to update upon launch, pass in a command
> argument to do that!
>
> Or, simply press Control+1, down, down, Enter.  3 extra keystrokes is
> worth the freedom of staying in control, and ridding the image of this
> embarassing scourge of a UI.
>
> I'm getting my buzzsaw...
>
> On Tue, Dec 10, 2013 at 3:45 PM,  <commits at source.squeak.org> wrote:
> > Frank Shearar uploaded a new version of System to project The Trunk:
> > http://source.squeak.org/trunk/System-fbs.641.mcz
> >
> > ==================== Summary ====================
> >
> > Name: System-fbs.641
> > Author: fbs
> > Time: 10 December 2013, 9:31:05.408 pm
> > UUID: 7f3758d1-fed5-5443-a2af-6ce6461597ff
> > Ancestors: System-fbs.640
> >
> > Make the #updateFromServerAtStartup preference a pragma preference.
> Update the old call sites. Remove the preference in the postscript.
> >
> > (Also, move #setSystemVersion to its more natural home. Extensions are
> great, but in this case we don't need one.)
> >
> > =============== Diff against System-fbs.640 ===============
> >
> > Item was changed:
> >   ----- Method: AutoStart class>>processUpdates (in category 'updating')
> -----
> >   processUpdates
> >         "Process update files from a well-known update server.  This
> method is called at system startup time,   Only if the preference
> #updateFromServerAtStartup is true is the actual update processing
> undertaken automatically"
> >         | choice |
> > +       (MCMcmUpdater updateFromServerAtStartup) ifTrue:
> > -       (Preferences valueOfFlag: #updateFromServerAtStartup) ifTrue:
> >                 [choice := UIManager default chooseFrom: #('Yes, Update'
> 'No, Not now' 'Don''t ask again')
> >                         title: 'Shall I look for new code\updates on the
> server?' withCRs.
> >                 choice = 1 ifTrue: [
> >                         MCMcmUpdater updateFromServer].
> >                 choice = 3 ifTrue: [
> > +                       MCMcmUpdater updateFromServerAtStartup: false.
> > +                       self inform: 'Remember to save your image to
> make this setting permant.']].
> > -                       Preferences setPreference:
> #updateFromServerAtStartup toValue: false.
> > -                       self inform: 'Remember to save you image to make
> this setting permant.']].
> >         ^false!
> >
> > Item was removed:
> > - ----- 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 removed:
> > - ----- 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 added:
> > + (PackageInfo named: 'System') postscript: 'MCMcmUpdater
> updateFromServerAtStartup: Preferences updateFromServerAtStartup.
> > + Preferences removePreference: #updateFromServerAtStartup.'!
> >
> >
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20131212/0f6ef984/attachment.htm