Split public API and private implementation files into different directories

1 files changed, 244 insertions, 0 deletions

diff --git a/spec/fltk-menu_items.ads b/spec/fltk-menu_items.ads
new file mode 100644
index 0000000..ac80984
--- /dev/null
+++ b/spec/fltk-menu_items.ads
@@ -0,0 +1,244 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+with
+
+    FLTK.Images,
+    FLTK.Widgets;
+
+
+package FLTK.Menu_Items is
+
+
+    type Menu_Item is new Wrapper with private;
+
+    type Menu_Item_Reference (Data : not null access Menu_Item'Class) is limited null record
+        with Implicit_Dereference => Data;
+
+    type Menu_Item_Array is array (Positive range <>) of Menu_Item;
+
+
+
+
+    package Forge is
+
+        --  Usually you don't bother with this and just add items
+        --  to Menus directly using the Add/Insert subprograms in that package.
+
+        function Create
+               (Text        : in String;
+                Action      : in FLTK.Widgets.Widget_Callback := null;
+                Shortcut    : in Key_Combo := No_Key;
+                Flags       : in Menu_Flag := Flag_Normal)
+            return Menu_Item;
+
+    end Forge;
+
+
+
+
+    function Get_Callback
+           (This : in Menu_Item)
+        return FLTK.Widgets.Widget_Callback;
+
+    procedure Set_Callback
+           (This : in out Menu_Item;
+            Func : in     FLTK.Widgets.Widget_Callback);
+
+    procedure Do_Callback
+           (This   : in out Menu_Item;
+            Widget : in out FLTK.Widgets.Widget'Class);
+
+
+
+
+    function Has_Checkbox
+           (This : in Menu_Item)
+        return Boolean;
+
+    function Is_Radio
+           (This : in Menu_Item)
+        return Boolean;
+
+    function Is_Submenu
+           (This : in Menu_Item)
+        return Boolean;
+
+    function Get_State
+           (This : in Menu_Item)
+        return Boolean;
+
+    procedure Set_State
+           (This : in out Menu_Item;
+            To   : in     Boolean);
+
+    procedure Set
+           (This : in out Menu_Item);
+
+    procedure Clear
+           (This : in out Menu_Item);
+
+    procedure Set_Only
+           (This : in out Menu_Item);
+
+
+
+
+    function Get_Label
+           (This : in Menu_Item)
+        return String;
+
+    procedure Set_Label
+           (This : in out Menu_Item;
+            Text : in     String);
+
+    procedure Set_Label
+           (This : in out Menu_Item;
+            Kind : in     Label_Kind;
+            Text : in     String);
+
+    function Get_Label_Color
+           (This : in Menu_Item)
+        return Color;
+
+    procedure Set_Label_Color
+           (This : in out Menu_Item;
+            To   : in     Color);
+
+    function Get_Label_Font
+           (This : in Menu_Item)
+        return Font_Kind;
+
+    procedure Set_Label_Font
+           (This : in out Menu_Item;
+            To   : in     Font_Kind);
+
+    function Get_Label_Size
+           (This : in Menu_Item)
+        return Font_Size;
+
+    procedure Set_Label_Size
+           (This : in out Menu_Item;
+            To   : in     Font_Size);
+
+    function Get_Label_Kind
+           (This : in Menu_Item)
+        return Label_Kind;
+
+    procedure Set_Label_Kind
+           (This : in out Menu_Item;
+            To   : in     Label_Kind);
+
+
+
+
+    function Get_Shortcut
+           (This : in Menu_Item)
+        return Key_Combo;
+
+    procedure Set_Shortcut
+           (This : in out Menu_Item;
+            To   : in     Key_Combo);
+
+    function Get_Flags
+           (This : in Menu_Item)
+        return Menu_Flag;
+
+    procedure Set_Flags
+           (This : in out Menu_Item;
+            To   : in     Menu_Flag);
+
+
+
+
+    function Get_Image
+           (This : in Menu_Item)
+        return access FLTK.Images.Image'Class;
+
+    procedure Set_Image
+           (This : in out Menu_Item;
+            Pict : in out FLTK.Images.Image'Class);
+
+
+
+
+    procedure Activate
+           (This : in out Menu_Item);
+
+    procedure Deactivate
+           (This : in out Menu_Item);
+
+    procedure Show
+           (This : in out Menu_Item);
+
+    procedure Hide
+           (This : in out Menu_Item);
+
+    function Is_Active
+           (This : in Menu_Item)
+        return Boolean;
+
+    function Is_Visible
+           (This : in Menu_Item)
+        return Boolean;
+
+    function Is_Active_And_Visible
+           (This : in Menu_Item)
+        return Boolean;
+
+
+private
+
+
+    type Menu_Item is new Wrapper with record
+        Current_Image : access FLTK.Images.Image'Class;
+    end record;
+
+    overriding procedure Finalize
+           (This : in out Menu_Item);
+
+
+    pragma Inline (Get_Callback);
+    pragma Inline (Set_Callback);
+    pragma Inline (Do_Callback);
+
+    pragma Inline (Has_Checkbox);
+    pragma Inline (Is_Radio);
+    pragma Inline (Get_State);
+    pragma Inline (Set_State);
+    pragma Inline (Set_Only);
+
+    pragma Inline (Get_Label);
+    pragma Inline (Set_Label);
+    pragma Inline (Get_Label_Color);
+    pragma Inline (Set_Label_Color);
+    pragma Inline (Get_Label_Font);
+    pragma Inline (Set_Label_Font);
+    pragma Inline (Get_Label_Size);
+    pragma Inline (Set_Label_Size);
+    pragma Inline (Get_Label_Kind);
+    pragma Inline (Set_Label_Kind);
+
+    pragma Inline (Get_Shortcut);
+    pragma Inline (Set_Shortcut);
+    pragma Inline (Get_Flags);
+    pragma Inline (Set_Flags);
+
+    pragma Inline (Get_Image);
+    pragma Inline (Set_Image);
+
+    pragma Inline (Activate);
+    pragma Inline (Deactivate);
+    pragma Inline (Show);
+    pragma Inline (Hide);
+    pragma Inline (Is_Active);
+    pragma Inline (Is_Visible);
+    pragma Inline (Is_Active_And_Visible);
+
+
+end FLTK.Menu_Items;
+
+