The Inbox: System-ct.1517.mcz

Christoph Thiede uploaded a new version of System to project The Inbox:
http://source.squeak.org/inbox/System-ct.1517.mcz

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

Name: System-ct.1517
Author: ct
Time: 19 June 2026, 8:54:33.531469 pm
UUID: 6979c6d4-cbc3-4473-b7a2-27fbf8ef2c63
Ancestors: System-ct.1516

Adds a message to copy a reference string for preferences to access the registered preference object. Similar to CompiledCode>>#reference. Will be used in PreferenceBrowser-ct.163.

Practical relevance: Generate text links to preferences such as (Preferences pragmaPreferenceFor: Model getter: #useColorfulWindows) open for easily. :-)

=============== Diff against System-ct.1516 ===============

Item was changed:
  ----- Method: PragmaPreference>>codeString (in category 'menu') -----
  codeString
+ 	"Answer the Smalltalk expression to get the preference value."
- 	"Answer the Smalltalk expressions to get the preference value."
  
  	^ self provider name, ' ', getter!

Item was added:
+ ----- Method: PragmaPreference>>getter (in category 'accessing') -----
+ getter
+ 
+ 	^ getter!

Item was added:
+ ----- Method: PragmaPreference>>referenceString (in category 'menu') -----
+ referenceString
+ 
+ 	^ 'Preferences pragmaPreferenceFor: {1} getter: {2}' format: {self provider name. self getter storeString}!

Item was changed:
  ----- Method: Preference>>codeString (in category 'menu') -----
  codeString
+ 	"Answer the Smalltalk expression to get the preference value."
- 	"Answer the Smalltalk expressions to get the preference value."
  
  	^ 'Preferences valueOfFlag: #', self name!

Item was added:
+ ----- Method: Preference>>copyReference (in category 'menu') -----
+ copyReference
+ 	"Copy the code for referencing the given preference object to the clipboard"
+ 
+ 	Clipboard clipboardText: self referenceString.!

Item was added:
+ ----- Method: Preference>>referenceString (in category 'menu') -----
+ referenceString
+ 	"Answer the Smalltalk expression to get the preference object."
+ 
+ 	^ 'Preferences preferenceAt: #', self name!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]