From 42904bb6f3b48b27961bbec807cb514661ebb675 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 13 Nov 2016 20:06:05 +1100 Subject: Added optional line numbers --- src/adapad.adb | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'src/adapad.adb') diff --git a/src/adapad.adb b/src/adapad.adb index a045cfe..e72d4d6 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -252,6 +252,20 @@ package body Adapad is + procedure Lines_CB + (Item : in out FLTK.Widgets.Widget'Class) is + begin + if FLTK.Widgets.Menus.Menu (Item).Chosen.Value then + -- 50 pixels should be enough for 5 digit line numbers + Editor.Set_Linenumber_Width (50); + else + Editor.Set_Linenumber_Width (0); + end if; + end Lines_CB; + + + + procedure About_CB (Item : in out FLTK.Widgets.Widget'Class) is begin @@ -479,7 +493,8 @@ begin 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 ("Options/&Word Wrap", Wrap_CB'Access, No_Key, Flag_Toggle); + Bar.Add ("Options/&Line Numbers", Lines_CB'Access, No_Key, Flag_Toggle); Bar.Add (Text => "&Help", Flags => Flag_Submenu); Bar.Add ("Help/&About", About_CB'Access); -- cgit