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/windows-find.adb | |
| parent | 8528bd05cbf65593c0592055431f6c85c21d6967 (diff) | |
Simplified find/replace window callbacks
Diffstat (limited to 'src/windows-find.adb')
| -rw-r--r-- | src/windows-find.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/windows-find.adb b/src/windows-find.adb index 4adc2ac..5459e38 100644 --- a/src/windows-find.adb +++ b/src/windows-find.adb @@ -32,7 +32,7 @@ package body Windows.Find is Dialog : access Find_Window := Find_Window_Access (Item.Parent); begin if Dialog.Callback /= null then - Dialog.Callback.Call + Dialog.Callback.all (Dialog.Find_What.Get_Value, Dialog.Match_Case.Get_State = BU.On); end if; @@ -120,7 +120,7 @@ package body Windows.Find is procedure Set_Find_Callback (This : in out Find_Window; - Func : not null access Find_Callback'Class) is + Func : in Find_Callback) is begin This.Callback := Func; end Set_Find_Callback; |