diff options
Diffstat (limited to 'src/windows-replace.adb')
-rw-r--r-- | src/windows-replace.adb | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/windows-replace.adb b/src/windows-replace.adb index a0bdcff..f158f7b 100644 --- a/src/windows-replace.adb +++ b/src/windows-replace.adb @@ -21,11 +21,8 @@ package body Windows.Replace is - Replace_M : aliased Replace_Marshaller; - - overriding procedure Call - (This : in Replace_Marshaller; - Item : in out W.Widget'Class) + procedure Replace_M + (Item : in out W.Widget'Class) is use type BU.State; type Replace_Window_Access is access all Replace_Window; @@ -38,7 +35,7 @@ package body Windows.Replace is Dialog.Match_Case.Get_State = BU.On, Dialog.Replace_All.Get_State = BU.On); end if; - end Call; + end Replace_M; |