From c4c440e154792dc8f80035c358a175be26191f39 Mon Sep 17 00:00:00 2001
From: Kris <1611248+Rinzwind@users.noreply.github.com>
Date: Fri, 29 Nov 2024 11:56:14 +0100
Subject: [PATCH] Fixed implementors of #transferFrom:event: that no longer
 added #shouldCopy from the TransferMorph to the SpDragAndDropTransfer (added
 in commit 0c0d08ae56b85fa2 but removed in commit 4abd4fa0862be706).

---
 src/Spec2-Adapters-Morphic/SpMorphicTableAdapter.class.st     | 1 +
 src/Spec2-Adapters-Morphic/SpMorphicTreeTableAdapter.class.st | 1 +
 2 files changed, 2 insertions(+)

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