diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-11-11 10:53:05 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-11 10:53:05 +1100 |
| commit | bf5b67dee0d61996c3937dd8b255d5fcf2198973 (patch) | |
| tree | 0a53efae21ee2abba5b1f24fb0488dd022477286 /src/windows-find.adb | |
| parent | 646bb5b98226ecfcee8b02d669b9cef5d00bbded (diff) | |
Simplified widget callbacks
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; |