diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-09-16 04:10:49 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-09-16 04:10:49 +1000 |
commit | 395e2de5b0d834091637820fc04d731721c771b7 (patch) | |
tree | 64492fca38997578914ac24cd262598af966c241 /src/fltk_binding/fltk-widgets-groups-text_displays-text_editors.adb | |
parent | bfcc3811a3ce55cafa6f7809d0d92c87238ea032 (diff) |
Adapad menus and callbacks now present in skeleton form, also Text_Buffers have callbacks too
Diffstat (limited to 'src/fltk_binding/fltk-widgets-groups-text_displays-text_editors.adb')
-rw-r--r-- | src/fltk_binding/fltk-widgets-groups-text_displays-text_editors.adb | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/src/fltk_binding/fltk-widgets-groups-text_displays-text_editors.adb b/src/fltk_binding/fltk-widgets-groups-text_displays-text_editors.adb index 447da2c..7969f27 100644 --- a/src/fltk_binding/fltk-widgets-groups-text_displays-text_editors.adb +++ b/src/fltk_binding/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; |