diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-11-10 21:26:59 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-10 21:26:59 +1100 |
| commit | 61342fd9e3c4cf2eb388fc7a6ba971859020b456 (patch) | |
| tree | 1796d42446b7563ae5b3dd62330726566e42966d /src/adapad.adb | |
| parent | 8528bd05cbf65593c0592055431f6c85c21d6967 (diff) | |
Simplified find/replace window callbacks
Diffstat (limited to 'src/adapad.adb')
| -rw-r--r-- | src/adapad.adb | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/adapad.adb b/src/adapad.adb index 50fbe8d..1f2c03d 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -232,9 +232,8 @@ package body Adapad is -- callbacks for the find/replace windows - overriding procedure Call - (This : in Do_Find_Callback; - Item : in String; + procedure Do_Find_CB + (Item : in String; Match_Case : in Boolean) is Current_Position, Found_At : Natural; @@ -248,14 +247,13 @@ package body Adapad is else FLTK.Dialogs.Alert ("No occurrences of '" & Item & "' found!"); end if; - end Call; + end Do_Find_CB; - overriding procedure Call - (This : in Do_Replace_Callback; - Item, Replace_With : in String; + procedure Do_Replace_CB + (Item, Replace_With : in String; Match_Case, Replace_All : in Boolean) is Current_Position, Found_At : Natural; @@ -285,7 +283,7 @@ package body Adapad is else FLTK.Dialogs.Alert ("No occurrences of '" & Item & "' found!"); end if; - end Call; + end Do_Replace_CB; |