Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.881.mcz

==================== Summary ====================

Name: Tools-mt.881
Author: mt
Time: 3 September 2019, 10:31:26.605063 am
UUID: fcc8128d-6944-ff49-83b6-9ccd090e9e0f
Ancestors: Tools-mt.880

Our lists render only the first character's emphasis for the entire string. Fix that for class-tree formatting.

=============== Diff against Tools-mt.880 ===============

Item was changed:
  ----- Method: Browser>>flattenHierarchyTree:on:indent:by:format: (in category 'class list') -----
  flattenHierarchyTree: classHierarchy on: col indent: indent by: indentChars format: formatBlock
  	"Recursively add to col the names in classHierarchy indenting to show the hierarchical relationship. Use indentChars to do the indenting: spaces, tabs, etc."
  	| plusIndent |
  	plusIndent := indentChars.
  	classHierarchy do: [:assoc |
  		| class childs label |
  		class := assoc key.
  		label := formatBlock value: class.
  		label isText
+ 			ifTrue: [col add: (Text string: indent attributes: (label attributesAt: 1)), label]
- 			ifTrue: [col add: indent asText, label]
  			ifFalse: [col add: indent, label].
  		childs := assoc value.
  		self
  			flattenHierarchyTree: childs
  			on: col
  			indent: indent , plusIndent
  			by: indentChars
  			format: formatBlock].
  	^ col!