Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2101.mcz
==================== Summary ====================
Name: Morphic-mt.2101 Author: mt Time: 5 April 2023, 11:37:16.364931 am UUID: 34cd7139-f586-2341-add3-2f96e52222d0 Ancestors: Morphic-mt.2100
Complements Tools-mt.1196
=============== Diff against Morphic-mt.2100 ===============
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 | (self isWorldMorph and: [dropped isTransferMorph] and: [self hasTransferMorphConverter not]) ifTrue: [ dropped dragTransferType = #filesAndDirectories ifTrue: [^ self dropFiles: dropped passenger event: evt]. dropped dragTransferType = #sourceCode ifTrue: [^ self dropSourceCode: dropped passenger event: evt]. dropped dragTransferType = #inspectorField "See Tools-Inspector" + ifTrue: [^ self dropInspectorField: dropped passenger event: evt]. + dropped dragTransferType = #explorerField "See Tools-Explorer" + ifTrue: [^ self dropExplorerField: dropped passenger from: dropped source model event: evt]]. - ifTrue: [^ self dropInspectorField: dropped passenger event: evt]]. aMorph := self morphToDropFrom: dropped. self isWorldMorph ifFalse: [super acceptDroppingMorph: aMorph event: evt] ifTrue: ["Add the given morph to this world and start stepping it if it wants to be." aMorph isInWorld ifFalse: [aMorph position: evt position]. self addMorphFront: aMorph. (aMorph fullBounds intersects: self viewBox) ifFalse: [Beeper beep. aMorph position: self bounds center]]. 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 showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]. self bringTopmostsToFront.!
Item was added: + ----- Method: PasteUpMorph>>dropExplorerField:from:event: (in category 'event handling') ----- + dropExplorerField: anExplorerField from: anExplorer event: evt + "Create a self-updating morph that serves as a compact watcher for the dropped explorer field." + + | scope | + scope := anExplorer currentParent + ifNil: [Dictionary newFrom: {anExplorerField} "root"] + ifNotNil: [:parent | parent value]. + (scope inspectorClass on: scope) fields + detect: [:field | field name = anExplorerField key + or: [field name = anExplorerField key printString]] + ifFound: [:inspectorField | + self + dropInspectorField: inspectorField rememberInspector + event: evt].!
Item was changed: ----- Method: PasteUpMorph>>wantsDroppedTransferMorph: (in category 'dropping/grabbing') ----- wantsDroppedTransferMorph: transferMorph
+ ^ (((self hasTransferMorphConverter - ^ ((self hasTransferMorphConverter or: [transferMorph dragTransferType = #filesAndDirectories]) or: [transferMorph dragTransferType = #sourceCode]) + or: [transferMorph dragTransferType = #inspectorField "See Tools-Inspector"]) + or: [transferMorph dragTransferType = #explorerField "See Tools-Explorer"]! - or: [transferMorph dragTransferType = #inspectorField "See Tools-Inspector"]!