Merge pull request #1588 from Rinzwind/dragdroptransfer-shouldcopy

Make implementors of #transferFrom:event: add #shouldCopy from the TransferMorph to the SpDragAndDropTransfer
pharo-spec · Sep 11, 2024 · 0c0d08a · 0c0d08a
2 parents d4afe08 + 9502513
commit 0c0d08a
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 1 deletion.
diff --git a/src/Spec2-Adapters-Morphic/SpAbstractMorphicListAdapter.class.st b/src/Spec2-Adapters-Morphic/SpAbstractMorphicListAdapter.class.st
@@ -125,6 +125,7 @@ SpAbstractMorphicListAdapter >> transferFrom: aTransferMorph event: anEvent [
 	rowAndColumn := self widget container rowAndColumnIndexContainingPoint: anEvent position.
 	^ SpDragAndDropTransferToList new
 		passenger: aTransferMorph passenger;
+		shouldCopy: aTransferMorph shouldCopy;
 		index: (rowAndColumn first ifNil: [ 0 ]);
 		yourself
 ]

diff --git a/src/Spec2-Adapters-Morphic/SpDragAndDropTransfer.class.st b/src/Spec2-Adapters-Morphic/SpDragAndDropTransfer.class.st
@@ -2,7 +2,8 @@ Class {
 	#name : 'SpDragAndDropTransfer',
 	#superclass : 'Object',
 	#instVars : [
-		'passenger'
+		'passenger',
+		'shouldCopy'
 	],
 	#category : 'Spec2-Adapters-Morphic-Support',
 	#package : 'Spec2-Adapters-Morphic',
@@ -20,3 +21,15 @@ SpDragAndDropTransfer >> passenger: anObject [
 
 	passenger := anObject
 ]
+
+{ #category : 'accessing' }
+SpDragAndDropTransfer >> shouldCopy [
+
+	^ shouldCopy
+]
+
+{ #category : 'accessing' }
+SpDragAndDropTransfer >> shouldCopy: anObject [
+
+	shouldCopy := anObject
+]
diff --git a/src/Spec2-Adapters-Morphic/SpMorphicTableAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicTableAdapter.class.st
@@ -272,6 +272,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
@@ -493,6 +493,7 @@ SpMorphicTreeTableAdapter >> transferFrom: aTransferMorph event: anEvent [
 
 	^ SpDragAndDropTransferToTree new
 		passenger: aTransferMorph passenger;
+		shouldCopy: aTransferMorph shouldCopy;
 		row: (rowAndColumn first ifNil: [ 0 ]);
 		column: (rowAndColumn second ifNil: [ 0 ]);
 		target: aTarget;