☜	MWAPI - Displays M[UMPS] by Example					☞

^$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

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

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 14-Nov-2023, 21:56:57.

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