From 1ff0512b833a2d310783e4373483a603b91d2707 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 13 Nov 2016 14:41:26 +1100 Subject: Added word wrap feature --- src/adapad.adb | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'src/adapad.adb') 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; -- cgit