The Trunk: Morphic-mt.1756.mcz

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

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

Name: Morphic-mt.1756
Author: mt
Time: 20 April 2021, 10:58:45.137004 am
UUID: eb1e8287-cfc4-ff47-a8d1-a4e93f3be174
Ancestors: Morphic-mt.1755

In object explorers, format the different representations of numbers in groups, following the well-known practice: hex 2, oct 3, binary 4 digits.

(Piggyback the removal of an #isMutator send)

=============== Diff against Morphic-mt.1755 ===============

Item was changed:
  ----- Method: Integer>>explorerContents (in category '*Morphic-Explorer') -----
  explorerContents
 
  ^#(
+ ('hexadecimal' 16 2)
+ ('octal' 8 3)
+ ('binary' 2 4)) collect: [ :each | | label group |
+ group := each third.
+ label := self printStringBase: each second.
+ label := label padded: #left to: (label size roundUpTo: group) with: $0.
+ label := String streamContents: [:s |
+ (1 to: label size by: group)
+ do: [:index |
+ 1 to: group do: [:gIndex |
+ s nextPut: (label at: index + gIndex - 1)]]
+ separatedBy: [s space]].
+
- ('hexadecimal' 16)
- ('octal' 8)
- ('binary' 2)) collect: [ :each |
  ObjectExplorerWrapper
+ with: label
- with: (self printStringBase: each second)
  name: each first translated
  model: self ]!

Item was changed:
  ----- Method: NewColorPickerMorph class>>on:colorSelector: (in category 'create') -----
  on: objectToHaveItsColorSet colorSelector: colorSymbol
  ^ self
  on: objectToHaveItsColorSet
  getColorSelector: colorSymbol
+ setColorSelector: colorSymbol asSimpleSetter!
- setColorSelector: colorSymbol asMutator!