Patrick Rein uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-pre.239.mcz

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

Name: MorphicExtras-pre.239
Author: pre
Time: 8 June 2018, 5:01:33.701586 pm
UUID: d0190a6c-3ee5-824f-8bda-fee68d823a6a
Ancestors: MorphicExtras-pre.238

Minor refactoring of objects tool. This moves a objects tool method from Morph into the ObjectsTool. Other very minor style fixes.

=============== Diff against MorphicExtras-pre.238 ===============

Item was changed:
  ----- Method: BorderedMorph>>basicInitialize (in category '*MorphicExtras-initialization') -----
  basicInitialize
  	"Do basic generic initialization of the instance variables"
+ 	
  	super basicInitialize.
- ""
  	self borderInitialize!

Item was removed:
- ----- Method: Morph>>highlightOnlySubmorph: (in category '*MorphicExtras-accessing') -----
- highlightOnlySubmorph: aMorph
- 	"Distinguish only aMorph with border highlighting (2-pixel wide red); make all my other submorphs have one-pixel-black highlighting.  This is a rather special-purpose and hard-coded highlighting regime, of course.  Later, if someone cared to do it, we could parameterize the widths and colors via properties, or some such."
- 
- 	self submorphs do:
- 		[:m |
- 			m == aMorph
- 				ifTrue: [m borderWidth: 1; borderColor: Color red. m firstSubmorph color: Color red]
- 				ifFalse: [m borderWidth: 1; borderColor: Color black. m firstSubmorph color: Color black]
- 		].
- !

Item was added:
+ ----- Method: ObjectsTool>>buttonActiveColor (in category 'constants') -----
+ buttonActiveColor
+ 
+ 	^ Color white!

Item was added:
+ ----- Method: ObjectsTool>>buttonColor (in category 'constants') -----
+ buttonColor
+ 
+ 	^ Color black!

Item was added:
+ ----- Method: ObjectsTool>>highlightOnlySubmorph:in: (in category 'tabs') -----
+ highlightOnlySubmorph: aMorph in: anotherMorph
+ 	"Distinguish only aMorph with border highlighting (2-pixel wide red); make all my other submorphs have one-pixel-black highlighting.  This is a rather special-purpose and hard-coded highlighting regime, of course.  Later, if someone cared to do it, we could parameterize the widths and colors via properties, or some such."
+ 
+ 	anotherMorph submorphs do: [:m | | color |
+ 	 	color := m == aMorph ifTrue: [self buttonActiveColor] ifFalse: [self buttonColor].
+ 		m 
+ 			borderWidth: 1;
+ 			borderColor: color. 
+ 		m firstSubmorph color: color]
+ !

Item was changed:
  ----- Method: ObjectsTool>>installQuads:fromButton: (in category 'alphabetic') -----
  installQuads: quads fromButton: aButton
  	"Install items in the bottom pane that correspond to the given set of quads, as triggered from the given button"
  
  	| aPartsBin sortedQuads oldResizing |
  	aPartsBin := self partsBin.
  	oldResizing := aPartsBin vResizing.
  	aPartsBin removeAllMorphs.
  	sortedQuads := ((PartsBin translatedQuads: quads)
  		select: [ :each | Smalltalk hasClassNamed: each first ])
  		sort: [ :a :b | a third < b third ].
  	aPartsBin listDirection: #leftToRight quadList: sortedQuads.
+ 	aButton ifNotNil: [self highlightOnlySubmorph: aButton in: self tabsPane].
- 	aButton ifNotNil: [self tabsPane highlightOnlySubmorph: aButton].
  	aPartsBin vResizing: oldResizing.
  	aPartsBin layoutChanged; fullBounds.
  	self isFlap ifFalse: [ self minimizePartsBinSize ].!

Item was changed:
  ----- Method: ObjectsTool>>tweakAppearanceAfterModeShift (in category 'initialization') -----
  tweakAppearanceAfterModeShift
  	"After the receiver has been put into a given mode, make an initial selection of category, if appropriate, and highlight the mode button."
+ 	
- 
  	self buttonPane submorphs do:
  		[:aButton | 
  			| aColor |
  			"aButton borderWidth: 1."
  			aColor := (aButton valueOfProperty: #modeSymbol) = modeSymbol
+ 				ifTrue: [self buttonActiveColor]
+ 				ifFalse: [self buttonColor].
- 				ifTrue: [Color red]
- 				ifFalse: [Color black].
  
  			aButton firstSubmorph color: aColor.
+ 			aButton borderColor: aColor].!
- 			aButton borderColor: aColor.
- 		].!