message%
Implements: 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
set-label).
( -> instantiate message% () (label _) (parent _) [(style _)] [(enabled _)] [(vert-margin _)] [(horiz-margin _)] [(min-width _)] [(min-height _)] [(stretchable-width _)] [(stretchable-height _)])message% object
label : string (up to 200 characters) or bitmap% object
parent : frame%, dialog%, panel%, or pane% object
style = : an empty list of symbols
null
enabled = : boolean
#t
vert-margin = : exact integer in [0, 1000]
2
horiz-margin = : exact integer in [0, 1000]
2
min-width = : exact integer in [0, 10000]
0
min-height = : exact integer in [0, 10000]
0
stretchable-width = : boolean
#f
stretchable-height = : boolean#f
Creates a string or bitmap message initially showing message.
If message is a bitmap, then the bitmap
must be valid (see ok? in bitmap%) and not installed
in a bitmap-dc% object; otherwise, an exn:application:mismatch exception is raised.
If an ampersand (``&'') occurs in
label, it is specially parsed; under Windows and X, the character
following an ampersand is underlined in the displayed control to
indicate a keyboard mnemonic. (Under Mac OS, mnemonic underlines are
not shown.) The mnemonic is meaningless for a message (as far as
on-traverse-char is concerned),
but it is supported for consistentcy with other control types. A
programmer may assign a meaning to the mneumonic, e.g., by overriding
on-traverse-char.
The style argument is provided for future extensions. Currently, style must be the empty list.
For information about the
enabled
argument, see window<%>. For information about the
horiz-margin and vert-margin
arguments, see subarea<%>. For information about the
min-width, min-height, stretchable-width, and stretchable-height
arguments, see area<%>.
Methods
set-label
All Methods
accept-drop-files from window<%>
client->screen from window<%>
command from control<%>
enable from window<%>
focus from window<%>
get-client-size from window<%>
get-cursor from window<%>
get-graphical-min-size from area<%>
get-height from window<%>
get-label from window<%>
get-parent from area<%>
get-plain-label from window<%>
get-size from window<%>
get-top-level-window from area<%>
get-width from window<%>
get-x from window<%>
get-y from window<%>
has-focus? from window<%>
horiz-margin from subarea<%>
is-enabled? from window<%>
is-shown? from window<%>
min-height from area<%>
min-width from area<%>
on-drop-file from window<%>
on-focus from window<%>
on-move from window<%>
on-size from window<%>
on-subwindow-char from window<%>
on-subwindow-event from window<%>
on-superwindow-enable from window<%>
on-superwindow-show from window<%>
popup-menu from window<%>
refresh from window<%>
screen->client from window<%>
set-cursor from window<%>
set-label from message%
overrides set-label from window<%>
show from window<%>
stretchable-height from area<%>
stretchable-width from area<%>
vert-margin from subarea<%>