[squeak-dev] The Inbox: Morphic-pre.1329.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 15 15:16:31 UTC 2017


A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-pre.1329.mcz

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

Name: Morphic-pre.1329
Author: pre
Time: 15 March 2017, 4:16:07.772309 pm
UUID: bb5c49b1-402a-9443-b129-ae2e0f250f8f
Ancestors: Morphic-edc.1328

Changes the accept dropping behavior of the world to open the morph for a dropped object where it was dropped.

=============== Diff against Morphic-edc.1328 ===============

Item was changed:
  ----- Method: PasteUpMorph>>acceptDroppingMorph:event: (in category 'dropping/grabbing') -----
  acceptDroppingMorph: dropped event: evt
  	"The supplied morph, known to be acceptable to the receiver, is now to be assimilated; the precipitating event is supplied"
  
  	| aMorph |
  	aMorph := self morphToDropFrom: dropped.
  	self isWorldMorph
  		ifTrue:["Add the given morph to this world and start stepping it if it wants to be."
+ 				aMorph position: evt position.	
  				self addMorphFront: aMorph.
  				(aMorph fullBounds intersects: self viewBox) ifFalse:
  					[Beeper beep.  aMorph position: self bounds center]]
  		ifFalse:[super acceptDroppingMorph: aMorph event: evt].
  
  	aMorph submorphsDo: [:m | (m isKindOf: HaloMorph) ifTrue: [m delete]].
  	aMorph allMorphsDo:  "Establish any penDown morphs in new world"
  		[:m | | tfm mm |
  		m player ifNotNil:
  			[m player getPenDown ifTrue:
  				[((mm := m player costume) notNil and: [(tfm := mm owner transformFrom: self) notNil])
  					ifTrue: [self noteNewLocation: (tfm localPointToGlobal: mm referencePosition)
  									forPlayer: m player]]]].
  
  	self isPartsBin
  		ifTrue:
  			[aMorph isPartsDonor: true.
  			aMorph stopSteppingSelfAndSubmorphs.
  			aMorph suspendEventHandler]
  		ifFalse:
  			[self world startSteppingSubmorphsOf: aMorph].
  
  "	self presenter morph: aMorph droppedIntoPasteUpMorph: self."
  	self griddingOn ifTrue: [aMorph position: (self gridPoint: aMorph position)].
  	self showingListView ifTrue:
  		[self sortSubmorphsBy: (self valueOfProperty: #sortOrder).
  		self currentWorld abandonAllHalos].
  
  	self bringTopmostsToFront.
  !



More information about the Squeak-dev mailing list