[squeak-dev] The Trunk: System-fbs.641.mcz
Frank Shearar
frank.shearar at gmail.com
Thu Dec 12 09:39:32 UTC 2013
On 12 December 2013 02:41, Chris Muller <ma.chris.m at gmail.com> wrote:
> It's in 4.4, but I've never seen it before today.
Oh it's much, much older than that. It's at least as old as ~2000.
Squeak 3.6? 3.7? The days of violent hues, at any rate.
> I smell an opportunity for addition-by-subtraction.
I would not complain, if someone did that :)
frank
> On Wed, Dec 11, 2013 at 6:47 PM, Nicolas Cellier
> <nicolas.cellier.aka.nice at gmail.com> wrote:
>> 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.'!
>>> >
>>> >
>>>
>>
>
More information about the Squeak-dev
mailing list
|