Introduced in the 1995 ANSI M[UMPS] Windowing Application Programmer's Interface standard.
This structured system variable provides information about the displays that are currently known to the M[UMPS] process.
WRITE !,"Currently known displays:"
SET D=""
FOR SET D=$ORDER(^$DISPLAY(D)) QUIT:D="" DO
. WRITE !,D
. SET K=$DATA(^$DISPLAY(D,"KEYBOARD"))
. IF K WRITE ?30,"has a keyboard attached.",!
. SET P=$DATA(^$DISPLAY(D,"PEN"))
. IF P WRITE ?30,"has a pen attached.",!
. SET M=$DATA(^$DISPLAY(D,"PTR"))
. IF M WRITE ?30,"has a mouse attached.",!
. SET C=^$DISPLAY(D,"COLORTYPE")
. SET N=^$DISPLAY(D,"SPECTRUM")
. WRITE ?30,"This display shows ",C," colors"
. WRITE " in ",N," shades."
. SET W=^$DISPLAY(D,"PLATFORM")
. WRITE !?30,"Windowing system is ",W,"."
. SET U=^$DISPLAY(D,"UNITS")
. SET S=^$DISPLAY(D,"SIZE")
. WRITE !?30,"Area is ",$PIECE(S,",",1)," ",U
. WRITE " by ",$PIECE(S,",",2)," ",U,"."
. WRITE !?30,"Child-windows will inherit:"
. SET BACK=^$DISPLAY(D,"BCOLOR")
. SET FORE=^$DISPLAY(D,"FCOLOR")
. WRITE !?30,"Background color ",BACK"
. WRITE ", foreground color ",FORE,".",!
. SET APP=^$DISPLAY(D,"COLOR")
. WRITE !?30,"Application area color: ",APP
. QUIT
In addition, information about displayable fonts is available:
SET F="",T="TYPEFACE"
FOR SET F=$ORDER(^$DISPLAY(D,T,F) QUIT:F="" DO
. WRITE !,"Font face is ",F,": "
. SET ANY=0
. SET S=""
. FOR SET S=$ORDER(^$DISPLAY(D,T,F,S)) QUIT:S="" DO
. . WRITE $SELECT(ANY:", ",1:" size(s) ")
. . WRITE:$X>60 !?10 WRITE S SET ANY=1
. . QUIT
. QUIT
QUIT
This document is © Ed de Moel, 1995-2005.
It is part of a book by Ed de Moel that is published
under the title "M[UMPS] by Example" (ISBN 0-918118-42-5).
Printed copies of the book are no longer available.
This document describes the various special (system) variables that are defined in the M[UMPS] language standard (ANSI X11.1, ISO 11756).
The information in this document is NOT authoritative
and subject to be modified at any moment.
Please consult the appropriate (draft) language standard for an
authoritative definition.
In this document, information is included that will
appear in
future standards.
The MDC cannot guarantee that these 'next'
standards will indeed appear.