summaryrefslogtreecommitdiff
path: root/misc/hooks/asmessage.applescript
blob: 15ba94dc37a472f04168d7eb012129d6f03a0ec1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
on run argv
    set vButtons to { "OK" }
    set vButtonCodes to { 0 }
    set vDbutton to "OK"
    set vText to ""
    set vTitle to ""
    set vTimeout to -1

    repeat with i from 1 to length of argv
        try
            set vArg to item i of argv
            if vArg = "-buttons" then
                set vButtonsAndCodes to my fSplit(item (i + 1) of argv, ",")
                set vButtons to {}
                set vButtonCodes to {}
                repeat with j from 1 to length of vButtonsAndCodes
                    set vBtn to my fSplit(item j of vButtonsAndCodes, ":")
                    copy (item 1 of vBtn) to the end of the vButtons
                    copy (item 2 of vBtn) to the end of the vButtonCodes
                end repeat
            else if vArg = "-title" then
                set vTitle to item (i + 1) of argv
            else if vArg = "-center" then
                -- not supported
            else if vArg = "-default" then
                set vDbutton to item (i + 1) of argv
            else if vArg = "-geometry" then
                -- not supported
            else if vArg = "-nearmouse" then
                -- not supported
            else if vArg = "-timeout" then
                set vTimeout to item (i + 1) of argv as integer
            else if vArg = "-file" then
                set vText to read (item (i + 1) of argv) as string
            else if vArg = "-text" then
                set vText to item (i + 1) of argv
            end if
        end try
    end repeat

    set vDlg to display dialog vText buttons vButtons default button vDbutton with title vTitle giving up after vTimeout with icon stop
    set vRet to button returned of vDlg
    repeat with i from 1 to length of vButtons
        set vBtn to item i of vButtons
        if vBtn = vRet
            return item i of vButtonCodes
        end if
    end repeat

    return 0
end run

on fSplit(vString, vDelimiter)
    set oldDelimiters to AppleScript's text item delimiters
    set AppleScript's text item delimiters to vDelimiter
    set vArray to every text item of vString
    set AppleScript's text item delimiters to oldDelimiters
    return vArray
end fSplit