diff options
Diffstat (limited to 'src/adapad.adb')
| -rw-r--r-- | src/adapad.adb | 17 |
1 files changed, 16 insertions, 1 deletions
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); |