1 files changed, 29 insertions, 0 deletions
diff --git a/src/adapad.adb b/src/adapad.adb
new file mode 100644
index 0000000..b9fc616
--- /dev/null
+++ b/src/adapad.adb
@@ -0,0 +1,29 @@
+
+
+--  with Editor;
+with FLTK.Widget.Group.Window.Double;
+with FLTK.Widget.Button;
+with FLTK.Widget.Box;
+with FLTK.Widget.Input;
+with FLTK.Enums; use FLTK.Enums;
+
+
+function AdaPad return Integer is
+
+    package Dbl renames FLTK.Widget.Group.Window.Double;
+    package Box renames FLTK.Widget.Box;
+
+    W : Dbl.Double_Type := Dbl.Create (300, 300, 300, 300, "AdaPad");
+    B : Box.Box_Type := Box.Create (100, 100, 100, 100, "Test");
+
+begin
+
+    B.Set_Box (Engraved_Box);
+    B.Set_Label_Font (Times_Bold_Italic);
+    W.Add (B);
+
+    W.Show;
+    return FLTK.Run;
+
+end AdaPad;
+