------------------------------------------------------------------ -- -- NAME: INQ_WS_STATE_LIST_1A -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: INQ_WS_ST_LST.ADA -- level: 1a, 2a with GKS_TYPES; use GKS_TYPES; package INQ_WS_STATE_LIST_1a is -- The package INQ_WS_STATE_LIST_1a contains procedures that inquire -- from the workstation state list. procedure INQ_LIST_OF_POLYLINE_INDICES (WS : in WS_ID; ERROR_INDICATOR : out ERROR_NUMBER; INDICES : out POLYLINE_INDICES.LIST_OF); procedure INQ_POLYLINE_REPRESENTATION (WS : in WS_ID; INDEX : in POLYLINE_INDEX; RETURNED_VALUES : in RETURN_VALUE_TYPE; ERROR_INDICATOR : out ERROR_NUMBER; TYPE_OF_LINE : out LINETYPE; WIDTH : out LINEWIDTH; LINE_COLOUR : out COLOUR_INDEX); procedure INQ_LIST_OF_POLYMARKER_INDICES (WS : in WS_ID; ERROR_INDICATOR : out ERROR_NUMBER; INDICES : out POLYMARKER_INDICES.LIST_OF); procedure INQ_POLYMARKER_REPRESENTATION (WS : in WS_ID; INDEX : in POLYMARKER_INDEX; RETURNED_VALUES : in RETURN_VALUE_TYPE; ERROR_INDICATOR : out ERROR_NUMBER; TYPE_OF_MARKER : out MARKER_TYPE; SIZE : out MARKER_SIZE; MARKER_COLOUR : out COLOUR_INDEX); procedure INQ_LIST_OF_TEXT_INDICES (WS : in WS_ID; ERROR_INDICATOR : out ERROR_NUMBER; INDICES : out TEXT_INDICES.LIST_OF); procedure INQ_TEXT_REPRESENTATION (WS : in WS_ID; INDEX : in TEXT_INDEX; RETURNED_VALUES : in RETURN_VALUE_TYPE; ERROR_INDICATOR : out ERROR_NUMBER; FONT_PRECISION : out TEXT_FONT_PRECISION; EXPANSION : out CHAR_EXPANSION; SPACING : out CHAR_SPACING; TEXT_COLOUR : out COLOUR_INDEX); procedure INQ_LIST_OF_FILL_AREA_INDICES (WS : in WS_ID; ERROR_INDICATOR : out ERROR_NUMBER; INDICES : out FILL_AREA_INDICES.LIST_OF); procedure INQ_FILL_AREA_REPRESENTATION (WS : in WS_ID; INDEX : in FILL_AREA_INDEX; RETURNED_VALUES : in RETURN_VALUE_TYPE; ERROR_INDICATOR : out ERROR_NUMBER; INTERIOR : out INTERIOR_STYLE; STYLE : out STYLE_INDEX; FILL_AREA_COLOUR: out COLOUR_INDEX); procedure INQ_LIST_OF_PATTERN_INDICES (WS : in WS_ID; ERROR_INDICATOR : out ERROR_NUMBER; INDICES : out PATTERN_INDICES.LIST_OF); procedure INQ_PATTERN_REPRESENTATION (WS : in WS_ID; INDEX : in PATTERN_INDEX; RETURNED_VALUES : in RETURN_VALUE_TYPE; ERROR_INDICATOR : out ERROR_NUMBER; PATTERN : out VARIABLE_COLOUR_MATRIX); procedure INQ_SET_OF_SEGMENT_NAMES_ON_WS (WS : in WS_ID; ERROR_INDICATOR : out ERROR_NUMBER; SEGMENTS : out SEGMENT_NAMES.LIST_OF); end INQ_WS_STATE_LIST_1a;