From 8908535c7dc9fc7adf3c56b96aecc49b319c5a9e Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 12 Nov 2016 17:20:15 +1100
Subject: Added basic word count feature

---
 .../fltk-widgets-groups-text_displays.adb          | 26 ++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'src/fltk_binding/fltk-widgets-groups-text_displays.adb')

diff --git a/src/fltk_binding/fltk-widgets-groups-text_displays.adb b/src/fltk_binding/fltk-widgets-groups-text_displays.adb
index e2d62d8..f8418d6 100644
--- a/src/fltk_binding/fltk-widgets-groups-text_displays.adb
+++ b/src/fltk_binding/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;
 
-- 
cgit