1 files changed, 19 insertions, 0 deletions
diff --git a/src/adapad.adb b/src/adapad.adb
index 5f8e7d8..71b0a0b 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -11,6 +11,9 @@ with Windows.Replace;
 with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
 
 
+with Ada.Text_IO;
+
+
 package body Adapad is
 
 
@@ -218,6 +221,19 @@ package body Adapad is
 
 
 
+    procedure Wrap_CB
+           (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);
+        else
+            Editor.Set_Wrap_Mode (Windows.Editor.Wrap_None);
+        end if;
+    end Wrap_CB;
+
+
+
+
     procedure About_CB
            (Item : in out FLTK.Widgets.Widget'Class) is
     begin
@@ -443,6 +459,9 @@ begin
         Bar.Add ("Search/&Replace...", Replace_CB'Access,    Mod_Ctrl + 'h',    Flag_Divider);
         Bar.Add ("Search/&Word Count", Count_CB'Access);
 
+        Bar.Add (Text => "&Options", Flags => Flag_Submenu);
+        Bar.Add ("Options/&Word Wrap", Wrap_CB'Access,       No_Key,            Flag_Toggle);
+
         Bar.Add (Text => "&Help",   Flags => Flag_Submenu);
         Bar.Add ("Help/&About",        About_CB'Access);
     end;