(button) listener example fails

[daveliepmann]

The example for (button) does not work as written:

(button :text "Next" :mnemonic \N :listen [:action #(alert "NEXT!")])

It appears from experiment that it fails silently because the alert's arity is 0, which does not match its expected arity of 1. Minimal example below.

Fails to alert when button is clicked:

(-> (config! (frame :title "Bug demo")
             :content (button :text "Next"
                              :mnemonic \N
                              :listen [:action #(alert "NEXT")]))
    pack!
    show!)

Alert appears when button is clicked:

(-> (config! (frame :title "Bug demo")
             :content (button :text "Next"
                              :mnemonic \N
                              :listen [:action #(alert %)]))
    pack!
    show!)