The Trunk: System.spur-kfr.725.mcz
Locked
 
|
Karl Ramberg uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System.spur-kfr.725.mcz ==================== Summary ==================== Name: System.spur-kfr.725 Author: kfr Time: 28 April 2015, 7:31:43.891 am UUID: 56df7b80-d8e2-9945-8286-501a5fff02a4 Ancestors: System.spur-eem.709, System.spur-eem.712, System.spur-topa.718, System.spur-mt.724 Register fileService for *.pref. Preferences can now be loaded from FileList =============== Diff against System.spur-eem.709 =============== Item was added: + ----- Method: Preferences class>>fileReaderServicesForFile:suffix: (in category 'file list services') ----- + fileReaderServicesForFile: fullName suffix: suffix + ^(suffix = 'prefs') | (suffix = '*') + ifTrue: [ self services ] + ifFalse: [ #() ]! Item was changed: ----- Method: Preferences class>>loadPreferencesFrom: (in category 'personalization') ----- loadPreferencesFrom: aFile | stream params dict desktopColor | + stream := ReferenceStream fileNamed: aFile. - stream := ReferenceStream on: aFile. params := stream next. self assert: (params isKindOf: IdentityDictionary). params removeKey: #PersonalDictionaryOfPreferences. dict := stream next. self assert: (dict isKindOf: IdentityDictionary). desktopColor := stream next. stream close. dict keysAndValuesDo: [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNil: [:pref | pref preferenceValue: value preferenceValue]]. params keysAndValuesDo: [ :key :value | self setParameter: key to: value ]. Smalltalk isMorphic ifTrue: [ World fillStyle: desktopColor ] ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ]. ! Item was added: + ----- Method: Preferences class>>serviceLoadPreferencesFromDisk (in category 'file list services') ----- + serviceLoadPreferencesFromDisk + ^ SimpleServiceEntry + provider: self + label: 'load preferences from a saved file' + selector: #restorePreferencesFromDisk: + description: 'restore all saved personal preference settings' + buttonLabel: 'load preferences'! Item was added: + ----- Method: Preferences class>>services (in category 'file list services') ----- + services + ^ Array with: self serviceLoadPreferencesFromDisk! |
Re: The Trunk: System.spur-kfr.725.mcz
|
|
Why is this a spur-only commit? I guess this will break the update
mechanism. Levente On Tue, 28 Apr 2015, [hidden email] wrote: > Karl Ramberg uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System.spur-kfr.725.mcz > > ==================== Summary ==================== > > Name: System.spur-kfr.725 > Author: kfr > Time: 28 April 2015, 7:31:43.891 am > UUID: 56df7b80-d8e2-9945-8286-501a5fff02a4 > Ancestors: System.spur-eem.709, System.spur-eem.712, System.spur-topa.718, System.spur-mt.724 > > Register fileService for *.pref. Preferences can now be loaded from FileList > > =============== Diff against System.spur-eem.709 =============== > > Item was added: > + ----- Method: Preferences class>>fileReaderServicesForFile:suffix: (in category 'file list services') ----- > + fileReaderServicesForFile: fullName suffix: suffix > + ^(suffix = 'prefs') | (suffix = '*') > + ifTrue: [ self services ] > + ifFalse: [ #() ]! > > Item was changed: > ----- Method: Preferences class>>loadPreferencesFrom: (in category 'personalization') ----- > loadPreferencesFrom: aFile > | stream params dict desktopColor | > + stream := ReferenceStream fileNamed: aFile. > - stream := ReferenceStream on: aFile. > params := stream next. > self assert: (params isKindOf: IdentityDictionary). > params removeKey: #PersonalDictionaryOfPreferences. > dict := stream next. > self assert: (dict isKindOf: IdentityDictionary). > desktopColor := stream next. > stream close. > dict keysAndValuesDo: > [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNil: > [:pref | pref preferenceValue: value preferenceValue]]. > > params keysAndValuesDo: [ :key :value | self setParameter: key to: value ]. > > Smalltalk isMorphic > ifTrue: [ World fillStyle: desktopColor ] > ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ]. > ! > > Item was added: > + ----- Method: Preferences class>>serviceLoadPreferencesFromDisk (in category 'file list services') ----- > + serviceLoadPreferencesFromDisk > + ^ SimpleServiceEntry > + provider: self > + label: 'load preferences from a saved file' > + selector: #restorePreferencesFromDisk: > + description: 'restore all saved personal preference settings' > + buttonLabel: 'load preferences'! > > Item was added: > + ----- Method: Preferences class>>services (in category 'file list services') ----- > + services > + ^ Array with: self serviceLoadPreferencesFromDisk! > > > |
Re: The Trunk: System.spur-kfr.725.mcz
|
|
Dang. What is the procedure for getting this right again ? Karl On Tue, Apr 28, 2015 at 8:28 AM, Levente Uzonyi <[hidden email]> wrote: Why is this a spur-only commit? I guess this will break the update mechanism. |
Re: The Trunk: System.spur-kfr.725.mcz
|
|
Ok, Can someone remove System.spur-kfr.725.mcz ? Karl On Tue, Apr 28, 2015 at 8:36 AM, karl ramberg <[hidden email]> wrote:
|
Re: The Trunk: System.spur-kfr.725.mcz
|
|
In reply to this post by commits-2
Hi Karl,
alas we can't do voluntary spur commits until 5.0 is released. Right now spur-specific versions of Compiler, Collections, Kernel and System are produced by a framework in the Cog package that I run soon after noticing changes to those packages. Sorry to ask, but would you mind deleting the package and waiting for me to run the script, which I'll do in a couple of hours? Normal service will be restored as soon as we release. Trunk will be spur-specific and we'll be able to commit freely and diverge from 4.6, which will be V3 (what I call the pre-Spur memory manager/object representation).. Eliot (phone) On Apr 27, 2015, at 11:10 PM, [hidden email] wrote: > Karl Ramberg uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System.spur-kfr.725.mcz > > ==================== Summary ==================== > > Name: System.spur-kfr.725 > Author: kfr > Time: 28 April 2015, 7:31:43.891 am > UUID: 56df7b80-d8e2-9945-8286-501a5fff02a4 > Ancestors: System.spur-eem.709, System.spur-eem.712, System.spur-topa.718, System.spur-mt.724 > > Register fileService for *.pref. Preferences can now be loaded from FileList > > =============== Diff against System.spur-eem.709 =============== > > Item was added: > + ----- Method: Preferences class>>fileReaderServicesForFile:suffix: (in category 'file list services') ----- > + fileReaderServicesForFile: fullName suffix: suffix > + ^(suffix = 'prefs') | (suffix = '*') > + ifTrue: [ self services ] > + ifFalse: [ #() ]! > > Item was changed: > ----- Method: Preferences class>>loadPreferencesFrom: (in category 'personalization') ----- > loadPreferencesFrom: aFile > | stream params dict desktopColor | > + stream := ReferenceStream fileNamed: aFile. > - stream := ReferenceStream on: aFile. > params := stream next. > self assert: (params isKindOf: IdentityDictionary). > params removeKey: #PersonalDictionaryOfPreferences. > dict := stream next. > self assert: (dict isKindOf: IdentityDictionary). > desktopColor := stream next. > stream close. > dict keysAndValuesDo: > [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNil: > [:pref | pref preferenceValue: value preferenceValue]]. > > params keysAndValuesDo: [ :key :value | self setParameter: key to: value ]. > > Smalltalk isMorphic > ifTrue: [ World fillStyle: desktopColor ] > ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ]. > ! > > Item was added: > + ----- Method: Preferences class>>serviceLoadPreferencesFromDisk (in category 'file list services') ----- > + serviceLoadPreferencesFromDisk > + ^ SimpleServiceEntry > + provider: self > + label: 'load preferences from a saved file' > + selector: #restorePreferencesFromDisk: > + description: 'restore all saved personal preference settings' > + buttonLabel: 'load preferences'! > > Item was added: > + ----- Method: Preferences class>>services (in category 'file list services') ----- > + services > + ^ Array with: self serviceLoadPreferencesFromDisk! > > |
Re: The Trunk: System.spur-kfr.725.mcz
|
|
Hi,6 Only admins can delete or move versions, unfortunately.Karl On Tue, Apr 28, 2015 at 3:04 PM, Eliot Miranda <[hidden email]> wrote: Hi Karl, |
Re: The Trunk: System.spur-kfr.725.mcz
|
|
In reply to this post by Karl Ramberg
I accidently did this before too. After that I moved my "trunk"
development to a regular V4 (cog) image which was also good because I could get the latest updates even if Eliot hadn't yet run his script. On Tue, Apr 28, 2015 at 1:36 AM, karl ramberg <[hidden email]> wrote: > Dang. > What is the procedure for getting this right again ? > > Karl > > On Tue, Apr 28, 2015 at 8:28 AM, Levente Uzonyi <[hidden email]> wrote: >> >> Why is this a spur-only commit? I guess this will break the update >> mechanism. >> >> Levente >> >> >> On Tue, 28 Apr 2015, [hidden email] wrote: >> >>> Karl Ramberg uploaded a new version of System to project The Trunk: >>> http://source.squeak.org/trunk/System.spur-kfr.725.mcz >>> >>> ==================== Summary ==================== >>> >>> Name: System.spur-kfr.725 >>> Author: kfr >>> Time: 28 April 2015, 7:31:43.891 am >>> UUID: 56df7b80-d8e2-9945-8286-501a5fff02a4 >>> Ancestors: System.spur-eem.709, System.spur-eem.712, >>> System.spur-topa.718, System.spur-mt.724 >>> >>> Register fileService for *.pref. Preferences can now be loaded from >>> FileList >>> >>> =============== Diff against System.spur-eem.709 =============== >>> >>> Item was added: >>> + ----- Method: Preferences class>>fileReaderServicesForFile:suffix: (in >>> category 'file list services') ----- >>> + fileReaderServicesForFile: fullName suffix: suffix >>> + ^(suffix = 'prefs') | (suffix = '*') >>> + ifTrue: [ self services ] >>> + ifFalse: [ #() ]! >>> >>> Item was changed: >>> ----- Method: Preferences class>>loadPreferencesFrom: (in category >>> 'personalization') ----- >>> loadPreferencesFrom: aFile >>> | stream params dict desktopColor | >>> + stream := ReferenceStream fileNamed: aFile. >>> - stream := ReferenceStream on: aFile. >>> params := stream next. >>> self assert: (params isKindOf: IdentityDictionary). >>> params removeKey: #PersonalDictionaryOfPreferences. >>> dict := stream next. >>> self assert: (dict isKindOf: IdentityDictionary). >>> desktopColor := stream next. >>> stream close. >>> dict keysAndValuesDo: >>> [:key :value | (self preferenceAt: key ifAbsent: [nil]) >>> ifNotNil: >>> [:pref | pref preferenceValue: value >>> preferenceValue]]. >>> >>> params keysAndValuesDo: [ :key :value | self setParameter: key >>> to: value ]. >>> >>> Smalltalk isMorphic >>> ifTrue: [ World fillStyle: desktopColor ] >>> ifFalse: [ self desktopColor: desktopColor. >>> ScheduledControllers updateGray ]. >>> ! >>> >>> Item was added: >>> + ----- Method: Preferences class>>serviceLoadPreferencesFromDisk (in >>> category 'file list services') ----- >>> + serviceLoadPreferencesFromDisk >>> + ^ SimpleServiceEntry >>> + provider: self >>> + label: 'load preferences from a saved file' >>> + selector: #restorePreferencesFromDisk: >>> + description: 'restore all saved personal preference >>> settings' >>> + buttonLabel: 'load preferences'! >>> >>> Item was added: >>> + ----- Method: Preferences class>>services (in category 'file list >>> services') ----- >>> + services >>> + ^ Array with: self serviceLoadPreferencesFromDisk! >>> >>> >>> >> > > > > |
«
Return to Squeak - Dev
|
1 view|%1 views
| Free forum by Nabble | Edit this page |