From 524edbb4463b66d61e92c92a7020d9d09b82e744 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 26 May 2016 00:38:43 +1000 Subject: The Great Package Naming Style Change(tm) --- src/adapad.adb | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) (limited to 'src/adapad.adb') 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 -- cgit