diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-11 08:00:48 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-11 08:00:48 +1100 |
commit | 646bb5b98226ecfcee8b02d669b9cef5d00bbded (patch) | |
tree | bde0b351c6fd6aa5ccac013d2963c20243ff45f3 /src/adapad.adb | |
parent | 61342fd9e3c4cf2eb388fc7a6ba971859020b456 (diff) |
Simplified text_buffer callbacks
Diffstat (limited to 'src/adapad.adb')
-rw-r--r-- | src/adapad.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/adapad.adb b/src/adapad.adb index 1f2c03d..5d53d7c 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -212,9 +212,8 @@ package body Adapad is -- callbacks for the text buffer - overriding procedure Call - (This : in Mod_Callback; - Action : in FLTK.Text_Buffers.Modification; + procedure Mod_CB + (Action : in FLTK.Text_Buffers.Modification; Place : in FLTK.Text_Buffers.Position; Length : in Natural; Deleted_Text : in String) @@ -225,7 +224,7 @@ package body Adapad is Changed := True; end if; Set_Title; - end Call; + end Mod_CB; |