diff options
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; |