Varioförderer Aufbau enthält jetzt einen Historien Stack. Beim Abbruch können alle Elemente wiederhergestellt werden und dann einfach weiter gebaut.

2026-08-25 16:09:22 +02:00
parent f5d0e57132
commit 236808f4dc
5 changed files with 571 additions and 111 deletions
@@ -1198,6 +1198,11 @@
  ;; Marker (Linienzug/Altbestand) werden abgewiesen.
  (if (= (car xd) "etage")
    (progn (vfe-edit-ent ent) (ssg-end) (exit)))
+  ;; Linienzug-Bloecke tragen als Marker "linienzug" + serialisiertes Eingabe-
+  ;; Journal (vf_linienzug.lsp). Der Edit-Zweig laesst Glieder zuruecknehmen und
+  ;; baut die Kette per Replay neu auf.
+  (if (= (car xd) "linienzug")
+    (progn (vfl-edit-ent ent) (ssg-end) (exit)))
  (if (/= (car xd) "standard")
    (progn (alert (ssg-textf "vfs-edit-keine-xdata" (list bname))) (ssg-end) (exit)))