From 99ea64c2c914608d3429e63845f8ed396b234dd7 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 25 May 2016 01:10:29 +1000 Subject: Buttons and accessors --- src/adapad.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/adapad.adb') 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; -- cgit