diff options
Diffstat (limited to 'src/editors.ads')
-rw-r--r-- | src/editors.ads | 24 |
1 files changed, 8 insertions, 16 deletions
diff --git a/src/editors.ads b/src/editors.ads index 41e6b07..9dde658 100644 --- a/src/editors.ads +++ b/src/editors.ads @@ -1,15 +1,7 @@ -with FLTK.Widgets.Groups.Windows; -use FLTK.Widgets.Groups.Windows; with FLTK.Widgets.Groups.Windows.Double; use FLTK.Widgets.Groups.Windows.Double; -with FLTK.Widgets.Inputs; -use FLTK.Widgets.Inputs; -with FLTK.Widgets.Buttons; -use FLTK.Widgets.Buttons; -with FLTK.Widgets.Buttons.Enter; -use FLTK.Widgets.Buttons.Enter; with FLTK.Widgets.Groups.Text_Displays.Text_Editors; use FLTK.Widgets.Groups.Text_Displays.Text_Editors; with FLTK.Text_Buffers; @@ -48,14 +40,14 @@ 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 := FLTK.Widgets.Groups.Text_Displays.Text_Editors.Create (0, 30, 640, 370, "AdaPad"); + -- 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; |