Moved Shortcut_Key type to FLTK.Enums, added function to remove key bindings from Text_Editors

1 files changed, 1 insertions, 62 deletions

diff --git a/fltk-widgets-menus.adb b/fltk-widgets-menus.adb
index b1ffd9a..b92f0a1 100644
--- a/fltk-widgets-menus.adb
+++ b/fltk-widgets-menus.adb
@@ -1,5 +1,6 @@
 
 
+with FLTK.Enums; use FLTK.Enums;
 with Interfaces.C;
 with System;
 use type System.Address;
@@ -10,68 +11,6 @@ use type Interfaces.C.unsigned_long;
 package body FLTK.Widgets.Menus is
 
 
-    function Shortcut
-           (Key : Pressable_Key)
-        return Shortcut_Key is
-    begin
-        return This : Shortcut_Key do
-            This.Modifier := Mod_None;
-            This.Keypress := Key;
-        end return;
-    end Shortcut;
-
-
-
-
-    function Key_To_C
-           (Key : Shortcut_Key)
-        return Interfaces.C.unsigned_long is
-    begin
-        return Interfaces.C.unsigned_long (Key.Modifier) *
-               65536 + Character'Pos (Key.Keypress);
-    end Key_To_C;
-
-
-
-
-    function "+"
-           (Left, Right : in Modifier_Key)
-        return Modifier_Key is
-    begin
-        return Left or Right;
-    end "+";
-
-
-
-
-    function "+"
-           (Left  : in Modifier_Key;
-            Right : in Pressable_Key)
-        return Shortcut_Key is
-    begin
-        return This : Shortcut_Key do
-            This.Modifier := Left;
-            This.Keypress := Right;
-        end return;
-    end "+";
-
-
-
-
-    function "+"
-           (Left  : in Modifier_Key;
-            Right : in Shortcut_Key)
-        return Shortcut_Key is
-    begin
-        return This : Shortcut_Key do
-            This.Modifier := Left or Right.Modifier;
-            This.Keypress := Right.Keypress;
-        end return;
-    end "+";
-
-
-
-
     function "+"
            (Left, Right : in Menu_Flag)
         return Menu_Flag is