diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-13 22:23:47 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-13 22:23:47 +1100 |
commit | defb53343417f2cc3ca28c5968322b8bd658364c (patch) | |
tree | a2c714e208bcafb7093dc57e8076ba7c400720f3 /src/windows-find.adb | |
parent | 42904bb6f3b48b27961bbec807cb514661ebb675 (diff) |
Added find next and find previous
Diffstat (limited to 'src/windows-find.adb')
-rw-r--r-- | src/windows-find.adb | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/src/windows-find.adb b/src/windows-find.adb index 4f76338..394ce2d 100644 --- a/src/windows-find.adb +++ b/src/windows-find.adb @@ -28,7 +28,8 @@ package body Windows.Find is if Dialog.Callback /= null then Dialog.Callback.all (Dialog.Find_What.Get_Value, - Dialog.Match_Case.Get_State = BU.On); + Dialog.Match_Case.Get_State = BU.On, + Forward); end if; end Find_M; @@ -120,5 +121,22 @@ package body Windows.Find is end Set_Find_Callback; + + + procedure Do_Callback + (This : in Find_Window; + Dir : in Direction := Forward) + is + use type BU.State; + begin + if This.Callback /= null then + This.Callback.all + (This.Find_What.Get_Value, + This.Match_Case.Get_State = BU.On, + Dir); + end if; + end Do_Callback; + + end Windows.Find; |