diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-18 21:24:27 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-18 21:24:27 +1100 |
commit | ba19cac8303b22ed415f246ea18dc334dd572343 (patch) | |
tree | d8bd5d243dbc1b5c4703263d200564ee3be5afca /src/fltk_binding/fltk-widgets-menus.adb | |
parent | 5045c1fb020480ac1bcc2aca921f886c0057a73f (diff) |
Moved Shortcut_Key type to FLTK.Enums, added function to remove key bindings from Text_Editors
Diffstat (limited to 'src/fltk_binding/fltk-widgets-menus.adb')
-rw-r--r-- | src/fltk_binding/fltk-widgets-menus.adb | 63 |
1 files changed, 1 insertions, 62 deletions
diff --git a/src/fltk_binding/fltk-widgets-menus.adb b/src/fltk_binding/fltk-widgets-menus.adb index b1ffd9a..b92f0a1 100644 --- a/src/fltk_binding/fltk-widgets-menus.adb +++ b/src/fltk_binding/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 |