Inherited methods:
from snip%
adjust-cursor
blink-caret
can-do-edit-operation?
copy
do-edit-operation
draw
equal-hash-code-of
equal-secondary-hash-code-of
equal-to?
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
other-equal-to?
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

button-snip% : class?

  superclass: snip%

A clickable button with a bitmap label.

(new button-snip% [images images] 
  [callback callback]) 
  (is-a?/c button-snip%)
  images : (cons/c path-string? path-string?)
  callback : ((is-a?/c button-snip%) (is-a?/c event%) . -> . void?)
The images argument is a pair filenames to be load as the button-label image, where the first is the image for when the button is at rest, and the second is the image for the button while its pressed.

The callback is called when the button is clicked.