diff options
Diffstat (limited to 'src/windows-replace.ads')
| -rw-r--r-- | src/windows-replace.ads | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/windows-replace.ads b/src/windows-replace.ads index ef5106b..854a882 100644 --- a/src/windows-replace.ads +++ b/src/windows-replace.ads @@ -14,11 +14,9 @@ package Windows.Replace is type Replace_Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; - type Replace_Callback is interface; - procedure Call - (This : in Replace_Callback; - Item, Replace_With : in String; - Match_Case, Rep_All : in Boolean) is abstract; + type Replace_Callback is access procedure + (Item, Replace_With : in String; + Match_Case, Rep_All : in Boolean); function Create @@ -38,7 +36,7 @@ package Windows.Replace is procedure Set_Replace_Callback (This : in out Replace_Window; - Func : not null access Replace_Callback'Class); + Func : in Replace_Callback); private @@ -56,7 +54,7 @@ private Match_Case, Replace_All : FLTK.Widgets.Buttons.Light.Check.Check_Button; Cancel : FLTK.Widgets.Buttons.Button; Start : FLTK.Widgets.Buttons.Enter.Enter_Button; - Callback : access Replace_Callback'Class; + Callback : Replace_Callback; end record; |