Public Access
26 lines
812 B
AppleScript
26 lines
812 B
AppleScript
(*
|
|
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
|