25 lines
818 B
Racket
25 lines
818 B
Racket
#lang scribble/doc
|
|
@(require "common.ss"
|
|
(for-label mrlib/bitmap-label))
|
|
|
|
@title{Bitmap Label}
|
|
|
|
@defmodule[mrlib/bitmap-label]
|
|
|
|
@defproc[(make-bitmap-label [str string?]
|
|
[img (or/c (is-a?/c bitmap%) path-string?)]
|
|
[font (is-a?/c font%) normal-control-font])
|
|
(is-a?/c bitmap%)]{
|
|
|
|
Constructs a bitmap label suitable for use a button that contains the
|
|
image specified by @scheme[img] followed by the text in @scheme[str].}
|
|
|
|
|
|
@defproc[((bitmap-label-maker [str string?]
|
|
[img (or/c (is-a?/c bitmap%) path-string?)])
|
|
[future-parent (is-a?/c area-container<%>)])
|
|
(is-a?/c bitmap%)]{
|
|
|
|
And older variant of @scheme[make-bitmap-label] that obtains a
|
|
font to use from a container @scheme[future-parent].}
|