[Pkg] The Trunk: Morphic-mt.869.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 14 07:28:49 UTC 2015


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

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

Name: Morphic-mt.869
Author: mt
Time: 14 April 2015, 9:28:12.825 am
UUID: 4af45ac7-0ca2-3940-bdd5-205c009a434c
Ancestors: Morphic-mt.868

Fixed resize-after-drop to work only for the initial drop.

=============== Diff against Morphic-mt.868 ===============

Item was changed:
  ----- Method: SystemWindow>>justDroppedInto:event: (in category 'geometry') -----
  justDroppedInto: aMorph event: anEvent
  
+ 	(ToolBuilder openToolsAttachedToMouseCursor and: (self hasProperty: #initialDrop))
+ 		ifTrue: [
+ 			self removeProperty: #initialDrop.
+ 			(self submorphs detect: [:m | m isKindOf: BottomRightGripMorph] ifNone: [])
+ 				ifNotNil: [:grip | 
+ 					grip referencePoint: anEvent position.
+ 					anEvent hand newMouseFocus: grip]].
- 	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 Packages mailing list