[squeak-dev] The Trunk: Morphic-mt.868.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 14 06:51:50 UTC 2015


Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.868.mcz

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

Name: Morphic-mt.868
Author: mt
Time: 14 April 2015, 8:51:16.376 am
UUID: e03a8bed-de5d-7847-97b3-d38b5c1b1339
Ancestors: Morphic-mt.867

Extended the "openToolsAttachedToMouseCursor" preference to allow resizing-after-dropping directly if you keep the mouse button pressed and move it.

Thanks Bert for the idea! :-)

Note: With fast-dragging enabled, accidential resize might shrink the window unexpectedly because we cannot change mouse position programmatically.

=============== Diff against Morphic-mt.867 ===============

Item was added:
+ ----- Method: AbstractResizerMorph>>referencePoint: (in category 'as yet unclassified') -----
+ referencePoint: aPoint
+ 
+ 	lastMouse := aPoint.!

Item was changed:
  ----- Method: SystemWindow>>justDroppedInto:event: (in category 'geometry') -----
  justDroppedInto: aMorph event: anEvent
  
+ 	ToolBuilder openToolsAttachedToMouseCursor ifTrue: [
+ 		(self submorphs detect: [:m | m isKindOf: BottomRightGripMorph] ifNone: [])
+ 			ifNotNil: [:grip | 
+ 				grip referencePoint: anEvent position.
+ 				anEvent hand newMouseFocus: grip]].
+ 
  	self hasDropShadow: (self isActive and: [Preferences menuAppearance3d]).
  
  	isCollapsed
  		ifTrue: [self position: ((self position max: 0 at 0) grid: 8 at 8).
  				collapsedFrame := self bounds]
  		ifFalse: [fullFrame := self bounds.
  				TopWindow ~~ self ifTrue: [self activate]].
  	^super justDroppedInto: aMorph event: anEvent!



More information about the Squeak-dev mailing list