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-replace.ads | |
| parent | 8528bd05cbf65593c0592055431f6c85c21d6967 (diff) | |
Simplified find/replace window callbacks
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; |