------------------------------------------------------------------
--
--  NAME: GET_INPUT_MC
--  DISCREPANCY REPORTS:
--
------------------------------------------------------------------
-- file:  get_input_mc.ada
-- level: mc, 0c, 1c, 2c

with GKS_TYPES;

use GKS_TYPES;

package GET_INPUT_MC is

-- This is the package for the procedures for sampling
-- the input functions at level mc.

   procedure GET_LOCATOR
      (TRANSFORMATION : out TRANSFORMATION_NUMBER;
       POSITION       : out WC.POINT);

   procedure GET_STROKE
      (TRANSFORMATION : out TRANSFORMATION_NUMBER;
       STROKE_POINTS  : out WC.POINT_LIST);

   procedure GET_VALUATOR
      (VALUE  : out VALUATOR_INPUT_VALUE);

   procedure GET_CHOICE
      (STATUS        : out CHOICE_STATUS;
       CHOICE_NUMBER : out CHOICE_VALUE);

   procedure GET_STRING
      (CHAR_STRING : out INPUT_STRING);

end GET_INPUT_MC;