feat(mover): Report keyboard moves to WorkspaceSvg (#485)

* feat(mover): Report keyboard moves to WorkspaceSvg

  Call Workspace.prototype.setKeyboardMoveInProgress at the beginning
  and end of each keyboard-initiated move.

* chore(Mover): Remove obsolete WorkspaceSvg monkey patching

Author: cpcallen

src/actions/mover.ts

@@ -117,7 +117,6 @@ export class Mover {
     block: BlockSvg,
     insertStartPoint: RenderedConnection | null,
   ) {
-    this.patchWorkspace(workspace);
     this.patchDragStrategy(block, insertStartPoint);
     // Begin dragging block.
     const DraggerClass = registry.getClassFromOptions(
@@ -128,6 +127,7 @@ export class Mover {
     if (!DraggerClass) throw new Error('no Dragger registered');
     const dragger = new DraggerClass(block, workspace);
     // Record that a move is in progress and start dragging.
+    workspace.setKeyboardMoveInProgress(true);
     const info = new MoveInfo(block, dragger);
     this.moves.set(workspace, info);
     // Begin drag.
@@ -158,9 +158,9 @@ export class Mover {
       new utils.Coordinate(0, 0),
     );
 
-    this.unpatchWorkspace(workspace);
     this.unpatchDragStrategy(info.block);
     this.moves.delete(workspace);
+    workspace.setKeyboardMoveInProgress(false);
     // Delay scroll until after block has finished moving.
     setTimeout(() => this.scrollCurrentBlockIntoView(workspace), 0);
     // If the block gets reattached, ensure it retains focus.
@@ -206,9 +206,9 @@ export class Mover {
       if (newNode) workspace.getCursor()?.setCurNode(newNode);
     }
 
-    this.unpatchWorkspace(workspace);
     this.unpatchDragStrategy(info.block);
     this.moves.delete(workspace);
+    workspace.setKeyboardMoveInProgress(false);
     // Delay scroll until after block has finished moving.
     setTimeout(() => this.scrollCurrentBlockIntoView(workspace), 0);
     // If the block gets reattached, ensure it retains focus.
@@ -261,45 +261,6 @@ export class Mover {
     return true;
   }
 
-  /**
-   * Monkeypatch over workspace functions to consider keyboard drags as
-   * well as mouse/pointer drags.
-   *
-   * @param workspace The workspace to patch.
-   */
-  private patchWorkspace(workspace: WorkspaceSvg) {
-    // Keyboard drags are real drags.
-    this.oldIsDragging = workspace.isDragging;
-    // eslint-disable-next-line @typescript-eslint/no-explicit-any
-    (workspace as any).isDragging = () => this.isMoving(workspace);
-
-    // Ignore mouse/pointer events during keyboard drags.
-    this.oldGetGesture = workspace.getGesture;
-    // eslint-disable-next-line @typescript-eslint/no-explicit-any
-    (workspace as any).getGesture = (e: PointerEvent) => {
-      // Normally these would be called from Gesture.doStart.
-      e.preventDefault();
-      e.stopPropagation();
-      return null;
-    };
-  }
-
-  /**
-   * Remove monkeypatches on the workspace.
-   *
-   * @param workspace The workspace to unpatch.
-   */
-  private unpatchWorkspace(workspace: WorkspaceSvg) {
-    if (this.oldIsDragging) {
-      // eslint-disable-next-line @typescript-eslint/no-explicit-any
-      (workspace as any).isDragging = this.oldIsDragging;
-    }
-    if (this.oldGetGesture) {
-      // eslint-disable-next-line @typescript-eslint/no-explicit-any
-      (workspace as any).getGesture = this.oldGetGesture;
-    }
-  }
-
   /**
    * Monkeypatch: replace the block's drag strategy and cache the old value.
    *