The Trunk: ToolBuilder-Morphic-mt.251.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: ToolBuilder-Morphic-mt.251.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:

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

Name: ToolBuilder-Morphic-mt.251
Author: mt
Time: 26 November 2019, 5:31:52.470764 pm
UUID: 668e9ecf-898c-a64f-b8a3-da854a20b0c1
Ancestors: ToolBuilder-Morphic-mt.250

Complements Morphic-mt.1595.

=============== Diff against ToolBuilder-Morphic-mt.250 ===============

Item was changed:
  ----- Method: PluggableListMorphPlus>>startDrag: (in category 'drag and drop') -----
  startDrag: evt
  | item itemMorph modelIndex |
  dragItemSelector ifNil:[^self].
  evt hand hasSubmorphs ifTrue: [^ self].
  self model okToChange ifFalse: [^ self].
  "Ensure selection to save additional click."
  (self modelIndexFor: (self rowAtLocation: evt position)) in: [:evtIndex |
  self selectionIndex = evtIndex ifFalse: [self changeModelSelection: evtIndex]].
  item := self selection ifNil: [^ self].
  itemMorph := StringMorph contents: item asStringOrText.
  modelIndex := self modelIndexFor: self selectionIndex.
  [ "Initiate drag."
  (self model perform: dragItemSelector with: modelIndex) ifNotNil: [:passenger | | ddm |
  ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self.
  ddm dragTransferType: (self dragTypeSelector ifNotNil: [:s | self model perform: s with: modelIndex]).
  ddm updateFromUserInputEvent: evt.
  self dragStartedSelector ifNotNil: [:s | self model perform: s with: itemMorph with: ddm].
+ evt hand grabMorph: ddm.
+ self mouseEnterDragging: evt "Enable internal move"].
+ ] ensure: [Cursor normal show]!
- evt hand grabMorph: ddm].
- ] ensure: [
- Cursor normal show.
- evt hand releaseMouseFocus: self]!