diff --git a/src/Spec2-Adapters-Morphic/SpMorphicTableAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicTableAdapter.class.st index c82f5560..e4ac1bfc 100644 --- a/src/Spec2-Adapters-Morphic/SpMorphicTableAdapter.class.st +++ b/src/Spec2-Adapters-Morphic/SpMorphicTableAdapter.class.st @@ -271,6 +271,7 @@ SpMorphicTableAdapter >> transferFrom: aTransferMorph event: anEvent [ rowAndColumn := self widget container rowAndColumnIndexContainingPoint: anEvent position. ^ SpDragAndDropTransferToTable new passenger: aTransferMorph passenger; + shouldCopy: aTransferMorph shouldCopy; row: (rowAndColumn first ifNil: [ 0 ]); column: (rowAndColumn second ifNil: [ 0 ]); yourself diff --git a/src/Spec2-Adapters-Morphic/SpMorphicTreeTableAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicTreeTableAdapter.class.st index 4558e802..6b6ce9e8 100644 --- a/src/Spec2-Adapters-Morphic/SpMorphicTreeTableAdapter.class.st +++ b/src/Spec2-Adapters-Morphic/SpMorphicTreeTableAdapter.class.st @@ -493,6 +493,7 @@ SpMorphicTreeTableAdapter >> transferFrom: aTransferMorph event: anEvent [ ^ SpDragAndDropTransferToTree new passenger: aTransferMorph passenger; row: (rowAndColumn first ifNil: [ 0 ]); + shouldCopy: aTransferMorph shouldCopy; column: (rowAndColumn second ifNil: [ 0 ]); target: aTarget; yourself