From d513fd809229d6d48bd061e494b08cafbbcc6f9c Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 18 Jul 2016 15:58:30 +1000
Subject: Decided on widget init problem, started on rudimentary editor
 appearance

---
 src/adapad.adb | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'src/adapad.adb')

diff --git a/src/adapad.adb b/src/adapad.adb
index cf5b02e..340403e 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -3,24 +3,22 @@
 with FLTK;
 with Editors;
 use Editors;
-with FLTK.Widgets.Groups.Windows.Double;
-use FLTK.Widgets.Groups.Windows.Double;
-with Ada.Text_IO; use Ada.Text_IO;
+with FLTK.Text_Buffers;
+use FLTK.Text_Buffers;
 
 
 function AdaPad return Integer is
 
 
-    --Pad : Double_Window := Create (0, 0, 640, 400, "AdaPad");
     Pad : Editor_Window := Create (0, 0, 640, 400, "AdaPad");
+    Buffer : Text_Buffer := Create;
 
 
 begin
 
 
-    Put_Line ("About to show");
+    Pad.Set_Buffer (Buffer);
     Pad.Show;
-    Put_Line ("About to run");
     return FLTK.Run;
 
 
-- 
cgit