<div dir="ltr">Looks nice, but I assume there are dozens of references to the old symbolic names on the wiki and such. Can you ensure that these can be found under their old names with the search function?</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Am Do., 15. Aug. 2019 um 11:56 Uhr schrieb <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>>:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Marcel Taeumel uploaded a new version of System to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/System-mt.1086.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/System-mt.1086.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: System-mt.1086<br>
Author: mt<br>
Time: 15 August 2019, 11:56:27.168945 am<br>
UUID: ff933ddb-8d0d-f447-a77e-cef1e48bae95<br>
Ancestors: System-mt.1085<br>
<br>
Adds a way to get readable names for old-style preferences. Adds a way to get the source code you need to use those preferences in your projects.<br>
<br>
=============== Diff against System-mt.1085 ===============<br>
<br>
Item was added:<br>
+ ----- Method: PragmaPreference>>codeString (in category 'menu') -----<br>
+ codeString<br>
+       "Answer the Smalltalk expressions to get the preference value."<br>
+ <br>
+       ^ self provider name, ' ', getter!<br>
<br>
Item was added:<br>
+ ----- Method: Preference>>codeString (in category 'menu') -----<br>
+ codeString<br>
+       "Answer the Smalltalk expressions to get the preference value."<br>
+ <br>
+       ^ 'Preferences valueOfFlag: #', self name!<br>
<br>
Item was added:<br>
+ ----- Method: Preference>>copyCode (in category 'menu') -----<br>
+ copyCode<br>
+       "Copy the code for the given preference to the clipboard"<br>
+ <br>
+       Clipboard clipboardText: self codeString.!<br>
<br>
Item was added:<br>
+ ----- Method: Preference>>readableName (in category 'menu') -----<br>
+ readableName<br>
+       "Split camel-case preferences into a readable string with spaces."<br>
+       <br>
+       | result |<br>
+       result := (self name includes: Character space)<br>
+               ifTrue: [self name asString copy]<br>
+               ifFalse: [self name findFeatures joinSeparatedBy: ' '].<br>
+       <br>
+       "Ensure first letter is uppercase"<br>
+       result at: 1 put: (result at: 1) asUppercase.<br>
+       <br>
+       ^ result!<br>
<br>
<br>
</blockquote></div>