------------------------------------------------------------------ -- -- NAME: WSR_SET_PRIMITIVE_ATTRIBUTES_MA -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: WSR_SET_PRIM_MA.ADA -- level: ma,0a,1a,2a with GKS_TYPES; with WS_STATE_LIST_TYPES; with WS_DESCRIPTION_TABLE_TYPES; use GKS_TYPES; package WSR_SET_PRIMITIVE_ATTRIBUTES_MA is -- This package is a workstation resource package. It can be used by -- any workstation that needs to have the primitive attributes changed -- in its workstation state list. procedure SET_CHAR_VECTORS (WS_ST_LST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; CHAR_HEIGHT_VECTOR : in NDC.VECTOR; CHAR_WIDTH_VECTOR : in NDC.VECTOR); procedure SET_TEXT_ALIGNMENT (WS_ST_LST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; ALIGNMENT : in TEXT_ALIGNMENT); end WSR_SET_PRIMITIVE_ATTRIBUTES_MA;