[Pkg] The Trunk: Morphic-mt.1756.mcz

[commits at source.squeak.org]

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!