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.ads | |
| parent | 42904bb6f3b48b27961bbec807cb514661ebb675 (diff) | |
Added find next and find previous
Diffstat (limited to 'src/windows-find.ads')
| -rw-r--r-- | src/windows-find.ads | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/windows-find.ads b/src/windows-find.ads index 5931e5f..82895e7 100644 --- a/src/windows-find.ads +++ b/src/windows-find.ads @@ -12,9 +12,13 @@ package Windows.Find is type Find_Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; + type Direction is (Forward, Backward); + + type Find_Callback is access procedure (Item : in String; - Match_Case : in Boolean); + Match_Case : in Boolean; + Facing : in Direction); function Create @@ -37,6 +41,11 @@ package Windows.Find is Func : in Find_Callback); + procedure Do_Callback + (This : in Find_Window; + Dir : in Direction := Forward); + + private |