------------------------------------------------------------------ -- -- NAME: WSR_SET_BUNDLE_INDICES -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: WSR_SET_BUNDLE_IDC.ADA -- level: 0a,1a,2a,0b,1b,2b,0c,1c,2c with GKS_TYPES; with WS_STATE_LIST_TYPES; use GKS_TYPES; package WSR_SET_BUNDLE_INDICES is -- Each procedure is passed a pointer to the workstation state -- list which is declared in WS_STATE_LIST_TYPES. GKS_TYPES -- contains the type declarations of the other parameters. -- The attribute field in the workstation state list is -- set in each procedure and effective attributes are updated -- if they are bundled and the bundle has previously been set. procedure SET_POLYLINE_INDEX (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; INDEX : in POLYLINE_INDEX); procedure SET_POLYMARKER_INDEX (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; INDEX : in POLYMARKER_INDEX); procedure SET_TEXT_INDEX (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; INDEX : in TEXT_INDEX); procedure SET_FILL_AREA_INDEX (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; INDEX : in FILL_AREA_INDEX); end WSR_SET_BUNDLE_INDICES;