The Trunk: Tools-mt.881.mcz

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!