Bugs on Cluster corrected

2026-01-14 13:33:33 +01:00
parent 9387a58080
commit 8f046a3855
1 changed files with 2 additions and 1 deletions
--- a/PBMap.pb
+++ b/PBMap.pb
@@ -880,6 +880,7 @@ Module PBMap
          *Cluster\Focus = #False
          *Cluster\CellX = cellX
          *Cluster\CellY = cellY
+          AddMapElement(ClusterIndex(), key)
          ClusterIndex() = *Cluster
        EndIf
        
@@ -3317,4 +3318,4 @@ EndModule
 ; FirstLine = 40
 ; Folding = ---------------------
 ; EnableThread
-; EnableXP
+; EnableXP