---------------------------------------------------------------
--                                                           
--  RAPID - Rapid Ada Portable Interface Designer
--                                                           
--  MCC.TEXT_ENTRY_TYPES 
--  Description : specifies types for auto-fill of Text_Entry
--                       
--  By: Martin Carlisle
--                                         
-- RAPID is free software; you can redistribute it and/or 
-- modify it without restriction.  However, we ask that you
-- please retain the original author information, and clearly  
-- indicate if it has been modified.
--
-- RAPID is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty
-- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
--
---------------------------------------------------------------
package mcc.text_entry_types is

   type Base_Type is (Unbounded_String, Integer, Enumeration, Float_1, Float_2, 
      Float_3, Float_E);

   subtype Float_Types is Base_Type range Float_1..Float_E;

   -- used to hold a base_type temporarily so it can be copied
   -- into a record
   Temporary : Base_Type := Unbounded_String;
   
   ----------------------------------------------
   -- function(s) Image take in data and convert
   -- it to a string to fill in the text_entry
   -- not provided for enumeration (use 'image)
   -- or unbounded_string (use to_string).
   ----------------------------------------------
   function Image(data : in Standard.Integer) return String;

   function Image(data : in Float; base : in float_types) return String;

end mcc.text_entry_types;