From 3d5ae9a8796f8de11875e6cfc83418f1cc0525a3 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Sat, 29 Aug 2026 09:51:19 +0200 Subject: [PATCH] [FIX] vf-frage-element-winkel: GUI-Aus-Schalter respektieren vf-frage-element-winkel (AS/ES-Winkel 30/90) pruefte *vfl-wizard-mode* direkt und oeffnete den vflw-wahl-Dialog auch bei abgeschalteter GUI - dadurch kam im automatischen TEST_LINIENZUG trotz (ssg-gui-aus) die AS-Element-Winkel-Abfrage als Dialog hoch. Jetzt zusaetzlich (ssg-gui-p)-Guard wie in vfl-wizard-mode-p: bei GUI-aus faellt die Abfrage auf getstring (Mock-Queue im Test). War die letzte ungeguardete Wizard-Dialog-Eintrittsstelle. Co-Authored-By: Claude Opus 4.8 (1M context) --- Lisp/vf_core.lsp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Lisp/vf_core.lsp b/Lisp/vf_core.lsp index bb2a471..a7b7ccd 100644 --- a/Lisp/vf_core.lsp +++ b/Lisp/vf_core.lsp @@ -601,8 +601,11 @@ ;; (princ + getstring, de/en ueber ssg-text). Gemeinsam genutzt von ;; Gefaellestrecke.lsp UND vf_linienzug.lsp. (defun vf-frage-element-winkel (headerkey / antwort) + ;; Wizard-Dialog nur, wenn Wizard-Modus aktiv, vflw-wahl geladen UND die GUI + ;; global nicht abgeschaltet ist (Tests: (ssg-gui-aus)) - sonst Konsole/getstring. (if (and (boundp '*vfl-wizard-mode*) *vfl-wizard-mode* - (car (atoms-family 1 '("VFLW-WAHL")))) + (car (atoms-family 1 '("VFLW-WAHL"))) + (or (not (car (atoms-family 1 '("SSG-GUI-P")))) (ssg-gui-p))) (progn (setq antwort (vl-catch-all-apply 'vflw-wahl