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.