fix: prevent dragging blocks into the slot occupied by the procedure definition block's example caller block (#118)

* fix: prevent replacing the procedure definition block's example caller block

* chore: remove errant logging

Author: gonfunko

src/index.js

@@ -38,6 +38,7 @@ import { ScratchContinuousToolbox } from "./scratch_continuous_toolbox.js";
 import "./scratch_continuous_category.js";
 import "./scratch_comment_icon.js";
 import "./scratch_variable_model.js";
+import "./scratch_connection_checker.js";
 import "./events_block_comment_change.js";
 import "./events_block_comment_collapse.js";
 import "./events_block_comment_create.js";

src/scratch_connection_checker.js

@@ -0,0 +1,29 @@
+/**
+ * @license
+ * Copyright 2024 Google LLC
+ * SPDX-License-Identifier: Apache-2.0
+ */
+
+import * as Blockly from "blockly/core";
+
+class ScratchConnectionChecker extends Blockly.ConnectionChecker {
+  // This check prevents dragging a block into the slot occupied by the
+  // procedure caller example block in a procedure definition block.
+  doDragChecks(a, b, distance) {
+    if (
+      b.getSourceBlock().type === "procedures_definition" &&
+      b.getParentInput()?.name === "custom_block"
+    ) {
+      return false;
+    }
+
+    return super.doDragChecks(a, b, distance);
+  }
+}
+
+Blockly.registry.register(
+  Blockly.registry.Type.CONNECTION_CHECKER,
+  Blockly.registry.DEFAULT,
+  ScratchConnectionChecker,
+  true
+);