with FLTK.Widgets.Groups.Windows.Double;


package body Editors is


    function Create
           (X, Y, W, H : in Integer;
            Label_Text : in String)
        return Editor_Window is
    begin
        return FLTK.Widgets.Groups.Windows.Double.Create (0, 0, 640, 400, "AdaPad");
        --return This : Editor_Window do
            --This.Replace_Dialog := FLTK.Widgets.Groups.Windows.Create (300, 105, "Replace");
            --This.Replace_Find := Create (70, 10, 200, 25, "Find:");
            --This.Replace_With := Create (70, 40, 200, 25, "Replace:");
            --This.Replace_All := Create (10, 70, 90, 25, "Replace All");
            --This.Replace_Next := Create (105, 70, 120, 25, "Replace Next");
            --This.Replace_Cancel := Create (230, 70, 60, 25, "Cancel");
            --This.The_Editor := Create (0, 30, 640, 370, Label_Text);
        --end return;
    end Create;




    function Create
           (W, H : in Integer)
        return Editor_Window is
    begin
        return Create (0, 0, W, H, "AdaPad");
    end Create;




    function Get_Buffer
           (This : in Editor_Window)
        return Text_Buffer_Cursor is
    begin
        return This.The_Editor.Get_Buffer;
    end Get_Buffer;




    procedure Set_Buffer
           (This : in out Editor_Window;
            Buff : in out Text_Buffer) is
    begin
        This.The_Editor.Set_Buffer (Buff);
    end Set_Buffer;


end Editors;