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.ads | |
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.ads')
-rw-r--r-- | src/fltk_binding/fltk-widgets-menus.ads | 34 |
1 files changed, 1 insertions, 33 deletions
diff --git a/src/fltk_binding/fltk-widgets-menus.ads b/src/fltk_binding/fltk-widgets-menus.ads index 0346d2d..d01f02e 100644 --- a/src/fltk_binding/fltk-widgets-menus.ads +++ b/src/fltk_binding/fltk-widgets-menus.ads @@ -1,5 +1,6 @@ +with FLTK.Enums; use FLTK.Enums; private with Interfaces; private with System; @@ -18,22 +19,6 @@ package FLTK.Widgets.Menus is type Index is new Positive; - type Shortcut_Key is private; - subtype Pressable_Key is Character range Character'Val (32) .. Character'Val (126); - function Shortcut (Key : Pressable_Key) return Shortcut_Key; - No_Key : constant Shortcut_Key; - - - type Modifier_Key is private; - function "+" (Left, Right : in Modifier_Key) return Modifier_Key; - function "+" (Left : in Modifier_Key; Right : in Pressable_Key) return Shortcut_Key; - function "+" (Left : in Modifier_Key; Right : in Shortcut_Key) return Shortcut_Key; - Mod_None : constant Modifier_Key; - Mod_Shift : constant Modifier_Key; - Mod_Ctrl : constant Modifier_Key; - Mod_Alt : constant Modifier_Key; - - type Menu_Flag is private; function "+" (Left, Right : in Menu_Flag) return Menu_Flag; Flag_Normal : constant Menu_Flag; @@ -96,23 +81,6 @@ private end record; - -- these values designed to align with FLTK enumeration types - type Modifier_Key is new Interfaces.Unsigned_8; - Mod_None : constant Modifier_Key := 2#00000000#; - Mod_Shift : constant Modifier_Key := 2#00000001#; - Mod_Ctrl : constant Modifier_Key := 2#00000100#; - Mod_Alt : constant Modifier_Key := 2#00001000#; - - - type Shortcut_Key is - record - Modifier : Modifier_Key; - Keypress : Character; - end record; - No_Key : constant Shortcut_Key := - (Modifier => Mod_None, Keypress => Character'Val (0)); - - type Menu_Flag is new Interfaces.Unsigned_8; Flag_Normal : constant Menu_Flag := 2#00000000#; Flag_Inactive : constant Menu_Flag := 2#00000001#; |