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

package main_window is
   my_label : aliased Mcc.Gui.Widget.Label.Label;
   push_me : aliased Mcc.Gui.Widget.Button.Text.Text_Button;

   main_window : aliased Mcc.Gui.Container.Window.Main_Window;

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