[squeak-dev] The Trunk: System-mt.1329.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 22 09:34:33 UTC 2022
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1329.mcz
==================== Summary ====================
Name: System-mt.1329
Author: mt
Time: 22 March 2022, 10:34:29.373003 am
UUID: df77d90e-a2a4-4afb-b1d9-c6c06322ff56
Ancestors: System-mt.1328
Fixes init bug when appending sth. to commmon-request strings that have not yet been initialized.
Also drop manual line breaks in set-author-initials dialog. Use default font size to make text composition look okay.
=============== Diff against System-mt.1328 ===============
Item was changed:
----- Method: Utilities class>>appendToCommonRequests: (in category 'common requests') -----
appendToCommonRequests: aString
+ self commonRequestStrings: (self commonRequestStrings contents, String cr, aString)
- self commonRequestStrings: (CommonRequestStrings contents, String cr, aString)
"Utilities appendToCommonRequests: 'self beep'"
!
Item was changed:
----- Method: Utilities class>>setAuthorInitials (in category 'identification') -----
setAuthorInitials
"Put up a dialog allowing the user to specify the author's initials. Inform the user about collisions with known contributors. See SystemNavigation class >> #authors. "
| newInitials newName |
newInitials := Project uiManager
request: 'Please type your initials:' translated
initialAnswer: AuthorInitials.
newInitials ifEmpty: [^ self "No Change"].
(SystemNavigation authorsInverted at: newInitials ifPresent: [:existingNames |
newName := existingNames sorted joinSeparatedBy: '/'.
+ (self confirm: ('Hello, <b>{1}</b>!! :-)<br><br>Our <a href="code://{3}">list of known contributors</{4}> associates the initials you have entered with this name. If this is not you, please consider alternative initials, preferably more than just a few characters, to avoid collisions.<br><br>Do you want to use these author initials?<br><br> <b>{2}</b>' translated format: {
- (self confirm: ('Hello, <b>{1}</b>!! :-)<br><br><font face="{4}" size="{5}">Our <a href="code://{3}">list of known contributors</{6}> associates the initials you<br>have entered with this name. If this is not you, please<br>consider alternative initials, preferably more than just <br>a few characters, to avoid collisions.<br></font><br>Do you want to use these author initials?<br><br> <b>{2}</b>' translated format: {
newName ifNil: [newInitials].
newInitials.
'SystemReporter open model categoryAt: 1 put: true'.
- Preferences standardButtonFont familyName.
- Preferences standardButtonFont pointSize.
"mt: Avoid triggering the Windows Defender. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346.html"
'a' }) asTextFromHtml) ] ifAbsent: [true])
ifTrue: [self authorInitials: newInitials].!
More information about the Squeak-dev
mailing list
|