Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1263.mcz
==================== Summary ====================
Name: System-mt.1263
Author: mt
Time: 3 December 2021, 11:36:33.507016 am
UUID: 4ab14722-538d-3a4b-81a5-84ddac50ce97
Ancestors: System-mt.1262
Next iteration on information the user of conflicts with known author initials:
- Avoid suggesting "firstname.lastname" but just "a little longer" because we cannot guarantee the absence of name collisions.
- Only show the new dialog if there is any conflict.
- Do not clear the initials if you cancel the dialog.
=============== Diff against System-mt.1262 ===============
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: '/'.
- SystemNavigation authorsInverted at: newInitials ifPresent: [:existingNames |
- newName := existingNames sorted joinSeparatedBy: '/'].
+ (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.</font><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 entering alternative initials, preferably in the<br>format <b>firstName.lastName</b> to avoid collisions.</font><br><br>Are these your 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…"
+ 'a' }) asTextFromHtml) ] ifAbsent: [true])
+ ifTrue: [self authorInitials: newInitials].!
- 'a' }) asTextFromHtml)
-
- ifTrue: [self authorInitials: newInitials].!
Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-mt.170.mcz
==================== Summary ====================
Name: MonticelloConfigurations-mt.170
Author: mt
Time: 2 December 2021, 4:09:23.873715 pm
UUID: c5da41de-7a1d-dc43-a5c7-47ac7387de1a
Ancestors: MonticelloConfigurations-mt.169
Minor cosmetic tweak in the update dialog.
Now that we can set the font size (and color) in dialogs, make the font for that ALPHA/BETA/RC-Warning smaller.
=============== Diff against MonticelloConfigurations-mt.169 ===============
Item was changed:
----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') -----
updateMessageFor: previousUpdateLevel
^ ('Update completed.<br><br>Version: {1}<br>Update: {3}<b>{2}</b><br><br>Url: <a href="{4}">{4}</{10}><br>Map: ''{5}''<br>CI status: <a href="{8}"><img src="{7}" /> {9}</{10}>{6}' translated format: {
SystemVersion current version.
SystemVersion current highestUpdate.
previousUpdateLevel = SystemVersion current highestUpdate
ifTrue: ['']
ifFalse: [previousUpdateLevel asString, ' -> '].
self repository.
MCMcmUpdater updateMapName.
SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d |
+ '<br><br><font face="{2}" size="{3}">{1}</font>'
+ format: {
+ d copyReplaceAll: String cr with: '<br>'.
+ Preferences standardButtonFont familyName.
+ Preferences standardButtonFont pointSize.
+ }].
- '<br><br>', (d copyReplaceAll: String cr with: '<br>')].
SystemVersion current ciStatusBadgeUrl.
SystemVersion current ciStatusPageUrl.
SystemVersion current ciStatusTimestamp ifNil: ['(build inaccessible!!)' translated].
"mt: Avoid triggering the Windows Defender. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346…"
'a'.
}) asTextFromHtml!
Marcel Taeumel uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-mt.966.mcz
==================== Summary ====================
Name: Collections-mt.966
Author: mt
Time: 2 December 2021, 4:06:07.345715 pm
UUID: e18db8cb-0b3c-1d48-95f3-f5955e1ea837
Ancestors: Collections-mt.965
New message on Text: add a text attribute to the entire text unless there is a conflict with an existing text attribute. So, automatically compute the ranges that fit.
=============== Diff against Collections-mt.965 ===============
Item was added:
+ ----- Method: Text>>addAttribute:unless: (in category 'emphasis') -----
+ addAttribute: anAttribute unless: aBlock
+ "Only add anAttribute when aBlock evaluates to false. Can be used to avoid overwriting existing attributes without knowing exactly where they are. Kind of complements the #dominates: protocol in TextAttribute."
+
+ | offset |
+ self flag: #performance. "mt: Can we do this faster?"
+ runs copy withIndexDo: [:attrs :index |
+ (aBlock cull: attrs cull: index)
+ ifFalse: [offset ifNil: [
+ offset := index]]
+ ifTrue: [offset ifNotNil: [
+ self addAttribute: anAttribute from: offset to: index - 1.
+ offset := nil]]].
+ offset ifNotNil: [
+ self addAttribute: anAttribute from: offset to: self size].!
Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-mt.169.mcz
==================== Summary ====================
Name: MonticelloConfigurations-mt.169
Author: mt
Time: 2 December 2021, 2:56:24.480715 pm
UUID: 7c0fb674-93ba-2443-9c53-725956da9084
Ancestors: MonticelloConfigurations-ct.168
We have a few places in the sources, where we hard-code the literal '</a>' in one form or another. In this rather recent example, avoid that through a little indirection to fool the Windows Defender. Also to document the overall issue somewhere within the image.
See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346…
=============== Diff against MonticelloConfigurations-ct.168 ===============
Item was changed:
----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') -----
updateMessageFor: previousUpdateLevel
+ ^ ('Update completed.<br><br>Version: {1}<br>Update: {3}<b>{2}</b><br><br>Url: <a href="{4}">{4}</{10}><br>Map: ''{5}''<br>CI status: <a href="{8}"><img src="{7}" /> {9}</{10}>{6}' translated format: {
- ^ ('Update completed.<br><br>Version: {1}<br>Update: {3}<b>{2}</b><br><br>Url: <a href="{4}">{4}</a><br>Map: ''{5}''<br>CI status: <a href="{8}"><img src="{7}" /> {9}</a>{6}' translated format: {
SystemVersion current version.
SystemVersion current highestUpdate.
previousUpdateLevel = SystemVersion current highestUpdate
ifTrue: ['']
ifFalse: [previousUpdateLevel asString, ' -> '].
self repository.
MCMcmUpdater updateMapName.
SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d |
'<br><br>', (d copyReplaceAll: String cr with: '<br>')].
SystemVersion current ciStatusBadgeUrl.
SystemVersion current ciStatusPageUrl.
SystemVersion current ciStatusTimestamp ifNil: ['(build inaccessible!!)' translated].
+ "mt: Avoid triggering the Windows Defender. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346…"
+ 'a'.
}) asTextFromHtml!