1#lang scribble/doc
2@(require "common.rkt")
3
4@defclass/title[embedded-button% snip-wrapper% (alignment<%>)]{
5
6A clickable button with a bitmap label.
7
8@defconstructor[([images (cons/c path-string? path-string?)]
9                 [callback ((is-a?/c button-snip%) (is-a?/c event%) . -> . void?)])]{
10
11The @racket[images] argument is a pair filenames to be load as the
12button-label image, where the first is the image for when the button
13is at rest, and the second is the image for the button while its
14pressed.
15
16The @racket[callback] is called when the button is clicked.}
17
18}
19