core: allow passing nil to pickUp:

hpi-swa · Sep 1, 2023 · 4985e1d · 4985e1d
1 parent 5c9c15c
commit 4985e1d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/packages/Sandblocks-Core/SBBlock.class.st b/packages/Sandblocks-Core/SBBlock.class.st
@@ -2210,7 +2210,7 @@ SBBlock >> pickUp: anEvent [
 	self containingBlock ifNotNil: [:b | (b sandblockBlockColorIfAbsent: [nil]) ifNotNil: [:c | s color: c]].
 
 	s addMorphBack: self dragTarget.
-	anEvent hand grabMorph: s.
+	(anEvent ifNotNil: #hand ifNil: [self currentHand]) grabMorph: s.
 	editor
 		select: nil;
 		noteToggleDrag: true.