[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