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.adb | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) (limited to 'src/editors.adb') diff --git a/src/editors.adb b/src/editors.adb index 1ce7a92..3cdfa5f 100644 --- a/src/editors.adb +++ b/src/editors.adb @@ -1,8 +1,5 @@ -with FLTK.Widgets.Groups.Windows.Double; - - package body Editors is @@ -11,16 +8,11 @@ package body Editors is 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; + return This : Editor_Window := + (Double_Window'(Create (X, Y, W, H, Label_Text)) with + The_Editor => Text_Editor'(Create (0, 30, 640, 370, ""))) do + This.Add (This.The_Editor); + end return; end Create; -- cgit