Organising source

1 files changed, 0 insertions, 160 deletions

diff --git a/fltk-widgets-menus.adb b/fltk-widgets-menus.adb
deleted file mode 100644
index b92f0a1..0000000
--- a/fltk-widgets-menus.adb
+++ /dev/null
@@ -1,160 +0,0 @@
-
-
-with FLTK.Enums; use FLTK.Enums;
-with Interfaces.C;
-with System;
-use type System.Address;
-use type Interfaces.C.int;
-use type Interfaces.C.unsigned_long;
-
-
-package body FLTK.Widgets.Menus is
-
-
-    function "+"
-           (Left, Right : in Menu_Flag)
-        return Menu_Flag is
-    begin
-        return Left or Right;
-    end "+";
-
-
-
-
-    function fl_menu_add
-           (M    : in System.Address;
-            T    : in Interfaces.C.char_array;
-            S    : in Interfaces.C.unsigned_long;
-            C, U : in System.Address;
-            F    : in Interfaces.C.unsigned_long)
-        return Interfaces.C.int;
-    pragma Import (C, fl_menu_add, "fl_menu_add");
-
-    function fl_menu_find_item
-           (M : in System.Address;
-            T : in Interfaces.C.char_array)
-        return System.Address;
-    pragma Import (C, fl_menu_find_item, "fl_menu_find_item");
-
-    function fl_menu_mvalue
-           (M : in System.Address)
-        return System.Address;
-    pragma Import (C, fl_menu_mvalue, "fl_menu_mvalue");
-
-    function fl_menuitem_value
-           (MI : in System.Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_menuitem_value, "fl_menuitem_value");
-
-    procedure fl_menuitem_activate
-           (MI : in System.Address);
-    pragma Import (C, fl_menuitem_activate, "fl_menuitem_activate");
-
-    procedure fl_menuitem_deactivate
-           (MI : in System.Address);
-    pragma Import (C, fl_menuitem_deactivate, "fl_menuitem_deactivate");
-
-
-
-
-    procedure Item_Hook (M, U : in System.Address);
-    pragma Convention (C, Item_Hook);
-
-    procedure Item_Hook
-           (M, U : in System.Address)
-    is
-        Ada_Widget : access Widget'Class :=
-            Widget_Convert.To_Pointer (fl_widget_get_user_data (M));
-        Action : Widget_Callback := Callback_Convert.To_Pointer (U);
-    begin
-        Action.all (Ada_Widget.all);
-    end Item_Hook;
-
-
-
-
-    procedure Add
-           (This     : in out Menu;
-            Text     : in     String;
-            Action   : in     Widget_Callback := null;
-            Shortcut : in     Shortcut_Key := No_Key;
-            Flags    : in     Menu_Flag := Flag_Normal)
-    is
-        Place : Interfaces.C.int;
-        Callback, User_Data : System.Address;
-    begin
-        if Action = null then
-            Callback := System.Null_Address;
-            User_Data := System.Null_Address;
-        else
-            Callback := Item_Hook'Address;
-            User_Data := Callback_Convert.To_Address (Action);
-        end if;
-
-        Place := fl_menu_add
-               (This.Void_Ptr,
-                Interfaces.C.To_C (Text),
-                Key_To_C (Shortcut),
-                Callback,
-                User_Data,
-                Interfaces.C.unsigned_long (Flags));
-    end Add;
-
-
-
-
-    function Find_Item
-           (This : in Menu'Class;
-            Name : in String)
-        return Menu_Item is
-    begin
-        return Item : Menu_Item do
-            Item.Void_Ptr := fl_menu_find_item
-                   (This.Void_Ptr,
-                    Interfaces.C.To_C (Name));
-        end return;
-    end Find_Item;
-
-
-
-
-    function Chosen
-           (This : in Menu'Class)
-        return Menu_Item is
-    begin
-        return Item : Menu_Item do
-            Item.Void_Ptr := fl_menu_mvalue (This.Void_Ptr);
-        end return;
-    end Chosen;
-
-
-
-
-    function Value
-           (Item : in Menu_Item)
-        return Boolean is
-    begin
-        return fl_menuitem_value (Item.Void_Ptr) /= 0;
-    end Value;
-
-
-
-
-    procedure Activate
-           (Item : in Menu_Item) is
-    begin
-        fl_menuitem_activate (Item.Void_Ptr);
-    end Activate;
-
-
-
-
-    procedure Deactivate
-           (Item : in Menu_Item) is
-    begin
-        fl_menuitem_deactivate (Item.Void_Ptr);
-    end Deactivate;
-
-
-end FLTK.Widgets.Menus;
-