'From Squeak6.0alpha of 15 March 2021 [latest update: #20304] on 24 March 2021 at 5:23:33 pm'!
!Utilities class methodsFor: 'identification' stamp: 'ct 3/24/2021 17:23'!
setAuthorInitials
"Put up a dialog allowing the user to specify the author's initials. "
| newInitials |
[newInitials := Project uiManager
request: 'Please type your initials:' translated
initialAnswer: AuthorInitials.
SystemNavigation authorsInverted
at: newInitials
ifPresent: [:authorNames |
self confirm: ('Hello {1}!! :-)
{2}
Continue with these intials?' translated asTextFromHtml format: {
authorNames sorted joinSeparatedBy: '/'. ('Our {3} associates the initials you have
entered ({1}) with this name. If this is not you,
please consider entering alternative initials,
preferably in the format {2}.' translated asTextFromHtml format: {newInitials. 'FirstnameLastname'. 'Contributors list' translated asText addAttribute: (PluggableTextAttribute evalBlock: [ToolBuilder open: (SystemReporter new categoryAt: 1 put: true; yourself)]); yourself}) asText addAttribute: (
"Show this helpful information in a smaller font."
TextFontReference toFont: Preferences standardButtonFont)})]
ifAbsent: [true]] whileFalse.
self authorInitials: newInitials.! !