Karl Ramberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-kfr.1021.mcz

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

Name: Morphic-kfr.1021
Author: kfr
Time: 28 October 2015, 6:07:53.098 pm
UUID: 6ece13c6-b1e4-4cd1-a039-1d57ba351644
Ancestors: Morphic-kfr.1020

Adopted look more like NewColorPicker

=============== Diff against Morphic-kfr.1020 ===============

Item was changed:
  ----- Method: GradientEditor>>addButtonRow (in category 'initialization') -----
  addButtonRow
+ 	| button button2 buttonRow button3 |
+ 	buttonRow := RectangleMorph new borderWidth: 0; 
+ 		color: Color transparent;
+ 		layoutPolicy: TableLayout new;
+ 		 hResizing: #shrinkWrap;
+ 		 vResizing: #shrinkWrap;
- 	| button button2 buttonRow button4 |
- 	buttonRow := RectangleMorph new extent: self width @ 30;
- 	borderWidth: 0; color: Color transparent.
- 	buttonRow layoutPolicy: TableLayout new;
  		 cellPositioning: #center;
  		 listCentering: #topLeft;
  		 listDirection: #LeftToRight;
  		 reverseTableCells: true;
  		 cellInset: 20 @ 20.
  
+ 	button := PluggableButtonMorph on: self
+ 				getState: nil
+ 				action: #addHandle
+ 				label: #addColorButtonLabel.
- 	button := SimpleButtonMorph new target: self;
- 				 label: 'Add color';
- 				 actionSelector: #addHandle.
  	buttonRow  addMorph: button.
  
+ 	button2 := PluggableButtonMorph on: self
+ 				getState: nil
+ 				action: #deleteHandle
+ 				label: #removeColorButtonLabel.
- 	button2 := SimpleButtonMorph new target: self;
- 				 label: 'Remove color';
- 				 actionSelector: #deleteHandle.
  	buttonRow addMorph: button2.
  
+ 	button3 := PluggableButtonMorph on: self
+ 				getState: nil
+ 				action: #delete
+ 				label: #closeButtonLabel.
+ 	buttonRow addMorph: button3.
- 	button4 := SimpleButtonMorph new target: self;
- 				 label: 'Close';
- 				 actionSelector: #delete.
- 	buttonRow addMorph: button4.
  	
  	self addMorph: buttonRow!

Item was added:
+ ----- Method: GradientEditor>>addColorButtonLabel (in category 'initialization') -----
+ addColorButtonLabel
+ 	^ 'Add color' translated!

Item was added:
+ ----- Method: GradientEditor>>closeButtonLabel (in category 'initialization') -----
+ closeButtonLabel
+ 	^ 'Close' translated!

Item was changed:
  ----- Method: GradientEditor>>deleteHandle (in category 'change reporting') -----
  deleteHandle
+ 	rampMorphs do:[ :i | (i color == Color black) ifTrue:[ rampMorphs remove: i. row removeMorph: i]].
- 	rampMorphs do:[ :i | (i color == Color red) ifTrue:[ rampMorphs remove: i. row removeMorph: i]].
  	self updateColorRamp
  	
  !

Item was changed:
  ----- Method: GradientEditor>>handle (in category 'initialization') -----
  handle
   | handle |
  handle := PolygonMorph
  				vertices: (Array
  						with: 0 @ 0
  						with: 16 @ 0
  						with: 8 @ 16)
+ 				color: (Color white darker)
- 				color: Color gray
  				borderWidth: 1
  				borderColor: Color black.
  	^handle
  		addMorph: ((RectangleMorph
  				newBounds: (8 @ 18 extent: 1 @ (gradientDisplay height - 2))
  				color: Color orange)
  				borderWidth: 0).!

Item was changed:
  ----- Method: GradientEditor>>initialize (in category 'initialization') -----
  initialize
  	
  	super initialize.
  	self myLayout.
  	self extent: 600 @ 150.
+ 	row := RectangleMorph new extent: self width @ 100; color: Color transparent; borderColor: #inset.
- 	row := RectangleMorph new extent: self width @ 100.
  
  	row addMorph: (gradientDisplay := GradientDisplayMorph new position: 20 @ 20;
  					 extent: self width - 40 @ 40).
  	gradientDisplay fillStyle direction: gradientDisplay width @ 0.
+ 	
- 	"self addHandles."
  	self addMorph: row.
  	self addButtonRow.
  	text := PluggableTextMorph
  				on: self
  				text: #colorRamp
  				accept: nil
  				readSelection: nil
  				menu: nil.
  	text color: Color white;
  		 width: self width;
  		 height: 50.
  	self addMorph: text.
  	!

Item was changed:
  ----- Method: GradientEditor>>limitHandleMove:event:from: (in category 'change reporting') -----
  limitHandleMove: association event: evt from: handle
  	| p  newBounds |
+ 	rampMorphs do:[ : i | i color: (Color white darker)].
- 	rampMorphs do:[ : i | i color: Color gray].
  	newBounds := gradientDisplay bounds.
  	newBounds := (newBounds left: (newBounds left - 10)).
  	newBounds := (newBounds right: (newBounds right - 10)). 
+ 	p := (evt cursorPoint - (10 at 0)) adhereTo: newBounds.
- 	p := evt cursorPoint adhereTo: newBounds.
  	handle position: (p x )@ (handle position y).
+ 	handle color: Color black.
- 	handle color: Color red.
  	self updateColorRamp!

Item was changed:
  ----- Method: GradientEditor>>myLayout (in category 'initialization') -----
  myLayout
+ 	self color: (Color white darker) ;
+ 		 cornerStyle: #rounded ;
+ 		 borderWidth: 0;
+ 		 layoutPolicy: TableLayout new;
- 	self layoutPolicy: TableLayout new;
  		 hResizing: #shrinkWrap;
  		 vResizing: #shrinkWrap;
  		 cellPositioning: #center;
  		 listCentering: #topLeft;
+ 		 layoutInset: 4;
- 		 layoutInset: 10 at 10;
  		 listDirection: #topToBottom;
  		 reverseTableCells: true;
  		 wrapCentering: #topLeft;
  		 cellInset: 19 @ 10!

Item was added:
+ ----- Method: GradientEditor>>removeColorButtonLabel (in category 'initialization') -----
+ removeColorButtonLabel
+ 	^ 'Remove color' translated!