From d513fd809229d6d48bd061e494b08cafbbcc6f9c Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 18 Jul 2016 15:58:30 +1000 Subject: Decided on widget init problem, started on rudimentary editor appearance --- src/editors.ads | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) (limited to 'src/editors.ads') 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; -- cgit