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