From 0b019001293227083dba0c953e0142c4d0c66884 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 16 Jul 2016 15:59:18 +1000
Subject: Starting to construct main program, but now I have to redo all the
 FLTK Initializers. Great.

---
 src/adapad.adb | 36 ++++++++++++------------------------
 1 file changed, 12 insertions(+), 24 deletions(-)

(limited to 'src/adapad.adb')

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;
 
-- 
cgit