1 files changed, 4 insertions, 6 deletions
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;