From ce287c99ae15137138e2c5674f8f84a9c8bc1609 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 15 Apr 2025 17:23:52 +1200 Subject: Constants marked constant, code style improvements, redundant with clauses removed --- src/windows-find.ads | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'src/windows-find.ads') diff --git a/src/windows-find.ads b/src/windows-find.ads index 9f78048..1f59a05 100644 --- a/src/windows-find.ads +++ b/src/windows-find.ads @@ -12,25 +12,26 @@ package Windows.Find is type Find_Window is new Window with private; - type Direction is (Forward, Backward); - type Find_Callback is access procedure (Item : in String; Match_Case : in Boolean; Facing : in Direction); + + function Create return Find_Window; + + procedure Set_Find_Callback (This : in out Find_Window; Func : in Find_Callback); - procedure Do_Callback (This : in Find_Window; Dir : in Direction := Forward); @@ -39,15 +40,15 @@ package Windows.Find is private - type Find_Window is new Window with - record - Find_What : FLTK.Widgets.Inputs.Text.Text_Input; - Match_Case : FLTK.Widgets.Buttons.Light.Check.Check_Button; - Cancel : FLTK.Widgets.Buttons.Button; - Start : FLTK.Widgets.Buttons.Enter.Enter_Button; - Callback : Find_Callback; - end record; + type Find_Window is new Window with record + Find_What : FLTK.Widgets.Inputs.Text.Text_Input; + Match_Case : FLTK.Widgets.Buttons.Light.Check.Check_Button; + Cancel : FLTK.Widgets.Buttons.Button; + Start : FLTK.Widgets.Buttons.Enter.Enter_Button; + Callback : Find_Callback; + end record; end Windows.Find; + -- cgit