[squeak-dev] The Trunk: ToolBuilder-Morphic-cmm.80.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Nov 8 02:36:52 UTC 2011


Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.80.mcz

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

Name: ToolBuilder-Morphic-cmm.80
Author: cmm
Time: 17 September 2011, 11:00:22.25 pm
UUID: 9356e41c-aff9-40bb-898d-dbaab2405e22
Ancestors: ToolBuilder-Morphic-ul.79

Fix for dragging messages out of filtered PluggableListMorphs.

=============== Diff against ToolBuilder-Morphic-ul.79 ===============

Item was changed:
  ----- Method: PluggableListMorphPlus>>startDrag: (in category 'drag and drop') -----
  startDrag: evt 
  	
  	dragItemSelector ifNil:[^self].
  	evt hand hasSubmorphs ifTrue: [^ self].
  	[ | dragIndex draggedItem ddm |
  	(self dragEnabled and: [model okToChange]) ifFalse: [^ self].
  	dragIndex := self rowAtLocation: evt position.
  	dragIndex = 0 ifTrue:[^self].
+ 	draggedItem := model perform: dragItemSelector with: (self modelIndexFor: dragIndex).
- 	draggedItem := model perform: dragItemSelector with: dragIndex.
  	draggedItem ifNil:[^self].
  	ddm := TransferMorph withPassenger: draggedItem from: self.
  	ddm dragTransferType: #dragTransferPlus.
  	evt hand grabMorph: ddm]
  		ensure: [Cursor normal show.
  			evt hand releaseMouseFocus: self]!




More information about the Squeak-dev mailing list