diff options
Diffstat (limited to 'src/editor.ads')
| -rw-r--r-- | src/editor.ads | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/src/editor.ads b/src/editor.ads index fe98691..e80111a 100644 --- a/src/editor.ads +++ b/src/editor.ads @@ -2,6 +2,7 @@ with FLTK.Widget.Group.Window.Double; with FLTK.Widget.Input; +with FLTK.Widget.Button.Ret; package Editor is @@ -12,16 +13,29 @@ package Editor is type Editor_Type is new Window.Double.Double_Type with private; + function Create + (X, Y, W, H : in Integer; + Label : in String) + return Editor_Type; + + private type Editor_Type is new Window.Double.Double_Type with record - Replace_Dialog : access Window.Window_Type; - Replace_Find : access FLTK.Widget.Input.Input_Type; - Replace_With : access FLTK.Widget.Input.Input_Type; + Replace_Dialog : Window.Window_Type; + Replace_Find : FLTK.Widget.Input.Input_Type; + Replace_With : FLTK.Widget.Input.Input_Type; + Replace_All : FLTK.Widget.Button.Button_Type; + Replace_Next : FLTK.Widget.Button.Ret.Return_Type; + Replace_Cancel : FLTK.Widget.Button.Button_Type; end record; + overriding procedure Initialize (This : in out Editor_Type); + overriding procedure Finalize (This : in out Editor_Type); + + end Editor; |