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).
( -> new 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), bitmap% object, 'app, 'caution, or 'stop
parent : frame%, dialog%, panel%, or pane% object
style = : list of symbols in null'(deleted)
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. An 'app, 'caution,
or 'stop symbol for label indicates an icon;
'app is the application icon (Windows and Mac OS) or a
generic ``info'' icon (X), 'caution is a caution-sign icon,
and 'stop a stop-sign icon.
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.
If style includes 'deleted, then the message is created as hidden,
and it does not affect its parent's geometry; the message can be made active later by calling
parent's add-child method.
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<%>