The Trunk: EToys-cmm.77.mcz

Chris Muller uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-cmm.77.mcz

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

Name: EToys-cmm.77
Author: cmm
Time: 4 December 2010, 3:46:11.85 pm
UUID: a24961bd-f8bb-4064-940e-c19f46488ba5
Ancestors: EToys-ul.76

Use NewColorPickerMorph if preference is set.

=============== Diff against EToys-ul.76 ===============

Item was changed:
  ----- Method: GenericPropertiesMorph>>colorPickerFor:getter:setter: (in category 'as yet unclassified') -----
+ colorPickerFor: target getter: getterSymbol setter: setterSymbol
+ ^ NewColorPickerMorph useIt
+ ifTrue:
+ [ NewColorPickerMorph
+ on: target
+ originalColor: (target perform: getterSymbol)
+ setColorSelector: setterSymbol ]
+ ifFalse:
+ [ ColorPickerMorph new
+ initializeForPropertiesPanel ;
+ target: target ;
+ selector: setterSymbol ;
+ originalColor: (target perform: getterSymbol) ]!
- colorPickerFor: target getter: getterSymbol setter: setterSymbol
-
- ^ColorPickerMorph new
- initializeForPropertiesPanel;
- target: target;
- selector: setterSymbol;
- originalColor: (target perform: getterSymbol)!

Item was changed:
  ----- Method: GenericPropertiesMorph>>openNearTarget (in category 'as yet unclassified') -----
  openNearTarget
+ self openNearMorph: myTarget!
-
- | w wb tb leftOverlap rightOverlap topOverlap bottomOverlap best |
-
- w := myTarget world ifNil: [World].
- wb := w bounds.
- self fullBounds.
- tb := myTarget boundsInWorld.
- leftOverlap := self width - (tb left - wb left).
- rightOverlap := self width - (wb right - tb right).
- topOverlap := self height - (tb top - wb top).
- bottomOverlap := self height - (wb bottom - tb bottom).
- best := nil.
- {
- {leftOverlap. #topRight:. #topLeft}.
- {rightOverlap. #topLeft:. #topRight}.
- {topOverlap. #bottomLeft:. #topLeft}.
- {bottomOverlap. #topLeft:. #bottomLeft}.
- } do: [ :tuple |
- (best isNil or: [tuple first < best first]) ifTrue: [best := tuple].
- ].
- self perform: best second with: (tb perform: best third).
- self bottom: (self bottom min: wb bottom) rounded.
- self right: (self right min: wb right) rounded.
- self top: (self top max: wb top) rounded.
- self left: (self left max: wb left) rounded.
-
- self openInWorld: w.!