Starting to construct main program, but now I have to redo all the FLTK Initializers. Great.

1 files changed, 12 insertions, 24 deletions

diff --git a/src/adapad.adb b/src/adapad.adb
index e0bf2d7..cf5b02e 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -1,40 +1,28 @@
 
 
---  with Editor;
+with FLTK;
+with Editors;
+use Editors;
 with FLTK.Widgets.Groups.Windows.Double;
-with FLTK.Widgets.Groups.Windows.Single.Menu;
-with FLTK.Widgets.Boxes;
-with FLTK.Widgets.Buttons.Enter;
-with FLTK.Widgets.Buttons.Light.Check;
-with FLTK.Widgets.Buttons.Light.Radio;
-with FLTK.Widgets.Buttons.Light.Round.Radio;
-with FLTK.Widgets.Buttons.Radio;
-with FLTK.Widgets.Buttons.Repeat;
-with FLTK.Widgets.Buttons.Toggle;
-with FLTK.Widgets.Inputs;
-with FLTK.Widgets.Groups.Text_Displays.Text_Editors;
-with FLTK.Enums; use FLTK.Enums;
-with FLTK.Widgets.Groups;
+use FLTK.Widgets.Groups.Windows.Double;
+with Ada.Text_IO; use Ada.Text_IO;
 
 
 function AdaPad return Integer is
 
-    package Dbl renames FLTK.Widgets.Groups.Windows.Double;
-    package Bx renames FLTK.Widgets.Boxes;
 
-    W : Dbl.Double_Window := Dbl.Create (340, 180);
-    B : Bx.Box := Bx.Create (20, 40, 300, 100, "Test");
+    --Pad : Double_Window := Create (0, 0, 640, 400, "AdaPad");
+    Pad : Editor_Window := Create (0, 0, 640, 400, "AdaPad");
+
 
 begin
 
-    B.Set_Box (Engraved_Box);
-    B.Set_Label_Font (Times_Bold_Italic);
-    B.Set_Label_Size (36);
-    B.Set_Label_Type (Shadow_Label);
-    W.Add (B);
 
-    W.Show;
+    Put_Line ("About to show");
+    Pad.Show;
+    Put_Line ("About to run");
     return FLTK.Run;
 
+
 end AdaPad;