[squeak-dev] The Trunk: System-mt.1086.mcz

Marcel Taeumel marcel.taeumel at hpi.de
Thu Aug 15 11:14:36 UTC 2019


Hi Jakob,

the search function works on the regular #name. The change only affects the visuals.

Best,
Marcel
Am 15.08.2019 12:31:06 schrieb Jakob Reschke <forums.jakob at resfarm.de>:
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?

Am Do., 15. Aug. 2019 um 11:56 Uhr schrieb <commits at source.squeak.org [mailto:commits at source.squeak.org]>:

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1086.mcz [http://source.squeak.org/trunk/System-mt.1086.mcz]

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

Name: System-mt.1086
Author: mt
Time: 15 August 2019, 11:56:27.168945 am
UUID: ff933ddb-8d0d-f447-a77e-cef1e48bae95
Ancestors: System-mt.1085

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.

=============== Diff against System-mt.1085 ===============

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

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

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

Item was added:
+ ----- Method: Preference>>readableName (in category 'menu') -----
+ readableName
+       "Split camel-case preferences into a readable string with spaces."
+       
+       | result |
+       result := (self name includes: Character space)
+               ifTrue: [self name asString copy]
+               ifFalse: [self name findFeatures joinSeparatedBy: ' '].
+       
+       "Ensure first letter is uppercase"
+       result at: 1 put: (result at: 1) asUppercase.
+       
+       ^ result!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20190815/514115cd/attachment.html>


More information about the Squeak-dev mailing list