Buttons and accessors

1 files changed, 4 insertions, 4 deletions

diff --git a/src/adapad.adb b/src/adapad.adb
index b9fc616..a2fe4c5 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -2,9 +2,7 @@
 
 --  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;
 
 
@@ -13,13 +11,15 @@ 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");
+    W : Dbl.Double_Type := Dbl.Create (340, 180);
+    B : Box.Box_Type := Box.Create (20, 40, 300, 100, "Test");
 
 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;