The Trunk: Morphic-kfr.965.mcz

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

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

Name: Morphic-kfr.965
Author: kfr
Time: 3 May 2015, 4:15:47.389 pm
UUID: 3c3fdbae-bbf1-ec4e-824f-886f6753fc96
Ancestors: Morphic-mt.964

A few changes for NewColorPickerMorph so it fits better in properties panes

=============== Diff against Morphic-mt.964 ===============

Item was changed:
  ----- Method: NewColorPickerMorph class>>on:originalColor:setColorSelector: (in category 'create') -----
  on: objectToHaveItsColorSet originalColor: originalColor setColorSelector: colorSetterSymbol
+ ^ self
- ^ self new
  setTarget: objectToHaveItsColorSet
  originalColor: originalColor
+ setColorSelector: colorSetterSymbol
+ forPropertiesPanel: false!
- setColorSelector: colorSetterSymbol!

Item was added:
+ ----- Method: NewColorPickerMorph class>>on:originalColor:setColorSelector:forPropertiesPanel: (in category 'create') -----
+ on: objectToHaveItsColorSet originalColor: originalColor setColorSelector: colorSetterSymbol forPropertiesPanel: aBool
+ ^ self new
+ setTarget: objectToHaveItsColorSet
+ originalColor: originalColor
+ setColorSelector: colorSetterSymbol
+ forPropertiesPanel: aBool!

Item was added:
+ ----- Method: NewColorPickerMorph>>setTarget:originalColor:setColorSelector:forPropertiesPanel: (in category 'initialize-release') -----
+ setTarget: objectToHaveItsColorSet originalColor: aColor setColorSelector: colorSetterSymbol forPropertiesPanel: aBool
+ target := objectToHaveItsColorSet.
+ setColorSelector := colorSetterSymbol.
+ hsvaMorph selectedColor: aColor.
+ aBool
+ ifTrue: [self setupForProperties]
+ ifFalse: [self setup]!

Item was added:
+ ----- Method: NewColorPickerMorph>>setupForProperties (in category 'initialize-release') -----
+ setupForProperties
+ self
+ color: (Color white darker) ;
+ changeTableLayout ;
+ hResizing: #shrinkWrap ;
+ vResizing: #shrinkWrap ;
+ extent: 240@240 ;
+ addMorphBack: hsvaMorph ;
+ layoutInset: 4 ;
+ cellInset: 2.!