with FLTK.Widgets.Groups.Windows.Double; use FLTK.Widgets.Groups.Windows.Double; with FLTK.Widgets.Groups.Text_Displays.Text_Editors; use FLTK.Widgets.Groups.Text_Displays.Text_Editors; with FLTK.Text_Buffers; use FLTK.Text_Buffers; package Editors is type Editor_Window is new Double_Window with private; function Create (X, Y, W, H : in Integer; Label_Text : in String) return Editor_Window; function Create (W, H : in Integer) return Editor_Window; function Get_Buffer (This : in Editor_Window) return Text_Buffer_Cursor; procedure Set_Buffer (This : in out Editor_Window; Buff : in out Text_Buffer); private type Editor_Window is new Double_Window with record -- Replace_Dialog : Window; -- Replace_Find : Input; -- Replace_With : Input; -- Replace_All : Button; -- Replace_Next : Enter_Button; -- Replace_Cancel : Button; The_Editor : Text_Editor := Text_Editor'(Create (0, 30, 640, 370, "AdaPad")); end record; end Editors;