text-button-snip% : class?

superclass: snip%

A button with a text label.

(new text-button-snip%   [label label]       [callback callback])

→ (is-a?/c text-button-snip%)

label : string?

callback : ((is-a?/c text-button-snip%) (is-a?/c event%) . -> . void)

The callback is called when the button is clicked.