------------------------------------------------------------------ -- -- NAME: WSR_INQ_WS_STATE_LIST_0A - BODY -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- File: WSR_INQ_WS_ST_0A_B.ADA -- Level: 0A, 1A, 2A package body WSR_INQ_WS_STATE_LIST_0A is procedure INQ_WS_DEFERRAL_AND_UPDATE_STATES (WS_STATE_LIST : in out WS_STATE_LIST_TYPES . WS_STATE_LIST_PTR; DEFERRAL : out GKS_TYPES . DEFERRAL_MODE; REGENERATION_MODE : out GKS_TYPES . REGENERATION_MODE; DISPLAY_SURFACE_EMPTY : out GKS_TYPES . DISPLAY_SURFACE_EMPTY; NEW_FRAME_NECESSARY : out GKS_TYPES . NEW_FRAME_NECESSARY) is -- This procedure merely returns a group of components from the -- Workstation State List passed to it. Since WS_STATE_LIST_TYPES . -- WS_STATE_LIST_PTR is an open data type, this procedure provides -- convenience, but no other functionality. -- -- WS_STATE_LIST - A pointer to the workstation state list. -- DEFERRAL - Returns one of the four GKS deferral modes, which -- controls the possible delay of output functions. -- REGENERATION_MODE - Returns one of the two GKS regeneration -- modes, which controls the suppression of -- of implicit regeneration of the whole picture. -- DISPLAY_SURFACE_EMPTY - Indicates whether the display surface is -- empty. -- NEW_FRAME_NECESSARY - Indicates whether a new frame action is -- necessary at update. begin DEFERRAL := WS_STATE_LIST . WS_DEFERRAL_MODE; REGENERATION_MODE := WS_STATE_LIST . WS_IMPLICIT_REGEN_MODE; DISPLAY_SURFACE_EMPTY := WS_STATE_LIST . WS_DISPLAY_SURFACE; NEW_FRAME_NECESSARY := WS_STATE_LIST . WS_NEW_FRAME_ACTION; end INQ_WS_DEFERRAL_AND_UPDATE_STATES; procedure INQ_WS_STATE (WS_STATE_LIST : in out WS_STATE_LIST_TYPES . WS_STATE_LIST_PTR; STATE : out GKS_TYPES . WS_STATE) is -- This procedure returns the state of the workstation, which -- is ACTIVE or INACTIVE. -- -- WS_STATE_LIST - A pointer to the workstation state list. -- STATE - Indicates the state of the workstation. begin STATE := WS_STATE_LIST . WS_STATE; end INQ_WS_STATE; end WSR_INQ_WS_STATE_LIST_0A;