14 lines
332 B
Racket
14 lines
332 B
Racket
#lang scribble/doc
|
|
@(require "common.rkt")
|
|
|
|
@defclass/title[embedded-text-button% snip-wrapper% (alignment<%>)]{
|
|
|
|
A button with a text label.
|
|
|
|
@defconstructor[([label string?]
|
|
[callback ((is-a?/c text-button-snip%) (is-a?/c event%) . -> . void?)])]{
|
|
|
|
The @scheme[callback] is called when the button is clicked.}
|
|
|
|
}
|