[squeak-dev] The Trunk: Morphic-bf.449.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jun 24 13:44:00 UTC 2010


Bert Freudenberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-bf.449.mcz

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

Name: Morphic-bf.449
Author: bf
Time: 24 June 2010, 3:41:52.939 pm
UUID: f588bcdb-0e0e-4541-aa83-224c90a97e60
Ancestors: Morphic-bf.448

- grow equally in all directions on ctrl-halo drag

=============== Diff against Morphic-bf.448 ===============

Item was changed:
  ----- Method: HaloMorph>>mouseMove: (in category 'event handling') -----
  mouseMove: evt
  	"Drag our target around or resize it"
  	growingOrRotating
  		ifTrue: [
+ 			| oldExtent newExtent newPosition |
+ 			newExtent := originalExtent + (evt position - positionOffset * 2).
- 			| newExtent |
- 			newExtent := originalExtent + evt position - positionOffset.
  			(newExtent x > 1 and: [newExtent y > 1])
+ 				ifTrue: [
+ 					oldExtent := target extent.
+ 					target setExtentFromHalo: newExtent.
+ 					newPosition := target position - (target extent - oldExtent // 2).
+ 					target setConstrainedPosition: newPosition hangOut: true]]
- 				ifTrue: [	target renderedMorph setExtentFromHalo: newExtent]]
  		ifFalse: [
  			| thePoint |
  			thePoint := target point: (evt position - positionOffset) from: owner.
  			target setConstrainedPosition: thePoint hangOut: true.
  		]!




More information about the Squeak-dev mailing list