diff options
Diffstat (limited to 'fltk-widgets-groups-text_displays.adb')
-rw-r--r-- | fltk-widgets-groups-text_displays.adb | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/fltk-widgets-groups-text_displays.adb b/fltk-widgets-groups-text_displays.adb index e2d62d8..f8418d6 100644 --- a/fltk-widgets-groups-text_displays.adb +++ b/fltk-widgets-groups-text_displays.adb @@ -72,6 +72,14 @@ package body FLTK.Widgets.Groups.Text_Displays is (TD : in System.Address); pragma Import (C, fl_text_display_show_insert_pos, "fl_text_display_show_insert_pos"); + procedure fl_text_display_next_word + (TD : in System.Address); + pragma Import (C, fl_text_display_next_word, "fl_text_display_next_word"); + + procedure fl_text_display_previous_word + (TD : in System.Address); + pragma Import (C, fl_text_display_previous_word, "fl_text_display_previous_word"); + @@ -219,5 +227,23 @@ package body FLTK.Widgets.Groups.Text_Displays is end Show_Insert_Position; + + + procedure Next_Word + (This : in out Text_Display) is + begin + fl_text_display_next_word (This.Void_Ptr); + end Next_Word; + + + + + procedure Previous_Word + (This : in out Text_Display) is + begin + fl_text_display_previous_word (This.Void_Ptr); + end Previous_Word; + + end FLTK.Widgets.Groups.Text_Displays; |