diff options
Diffstat (limited to 'src/adapad.adb')
| -rw-r--r-- | src/adapad.adb | 36 |
1 files changed, 12 insertions, 24 deletions
diff --git a/src/adapad.adb b/src/adapad.adb index e0bf2d7..cf5b02e 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -1,40 +1,28 @@ --- with Editor; +with FLTK; +with Editors; +use Editors; with FLTK.Widgets.Groups.Windows.Double; -with FLTK.Widgets.Groups.Windows.Single.Menu; -with FLTK.Widgets.Boxes; -with FLTK.Widgets.Buttons.Enter; -with FLTK.Widgets.Buttons.Light.Check; -with FLTK.Widgets.Buttons.Light.Radio; -with FLTK.Widgets.Buttons.Light.Round.Radio; -with FLTK.Widgets.Buttons.Radio; -with FLTK.Widgets.Buttons.Repeat; -with FLTK.Widgets.Buttons.Toggle; -with FLTK.Widgets.Inputs; -with FLTK.Widgets.Groups.Text_Displays.Text_Editors; -with FLTK.Enums; use FLTK.Enums; -with FLTK.Widgets.Groups; +use FLTK.Widgets.Groups.Windows.Double; +with Ada.Text_IO; use Ada.Text_IO; function AdaPad return Integer is - package Dbl renames FLTK.Widgets.Groups.Windows.Double; - package Bx renames FLTK.Widgets.Boxes; - W : Dbl.Double_Window := Dbl.Create (340, 180); - B : Bx.Box := Bx.Create (20, 40, 300, 100, "Test"); + --Pad : Double_Window := Create (0, 0, 640, 400, "AdaPad"); + Pad : Editor_Window := Create (0, 0, 640, 400, "AdaPad"); + 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; + Put_Line ("About to show"); + Pad.Show; + Put_Line ("About to run"); return FLTK.Run; + end AdaPad; |