-- Auto generated by RAPID
-- By: Martin C. Carlisle and W. Blair Watkinson II

with Other_Callback;


package body the_other_window is

   procedure Generate_Window is
   begin

      Mcc.Gui.Container.Window.Create(
         Obj    => the_other_window,
         X      => 0,
         Y      => 0,
         Width  => 300,
         Height => 300);

      Mcc.Gui.Container.Window.Set_Title(
         Obj   => the_other_window,
         Title => "the_other");


      Mcc.Gui.Widget.Label.Create(
         Obj     => label,
         Parent  => the_other_window,
         X       => 43,
         Y       => 35,
         Width   => 181,
         Height  => 45,
         Justify => Mcc.Gui.Widget.Label.left,
         Text    => "The Other Window");
      Mcc.Gui.Widget.Button.Text.Create(
         Obj    => enough,
         Parent => the_other_window,
         X      => 102,
         Y      => 111,
         Width  => 66,
         Height => 29,
         Text   => "Enough!!");
      Mcc.Gui.Widget.Button.Set_Push_Callback(
         Obj      => enough'access,
         Callback => Other_Callback.Done'access);

   end Generate_Window;


end the_other_window;
