diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-05-26 00:38:43 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-05-26 00:38:43 +1000 |
commit | 524edbb4463b66d61e92c92a7020d9d09b82e744 (patch) | |
tree | b2ec49fdcc88a34c4c2f80ead9548358a382da77 /src/adapad.adb | |
parent | ed6fcd873aad9e574de0b2c6311d1c4404cb76dc (diff) |
The Great Package Naming Style Change(tm)
Diffstat (limited to 'src/adapad.adb')
-rw-r--r-- | src/adapad.adb | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/src/adapad.adb b/src/adapad.adb index 271b77d..63ad67f 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -1,19 +1,27 @@ -- with Editor; -with FLTK.Widget.Group.Window.Double; -with FLTK.Widget.Box; -with FLTK.Widget.Group.Text_Display; +with FLTK.Widgets.Groups.Windows.Double; +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; 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; + package Dbl renames FLTK.Widgets.Groups.Windows.Double; + package Bx renames FLTK.Widgets.Boxes; - W : Dbl.Double_Type := Dbl.Create (340, 180); - B : Box.Box_Type := Box.Create (20, 40, 300, 100, "Test"); + W : Dbl.Double_Window := Dbl.Create (340, 180); + B : Bx.Box := Bx.Create (20, 40, 300, 100, "Test"); begin |