From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 21 Jun 2022 21:25:02 +0000 (+0100)
Subject: script: on delete, delete occregion too
X-Git-Tag: otter-1.2.0~7
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=e2591bf9f55b9d7c1cb9517ddd957a2d96a8425f;p=otter.git

script: on delete, delete occregion too

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/templates/script.ts b/templates/script.ts
index f63cd01f..519c6fe6 100644
--- a/templates/script.ts
+++ b/templates/script.ts
@@ -1940,6 +1940,8 @@ pieceops.Delete = <PieceHandler>function
   if (p.held == us) {
     recompute_keybindings();
   }
+  let occregions_changed = occregion_update(piece, p, { occregion: null });
+  if (occregions_changed) redisplay_held_ancillaries();
 }
 
 piece_error_handlers.PosOffTable = <PieceErrorHandler>function()
@@ -2015,7 +2017,7 @@ function piece_modify_core(piece: PieceId, p: PieceInfo,
   console.log('MODIFY DONE');
 }
 function occregion_update(piece: PieceId, p: PieceInfo,
-			  info: PreparedPieceState) {
+			  info: { occregion: string | null } ) {
   let occregions_changed = (
     info.occregion != null
       ? occregions.insert(piece, info.occregion)