START.applescript aktualisiert

showWelcomeDialogIfNeeded()
angepasst.
Ruft jetzt externen Handler in /Helpers/scripts/_text_about.scpt

START.applescript

@@ -234,28 +234,22 @@ on findConfigInCurrentDB()
 	set configRecord to my findChildByName(configGroupRecord, configRecordName)
 	return configRecord
 end findConfigInCurrentDB
+
 (*
 showWelcomeDialogIfNeeded()
 ---------------------------
-Zeigt den Start-/Willkommensdialog an, falls die Konfiguration dies wünscht.
+Zeigt den Willkommensdialog beim Start an, falls konfiguriert (SHOW_README=true).
 Ablauf:
 1. Config-Datei relativ zur aktuellen Auswahl suchen
-2. Config-Datei lesen
+2. Wert SHOW_README auslesen
-3. Wert SHOW_README auslesen
+3. falls SHOW_README=true -> Dialog mit "Nicht mehr anzeigen"-Option anzeigen
-4. falls SHOW_README=true -> Hinweisdialog anzeigen
+4. falls User "Diesen Dialog nicht mehr anzeigen" wählt:
-5. falls User "Diesen Dialog nicht mehr anzeigen" wählt:
+   -> SHOW_README auf false in der Config zurückschreiben
-   SHOW_README auf false in der Config zurückschreiben
+
-Hinweis:
+Wichtig:
 --------
-START.scpt führt selbst keine Einrichtung und keinen Versand durch.
+Der Dialog-Text wird aus Helpers/scripts/_text_about.scpt geladen.
-Der Dialog ist nur eine Hilfe für Anwender:innen.
+So wird verhindert, dass buildAboutText() doppelt definiert ist.
-Er verweist auf die interne README-Datei in _config.
-Bewusst einfach:
-----------------
-Es gibt hier nur zwei Buttons:
-- "Weiter"
-- "Diesen Dialog nicht mehr anzeigen"
-Die README wird nicht direkt aus dem Dialog geöffnet.
 *)
 on showWelcomeDialogIfNeeded()
 	set configRecord to my findConfigInCurrentDB()
@@ -268,13 +262,17 @@ on showWelcomeDialogIfNeeded()
 	set showReadmeLower to do shell script "printf %s " & quoted form of showReadmeVal & " | tr '[:upper:]' '[:lower:]'"
 	if showReadmeLower is not "true" then return
 
-	set msgText to "Willkommen beim Belegversand, Version 1.4." & return & return & ¬
+	set basePath to (do shell script "echo ~") & "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand"
-		"Mit dieser Funktion kannst du Dokumente aus dieser DEVONthink-Datenbank auswählen, in ein ZIP-Archiv packen und als Mail-Entwurf vorbereiten." & return & return & ¬
+	set textScript to basePath & "/Helpers/scripts/_text_about.scpt"
-		"Anschließend können die verarbeiteten Dokumente mit dem Tag 'gesendet' markiert werden. Der Versand wird zusätzlich in Protokolldateien dokumentiert." & return & return & ¬
+
-		"Hinweise zur Einrichtung und Benutzung findest du in der Datei:" & return & ¬
+	try
-		"README-Belegversand" & return & ¬
+		set loadedScript to load script (POSIX file textScript as alias)
-		"im Ordner:" & return & ¬
+		run loadedScript
-		"_config"
+		set msgText to (tell loadedScript to buildAboutText())
+	on error errMsg
+		display dialog "Fehler beim Laden des About-Textes:" & return & errMsg buttons {"OK"}
+		return
+	end try
 
 	set choice to button returned of (display dialog msgText buttons {"Diesen Dialog nicht mehr anzeigen", "Weiter"} default button "Weiter")
 
@@ -298,6 +296,7 @@ on showWelcomeDialogIfNeeded()
 		end tell
 	end if
 end showWelcomeDialogIfNeeded
+
 (*
 run
 ---
@@ -314,6 +313,11 @@ Dort wird geprüft:
 - oder muss erst eingerichtet werden?
 *)
 on run
+	with timeout of 3600 seconds
+		my showWelcomeDialogIfNeeded()
+		my runSiblingScript(setupScriptName)
+	end timeout
+end run
 
 	with timeout of 3600 seconds