[squeak-dev] The Trunk: Help-Squeak-Project-tpr.97.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 16 00:31:43 UTC 2023
tim Rowledge uploaded a new version of Help-Squeak-Project to project The Trunk:
http://source.squeak.org/trunk/Help-Squeak-Project-tpr.97.mcz
==================== Summary ====================
Name: Help-Squeak-Project-tpr.97
Author: tpr
Time: 15 January 2023, 4:31:41.748939 pm
UUID: f052aa8f-0b24-49d7-9685-2d5449d53dda
Ancestors: Help-Squeak-Project-ct.96
Remove some variable shadowing
=============== Diff against Help-Squeak-Project-ct.96 ===============
Item was changed:
----- Method: SqueakMessageCategoriesHelp class>>addAllCategoriesTopicTo: (in category 'private') -----
addAllCategoriesTopicTo: newTopic
| mapping allCategoriesTopic |
allCategoriesTopic := HelpTopic
title: 'All message categories'
icon: (HelpIcons iconNamed: #bookIcon)
contents: self allCategoriesExplanation.
mapping := IdentityDictionary new.
SystemNavigation allBehaviorsDo: [:behavior |
((behavior organization categories
+ reject: [:cat | cat first = $*])
+ collect: [:cat | (cat findTokens: '-') first withBlanksTrimmed])
+ do: [:cat |
+ (mapping at: cat asLowercase asSymbol ifAbsentPut: [Set new]) add: behavior]].
- reject: [:category | category first = $*])
- collect: [:category | (category findTokens: '-') first withBlanksTrimmed])
- do: [:category |
- (mapping at: category asLowercase asSymbol ifAbsentPut: [Set new]) add: behavior]].
mapping keys sorted do: [:categoryName |
allCategoriesTopic addSubtopic: (HelpTopic
title: categoryName
icon: (HelpIcons iconNamed: #pageIcon)
contents: (((mapping at: categoryName) collect: [:c | c printString]) sorted joinSeparatedBy: ',' , String crlf))].
^ newTopic addSubtopic: allCategoriesTopic!
More information about the Squeak-dev
mailing list
|