Inherited methods:
from snip%
adjust-cursor
blink-caret
can-do-edit-operation?
copy
do-edit-operation
draw
find-scroll-step
get-admin
get-count
get-extent
get-flags
get-num-scroll-steps
get-scroll-step-offset
get-snipclass
get-style
get-text
get-text!
is-owned?
match?
merge-with
next
on-char
on-event
own-caret
partial-offset
previous
release-from-owner
resize
set-admin
set-count
set-flags
set-snipclass
set-style
set-unmodified
size-cache-invalid
split
write

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.