#reader(lib "defreader.ss" "scribble")
@require["common.ss"]

@defclass[message% object% (control<%>)]{

A message control is a static line of text or a static bitmap. The
 text or bitmap corresponds to the message's label (see
@method[window<%> set-label]).




@defconstructor[[label {\labelstring}, @scheme[bitmap%] object, @scheme['app], @scheme['caution], or @scheme['stop]]
                [parent (or/c (is-a/c frame%) (is-a/c dialog%) (is-a/c panel%) (is-a/c pane%))]
                [style (symbols/c deleted) null]
                [font (is-a/c font%) @scheme[normal-control-font]]
                [enabled any/c #t]
                [vert-margin (integer-in 0 1000) 2]
                [horiz-margin (integer-in 0 1000) 2]
                [min-width (integer-in 0 10000) {\rm graphical minimum width}]
                [min-height (integer-in 0 10000) {\rm graphical minimum height}]
                [stretchable-width any/c #f]
                [stretchable-height any/c #f]]{

Creates a string or bitmap message initially showing @scheme[label].
 @bitmaplabeluse[label] An @indexed-scheme['app], @indexed-scheme['caution],
 or @indexed-scheme['stop] symbol for @scheme[label] indicates an icon;
 @scheme['app] is the application icon (Windows and Mac OS X) or a
 generic ``info'' icon (X), @scheme['caution] is a caution-sign icon,
 and @scheme['stop] a stop-sign icon.

@labelstripped[(scheme label) @elem{message}]

\DeletedStyleNote{message}

@FontKWs[] @WindowKWs[] @SubareaKWs[] @AreaKWs[]



}

@defmethod[#:mode 'add 
           (set-label [label (is-a/c bitmap%)])
           void?]{
@impl{

Sets the bitmap label for a bitmap message.
 @bitmaplabeluseisbm[label] @|bitmapiforiglabel|



}}}