Christoph Thiede uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1337.mcz

==================== Summary ====================

Name: System-ct.1337
Author: ct
Time: 6 April 2022, 9:16:41.622385 pm
UUID: 51362b3c-0a2d-2c4a-83e1-5909bbdb9a84
Ancestors: System-ct.1336

Adds pragma-preference lookup to Preferences. Internalizes pragma ID construction. Adds execute-around setter to Preference.

	(Preferences pragmaPreferenceFor: Model getter: #useColorfulWindows) preferenceValue: true during: [self inform: 'Carpe Squeak!']

=============== Diff against System-ct.1336 ===============

Item was changed:
  ----- Method: PragmaPreference>>id (in category 'accessing') -----
  id
  
+ 	^ Preferences pragmaIdFor: self provider getter: getter!
- 	^ (self provider name, '>>', getter) asSymbol!

Item was added:
+ ----- Method: Preference>>preferenceValue:during: (in category 'value') -----
+ preferenceValue: val during: aBlock
+ 
+ 	| oldValue |
+ 	(oldValue := self preferenceValue) = val ifTrue: [^ aBlock value].
+ 	self preferenceValue: val.
+ 	^ aBlock ensure:
+ 		[self preferenceValue: oldValue]!

Item was added:
+ ----- Method: Preferences class>>pragmaIdFor:getter: (in category 'accessing') -----
+ pragmaIdFor: provider getter: getter
+ 
+ 	^ (provider name , '>>' , getter) asSymbol!

Item was added:
+ ----- Method: Preferences class>>pragmaPreferenceFor:getter: (in category 'accessing') -----
+ pragmaPreferenceFor: provider getter: getter
+ 
+ 	^ self preferenceAt: (self pragmaIdFor: provider getter: getter)!