Why is this a spur-only commit? I guess this will break the update mechanism.
Levente
On Tue, 28 Apr 2015, commits@source.squeak.org 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!
Dang. What is the procedure for getting this right again ?
Karl
On Tue, Apr 28, 2015 at 8:28 AM, Levente Uzonyi leves@elte.hu wrote:
Why is this a spur-only commit? I guess this will break the update mechanism.
Levente
On Tue, 28 Apr 2015, commits@source.squeak.org 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!
Ok, Can someone remove System.spur-kfr.725.mcz ?
Karl
On Tue, Apr 28, 2015 at 8:36 AM, karl ramberg karlramberg@gmail.com wrote:
Dang. What is the procedure for getting this right again ?
Karl
On Tue, Apr 28, 2015 at 8:28 AM, Levente Uzonyi leves@elte.hu wrote:
Why is this a spur-only commit? I guess this will break the update mechanism.
Levente
On Tue, 28 Apr 2015, commits@source.squeak.org 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!
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 karlramberg@gmail.com wrote:
Dang. What is the procedure for getting this right again ?
Karl
On Tue, Apr 28, 2015 at 8:28 AM, Levente Uzonyi leves@elte.hu wrote:
Why is this a spur-only commit? I guess this will break the update mechanism.
Levente
On Tue, 28 Apr 2015, commits@source.squeak.org 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!
squeak-dev@lists.squeakfoundation.org