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.!
squeak-dev@lists.squeakfoundation.org