From 768a69af8e4fbbfb1d1b8e7b3c6cc448e1eb981f Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 3 Jun 2017 00:54:03 +1000
Subject: Updated to match latest FLTK binding

---
 src/adapad.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/adapad.adb b/src/adapad.adb
index 2eee6bb..c9ff4e3 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -315,9 +315,9 @@ package body Adapad is
            (Item : in out FLTK.Widgets.Widget'Class) is
     begin
         if FLTK.Widgets.Menus.Menu (Item).Chosen.Value then
-            Editor.Set_Wrap_Mode (Windows.Editor.Wrap_At_Bounds);
+            Editor.Set_Wrap_Mode (Windows.Editor.Bounds);
         else
-            Editor.Set_Wrap_Mode (Windows.Editor.Wrap_None);
+            Editor.Set_Wrap_Mode (Windows.Editor.None);
         end if;
     end Wrap_CB;
 
-- 
cgit