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.ads | |
| parent | 8528bd05cbf65593c0592055431f6c85c21d6967 (diff) | |
Simplified find/replace window callbacks
Diffstat (limited to 'src/windows-find.ads')
| -rw-r--r-- | src/windows-find.ads | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/windows-find.ads b/src/windows-find.ads index b22c8aa..31ea2f6 100644 --- a/src/windows-find.ads +++ b/src/windows-find.ads @@ -14,11 +14,9 @@ package Windows.Find is type Find_Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; - type Find_Callback is interface; - procedure Call - (This : in Find_Callback; - Item : in String; - Match_Case : in Boolean) is abstract; + type Find_Callback is access procedure + (Item : in String; + Match_Case : in Boolean); function Create @@ -38,7 +36,7 @@ package Windows.Find is procedure Set_Find_Callback (This : in out Find_Window; - Func : not null access Find_Callback'Class); + Func : in Find_Callback); private @@ -56,7 +54,7 @@ private Match_Case : FLTK.Widgets.Buttons.Light.Check.Check_Button; Cancel : FLTK.Widgets.Buttons.Button; Start : FLTK.Widgets.Buttons.Enter.Enter_Button; - Callback : access Find_Callback'Class; + Callback : Find_Callback; end record; |