lea_gwin-input_boxes.adb

with LEA_Resource_GUI;

with GWindows.Application,
     GWindows.Constants;

package body LEA_GWin.Input_Boxes is

  procedure String_Input (
    Parent     : in out GWindows.Base.Base_Window_Type'Class;
    Message    : in     GString;
    User_Input :    out GString_Unbounded;
    Result     :    out GWindows.Message_Boxes.Message_Box_Result
  )
  is
    use LEA_Resource_GUI;
    --
    box : String_Prompt_Type;
    --
    procedure Set_Data is
    begin
      box.String_Prompt_Label.Text (Message);
    end Set_Data;
    --
    procedure Get_Data (Window : in out GWindows.Base.Base_Window_Type'Class) is
    pragma Unreferenced (Window);
    begin
      User_Input := G2GU (box.String_Prompt_Edit_Box.Text);
    end Get_Data;
    --
  begin
    box.Create_Full_Dialog (Parent);
    Set_Data;
    box.Center (Parent);
    box.String_Prompt_Edit_Box.Focus;
    box.Text ("Get / Get_Immediate / Get_Line");
    On_Destroy_Handler (box, Get_Data'Unrestricted_Access);
    case GWindows.Application.Show_Dialog (box, Parent) is
      when GWindows.Constants.IDOK => Result := GWindows.Message_Boxes.OK;
      when others                  => Result := GWindows.Message_Boxes.Cancel;
    end case;
  end String_Input;

  procedure Skip_Line (
    Parent  : in     GWindows.Base.Base_Window_Type'Class;
    Message : in     GString;
    Result  :    out GWindows.Message_Boxes.Message_Box_Result
  )
  is
    use GWindows.Message_Boxes;
  begin
    Result := Message_Box (Parent, "Skip_Line", Message, OK_Cancel_Box);
  end Skip_Line;

end LEA_GWin.Input_Boxes;