Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples
Left Hand Pointer

MWAPI - Displays

M[UMPS] by Example

Right Hand Pointer

^$DI[SPLAY]

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

Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples

Copyright © Standard Documents; 1977-2017 MUMPS Development Committee;
Copyright © Examples: 1995-2017 Ed de Moel;
Copyright © Annotations: 2003-2017 Jacquard Systems Research.

The information in this page is NOT authoritative and subject to be modified at any moment.
Please consult the appropriate (draft) language standard for an authoritative definition.

Some specifications are "approved for inclusion in a future standard". Note that the MUMPS Development Committee cannot guarantee that such future standards will indeed be published.

This page most recently updated on 30-Nov-2011, 19:43:55 .

For comments, contact Ed de Moel (demoel@jacquardsystems.com)