diff options
Diffstat (limited to 'src/adapad.adb')
-rw-r--r-- | src/adapad.adb | 8 |
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; |