[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