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

package test_window is
   tom : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   dick : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   larry : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   harry : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   tim1 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   tim2 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;
   tim3 : aliased Mcc.Gui.Widget.Text_Entry.Text_Entry;

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

   Already_Open : exception;
   -- already open is raised if generate_window is called
   -- when the window test_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 test_window;
