[squeak-dev] The Trunk: EToys-cmm.77.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 4 21:46:48 UTC 2010


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.!




More information about the Squeak-dev mailing list