The rest of the static keybinding procedures added to Text_Editor package

1 files changed, 131 insertions, 17 deletions

diff --git a/src/fltk-widgets-groups-text_displays-text_editors.ads b/src/fltk-widgets-groups-text_displays-text_editors.ads
index 8eafe25..1e9aeb6 100644
--- a/src/fltk-widgets-groups-text_displays-text_editors.ads
+++ b/src/fltk-widgets-groups-text_displays-text_editors.ads
@@ -8,6 +8,20 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
     type Insert_Mode is (Before, After);
     --  type Tab_Navigation is (Insert_Char, Widget_Focus);
 
+    type Key_Func is access procedure
+           (This : in out Text_Editor'Class);
+
+    type Default_Key_Func is access procedure
+           (This : in out Text_Editor'Class;
+            Key  : in     Shortcut_Key);
+
+    type Key_Binding is record
+        Key  : Shortcut_Key;
+        Func : Key_Func;
+    end record;
+
+    type Key_Binding_List is array (Positive) of Key_Binding;
+
 
 
 
@@ -19,53 +33,153 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    procedure Default
+           (This : in out Text_Editor'Class;
+            Key  : in     Shortcut_Key);
+
+
+
+
     procedure Undo
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Cut
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Copy
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Paste
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Delete
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
+
+    procedure Select_All
+           (This : in out Text_Editor'Class);
 
 
 
 
     procedure Backspace_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
+
+    procedure Insert_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Enter_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ignore_Key
+           (This : in out Text_Editor'Class);
+
+
+
 
     procedure Home_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure End_Key
-           (This : in out Text_Editor);
-
-    procedure Insert_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Page_Down_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Page_Up_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Down_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Left_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Right_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
 
     procedure Up_Key
-           (This : in out Text_Editor);
+           (This : in out Text_Editor'Class);
+
+
+
+
+    procedure Shift_Home_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Shift_End_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Shift_Page_Down_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Shift_Page_Up_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Shift_Down_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Shift_Left_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Shift_Right_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Shift_Up_Key
+           (This : in out Text_Editor'Class);
+
+
+
+
+    procedure Ctrl_Home_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_End_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Page_Down_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Page_Up_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Down_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Left_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Right_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Up_Key
+           (This : in out Text_Editor'Class);
+
+
+
+
+    procedure Ctrl_Shift_Home_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Shift_End_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Shift_Page_Down_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Shift_Page_Up_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Shift_Down_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Shift_Left_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Shift_Right_Key
+           (This : in out Text_Editor'Class);
+
+    procedure Ctrl_Shift_Up_Key
+           (This : in out Text_Editor'Class);