Public Access
Helpers/about.applescript hinzugefügt
Die About-Box
This commit is contained in:
@@ -0,0 +1,25 @@
|
||||
(*
|
||||
about.applescript
|
||||
------------------
|
||||
About-Dialog für Belegversand.
|
||||
User-sichtbar im DEVONthink-Menü als "About...".
|
||||
Lädt buildAboutText() aus Helpers/scripts/_text_about.scpt (zentrale Textdefinition).
|
||||
*)
|
||||
|
||||
on showAboutDialog()
|
||||
set basePath to (do shell script "echo ~") & "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand"
|
||||
set textScript to basePath & "/Helpers/scripts/_text_about.scpt"
|
||||
|
||||
try
|
||||
set loadedScript to load script (POSIX file textScript as alias)
|
||||
run loadedScript
|
||||
set msgText to (tell loadedScript to buildAboutText())
|
||||
display dialog msgText buttons {"OK"} default button "OK"
|
||||
on error errMsg
|
||||
display dialog "Fehler beim About-Dialog:" & return & errMsg buttons {"OK"} default button "OK"
|
||||
end try
|
||||
end showAboutDialog
|
||||
|
||||
on run
|
||||
showAboutDialog()
|
||||
end run
|
||||
Reference in New Issue
Block a user