Added word wrap feature

1 files changed, 12 insertions, 0 deletions

diff --git a/src/windows-editor.adb b/src/windows-editor.adb
index bbaa069..e9195dd 100644
--- a/src/windows-editor.adb
+++ b/src/windows-editor.adb
@@ -11,6 +11,7 @@ package body Windows.Editor is
 
 
     package WD renames FLTK.Widgets.Groups.Windows.Double;
+    package TD renames FLTK.Widgets.Groups.Text_Displays;
     package TE renames FLTK.Widgets.Groups.Text_Displays.Text_Editors;
     package MB renames FLTK.Widgets.Menus.Menu_Bars;
 
@@ -185,5 +186,16 @@ package body Windows.Editor is
     end Previous_Word;
 
 
+
+
+    procedure Set_Wrap_Mode
+           (This   : in out Editor_Window;
+            Mode   : in     Wrap_Mode;
+            Margin : in     Natural := 0) is
+    begin
+        This.Editor.Set_Wrap_Mode (TD.Wrap_Mode (Mode), Margin);
+    end Set_Wrap_Mode;
+
+
 end Windows.Editor;