-- Auto generated by RAPID
-- By: Martin C. Carlisle and W. Blair Watkinson II
with Mcc.Gui.Widget.Dropdown;
with Mcc.Gui.Colors;
with Mcc.Gui.Widget.Button.Text;
with Mcc.Gui.Widget.Text_Entry;
with Mcc.Gui.Widget.Label;
with Mcc.Gui.Colors;
with Mcc.Gui.Container.Window;

package textentry_dialog_window is
   label1 : aliased Mcc.Gui.Widget.Label.Label;
   entry1 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   label2 : aliased Mcc.Gui.Widget.Label.Label;
   entry2 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   label3 : aliased Mcc.Gui.Widget.Label.Label;
   entry3 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   label4 : aliased Mcc.Gui.Widget.Label.Label;
   entry4 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   label5 : aliased Mcc.Gui.Widget.Label.Label;
   entry5 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   applyButton : aliased Mcc.Gui.Widget.Button.Text.Text_Button;
   okbutton : aliased Mcc.Gui.Widget.Button.Text.Text_Button;
   cancelButton : aliased Mcc.Gui.Widget.Button.Text.Text_Button;
   item_label : aliased Mcc.Gui.Widget.Label.Label;
   entry6 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   autofill : aliased Mcc.Gui.Widget.Label.Label;
   typelabel : aliased Mcc.Gui.Widget.Label.Label;
   entry7 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   baselabel : aliased Mcc.Gui.Widget.Label.Label;
   base_dropdown : aliased Mcc.Gui.Widget.Dropdown.Dropdown;

   textentry_dialog_window : aliased Mcc.Gui.Container.Window.SubWindow;

   Already_Open : exception;
   -- already open is raised if generate_window is called
   -- when the window textentry_dialog_window is already open
   -- create the window
   procedure Generate_Window;

   -- fill in values as specified in RAPID
   procedure Fill_Window;

   -- do both Generate_Window and Fill_Window
   procedure Generate_and_Fill_Window;

   -- read out values as specified in RAPID
   -- if a constraint_error occurs (bad range)
   -- success will be false, and the offending
   -- entry will be highlighted if Highlight_Error is true
   -- additionally, a beep will occur if Beep_On_Error is true
   procedure Read_Window(
         Success         :    out Boolean;
         Highlight_Error : in     Boolean := True;
         Beep_On_Error   : in     Boolean := True);

   -- close the window
   procedure Close_Window;


end textentry_dialog_window;
