From fbdf22f733d8fafd7193bee3080e2eaeab95b86f Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 1 Jun 2017 20:22:09 +1000 Subject: Moved Menu_Item code to separate FLTK child package --- src/fltk-menu_items.ads | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 src/fltk-menu_items.ads (limited to 'src/fltk-menu_items.ads') diff --git a/src/fltk-menu_items.ads b/src/fltk-menu_items.ads new file mode 100644 index 0000000..98a9d9d --- /dev/null +++ b/src/fltk-menu_items.ads @@ -0,0 +1,29 @@ + + +package FLTK.Menu_Items is + + + type Menu_Item is new Wrapper with private; + + + function Value + (Item : in Menu_Item) + return Boolean; + + + procedure Activate + (Item : in Menu_Item); + + + procedure Deactivate + (Item : in Menu_Item); + + +private + + + type Menu_Item is new Wrapper with null record; + + +end FLTK.Menu_Items; + -- cgit