The Trunk: System-mt.1086.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
4 messages Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-mt.1086.mcz

commits-2
Marcel Taeumel uploaded a new version of System to project The Trunk:
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!


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: System-mt.1086.mcz

Jakob Reschke-2
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 <[hidden email]>:
Marcel Taeumel uploaded a new version of System to project The Trunk:
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!




Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: System-mt.1086.mcz

marcel.taeumel
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 <[hidden email]>:

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 <[hidden email]>:
Marcel Taeumel uploaded a new version of System to project The Trunk:
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!




Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: System-mt.1086.mcz

Jakob Reschke-2
Indeed, seems like I picked all the wrong ones to try it out. ;-)
Could verify it with tinyDisplay now.

Am Do., 15. Aug. 2019 um 13:14 Uhr schrieb Marcel Taeumel <[hidden email]>:
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 <[hidden email]>:

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 <[hidden email]>:
Marcel Taeumel uploaded a new version of System to project The Trunk:
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!