Adapad menus and callbacks now present in skeleton form, also Text_Buffers have callbacks too

1 files changed, 52 insertions, 0 deletions

diff --git a/fltk-widgets-groups-text_displays-text_editors.adb b/fltk-widgets-groups-text_displays-text_editors.adb
index 447da2c..7969f27 100644
--- a/fltk-widgets-groups-text_displays-text_editors.adb
+++ b/fltk-widgets-groups-text_displays-text_editors.adb
@@ -18,6 +18,22 @@ package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is
            (TE : in System.Address);
     pragma Import (C, free_fl_text_editor, "free_fl_text_editor");
 
+    procedure fl_text_editor_cut
+           (TE : in System.Address);
+    pragma Import (C, fl_text_editor_cut, "fl_text_editor_cut");
+
+    procedure fl_text_editor_copy
+           (TE : in System.Address);
+    pragma Import (C, fl_text_editor_copy, "fl_text_editor_copy");
+
+    procedure fl_text_editor_paste
+           (TE : in System.Address);
+    pragma Import (C, fl_text_editor_paste, "fl_text_editor_paste");
+
+    procedure fl_text_editor_delete
+           (TE : in System.Address);
+    pragma Import (C, fl_text_editor_delete, "fl_text_editor_delete");
+
 
 
 
@@ -55,5 +71,41 @@ package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is
     end Create;
 
 
+
+
+    procedure Cut
+           (This : in out Text_Editor) is
+    begin
+        fl_text_editor_cut (This.Void_Ptr);
+    end Cut;
+
+
+
+
+    procedure Copy
+           (This : in out Text_Editor) is
+    begin
+        fl_text_editor_copy (This.Void_Ptr);
+    end Copy;
+
+
+
+
+    procedure Paste
+           (This : in out Text_Editor) is
+    begin
+        fl_text_editor_paste (This.Void_Ptr);
+    end Paste;
+
+
+
+
+    procedure Delete
+           (This : in out Text_Editor) is
+    begin
+        fl_text_editor_delete (This.Void_Ptr);
+    end Delete;
+
+
 end FLTK.Widgets.Groups.Text_Displays.Text_Editors;