diff options
Diffstat (limited to 'src/windows-find.adb')
| -rw-r--r-- | src/windows-find.adb | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/windows-find.adb b/src/windows-find.adb index 5459e38..f061ba3 100644 --- a/src/windows-find.adb +++ b/src/windows-find.adb @@ -21,11 +21,8 @@ package body Windows.Find is - Find_M : aliased Find_Marshaller; - - overriding procedure Call - (This : in Find_Marshaller; - Item : in out W.Widget'Class) + procedure Find_M + (Item : in out W.Widget'Class) is use type BU.State; type Find_Window_Access is access all Find_Window; @@ -36,7 +33,7 @@ package body Windows.Find is (Dialog.Find_What.Get_Value, Dialog.Match_Case.Get_State = BU.On); end if; - end Call; + end Find_M; |